二维多段线没有顶点表，怎么提取顶点坐标呢？（注意：不是多段线）还请各位大大解答！

312735894

如图：


二维多段线没有顶点表，不知道怎么在不转换成多段线的前提下直接提取坐标，要是转换成多段线，有批量的方法么？
请各位大大解答，谢谢！

evayleung

学习一下。。我一般都是把二维多段线转为多段线再编辑的。

edata

1. ;;返回多段线顶点表
   
2. ;;From mjtd.com
   
3. ;;支持2D/3D多段线
   
4. ;;modfiy by edata
   
5. (defun vertexs (ename / plist pp n)
   
6.   (cond
   
7.     ((and ename(= (cdr(assoc 0 (entget ename))) "POLYLINE"))
   
8.     (progn
   
9.   (setq obj (vlax-ename->vla-object ename))
   
10.   (setq plist (vlax-safearray->list
    
11.   (vlax-variant-value
    
12.     (vla-get-coordinates obj))))
    
13.   (setq n 0)
    
14.   (repeat (/ (length plist) 3)
    
15.     (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)(nth (1+ (1+ n)) plist)))))
    
16.     (setq n (+ n 3))
    
17.   )
    
18.   pp
    
19.   ))
    
20.    ((and ename(= (cdr(assoc 0 (entget ename))) "LWPOLYLINE"))
    
21.     (progn
    
22.   (setq obj (vlax-ename->vla-object ename))
    
23.   (setq plist (vlax-safearray->list
    
24.   (vlax-variant-value
    
25.     (vla-get-coordinates obj))))
    
26.   (setq n 0)
    
27.   (repeat (/ (length plist) 2)
    
28.     (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)))))
    
29.     (setq n (+ n 2))
    
30.   )
    
31.   pp
    
32.   ))
    
33.     )
    
34.   )
    

;;返回多段线顶点表<br /> ;;From mjtd.com<br /> ;;支持2D/3D多段线<br /> ;;modfiy by edata<br /> (defun vertexs (ename / plist pp n)<br />   (cond<br />     ((and ename(= (cdr(assoc 0 (entget ename))) "POLYLINE"))<br />     (progn<br />   (setq obj (vlax-ename->vla-object ename))<br />   (setq plist (vlax-safearray->list<br />   (vlax-variant-value<br />     (vla-get-coordinates obj))))<br />   (setq n 0)<br />   (repeat (/ (length plist) 3)<br />     (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)(nth (1+ (1+ n)) plist)))))<br />     (setq n (+ n 3))<br />   )<br />   pp<br />   ))<br />    ((and ename(= (cdr(assoc 0 (entget ename))) "LWPOLYLINE"))<br />     (progn<br />   (setq obj (vlax-ename->vla-object ename))<br />   (setq plist (vlax-safearray->list<br />   (vlax-variant-value<br />     (vla-get-coordinates obj))))<br />   (setq n 0)<br />   (repeat (/ (length plist) 2)<br />     (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)))))<br />     (setq n (+ n 2))<br />   )<br />   pp<br />   ))<br />     )<br />   )<br />

312735894

edata 发表于 2014-1-24 18:32

哇，又是你啊，大大
thank you
VLAX函数看不懂，不知道哪里有VLAX函数的帮助，lisp的帮助里面没有VLAX的帮助

edata

312735894 发表于 2014-1-24 18:43
哇，又是你啊，大大
thank you
VLAX函数看不懂，不知道哪里有VLAX函数的帮助，lisp的帮助里面没有VLAX的 ...

来个修改后的。。

1. ;返回多段线顶点表2
   
2. ;;From mjtd.com
   
3. ;;支持2D/3D多段线
   
4. ;;modfiy by edata
   
5. (defun vertexs2 (ename / plist pp n enty obj pt_n)
   
6.   (if(and ename(= (type ename) 'ENAME))
   
7.     (progn
   
8.       (setq enty(cdr(assoc 0 (entget ename))))
   
9.       (if (= enty "LWPOLYLINE")
   
10.         (setq pt_n 2)
    
11.         (setq pt_n 3)
    
12.         )
    
13.       (if pt_n
    
14.         (progn
    
15.           (setq obj (vlax-ename->vla-object ename))
    
16.           (setq plist (vlax-safearray->list
    
17.                         (vlax-variant-value
    
18.                           (vla-get-coordinates obj))))
    
19.           (setq n 0)
    
20.           (repeat (/ (length plist) pt_n)
    
21.             (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)(if(= pt_n 3) (nth (1+ (1+ n)) plist) 0.0)))))
    
22.             (setq n (+ n pt_n))
    
23.             )
    
24.           pp
    
25.           )
    
26.         )
    
27.       )
    
28.     )
    
29.   )

;返回多段线顶点表2<br /> ;;From mjtd.com<br /> ;;支持2D/3D多段线<br /> ;;modfiy by edata<br /> (defun vertexs2 (ename / plist pp n enty obj pt_n)<br />   (if(and ename(= (type ename) 'ENAME))<br />     (progn<br />       (setq enty(cdr(assoc 0 (entget ename))))<br />       (if (= enty "LWPOLYLINE")<br />         (setq pt_n 2)<br />         (setq pt_n 3)<br />         )<br />       (if pt_n<br />         (progn<br />           (setq obj (vlax-ename->vla-object ename))<br />           (setq plist (vlax-safearray->list<br />                         (vlax-variant-value<br />                           (vla-get-coordinates obj))))<br />           (setq n 0)<br />           (repeat (/ (length plist) pt_n)<br />             (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)(if(= pt_n 3) (nth (1+ (1+ n)) plist) 0.0)))))<br />             (setq n (+ n pt_n))<br />             )<br />           pp<br />           )<br />         )<br />       )<br />     )<br />   )

edata

AutoCAD LISP_VLISP函数库查询辞典(带书签)_应要求附图
http://bbs.mjtd.com/forum.php?mo ... &fromuid=338795

312735894

edata 发表于 2014-1-24 18:49
来个修改后的。。

谢谢大大，这回稍微明白点了，我再研究下！谢谢！

edata

原来论坛还有更简洁的。。
http://bbs.mjtd.com/forum.php?mo ... &fromuid=338795

重慶崽兒

edata 发表于 2014-1-24 20:41
原来论坛还有更简洁的。。
http://bbs.mjtd.com/forum.php?mod=redirect&goto=findpost&ptid=100137&pid=5 ...

太谢谢大大您了，不知道您平时是通过什么学习lisp的
感觉没人讲太难了。。。。
呵呵，这个是我的新号，以后就用这个了！

ckss

回复用以学习

USER2128

;;;来一个固版主的：
(setq ent (car(entsel "\n选取多段线: ")))
(mapcar 'cdr (vl-remove-if-not '(lambda(x)(= 10 (car x)))(entget ent)))