Memeriksa dimensi

Tulisan ini sebenarnya hanya menyambung dari tulisan yang dibuat oleh saudara santo. Dimana pada coding ini memungkinkan kita untuk melihat langsung dimensi yang sudah dirubah menggunakan command ddedit. Gaya coding ini mirip dengan check dimensi di AutoCAD Mechanical Dimana dimensi akan langsung di highlight.

Berikut coding tersebut

[sourcecode language='cpp']

(prompt “Ketik chkd untuk menjalankan program!”)
(defun c:chkd (/ cd DimSel Pengulangan cnt Sdat EntDat DimGan )
(setq DimSel (ssget “_X” (list (cons 0 “Dimension”)))); pemilihan objek khusus dimensi
(setq Pengulangan (sslength DimSel)); menghitung jumlah objek yang terpilih
(Setq cnt -1); membuat counter
(setq cd (ssadd))
;———-
(repeat Pengulangan
(setq cnt  (1+ cnt))
(setq Sdat (ssname DimSel cnt)); mengambil ename
(setq EntDat (entget Sdat))
(setq DimGan (cdr(assoc 1 EntDat))); mencari data dimensi yang diganti
(if (/= DimGan “”)
(ssadd Sdat cd )

); if
); repeat
(command “select” cd)
(princ)
);defun
(princ)

[/sourcecode]

Semoga bisa bermanfaat.

Salam,

Bapaknya Labib