AutoCAD下繪制直線對稱中心線的方法

　　AutoCAD是目前國內(nèi)應(yīng)用最廣范的CAD系統(tǒng)之一，AutoCAD 功能強(qiáng)大，是一個通用的CAD平臺，但是如果不根據(jù)本專業(yè)的需要進(jìn)行二次開發(fā)，使用起來是很不方便的。畫對稱中心線是機(jī)械設(shè)計(jì)中經(jīng)常遇到的一個問題。
　　筆者用AutoLISP依據(jù)國家標(biāo)準(zhǔn)開發(fā)了兩個程序，可以很方便地解決直線對稱中心線的問題。
　　第一個程序適用于兩條邊是連續(xù)直線的情況。使用方法是：用LOAD命令裝入GLS.LSP，運(yùn)行C:GSL，依據(jù)屏幕提示，分別選擇兩邊，自動繪制出中心線。
GSL.LSP:
(defun mid(pt1 pt2 ) 計(jì)算兩點(diǎn)之中點(diǎn)的功能函數(shù)
(setq pt (mapcar'+pt1 pt2 ))
(setq pt (mapcar'/pt'(2 2 2)))
)
(defun c:gsl/m cl1 cl cl2 e pt pt1 pt2 pt3 pt4 a) 　(SETQ M 1)
　(WHILE M
　　(SETQ CL1 (ENTSEL"\n選擇第一條直線 "))
　　(cond
　　　((not cl1 )　 (prompt"\n 沒有發(fā)現(xiàn)實(shí)體"))
　　 ((/="LINE"(cdr (assoc 0 (setqe(entget (car cl1))))))
(prompt"\n 所選不是直線")
　　)
　　(t (prompt"找到了第一條直線”)
　　　(setq m nil)；退出循環(huán)
　　)
　 )
)
(setq cl (ssget (nth 0 (cdr cl1))))；取得第一條直線的實(shí)體數(shù)據(jù)
(SETQ M 1)
(WHILE M
　(SETQ CL2 (ENTSEL"\n選擇第二條直線"))
　(if cl2
　　(if (ssmemb (car cl2) cl )
　　　　(progn
　　　　　(princ"\n選擇重復(fù)，重新選擇")
　　　　　(setq cl2 nil)
　　　　)
　　)
　)
　(cond
　　((not cl2 ) (prompt"沒有發(fā)現(xiàn)實(shí)體或重復(fù)"))
　 ((／="LINE"(cdr (assoc 0 (setq e (entget (car cl2))))))
　　　　　(prompt"\n 所選不是直線")
　　)
　　(t (prompt"\n兩條直線已經(jīng)選擇完畢")
　　　(setq m nil)；；；退出循環(huán)
　　)
　 )
　)
；；；取得第一直線兩端點(diǎn)的坐標(biāo)
　(setq pt1 (cdr (assoc 10 e )) pt2 (cdr (assoc 11 e )))
　(setq e (entget (car cl1)))；；取得第二條直線的實(shí)體數(shù)據(jù)
；；；取得第二直線兩端點(diǎn)的坐標(biāo)
　(setq pt3 (cdr (assoc 10 e )) pt4 (cdr (assoc 11 e )))
；；調(diào)整端點(diǎn)
　(if (inters pt1 pt3 pt2 pt4 t)
　　 (setq pt pt1
　　　　　pt1 pt2
　　　　 pt2 pt
　　)
　)
；；；計(jì)算兩端中點(diǎn)坐標(biāo)
　(setq pt1 (mid pt1 pt3 ))
　(setq pt2 (mid pt2 pt4 ))
　(setq a (angle pt1 pt2))；計(jì)算中心線的傾角
　(setq pt2 (polar pt2 a 2.5))；；計(jì)算中心線的第一個端點(diǎn)
　(setq pt1 (polar pt1 (＋pi a ) 2.5))
　(command"layer""SET"5"")；；設(shè)置中心線層
　(command "line" pt1 pt2 "")；；畫出中心線
)
(princ "\nC:GSL has loaded")
(Princ "\n for symmetry line")
(princ)
　　第二個程序適用于階梯軸，階梯孔等各種情況。使用方法是：用LOAD命令裝入GLS1.LSP，運(yùn)行C:GSL1，依據(jù)屏幕提示，分別選擇兩邊的端點(diǎn)，自動繪制出中心線。
GSL1.LSP
(defun mid(pt1 pt2 )
　　(setq pt (mapcar '+ pt1 pt2 ))
　　(setq pt (mapcar '/ pt '(2 2 2)))
)
(defun c:gsl1(/ p1 p1 p3 p4 a )
　；；保存環(huán)境變量
　(setq os (getvar "osmode"))
　(setq cm (getvar "cmdecho"))
　；；設(shè)置環(huán)境變量
　(setvar "osmode" 33)
　(setvar "cmdecho" 0)
　；；依次讀取兩條直線的端點(diǎn)
　(initget 1)
　(setq p1 (getpoint"\n選擇第一條直線的第一個點(diǎn)"))
　(initget 1)
　(setq p2 (getpoint"\n選擇第一條直線的第二個點(diǎn)"))
　(initget 1)
　(setq p3 (getpoint"\n選擇第二條直線的第一個點(diǎn)"))
　(initget 1)
　(setq p4 (getpoint"\n選擇第二條直線的第二個點(diǎn)"))
　；；；；恢復(fù)環(huán)境變量
　(setvar "osmode" os)
　(setq p1 (mid p1 p3 ))
　(setq p2 (mid p2 p4 ))
　(setq a (angle p1 p2))
　(setq p2 (polar p2 a 2.5))
　(setq p1 (polar p1 (+ pi a ) 2.5))
　(command "layer" "set" 5 "")
　(command "line" p1 p2 "")
)
(princ "\nC:GSL1 has loaded")
(Princ "\n for symmetry line")
Princ