« Posting Lebih Baru
Posting Lama »
No Comments

(Piping Isometric)Rolling Offset Dimension


.

Mungkin sedikit coding ini bisa membantu kawan-kawan yang bekerja di Piping Isometric. Mungkin dah saatnya juga untuk ngasih kalkulatornya buat adek dirumah atau di sumbangin.

Berikut ilustrasi gambar dan coding. Mudah-mudah bisa membantu

Rolling Offset Dimension

(prompt "\nKetik ROD untuk menjalankan program:")
;ROD = Rolling Offset Dimension
;Dibuat : Abu Labib 23/06/09
(defun c:ROD () ; rolling offset dimension
(setq dimrun (entget(car(entsel "\nPilih Dimensi Run:"))))
(setq dimrun1 (cdr (assoc 1 dimrun)))
(setq dimrun42 (cdr (assoc 42 dimrun)))
(if (= dimrun1 "")
(setq dimrun dimrun42)
(setq dimrun (atof dimrun1))
);if
(setq dimroll (entget(car(entsel "\nPilih Dimensi Roll:"))))
(setq dimroll1 (cdr(assoc 1 dimroll)))
(setq dimroll42 (cdr(assoc 42 dimroll)))
(if (= dimroll1 "")
(setq dimroll dimroll42)
(setq dimroll (atof dimroll1))
);if
(setq dimc (sqrt (+ (expt dimrun 2) (expt dimroll 2))))

(setq dimrise (entget(car(entsel "\nPilih Dimensi Rise:"))))
(setq dimrise1 (cdr (assoc 1 dimrise)))
(setq dimrise42 (cdr (assoc 42 dimrise)))
(if (= dimrise1 "")
(setq dimrise dimrise42)
(setq dimrise (atof dimrise1))
)

(setq travel (sqrt (+ (expt dimrise 2) (expt dimc 2))))

(setq pt1 (getpoint "\nTentukan titik pertama"))
(setq pt2 (getpoint pt1 "\nTentukan titik kedua"))
(setq oldosn (getvar "osmode"))
(setvar "osmode" 0)
(command "_dimaligned" pt1 pt2 pause "")
(setq ed (entlast))
(command "_dimedit" "O" ed "" "-90" )
(setq edx (entlast))
(setq edim(entget edx))
(setq ed1 (assoc 1 edim))
(setq ed2 (cons 1 (rtos travel 2 1 )))
(setq edim (subst ed2 ed1 edim))
(entmod edim)
(entupd edx)
(setvar "osmode" oldosn)

(princ)
);defun
(princ)

Ingin tau lebih dalam tentang AutoLISP silahkan hub :

udaafAtTentangCadDotCom

Tulisan Terkait:

  1. Single Offset Dimension
    Coding ini bisa digunakan untuk memberikan dimensi garis miring pada gambar isometrik atau di AutoPLANT dikenal dengan sebutan Single Offset Dimension. Hal yang harus diingat adalah style dan dimension style sudah diatur terlebih dahulu. Tanpa basa basi berikut codingnya ; Dibuat Bapa
  2. [AutoLISP]+ Balloons
    Tadinya mo digabung dengan posting sebelumnya tapi karena gagal terus ya kita buat baru saja. Ini coding tambahan untuk menambahkan balloons dimulai dengan nilai terakhir. Misal nilai terakhir 8 maka balloons akan dimulai dari angka 9 dst. Semoga bisa membantu. ; Dibikin Bapaknya Labib 08/07/08 ; M
  3. 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 pember
"tentangCAD.com"

This entry was posted on Senin, 03 Agustus 2009 and is filed under . You can follow any responses to this entry through the RSS 2.0 feed. You can skip to the end and leave a response.

Your Reply