CAD繪制中心線的方法

2019-08-12 6704 CAD中心線怎么畫

在我們繪制圖紙的過程中，我們圖紙中的中心點及中心線對我們的繪制總是很重要，當我們在鏡像等操作的時候也會使用到，因此我們在軟件使用CAD繪制中心線就很重要，具體的操作過程是怎樣的呢

CAD繪制中心線的方法：

第一個程序適用于兩條邊是連續直線的情況。使用方法是：用LOAD命令裝入GLS.LSP，運行C:GSL，依據屏幕提示，分別選擇兩邊，自動繪制出中心線。
GSL.LSP:
(defun mid(pt1 pt2 ) 計算兩點之中點的功能函數
(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 沒有發現實體"))
((/="LINE"(cdr (assoc 0 (setqe(entget (car cl1))))))
(prompt"\n 所選不是直線")
)
(t (prompt"找到了第一條直線”)
(setq m nil)；退出循環
)
)
)
(setq cl (ssget (nth 0 (cdr cl1))))；取得第一條直線的實體數據
(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"沒有發現實體或重復"))
((／="LINE"(cdr (assoc 0 (setq e (entget (car cl2))))))
(prompt"\n 所選不是直線")
)
(t (prompt"\n兩條直線已經選擇完畢")
(setq m nil)；；；退出循環
)
)
)
；；；取得第一直線兩端點的坐標
(setq pt1 (cdr (assoc 10 e )) pt2 (cdr (assoc 11 e )))
(setq e (entget (car cl1)))；；取得第二條直線的實體數據
；；；取得第二直線兩端點的坐標
(setq pt3 (cdr (assoc 10 e )) pt4 (cdr (assoc 11 e )))
；；調整端點
(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，依據屏幕提示，分別選擇兩邊的端點，自動繪制出中心線。
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 )
；；保存環境變量
(setq os (getvar "osmode"))
(setq cm (getvar "cmdecho"))
；；設置環境變量
(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選擇第二條直線的第二個點"))
；；；；恢復環境變量
(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