CAD中自動畫管線圖的LISP程序
/ 2021/6/5 10:43:45
次
畫一些管路
原理圖時，當代表不同管路的直線在圖中相交時，需將在交點處的某一直線斷開，再用一半圓連接兩斷點，使用下面這個LISP
編寫的
程序，只用鍵入"brel"的
命令，其它的就由
電腦去完成了。
程序中使用"break"命令截斷需要被斷開的管線，再用"
arc"命令畫一半圓連接兩斷點。變量p讀取管線交點；p1、p2為點p的左右或上下兩點；p3為連接p1、p2半圓的中點。由于使用"break"命令時若
AUTOCAD環(huán)境處于對象捕捉方式
（OSMODE≠0），則"break"命令截斷的p1、p2兩點可能為變?yōu)閜1、p2附近的捕捉點。所以程序
開始時用變量myosmode記錄
系統(tǒng)變量OSMODE，而后
設置OSMODE為0，程序結(jié)束后再設置還原OSMODE。變量horn判斷用戶需要斷開的是
水平線還是
垂直線。
(defun c:brel(/myosmode horv p p1 p2 p3)
(setq myosmode (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq p (getpoint "\nselect
point to break:"))
(initget 1 "H V")
(setq horv (getkword " Direction[H/V]?
"))
(if (= horv "H")
(progn
(setq p1 (list (- (car p) 1.5) (cadr p)))
(setq p2 (list (+ (car p) 1.5) (cadr p)))
(setq p3 (list (car p) (+ (cadr p) 1.5)))
)
(progn
(setq p1 (list (car p) (- (cadr p) 1.5)))
(setq p2 (list (car p) (+ (cadr p) 1.5)))
(setq p3 (list (+ (car p) 1.5) (cadr p)))
)
)
(command "break" p1 p2)
(command "arc" p1 p3 p2)
(setvar "OSMODE" myosmode)
(princ)
)
(princ "\nStart command with brel which will break a line and join it with an arc.")
