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[sourcecode language='cpp']

; Dibuat Bapaknya Labib
; Di Tepian Barat Jakarta 10/02/09
(defun c:dimc (/ a a1 a42 b b1 b42 c pt1
pt2 ed edx edim ed1 ed2 oldosn)
(vl-load-com)
(setq a (entget(car(entsel”\nPilih Dimensi Vertikal”))))
(setq a1 (cdr(assoc 1 a)))
(setq a42 (cdr(assoc 42 a)))
(if (= a1 “”)
(setq a a42)
(setq a (atof a1))
);if
(setq b (entget(car(entsel”\nPilih Dimensi Horizontal”))))
(setq b1 (cdr(assoc 1 b)))
(setq b42 (cdr(assoc 42 b)))
(if (= b1 “”)
(setq b b42)
(setq b (atof b1))
);if
(setq c (sqrt (+ (expt a 2) (expt b 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 c 2 1 )))
(setq edim (subst ed2 ed1 edim))
(entmod edim)
(entupd edx)
(setvar “osmode” oldosn)
(princ)
)
(princ)
[/sourcecode]

Mohon maaf. Berhubung jaringan internet di Kantor lemot dengan berat hati gambar tidak bisa di tampilkan :(.

Kalau ada yang kurang jelas silahkan Japri ke UdaafAtTentangcadDotCom

  • http://pulse.yahoo.com/_L5PJL7XCDUPPBDIV5SNAWOSGUU Salasa

    Saya punya kasus: aku mau Offset satu garis, dimana garis awalnya teroffset dua garis, kiri dan kanan dan garis awal tadinya Hilang…