[LISP函数]：CAD中自动画管线图的LISP程序

gaozh

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

2443725

不错，感谢！！！

alwaysbin

第一行的“/”后面应该有一个空格，否则程序无法运行。
你的程序只能用于直线是水平线或垂直线，否则也是不行的。
可以把V和H改为直接点方向。
不过还是要感谢你上传，希望你继续支持本站。

zhiyongfan

斑竹能不能做做好事,把这个东东全部编辑好做成程序文件放上,让我们好好练练,我不懂这些
谢谢

ydf7332462

是啊，作管线的朋友还不少呐

afhek

支持，谢谢楼主分享

KKYY2000

就是呀，怎么个用法呀？？