新概念畫機械圖

筆者用AutoLISP依據(jù)國家標準開發(fā)了兩個程序，可以很方便地解決直線對稱中心線的問題。

　　第一個程序適用于兩條邊是連續(xù)直線的情況。使用方法是：用LOAD命令裝入GLS.LSP，運行C:GSL，依據(jù)屏幕提示，分別選擇兩邊， 自動繪制出中心線。

GSL.LSP:

(defun mid(pt1 pt2 ) 計算兩點之中點的功能函數(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)實體"))

　　 ((/="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ù)據(jù)

(SETQ M 1)

(WHILE M

　(SETQ CL2 (ENTSEL"\n選擇第二條直線"))

　(if cl2

　　(if (ssmemb (car cl2) cl )

　　　　(progn

　　　　　(princ"\n選擇重復，重新選擇")

　　　　　(setq cl2 nil)

　　　　)

　　)

　)

　(cond

　　((not cl2 ) (prompt"沒有發(fā)現(xiàn)實體或重復"))

　 ((／="LINE"(cdr (assoc 0 (setq e (entget (car cl2))))))

　　　　　(prompt"\n 所選不是直線")

　　)

　　(t (prompt"\n兩條直線已經(jīng)選擇完畢")

　　　(setq m nil)；；；退出循環(huán)

　　)

　 )

　)

；；；取得第一直線兩端點的坐標

　(setq pt1 (cdr (assoc 10 e )) pt2 (cdr (assoc 11 e )))

　(setq e (entget (car cl1)))；；取得第二條直線的實體數(shù)據(jù)

；；；取得第二直線兩端點的坐標

　(setq pt3 (cdr (assoc 10 e )) pt4 (cdr (assoc 11 e )))

；；調(diào)整端點?

　(if (inters pt1 pt3 pt2 pt4 t)

　　 (setq pt pt1

　　　　　pt1 pt2

　　　　 pt2 pt

　　)

　)

；；；計算兩端中點坐標

　(setq pt1 (mid pt1 pt3 ))

　(setq pt2 (mid pt2 pt4 ))

　(setq a (angle pt1 pt2))；計算中心線的傾角

　(setq pt2 (polar pt2 a 2.5))；；計算中心線的第一個端點

　(setq pt1 (polar pt1 (＋pi a ) 2.5))

　(command"layer""SET"5"")；；設置中心線層

　(command "line" pt1 pt2 "")；；畫出中心線

)

(princ "\nC:GSL has loaded")

(Princ "\n for symmetry line")

(princ)

　　第二個程序適用于階梯軸，階梯孔等各種情況。使用方法是：用LOAD命令裝入GLS1.LSP，運行C:GSL1，依據(jù)屏幕提示，分別選擇兩邊的端點， 自動繪制出中心線。

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"))

?。?；設置環(huán)境變量

　(setvar "osmode" 33)

　(setvar "cmdecho" 0)

　；；依次讀取兩條直線的端點

　(initget 1)

　(setq p1 (getpoint"\n選擇第一條直線的第一個點"))

　(initget 1)

　(setq p2 (getpoint"\n選擇第一條直線的第二個點"))

　(initget 1)

　(setq p3 (getpoint"\n選擇第二條直線的第一個點"))

　(initget 1)

　(setq p4 (getpoint"\n選擇第二條直線的第二個點"))

?。?；；；恢復環(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)