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
</code>
; 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)
<code>
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
Ditulis oleh Afri zanirman
Berpengalaman sebagai pengajar di ATC (Authorized Training Center) baik di Indonesia maupun Malaysia untuk pengambilan sertifikasi dari Autodesk. Software yang dikuasai AutoCAD, AutoCAD Mechanical, AutoCAD P&ID dan Inventor. Sekarang bekerja freelance sebagai CAD Instructor diberbagai perusahaan. Jikalau ada kebutuhan mengenai training,services dan konsultasi seputar software CAD bisa kontak saya di udaaf@yahoo.co.id. No. telp 08179870990 / 021-92031733
Loading ...
