画一些管路原理图时,当代表不同管路的直线在图中相交时,需将在交点处的某一直线断开,再用一半圆连接两断点,使用下面这个LISP编写的程序,只用键入"brel"的命令,其它的就由电脑去完成了。
程序中使用"break"命令截断需要被断开的管线,再用"arc"命令画一半圆连接两断点。变量p读取管线交点;p1、p2为点p的左右或上下两点;p3为连接p1、p2半圆的中点。由于使用"break"命令时若AUTOCAD环境处于对象捕捉方式(OSMODE≠0),则"break"命令截断的p1、p2两点可能为变为p1、p2附近的捕捉点。所以程序开始时用变量myosmode记录系统变量OSMODE,而后设置OSMODE为0,程序结束后再设置还原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.")
程序中使用"break"命令截断需要被断开的管线,再用"arc"命令画一半圆连接两断点。变量p读取管线交点;p1、p2为点p的左右或上下两点;p3为连接p1、p2半圆的中点。由于使用"break"命令时若AUTOCAD环境处于对象捕捉方式(OSMODE≠0),则"break"命令截断的p1、p2两点可能为变为p1、p2附近的捕捉点。所以程序开始时用变量myosmode记录系统变量OSMODE,而后设置OSMODE为0,程序结束后再设置还原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.")
相关文章
- 2021-08-19水晶石影视动画精粹:MAYA&mental ray影视动画渲染PDF西
- 2021-08-03Autodesk RevitMEP2014管线综合设计应用全彩 [柏慕进
- 2021-08-02Autodesk RevitMEP2012应用宝典 [欧特克软件(中国)有限
- 2021-08-02Autodesk RevitMEP2012管线综合设计应用全彩 [柏慕中
- 2021-08-01Visual LISP程序设计(AutoCAD 2006)PDF下载
- 2021-07-30AutoCAD程序设计魔法书 [AutoLISP DCL基础篇]PDF下载
- 2021-07-16AutoCAD Photoshop园林设计实例 第2版 [张燕,胡大勇 编
- 2021-07-13AutoCAD 3dsMax工程制图、室内外表现及建筑动画完全教
- 2021-07-12Maya总动员:动画编程篇 张宝贵等PDF下载
- 2021-06-22AutoCAD+3ds Max+Photoshop建筑设计从新手到高手PDF下