Memeriksa dimensi
Dalam Kategori: AutoLISP
31 December 2008, 1:24 pm | oleh: udaaf | 0 Komentar | 366 views

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

</code></code>

(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)

<code>

Semoga bisa bermanfaat.

Salam,

Bapaknya Labib

Popularity: 1%

Selanjutnya:

Tulisan Terkait

Tulisan Terkait:

  1. Isometrik Dimensi
    Buat kawan-kawan yang biasa kerja di piping isometric mungkin dah sering bercengkrama dengan judul yang satu ini. Ni ada sedikit coding sederhana oleh2 dari tanah dayak. Syaratnya style dan dim style sudah dibuat terlebih dahulu dan di set sebagai default ketika membuat dimensi. Dan pembagian pemberian dimensi berdasarkan orientasi arah atau kalau yang biasa gunakan isoplane left atau right bisa dibuat perumpamaan sebagai berikut : DW untuk pemberian dimensi pada…......
  2. Aslikah dimensi digambarku?
    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…......
  3. Membuat bentangan dengan LISP
    Coding ini dibilang masih sederhana karena hanya bisa membentangkan profil U dari polyline yang tidak memiliki radius dan masih bersifat horizontal dan vertikal saja. Konsep penulisan coding disusun untuk meletakkan formula. Tapi sayangnya formula yang dicari hilang :-P. Kalau ada formula bentangan plate boleh dikirim ke saya ya. Ke UdaafAtYahooDotCoDotId. Berikut coding sederhana untuk membuat bentangan U. Semoga bisa dipelajari </code></code> (defun c:FP1 (/ ss ename ed obj elist thelist…......

«

Ayo Diskusikan di Sini!

XHTML: You can use these tags: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>