CAD中自動(dòng)畫管線圖的LISP程序
/ 2021/6/5 10:43:45
次
畫一些管路
原理圖時(shí)，當(dāng)代表不同管路的直線在圖中相交時(shí)，需將在交點(diǎn)處的某一直線斷開，再用一半圓連接兩斷點(diǎn)，使用下面這個(gè)LISP
編寫的
程序，只用鍵入"brel"的
命令，其它的就由
電腦去完成了。
程序中使用"break"命令截?cái)嘈枰粩嚅_的管線，再用"
arc"命令畫一半圓連接兩斷點(diǎn)。變量p讀取管線交點(diǎn)；p1、p2為點(diǎn)p的左右或上下兩點(diǎn)；p3為連接p1、p2半圓的中點(diǎn)。由于使用"break"命令時(shí)若
AUTOCAD環(huán)境處于對象捕捉方式
（OSMODE≠0），則"break"命令截?cái)嗟膒1、p2兩點(diǎn)可能為變?yōu)閜1、p2附近的捕捉點(diǎn)。所以程序
開始時(shí)用變量myosmode記錄
系統(tǒng)變量OSMODE，而后
設(shè)置OSMODE為0，程序結(jié)束后再設(shè)置還原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.")
