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

heaven77

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

文章来源：AutoCAD 点击数：19 更新时间：2005-9-1　

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

kehello

怎么不行呀，楼主能不能再看一下这个程序是不是有问题呀！！！

libo_dy

怎么提示不行呢？

命令: brel
; 错误: 参数太少

原地踏步

看了一下，觉得该程序有两个错。
1.变量p由getpoint得到，不一定在管线上，这样以p点画出的弧有偏差。
2.命令break的参数只有两个点，缺少实体，根本不知道该打断什么东西，程序也就无法运行。
所以，最好用entsel而不是用getpoint来获得点。若确实想用getpoint，则还应用(ssget p filter)来获得实体。

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060515
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. [url]http://free.ys168.com/?xyp1964[/url]
    
13. |;
    
14. 
    
15. ;;; [url]http://www.xdcad.net/forum/showthread.php?s=&threadid=560363[/url]
    
16. (defun c:test ()
    
17.   (cmdla0)
    
18.   (setq oos(getvar "OSMODE"))
    
19.   (while (setq p0 (getpoint "\n选择打断点<退出>: "))
    
20.     (setvar "OSMODE" 0)
    
21.     (setq p   (osnap p0 "near")
    
22.           s   (ssget p)
    
23.           s   (ssget "p" '((0 . "LINE")))
    
24.           s1  (ssname s 0)
    
25.           ang (angle (xyp-get-dxf 10 s1) (xyp-get-dxf 11 s1))
    
26.           p1  (polar p ang 1.5)
    
27.           p2  (polar p ang (* 1.5 -1.0))
    
28.           p3  (xyp-get-MidPointUP p1 p2 1.5)
    
29.     )
    
30.     (command "break" p1 p2)
    
31.     (command "arc" p1 p3 p2)
    
32.     (setvar "OSMODE" oos)
    
33.   )
    
34.   (cmdla1)
    
35. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060515<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://free.ys168.com/?xyp1964[/url]<br /> |;<br /> <br /> ;;; [url]http://www.xdcad.net/forum/showthread.php?s=&threadid=560363[/url]<br /> (defun c:test ()<br />   (cmdla0)<br />   (setq oos(getvar "OSMODE"))<br />   (while (setq p0 (getpoint "\n选择打断点<退出>: "))<br />     (setvar "OSMODE" 0)<br />     (setq p   (osnap p0 "near")<br />           s   (ssget p)<br />           s   (ssget "p" '((0 . "LINE")))<br />           s1  (ssname s 0)<br />           ang (angle (xyp-get-dxf 10 s1) (xyp-get-dxf 11 s1))<br />           p1  (polar p ang 1.5)<br />           p2  (polar p ang (* 1.5 -1.0))<br />           p3  (xyp-get-MidPointUP p1 p2 1.5)<br />     )<br />     (command "break" p1 p2)<br />     (command "arc" p1 p3 p2)<br />     (setvar "OSMODE" oos)<br />   )<br />   (cmdla1)<br /> )[/FONT]

lzp1986

没有看明白

橄榄滋味

用这个好了，另外考虑了线不垂直的情况，用法如下：
1 点取交点
2 点取直线

(defun c:brel( / ss sss an p p1 p2 p3)
(setq osm(getvar "OSMODE"))
(setvar "OSMODE" 33)
(setq p (getpoint "\nSelect Point:"))
(setq ss(entsel "\nSelect Line:"))
(setvar "OSMODE" 0)
(setq an(angle (cdr(assoc 10(entget (car ss)))) (cdr(assoc 11(entget (car ss))))))
(setq p1 (polar p an 1.5))
(setq p2 (polar p (+ an pi) 1.5))
(setq p3 (polar p (+ an (* pi 1.5)) 1.5))
(command "break" ss "f" p1 p2)
(command "arc" p1 p3 p2)
(setvar "OSMODE" osm)
(princ)
)