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.