继续多线段，看似简单，但很有用

kwok

杜阳 发表于 2014-9-14 11:09
程序很实用  但是里面存着一个问题就是，能不能换方向啊，假设一条直线  利用程序继续画线的那个端点不是我 ...

用楼主的码弄一下，从点线的那端开始接着画线，希望楼主不要介意
有个问题不能输入c就闭合，一闭合就跟之前选中的en不能连接一体了,
高手再改进一下.
(defun c:tt ( / en ent en1 pt lw)
          (command "undo" "be");;命令编组开始
        (setq en  (entsel "\n请点取要继续的多段线:"))       
       (setq pt (osnap (cadr en) "end"))
          (setq ent (entget (car en)))
        (if (= (cdr (assoc 0 ent)) "LWPOLYLINE")                    
        (progn
                (setq lw (cdr (assoc 43 ent)));实体全局线宽
                (if (= lw nil) (setq lw (cdr (assoc 40 ent))));如果无实体全局线宽        则取起始线宽
                (command ".pline"  pt "w" lw lw)
        (while(/=(getvar"cmdactive")0)(command pause))
                (setq en1 (entlast))
                (command "_matchprop"  en en1 "")
                (command "_join"  en1 en "")
                            )
        
        (alert "选择的不是多线段!")
  )       
    (command "undo" "e")
    (princ)
)

wzg356

杜阳 发表于 2014-9-14 11:09
程序很实用  但是里面存着一个问题就是，能不能换方向啊，假设一条直线  利用程序继续画线的那个端点不是我 ...

对线段反向的源码论坛资料里很多的呀，

杜阳

kwok 发表于 2014-9-14 11:57
用楼主的码弄一下，从点线的那端开始接着画线，希望楼主不要介意
有个问题不能输入c就闭合，一闭合就跟之 ...

你好，把你的这句(command "_join"  en1 en "")改为
(Vl-Cmdf ".Pedit" en1 en "Yes" "J" "C" Pt1 Pt2 "" "" )
就连接在一起了  但是处理还是不那么顺畅  但是 是一条直线了  我是刚学的   再深了 也解答不了

kwok

wzg356 发表于 2014-9-14 12:15
对线段反向的源码论坛资料里很多的呀，

输入c闭合的意思，如下图

wzg356

kwok 发表于 2014-9-15 11:35
输入c闭合的意思，如下图

(command "pline"  pt "w" lw lw);
(while(/=(getvar"cmdactive")0)(command pause))

该成下面的(假闭合）
     (command "pline"  pt "w" lw lw)
     (while(/=(getvar"cmdactive")0)
            (cond
               ((or(equal (grread t 8) '(2 67))(equal (grread t 8) '(2 99)))(command (car lst) ""));按下c/C键闭合
               ((= (car (grread t 8)) 11) (command ""));按下鼠标右键结束
                   (t (command pause))
               )
   )

kwok

wzg356 发表于 2014-9-15 11:41
(command "pline"  pt "w" lw lw);
(while(/=(getvar"cmdactive")0)(command pause))

这个加不加都一样，不起作用，输入c后还是如14楼图片右边的图那样.

kwok

wzg356 发表于 2014-9-15 11:41
(command "pline"  pt "w" lw lw);
(while(/=(getvar"cmdactive")0)(command pause))

这个加不加都一样，不起作用，输入c后还是如14楼图片右边的图那样.测试环境cad2008

wzg356

kwok 发表于 2014-9-15 12:48
这个加不加都一样，不起作用，输入c后还是如14楼图片右边的图那样.测试环境cad2008

我用的2006

USER2128

kwok 发表于 2014-9-15 12:48
这个加不加都一样，不起作用，输入c后还是如14楼图片右边的图那样.测试环境cad2008

2. ;;;修改BY HLCAD.
   
3. (defun c:tt ( / en ent en1 pt lw)
   
4.   (command "_.undo" "_be");;命令编组开始
   
5.   (setq en  (entsel "\n请点取要继续的多段线:"))
   
6.   (setq pt (osnap (cadr en) "end"))
   
7.   (setq ent (entget (car en)))
   
8.   (if (= (cdr (assoc 0 ent)) "LWPOLYLINE")
   
9.     (progn
   
10.       (or (setq lw (cdr (assoc 43 ent)));实体全局线宽
    
11.           (setq lw (cdr (assoc 40 ent)));如果无实体全局线宽        则取起始线宽
    
12.           )
    
13.       (command "_.pline"  pt "w" lw lw)
    
14.       (while (/= (getvar"cmdactive") 0) (command pause))
    
15.       (setq en1 (entlast))
    
16.       (command "_.matchprop"  en en1 "")
    
17.       (if (= (cdr (assoc 70 (entget (entlast)))) 0)
    
18.         (command "_.join" en1 en "")
    
19.         (progn
    
20.           (command ".pedit" (list en1 (cadr en)) "_open" "")
    
21.           (command ".pedit" en "_j" en1 "" "_cl" "")
    
22.           )
    
23.         )
    
24.       )
    
25.     (alert "选择的不是多线段!")
    
26.     )
    
27.   (command "_.undo" "_e")
    
28.   (princ)
    
29.   )
    

;;;修改BY HLCAD.<br /> (defun c:tt ( / en ent en1 pt lw)<br />   (command "_.undo" "_be");;命令编组开始<br />   (setq en  (entsel "\n请点取要继续的多段线:"))<br />   (setq pt (osnap (cadr en) "end"))<br />   (setq ent (entget (car en)))<br />   (if (= (cdr (assoc 0 ent)) "LWPOLYLINE")<br />     (progn<br />       (or (setq lw (cdr (assoc 43 ent)));实体全局线宽<br />           (setq lw (cdr (assoc 40 ent)));如果无实体全局线宽        则取起始线宽<br />           )<br />       (command "_.pline"  pt "w" lw lw)<br />       (while (/= (getvar"cmdactive") 0) (command pause))<br />       (setq en1 (entlast))<br />       (command "_.matchprop"  en en1 "")<br />       (if (= (cdr (assoc 70 (entget (entlast)))) 0)<br />         (command "_.join" en1 en "")<br />         (progn<br />           (command ".pedit" (list en1 (cadr en)) "_open" "")<br />           (command ".pedit" en "_j" en1 "" "_cl" "")<br />           )<br />         )<br />       )<br />     (alert "选择的不是多线段!")<br />     )<br />   (command "_.undo" "_e")<br />   (princ)<br />   )<br />

liuhaixin88

1. (defun c:tt ( / en ent en1 pt lw)
   
2.        (command "undo" "be");;命令编组开始
   
3.        (setq en  (entsel "\n请点取要继续的多段线:")
   
4.        closep nil)        
   
5.        (setq pt (osnap (cadr en) "end"))
   
6.        (setq ent (entget (car en)))
   
7.         (if (= (cdr (assoc 0 ent)) "LWPOLYLINE")                    
   
8.         (progn
   
9.                 (setq lw (cdr (assoc 43 ent)))
   
10.                 (if (= lw nil) (setq lw (cdr (assoc 40 ent))))
    
11.                 (command ".pline"  pt "w" lw lw)
    
12.         (while (and (/= (getvar"cmdactive") 0) (not closep))
    
13.     (setq pnt (grread t))
    
14.     (cond ((and (= 2 (car pnt)) (or (= (last pnt) 99) (= (last pnt) 67)))
    
15.                  (setq closep t) (command ""))
    
16.                    ((and (= 2 (car pnt)) (or (= (last pnt) 32) (= (last pnt) 13)))
    
17.                 (command ""))
    
18.        ((= 3 (car pnt)) (command (last pnt))))
    
19.   )
    
20.         (setq en1 (entlast))
    
21.         (command "_matchprop"  en en1 "")
    
22.         (command "_join"  en1 en "")
    
23.   (if closep (command "pedit" (entlast) "C" ""))
    
24.       )        
    
25.       (alert "选择的不是多线段!")
    
26.   )
    
27.   (command "undo" "e")
    
28.   (princ)
    
29. )

(defun c:tt ( / en ent en1 pt lw)<br />        (command "undo" "be");;命令编组开始<br />        (setq en  (entsel "\n请点取要继续的多段线:")<br />        closep nil)        <br />        (setq pt (osnap (cadr en) "end"))<br />        (setq ent (entget (car en)))<br />         (if (= (cdr (assoc 0 ent)) "LWPOLYLINE")                    <br />         (progn<br />                 (setq lw (cdr (assoc 43 ent)))<br />                 (if (= lw nil) (setq lw (cdr (assoc 40 ent))))<br />                 (command ".pline"  pt "w" lw lw)<br />         (while (and (/= (getvar"cmdactive") 0) (not closep))<br />     (setq pnt (grread t))<br />     (cond ((and (= 2 (car pnt)) (or (= (last pnt) 99) (= (last pnt) 67)))<br />                  (setq closep t) (command ""))<br />                    ((and (= 2 (car pnt)) (or (= (last pnt) 32) (= (last pnt) 13)))<br />                 (command ""))<br />        ((= 3 (car pnt)) (command (last pnt))))<br />   )<br />         (setq en1 (entlast))<br />         (command "_matchprop"  en en1 "")<br />         (command "_join"  en1 en "")<br />   (if closep (command "pedit" (entlast) "C" ""))<br />       )        <br />       (alert "选择的不是多线段!")<br />   )<br />   (command "undo" "e")<br />   (princ)<br /> )