直线两端变断线

xiao88gang

这是一个可以把一条直线两端变断线的程序，并标记。为什么一直提示错误。请高手帮忙给看看。


(defun C:TT (/     ENT_BD          L        LEN   CX    JS          ENAME        ELIST
                ENTNA ST    ED          DIS        ST1   ED1   ANGE  ANGS        SY
                TC
               )

  (PROMPT "\n选择需要打断的线：")
  (setq ENT_BD (car (cdr (SSGETFIRST))))
  (while (= ENT_BD nil) (setq ENT_BD (SSGET '((0 . "LINE")))))
    (SETVAR "osmode" 0)
  (setq L (GETDIST "\n两端需要断开的长度:<10>"))
  (if (= L "")
    (setq L 10)
  )
  (if (= L nil)
    (setq L 10)
  )
  (setq SY (GETSTRING "\n是否保留两端断开线段？[是-Y][否-N]<Y>:"))
  (if (= SY "")
    (setq SY "Y")
  )
  (setq LEN (SSLENGTH ENT_BD))
  (setq CX 0)
  (setq JS 0)
  (repeat LEN
    (setq ENAME (SSNAME ENT_BD CX))
    (setq ELIST (ENTGET ENAME))
    (setq ENTNA (DXF 0 ELIST))
    (if        (= ENTNA "LINE")
      (progn (setq ST (DXF 10 ELIST))
             (setq ED (DXF 11 ELIST))
             (setq DIS (DISTANCE ST ED))
             (setq TC (DXF 8 ELIST))
             (setq ANGS (ANGLE ST ED))
             (setq ST1 (POLAR ST ANGS L))
             (setq BJ0 (POLAR ST1 (+ ANGS (/ PI 2)) 1.5))
             (setq BJ1 (POLAR ST1 (+ ANGS (/ PI 2) PI) 1.5))
             (setq ANGE (ANGLE ED ST))
             (setq ED1 (POLAR ED ANGE L))
             (setq BJ2 (POLAR ED1 (+ ANGS (/ PI 2)) 1.5))
             (setq BJ3 (POLAR ED1 (+ ANGS (/ PI 2) PI) 1.5))
             (ENTDEL ENAME)
             (if (or (= SY "Y") (= SY "y"))
               (progn (ENTMAKE (LIST (cons 0 "LINE")
                                     (cons 8 TC)
                                     (cons 10 ST)
                                     (cons 11 ST1)
                               )
                      )
                      (ENTMAKE (LIST (cons 0 "LINE")
                                     (cons 8 TC)
                                     (cons 10 ST1)
                                     (cons 11 ED1)
                               )
                      )
                      (ENTMAKE (LIST (cons 0 "LINE")
                                     (cons 8 TC)
                                     (cons 10 ED1)
                                     (cons 11 ED)
                               )
                      )
                      (ENTMAKE (LIST (cons 0 "LINE")
                                     (cons 8 T@33)
                                     (cons 10 BJ0)
                                     (cons 11 BJ1)
                               )
                      )
                      (ENTMAKE (LIST (cons 0 "LINE")
                                     (cons 8 T@33)
                                     (cons 10 BJ2)
                                     (cons 11 BJ3)
                               )
                      )
               )
             )
             (if (or (= SY "N") (= SY "n"))
               (ENTMAKE        (LIST (cons 0 "LINE")
                              (cons 8 TC)
                              (cons 10 ST1)
                              (cons 11 ED1)
                        )
               )
             )
             (setq JS (+ JS 1))
      )
    )
    (setq CX (+ CX 1))
  )
      (PRINC)
)

vectra

1. (defun dxf (grc lst)  (cdr (assoc grc lst))
   
2. )
   
3. 
   
4. (defun c:tt (/ ent_bd l len cx js ename elist entna st ed dis st1 ed1 ange angs sy tc)
   
5. 
   
6.   (prompt "\n选择需要打断的线：")
   
7.   (setq ent_bd (car (cdr (ssgetfirst))))
   
8.   (while (= ent_bd nil) (setq ent_bd (ssget '((0 . "LINE")))))
   
9.   (setvar "osmode" 0)
   
10.   (setq l (getdist "\n两端需要断开的长度:<10>"))
    
11.   (if (= l "")
    
12.     (setq l 10)
    
13.   )
    
14.   (if (= l nil)
    
15.     (setq l 10)
    
16.   )
    
17.   (setq sy (getstring "\n是否保留两端断开线段？[是-Y][否-N]<Y>:"))
    
18.   (if (= sy "")
    
19.     (setq sy "Y")
    
20.   )
    
21.   (setq len (sslength ent_bd))
    
22.   (setq cx 0)
    
23.   (setq js 0)
    
24.   (repeat len
    
25.     (setq ename (ssname ent_bd cx))
    
26.     (setq elist (entget ename))
    
27.     (setq entna (dxf 0 elist))
    
28.     (if        (= entna "LINE")
    
29.       (progn (setq st (dxf 10 elist))
    
30.              (setq ed (dxf 11 elist))
    
31.              (setq dis (distance st ed))
    
32.              (setq tc (dxf 8 elist))
    
33.              (setq angs (angle st ed))
    
34.              (setq st1 (polar st angs l))
    
35.              (setq bj0 (polar st1 (+ angs (/ pi 2)) 1.5))
    
36.              (setq bj1 (polar st1 (+ angs (/ pi 2) pi) 1.5))
    
37.              (setq ange (angle ed st))
    
38.              (setq ed1 (polar ed ange l))
    
39.              (setq bj2 (polar ed1 (+ angs (/ pi 2)) 1.5))
    
40.              (setq bj3 (polar ed1 (+ angs (/ pi 2) pi) 1.5))
    
41.              (entdel ename)
    
42.              (if (or (= sy "Y") (= sy "y"))
    
43.                (progn (entmake (list (cons 0 "LINE")
    
44.                                      (cons 8 tc)
    
45.                                      (cons 10 st)
    
46.                                      (cons 11 st1)
    
47.                                )
    
48.                       )
    
49.                       (entmake (list (cons 0 "LINE")
    
50.                                      (cons 8 tc)
    
51.                                      (cons 10 st1)
    
52.                                      (cons 11 ed1)
    
53.                                )
    
54.                       )
    
55.                       (entmake (list (cons 0 "LINE")
    
56.                                      (cons 8 tc)
    
57.                                      (cons 10 ed1)
    
58.                                      (cons 11 ed)
    
59.                                )
    
60.                       )
    
61.                       (entmake (list (cons 0 "LINE")
    
62.                                      (cons 8 tc)
    
63.                                      (cons 10 bj0)
    
64.                                      (cons 11 bj1)
    
65.                                )
    
66.                       )
    
67.                       (entmake (list (cons 0 "LINE")
    
68.                                      (cons 8 tc)
    
69.                                      (cons 10 bj2)
    
70.                                      (cons 11 bj3)
    
71.                                )
    
72.                       )
    
73.                )
    
74.              )
    
75.              (if (or (= sy "N") (= sy "n"))
    
76.                (entmake        (list (cons 0 "LINE")
    
77.                               (cons 8 tc)
    
78.                               (cons 10 st1)
    
79.                               (cons 11 ed1)
    
80.                         )
    
81.                )
    
82.              )
    
83.              (setq js (+ js 1))
    
84.       )
    
85.     )
    
86.     (setq cx (+ cx 1))
    
87.   )
    
88.   (princ)
    
89. )
    
90. 
    

(defun dxf (grc lst)  (cdr (assoc grc lst))<br /> )<br /> <br /> (defun c:tt (/ ent_bd l len cx js ename elist entna st ed dis st1 ed1 ange angs sy tc)<br /> <br />   (prompt "\n选择需要打断的线：")<br />   (setq ent_bd (car (cdr (ssgetfirst))))<br />   (while (= ent_bd nil) (setq ent_bd (ssget '((0 . "LINE")))))<br />   (setvar "osmode" 0)<br />   (setq l (getdist "\n两端需要断开的长度:<10>"))<br />   (if (= l "")<br />     (setq l 10)<br />   )<br />   (if (= l nil)<br />     (setq l 10)<br />   )<br />   (setq sy (getstring "\n是否保留两端断开线段？[是-Y][否-N]<Y>:"))<br />   (if (= sy "")<br />     (setq sy "Y")<br />   )<br />   (setq len (sslength ent_bd))<br />   (setq cx 0)<br />   (setq js 0)<br />   (repeat len<br />     (setq ename (ssname ent_bd cx))<br />     (setq elist (entget ename))<br />     (setq entna (dxf 0 elist))<br />     (if        (= entna "LINE")<br />       (progn (setq st (dxf 10 elist))<br />              (setq ed (dxf 11 elist))<br />              (setq dis (distance st ed))<br />              (setq tc (dxf 8 elist))<br />              (setq angs (angle st ed))<br />              (setq st1 (polar st angs l))<br />              (setq bj0 (polar st1 (+ angs (/ pi 2)) 1.5))<br />              (setq bj1 (polar st1 (+ angs (/ pi 2) pi) 1.5))<br />              (setq ange (angle ed st))<br />              (setq ed1 (polar ed ange l))<br />              (setq bj2 (polar ed1 (+ angs (/ pi 2)) 1.5))<br />              (setq bj3 (polar ed1 (+ angs (/ pi 2) pi) 1.5))<br />              (entdel ename)<br />              (if (or (= sy "Y") (= sy "y"))<br />                (progn (entmake (list (cons 0 "LINE")<br />                                      (cons 8 tc)<br />                                      (cons 10 st)<br />                                      (cons 11 st1)<br />                                )<br />                       )<br />                       (entmake (list (cons 0 "LINE")<br />                                      (cons 8 tc)<br />                                      (cons 10 st1)<br />                                      (cons 11 ed1)<br />                                )<br />                       )<br />                       (entmake (list (cons 0 "LINE")<br />                                      (cons 8 tc)<br />                                      (cons 10 ed1)<br />                                      (cons 11 ed)<br />                                )<br />                       )<br />                       (entmake (list (cons 0 "LINE")<br />                                      (cons 8 tc)<br />                                      (cons 10 bj0)<br />                                      (cons 11 bj1)<br />                                )<br />                       )<br />                       (entmake (list (cons 0 "LINE")<br />                                      (cons 8 tc)<br />                                      (cons 10 bj2)<br />                                      (cons 11 bj3)<br />                                )<br />                       )<br />                )<br />              )<br />              (if (or (= sy "N") (= sy "n"))<br />                (entmake        (list (cons 0 "LINE")<br />                               (cons 8 tc)<br />                               (cons 10 st1)<br />                               (cons 11 ed1)<br />                         )<br />                )<br />              )<br />              (setq js (+ js 1))<br />       )<br />     )<br />     (setq cx (+ cx 1))<br />   )<br />   (princ)<br /> )<br /> <br />

补了个函数 改了两个变量 能用了 不知道是不是这个意思

yoyoho

感谢分享及修正程序!!!!!

xyp1964

;; tt(直线两端定距打断)
(defun c:tt ()
  (setq d0 (Udist 7 "" "两端需要断开的长度<输入或鼠标直接量取>" d0 nil))
  (setq sy (Ukword 1 "Y N" "保留两端断开线段: Y-保留/N-删除" sy))
  (setq i -1)
  (princ "\n选择需要打断的线: ")
  (if (setq ss (ssget '((0 . "line"))))
    (while (setq s1 (ssname ss (setq i (1+ i))))
      (setq p1 (xyp-DXF 10 s1)
            p2 (xyp-DXF 11 s1)
            ll (distance p1 p2)
      )
      (if (> ll (* d0 2))
        (progn
          (setq        rad (angle p1 p2)
                p11 (polar p1 rad d0)
                p22 (polar p2 rad (- d0))
          )
          (if (= sy "Y")
            (foreach pt (list p22 p11) (xyp-breakE s1 pt pt))
            (progn
              (xyp-breakE s1 p2 p22)
              (xyp-breakE s1 p11 p1)
            )
          )
        )
      )
    )
  )
  (princ)
)

xiao88gang

vectra 发表于 2017-10-10 20:26
补了个函数 改了两个变量 能用了 不知道是不是这个意思

谢谢大师的帮忙，太完美了。

xiao88gang

xyp1964 发表于 2017-10-11 13:14
;; tt(直线两端定距打断)
(defun c:tt ()
  (setq d0 (Udist 7 "" "两端需要断开的长度" d0 nil))

谢谢，挺好用的。

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

fsafaffa

路过，顶一下

thomaslai

vectra 发表于 2017-10-10 20:26
补了个函数 改了两个变量 能用了 不知道是不是这个意思

请问大师  能否打断后选取被打断的线段  或者自动换图层呢??