CAD中自动画管线图的LISP程序

　　画一些管路原理图时，当代表不同管路的直线在图中相交时，需将在交点处的某一直线断开，再用一半圆连接两断点，使用下面这个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.")

最新相关文章

• ·AutoCAD模拟空间与图纸空间简介
• ·AutoCAD单窗口同时打开多个图形文件
• ·AutoCAD控制实体显示的方法
• ·用AutoCAD绘制平面曲线与空间曲线
• ·用AutoCAD画粗实线的两种方法
• ·在中望CAD中绘图怎样自定义标题栏？
• ·AutoCAD中有关选择编辑的技巧
• ·AutoCAD三维建模实例：排球
• ·AutoCAD三维造型实例：制作直线沙发
• ·利用AutoCAD拉伸面命令绘制哑铃
• ·AutoCAD造型实例：十字形螺丝刀头
• ·AutoCAD造型实例：一字形螺丝刀头
• ·AutoCAD中关于阿波罗尼斯圆的讨论
• ·用AutoCAD五分钟内完成三维足球建模
• ·AutoCAD三维造型：弹簧的简单画法
• ·AutoCAD滚珠轴承建模全过程