Ðề: Tặng anh em Xây dựng cai Lisp Vẽ mặt bằng Lanh tô
Để gọi hàm tle và blt thì bạn phải khai báo hàm thủ tục,rồi load nó khi dùng program chính lt chứ..Code trên rõ ràng là có vấn đề ^^
-
Ðề: Tặng anh em Xây dựng cai Lisp Vẽ mặt bằng Lanh tô
Nó không hỏi nhập bề rộnghay tỉ lệ mà nó đòi luôn D1 và D2
Command: lt
Diem dau D1 :
Diem cuoi D2:; error: bad argument type: numberp: nilLeave a comment:
-
Tặng anh em Xây dựng cai Lisp Vẽ mặt bằng Lanh tô
Tui mới viết cái lisp nhỏ để vẽ mặt bằng Lanh tô tặng các bạn dùng thử:
*************************************************
(defun C:TL()
(Setq Tle (Getreal "Nhap Ti le(10) "))
(if
(= Tle nil)
(setq Tle 10)
)
)
(defun C:Blt()
(Setq Blt (Getreal "Nhap Be rong Lanh to(110) "))
(if
(= Blt nil)
(setq Blt 110)
)
)
(defun C:Lt(/ d1 d2 da Goc chon)
(setvar "OSMODE" 130)
(setq da (Getpoint"\nDiem dau D1 :"))
(setq db (GetPoint"\nDiem cuoi D2:" da))
(setq Goc(Angle da db))
(setvar "OSMODE" 0)
(setq da (Polar da Goc (/ -110 Tle)))
(setq db (Polar db Goc (/ 110 Tle)))
(setq d1 (Polar da (+(/ Pi 2) Goc) (/ (/ Blt 2) Tle)))
(setq d2 (Polar db (- Goc (/ Pi 2)) (/ (/ Blt 2) Tle)))
(Command"LAYER" "M" "Hatch""")
(command "Rectang" d1 d2 "")
(setq chon (ssget "L"))
(Command "Hatch" "DOTS" "5" "0" chon "")
(Command"LAYER" "M" "Dim""")
(setvar "OSMODE" 675)
)
********************************************
Các bạn vẽ trên bản vẽ kiến trúc chỉ cần bắt 2 điểm là đã có 1 cai lanh tô như ý.Cần nhập bề rộng và Tỉ lệ trước khi vẽ lanh tô.Chúc thanh công.Trong ban ve phải có Layer Hatch và Dim.
Leave a comment: