|
AutoCAD下繪制直線對稱中心線的方法
（作者未知） 2009/7/19
（接上頁），分別選擇兩邊的端點，自動繪制出中心線。
GSL1.LSP
(defunmid(pt1pt2)
(setqpt(mapcar’+pt1pt2))
(setqpt(mapcar’/pt’(222)))
)
(defunc:gsl1(/p1p1p3p4a)
；；保存環(huán)境變量
(setqos(getvar"osmode"))
(setqcm(getvar"cmdecho"))
；；設(shè)置環(huán)境變量
(setvar"osmode"33)
(setvar"cmdecho"0)
；；依次讀取兩條直線的端點
(initget1)
(setqp1(getpoint"\n選擇第一條直線的第一個點"))
(initget1)
(setqp2(getpoint"\n選擇第一條直線的第二個點"))
(initget1)
(setqp3(getpoint"\n選擇第二條直線的第一個點"))
(initget1)
(setqp4(getpoint"\n選擇第二條直線的第二個點"))
；；；；恢復(fù)環(huán)境變量
(setvar"osmode"os)
(setqp1(midp1p3))
(setqp2(midp2p4))
(setqa(anglep1p2))
(setqp2(polarp2a2.5))
(setqp1(polarp1(+pia)2.5))
(command"layer""set"5"")
(command"line"p1p2"")
)
(princ"\nC:GSL1hasloaded")
(Princ"\nforsymmetryline")
Princ
|