[LISP程序]：工艺流程图交叉线打断

Linux

我们绘制工艺流程图时，交叉线经常要打断，一般都是竖断横不断。手工打断的话，间距不一样，很不美观，所以就编了这个小程序。

由于我们的工艺流程图都是正交线段，所以这个程序就很简单了，只考虑了最基本的要求。


[PHP]
(defun c:LC (/ osm oc ol Key Space pt pt1 pt2 ss len i entn a)
  (setq Space (getreal "请输入断开间距 <4>:"))
  (if (= Space nil)
    (setq Space 4)
  )
  (setq key 1)
  (while (/= key nil)
    (if (/= (setq pt (getpoint "\n选择需断开的交点:")) nil)
       (progn
            (setq pt1 (list (nth 0 pt) (+ (nth 1 pt) (/ Space 2))))
            (setq pt2 (list (nth 0 pt) (- (nth 1 pt) (/ Space 2))))
            (setq ss (ssget "C" (list (- (car pt) 1) (+ (cadr pt) 1))(list (+ (car pt) 1) (+ (cadr pt) 2))))
            (setq entn (ssname ss 0))
            (setq a (entget entn))
            (command "break" (list entn pt1) "f" pt1 pt2)
       )
       (setq key nil)
    )
  )  
  (setvar "osmode" 6799)
  (princ)
)

[/PHP]

同时，这个帖子兼回答网友 youhei 的帖子
http://www.xdcad.net/forum/showthread.php?s=&threadid=637177

他要求的横断竖不断的代码如下：
[PHP]
(defun c:LC (/ osm oc ol Key Space pt pt1 pt2 ss len i entn a)
  (setq Space (getreal "请输入断开间距 <4>:"))
  (if (= Space nil)
    (setq Space 4)
  )
  (setq key 1)
  (while (/= key nil)
    (if (/= (setq pt (getpoint "\n选择需断开的交点:")) nil)
       (progn
            (setq pt1 (list  (- (nth 0 pt) (/ Space 2)) (nth 1 pt)))
            (setq pt2 (list  (+ (nth 0 pt) (/ Space 2)) (nth 1 pt)))
            (setq ss (ssget "C" (list (- (car pt) 2) (- (cadr pt) 1))(list (- (car pt) 1) (+ (cadr pt) 1))))
            (setq entn (ssname ss 0))
            (setq a (entget entn))
            (command "break" (list entn pt1) "f" pt1 pt2)
       )
       (setq key nil)
    )
  )  
  (setvar "osmode" 6799)
  (princ)
)


[/PHP]

zml84

2. 
   
3. (defun C:LC (/ TMP PT PT1 PT2 SS PT3 PT4 I SI ENTI)
   
4.     ;;改动1：将space设置为全局变量，可以保存上次的输入
   
5.     (if        (= SPACE NIL)
   
6.         (setq SPACE 4)
   
7.     )
   
8.     ;;设置
   
9.     (if        (setq TMP
   
10.                  (getdist
    
11.                      (strcat "\n请输入断开间距 <" (rtos SPACE 2 2) ">:")
    
12.                  )
    
13.         )
    
14.         (setq SPACE TMP)
    
15.     )
    
16.     ;;循环
    
17.     (while (setq PT (getpoint "\n选择需断开的交点:"))
    
18.         ;;改动2：使用polar函数可以简化坐标计算
    
19.         (setq PT1 (polar PT (* 0.25 pi) SPACE)
    
20.               PT2 (polar PT (* 1.25 pi) SPACE)
    
21.         )
    
22.         ;;改动3：判断是否选择到了对象、对象个数、
    
23.         (if (and (setq SS (ssget "C"
    
24.                                  PT1
    
25.                                  PT2
    
26.                           )
    
27.                  )
    
28.                  (= (sslength SS) 2)
    
29.             )
    
30.             (progn
    
31.                 ;;改动4：在除法运算中将2改为2.0，以避免两整数相除消除尾数现象。
    
32.                 (setq PT3 (polar PT (* 0.5 pi) (/ SPACE 2.0))
    
33.                       PT4 (polar PT (* 1.5 pi) (/ SPACE 2.0))
    
34.                 )
    
35.                 (setq I 0)
    
36.                 (repeat        2
    
37.                     (setq SI   (ssname SS I)
    
38.                           ENTI (entget SI)
    
39.                     )
    
40.                     ;;改动5：判断对象是否为直线段，且竖直。
    
41.                     (if        (and (= (cdr (assoc 0 ENTI)) "LINE")
    
42.                              (equal (cadr (assoc 10 ENTI))
    
43.                                     (cadr (assoc 11 ENTI))
    
44.                                     0.00001
    
45.                              )
    
46.                         )
    
47.                         ;;改动6：在没有关闭对象捕捉情况下，command函数中指定点位前，最好使用"non"选项，以消除捕捉影响。
    
48.                         (command "_.break"
    
49.                                  (list SI PT)
    
50.                                  "f"
    
51.                                  "non"
    
52.                                  PT3
    
53.                                  "non"
    
54.                                  PT4
    
55.                         )
    
56.                     )
    
57.                     (setq I (1+ I))
    
58.                 ) ;_结束 repeat
    
59.             )
    
60.         ) ;_结束 if
    
61.     ) ;_结束 while
    
62.     ;;静默退出
    
63.     (princ)
    
64. ) ;_结束 defun
    

<br /> (defun C:LC (/ TMP PT PT1 PT2 SS PT3 PT4 I SI ENTI)<br />     ;;改动1：将space设置为全局变量，可以保存上次的输入<br />     (if        (= SPACE NIL)<br />         (setq SPACE 4)<br />     )<br />     ;;设置<br />     (if        (setq TMP<br />                  (getdist<br />                      (strcat "\n请输入断开间距 <" (rtos SPACE 2 2) ">:")<br />                  )<br />         )<br />         (setq SPACE TMP)<br />     )<br />     ;;循环<br />     (while (setq PT (getpoint "\n选择需断开的交点:"))<br />         ;;改动2：使用polar函数可以简化坐标计算<br />         (setq PT1 (polar PT (* 0.25 pi) SPACE)<br />               PT2 (polar PT (* 1.25 pi) SPACE)<br />         )<br />         ;;改动3：判断是否选择到了对象、对象个数、<br />         (if (and (setq SS (ssget "C"<br />                                  PT1<br />                                  PT2<br />                           )<br />                  )<br />                  (= (sslength SS) 2)<br />             )<br />             (progn<br />                 ;;改动4：在除法运算中将2改为2.0，以避免两整数相除消除尾数现象。<br />                 (setq PT3 (polar PT (* 0.5 pi) (/ SPACE 2.0))<br />                       PT4 (polar PT (* 1.5 pi) (/ SPACE 2.0))<br />                 )<br />                 (setq I 0)<br />                 (repeat        2<br />                     (setq SI   (ssname SS I)<br />                           ENTI (entget SI)<br />                     )<br />                     ;;改动5：判断对象是否为直线段，且竖直。<br />                     (if        (and (= (cdr (assoc 0 ENTI)) "LINE")<br />                              (equal (cadr (assoc 10 ENTI))<br />                                     (cadr (assoc 11 ENTI))<br />                                     0.00001<br />                              )<br />                         )<br />                         ;;改动6：在没有关闭对象捕捉情况下，command函数中指定点位前，最好使用"non"选项，以消除捕捉影响。<br />                         (command "_.break"<br />                                  (list SI PT)<br />                                  "f"<br />                                  "non"<br />                                  PT3<br />                                  "non"<br />                                  PT4<br />                         )<br />                     )<br />                     (setq I (1+ I))<br />                 ) ;_结束 repeat<br />             )<br />         ) ;_结束 if<br />     ) ;_结束 while<br />     ;;静默退出<br />     (princ)<br /> ) ;_结束 defun<br />

更多讨论见：http://www.acad.net.cn/viewthread.php?tid=264&extra=page%3D1

lewyee

寻找很久了，我只有一个vlx文件的。