Sebagai seorang drafter, terkadang mendapat softcopy drawing dari orang lain untuk meneruskan gambar, merevisi, atau sekedar menambah gambar detail berikut dimensi-dimensinya. Suatu saat pada saat merevisi dan membuat gambar detail ternyata ada gambar yang membuat ruwet…. eh ternyata setelah dicari-cari ternyata drafter terdahulu memodifikasi dimensi, sehingga seolah-olah gambar terskala dengan benar…. membuat pusing kepala dan menghabiskan banyak waktu untuk mengeditnya.
Coba saja sudah tahu dari sebelumnya, bisa kita complain ke drafter sebelumnya… atau paling tidak diawal kita sudah tahu sumber permasalahannya. Mari kita cari solusinya… begini….:p
Coba kode AutoLISP dibawah ini dan simpan dalam file cekdim.lsp dan pakai command line: cd
(defun c:cd ( / oby cd v0 v1 i ssval ssvalnama ssvaldim a aa)
(setq oby (ssget))
(setq cd nil)
(setq cd (ssadd))
;
(setq v0 (cons 0 “DIMENSION”))
(setq v1 (cons 1 “”))
;
(setq i -1)
(repeat (sslength oby)
(setq i (1+ i))
(setq ssval (ssname oby i))
(setq ssvalnama (assoc 0 (entget ssval)))
(setq ssvaldim (assoc 1 (entget ssval)))
(if (equal ssvalnama v0)
(if (not (equal ssvaldim v1))
(ssadd ssval cd)
);end if
);end if
);end repeat
(terpri)
(setq a (sslength cd))
(setq aa (itoa a))
(if (equal a 0) “OK!, tidak ada modifikasi dimensi”
(strcat “Ada ” aa ” modifikasi dimensi”)
)
);end defun cd
Bila sakit berlanjut hubungi dokter…. Selamat mencoba!
About Anang Susanto
Diskusi