[求助]：如何获得闭合已有多线段的点信息用于SSGET "WP" 的定义范围

matichen

请问 如何获得点选的pline的顶点列表，用于ssget “wp” pllist  ？

cy956

2. 
   
3. [FONT=courier new](defun get_lwpl-pb(e / en pl openmod enp p enp n i lst);;;取得lwPOLYLINE线顶点表
   
4.   (setq en (entget e) pl nil openmod (dxf 70 en)
   
5.         n (dxf 90 en))
   
6.   (if (= (dxf 0 en) "LWPOLYLINE") (progn
   
7.     (setq lst (assoc 10 en) lst (member lst en) i 0)
   
8.     (while (= (car (nth i lst)) 10)
   
9.       (setq p (cdr (nth i lst)) pl (cons p pl))
   
10.       (setq i (+ i 4))
    
11.     );while
    
12.   ) )
    
13.   (if (= openmod 1)
    
14.     (setq pl (cons (nth (- (length pl) 1) pl) pl)))
    
15.   (reverse pl)
    
16. [/FONT])

<br /> [FONT=courier new](defun get_lwpl-pb(e / en pl openmod enp p enp n i lst);;;取得lwPOLYLINE线顶点表<br />   (setq en (entget e) pl nil openmod (dxf 70 en)<br />         n (dxf 90 en))<br />   (if (= (dxf 0 en) "LWPOLYLINE") (progn<br />     (setq lst (assoc 10 en) lst (member lst en) i 0)<br />     (while (= (car (nth i lst)) 10)<br />       (setq p (cdr (nth i lst)) pl (cons p pl))<br />       (setq i (+ i 4))<br />     );while<br />   ) )<br />   (if (= openmod 1)<br />     (setq pl (cons (nth (- (length pl) 1) pl) pl)))<br />   (reverse pl)<br /> [/FONT])

XDSoft

最初由 matichen 发布
[B]请问 如何获得点选的pline的顶点列表，用于ssget “wp” pllist  ？ [/B]

如果都是直线段的POLYLINE，顶点用老菜的很好得到，关键是对有弧线段的POLYLINE，如果仅仅用顶点，那弧内的部分就选择不了了。因此对于弧线段，要用满足精度的直线模拟弧线。

XDRX_API里面有函数做获得任意曲线顶点表（对弧线包括模拟）

2. 
   
3. [FONT=courier new]
   
4. 89. xdrx_getsamplept
   
5. 
   
6. 功能：按给定精度，返回AcDbCurve类曲线和AcDb2dPolyline(旧的POLYLINE)的样本点。将复杂的曲线用点组成的线段模拟。
   
7. 
   
8. 调用格式：(xdrx_getsamplept <AcDbCurve 或 AcDb2dPolyline实体图元名> [精度控制])
   
9. 
   
10. 说明：给定的[精度控制]值玄高差越小，精度越高，分段数越大，精度越高。
    
11.       
    
12.      精度控制只对曲线段有效，对于POLYLINE,对直线段无效，对其中的ARC段数据起做用。
    
13.   
    
14.      若不给[精度控制]参数，那么程序自己计算出相对满足视觉误差的值做为玄高差进行分段。
    
15. 
    
16.      [精度控制]：分两种方法
    
17.       1：给整数，按给定的整数分曲线段
    
18.       2：给实数，做为玄高差
    
19.      
    
20.      注意：对于AcDbSpline,只能给定"玄高差",若给整数值，那么程序按照计算的相对最优值做为玄高差。
    
21. 
    
22. 返回值：若成功，返回点表，点表肯定包括曲线的开始点和终止点。(p1 p2......),失败返回NIL.
    
23. 
    
24. 示例：用LINE模拟SPLINE
    
25.      (if (setq en (xdrx_entsel "\n请点取一个Spline<退出>:") '((0 . "spline"))))
    
26.         (progn
    
27.         (setq ed (xdrx_getsamplept (car en)))
    
28.         (apply 'command (cons "line" ed))
    
29.         (command "")
    
30.      )   
    
31. [/FONT]

<br /> [FONT=courier new]<br /> 89. xdrx_getsamplept<br /> <br /> 功能：按给定精度，返回AcDbCurve类曲线和AcDb2dPolyline(旧的POLYLINE)的样本点。将复杂的曲线用点组成的线段模拟。<br /> <br /> 调用格式：(xdrx_getsamplept <AcDbCurve 或 AcDb2dPolyline实体图元名> [精度控制])<br /> <br /> 说明：给定的[精度控制]值玄高差越小，精度越高，分段数越大，精度越高。<br />       <br />      精度控制只对曲线段有效，对于POLYLINE,对直线段无效，对其中的ARC段数据起做用。 <br />   <br />      若不给[精度控制]参数，那么程序自己计算出相对满足视觉误差的值做为玄高差进行分段。<br /> <br />      [精度控制]：分两种方法<br />       1：给整数，按给定的整数分曲线段<br />       2：给实数，做为玄高差<br />      <br />      注意：对于AcDbSpline,只能给定"玄高差",若给整数值，那么程序按照计算的相对最优值做为玄高差。 <br /> <br /> 返回值：若成功，返回点表，点表肯定包括曲线的开始点和终止点。(p1 p2......),失败返回NIL.<br /> <br /> 示例：用LINE模拟SPLINE<br />      (if (setq en (xdrx_entsel "\n请点取一个Spline<退出>:") '((0 . "spline"))))<br />         (progn<br />         (setq ed (xdrx_getsamplept (car en)))<br />         (apply 'command (cons "line" ed))<br />         (command "")<br />      )   <br /> [/FONT]

matichen

还好没有曲线。只有pl段。
cy956那个 提示出错，参数太少 （princ pl）返回为NIL
XD 那个看上去有点复杂，我初学，看不太懂。还要加载一次xd—api是不是。

hmh888888

e 是你选择的lwPOLYLINE
关键是 (dxf 70 en)
我改为 (cdr (assoc 70 en)) 就可以用了