CAD快速畫中心線的方法

我們在使用CAD軟件畫圖的時候，我們可以在圖紙中繪制我們需要的圖紙對象，當圖紙要求我們繪制圖形或者直線的中心線、對稱線的時候，我們在軟件中如何操作，才可以使用CAD快速畫中心線？

CAD快速畫中心線的方法：

用GstarLISP依據國家標準開發了兩個程序，可以很方便地解決直線對稱中心線的問題。

第一個程序適用于兩條邊是連續直線的情況。使用方法是：用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

 以上就是在CAD繪圖軟件中，我們想要在軟件中使用CAD快速畫中心線的方法，可以了解和借鑒下，主要是要與其他的程序相結合使用。今天就介紹這么多了。安裝浩辰CAD軟件試試吧。更多CAD教程技巧，可關注浩辰CAD官網進行查看。