读取pline中的点表

鬼子兵

(defun nl_pl_zb( ent /
                                ent ptb class_ent ent_nx i
                                )       
        (setq ptb '())
    ; (setq ent (car (entsel "\n请选择pline:")))
        ;;获取其中的组码性质是什么！"LWPOLYLINE"则可进行反向，"POLYLINE".
        (setq class_ent (cdr (assoc 0 (entget ent))))
        (if  (or (= class_ent "LWPOLYLINE")  (= class_ent "POLYLINE"))
                (progn
                        ;;POLYLINE"
                        (if (= class_ent "POLYLINE")
                                (progn
                                        (if (entnext ent)
                                                (progn
                                                        (while (setq ent_nx (entnext ent))
                                                                (if (= (cdr (assoc 0 (entget ent_nx))) "VERTEX")
                                                                        (progn
                                                                                ;;将老式的"POLYLINE"组码加入
                                                                                (setq ptb (append ptb (list (cdr (assoc 10 (entget ent_nx))))))
                                                                       
                                                                        )
                                                                )
                                                                ;;下一个对象
                                                                (setq ent ent_nx)
                                                        )
                                                )
                                        )
                                )
                        )
                        ;;"LWPOLYLINE"
                        (if (= class_ent "LWPOLYLINE")
                                (progn
                                        (setq i 1)
                                        (setq  ptb
                                                (vl-remove 'nil
                                                        (mapcar '(lambda(x)(if (= (car x) 10)  (cdr x) ))
                                                        (entget ent)
                                                        )
                                                )
                                        )                                       
                                )
                        )
                )
                ;;--else
                (progn
                        (print "所选线段并非二维多段线！")
                        (exit)
                )
        )
        (setq ptb ptb)
  )

pxr201419

;给出另一种方法
;获取 LWPOLYLINE POLYLINE 端点列表
(defun getcoor  (ent / type_ent coor)
   (cond ((entget ent)
          (setq type_ent (cdr (assoc 0 (entget ent))))
          (print)
          (cond ((member type_ent '("LWPOLYLINE" "POLYLINE"))
                 (setq coor (vlax-safearray->list
                               (vlax-variant-value
                                  (vla-get-Coordinates (vlax-ename->vla-object ent)))))
                 (if (= type_ent "LWPOLYLINE")
                    (vl-remove-if-not '(lambda(x) (= (rem (vl-position x (mapcar 'list coor (cdr coor))) 2) 0))
                                      (mapcar 'list coor (cdr coor)))
                    (vl-remove-if-not '(lambda(x) (= (rem (vl-position x (mapcar 'list coor (cdr coor) (cddr coor))) 3) 0))
                                      (mapcar 'list coor (cdr coor) (cddr coor)))))
                (t (prompt "\n所选对象不是*POLYLINE!")(princ))))))

434939575

pxr201419 发表于 2020-2-23 10:51
;给出另一种方法
;获取 LWPOLYLINE POLYLINE 端点列表
(defun getcoor  (ent / type_ent coor)

这种比上面要慢点.

434939575

pxr201419 发表于 2020-2-23 10:51
;给出另一种方法
;获取 LWPOLYLINE POLYLINE 端点列表
(defun getcoor  (ent / type_ent coor)

这种比上面要慢点.

tzfcn

这个代码好，用起来方便多了。

Lisphk

帮你从新组织下代码

1. (defun nl_pl_zb        (ent / ent ptb class_ent ed)
   
2.   (setq ptb '())
   
3.   (setq class_ent (cdr (assoc 0 (setq ed (entget ent)))))
   
4.   (cond
   
5.     ((= class_ent "LWPOLYLINE")
   
6.      (setq ptb
   
7.             (vl-remove 'nil
   
8.                        (mapcar '(lambda        (x)
   
9.                                   (if (= (car x) 10)
   
10.                                     (cdr x)
    
11.                                   )
    
12.                                 )
    
13.                                ed
    
14.                        )
    
15.             )
    
16.      )
    
17.     )
    
18.     ((= class_ent "POLYLINE")
    
19.      (while (and (setq ent (entnext ent))
    
20.                  (= (cdr (assoc 0 (setq ed (entget ent)))) "VERTEX")
    
21.             )
    
22.        (setq
    
23.          ptb (cons (cdr (assoc 10 ed)) ptb)
    
24.        )
    
25.      )
    
26.      (setq ptb (reverse ptb))
    
27.     )
    
28.   )
    
29.   ptb
    
30. )
    
31. 
    

(defun nl_pl_zb        (ent / ent ptb class_ent ed)<br />   (setq ptb '())<br />   (setq class_ent (cdr (assoc 0 (setq ed (entget ent)))))<br />   (cond<br />     ((= class_ent "LWPOLYLINE")<br />      (setq ptb<br />             (vl-remove 'nil<br />                        (mapcar '(lambda        (x)<br />                                   (if (= (car x) 10)<br />                                     (cdr x)<br />                                   )<br />                                 )<br />                                ed<br />                        )<br />             )<br />      )<br />     )<br />     ((= class_ent "POLYLINE")<br />      (while (and (setq ent (entnext ent))<br />                  (= (cdr (assoc 0 (setq ed (entget ent)))) "VERTEX")<br />             )<br />        (setq<br />          ptb (cons (cdr (assoc 10 ed)) ptb)<br />        )<br />      )<br />      (setq ptb (reverse ptb))<br />     )<br />   )<br />   ptb<br /> )<br /> <br />

鬼子兵

谢谢楼上各位大师的帮助。。

huangpc27

不错啊，纯lisp的。