vlide: Oktober 2011

Minggu, 16 Oktober 2011

Membuat potongan dinding (2d)

Command ini untuk membuat potongan dinding. Berikut program autolispnya :

(defun c:wall (/ pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 len ang angt)
   (setvar "cmdecho" 0)
   (command "undo" "be")
   (initget 1)
   (setq pt1 (getpoint "\nStarting Wall: "))
   (initget 1)
   (setq pt2 (getpoint pt1 "\nLengh: "))
   (setq lama (getvar "osmode"))
   (setvar "osmode" 0)
   (setq ang (angle pt1 pt2))
   (setq len (distance pt1 pt2))
   (setq angt (angtos ang 4 4))
   (if (<= (* pi 250) ang)(setq angt (angtos (- ang (/ pi 2)) 4 4)))
   (setq pt3 (polar pt2 (+ (/ pi 2) ang) 150))
   (setq pt4 (polar pt3 (+ pi ang) len))
   (setq pt5 (polar pt1 (+ (/ pi 2) ang) 25))
   (setq pt6 (polar pt5 ang len))
   (setq pt7 (polar pt6 (+ (/ pi 2) ang) 100))
   (setq pt8 (polar pt7 (+ pi ang) len))
   (command "PLINE" pt1 pt2 pt3 pt4 "C")
   (command "PLINE" pt5 pt6 pt7 pt8 "C")
   (command "-HATCH" "P" "ansi32" "250" "0" "A" "A" "Y" "" "S" "last" "" "")
   (setvar "osmode" lama)
   (command "undo" "e")
)

Contoh hasil pembuatannya :

Cara menggunakan program ini :

1. Copy dan paste program tsb ke dalam notepad

2. lalu save file tsb dengan extension .lsp

3. dari dalam program Autocad anda ketikan command / perintah APPLOAD

4. Pilih file lsp anda yg tadi kemudian klik tombol "load"

5. Setelah itu tutup dialog box dengan meng-klik tombol "close"

6. Pada command bar anda bisa masukan perintah wall

Silahkan dicoba.. :D

Kamis, 13 Oktober 2011

Membuat notasi tampak pintu

Bagi anda yg ingin mempermudah dalam membuat gambar notasi tampak pintu, berikut ini adalah program autolispnya :

(defun start ()
   (setq pt1 (getpoint "\nStarting Door: "))
   (initget 7)
   (setq wd (getreal "\nWidth: "))
   (initget 7)
   (setq hi (getreal "\nHigh: "))
)

(defun single ()
   (setq pt1a (polar pt1 0 50))
   (setq pt2 (polar pt1 (/ pi 2) hi))
   (setq pt3 (polar pt2 0 wd))
   (setq pt4 (polar pt1 0 wd))
   (setq pt4a (polar pt4 pi 50))
   (setq pt4b (polar pt4a (/ pi 2) (- hi 50)))
   (setq pt5 (polar pt1a (/ pi 2) (- (/ hi 2) 50)))
   (command "pline" pt1 pt2 pt3 pt4 "")
   (command "offset" 50 (entlast) pt1a "")
   (command "pline" pt4a pt5 pt4b "")
   (command "change" "L" "" "P" "lt" "hidden" "")
)

(defun double ()
   (setq pt1a (polar pt1 0 50))
   (setq pt2 (polar pt1 (/ pi 2) hi))
   (setq pt3 (polar pt2 0 wd))
   (setq pt4 (polar pt1 0 wd))
   (setq pt4a (polar pt4 pi 50))
   (setq pt5 (polar pt1a (/ pi 2) (/ (- hi 50) 2)))
   (setq pt6 (polar pt1 0 (/ wd 2)))
   (setq pt6a (polar pt6 (/ pi 2) (- hi 50)))
   (command "pline" pt1 pt2 pt3 pt4 "")
   (command "offset" 50 (entlast) pt1a "")
   (command "line" pt6 pt6a "")
   (command "pline" pt6 pt5 pt6a "")
   (command "change" "L" "" "P" "lt" "hidden" "")
   (command "mirror" "L" "" pt6 pt6a "n")
)

(defun c:ts ()
(setvar "cmdecho" 0)
(command ".undo" "be")
(start) (single)
(command ".undo" "e")
(princ)
)

(defun c:td ()
(setvar "cmdecho" 0)
(command ".undo" "be")
(start) (double)
(command ".undo" "e")
(princ)
)

Perintah TS untuk membuat gambar notasi tampak pintu single, sedangkan TD untuk membuat gambar notasi tampak pintu double..

Contoh hasil dari perintah tsb :