[LISP程序]：关于lp线和pl线的问题

教父

我是刚接触cad，到前天才知道原来还有什么优化多段线的是说法，以前要提个什么坐标之类的用entget再assoc 10 就行了，现在出了个pl线就把我搞晕了，assoc返回的数据为(10 0.0 0.0 0.0).而且明明是一条多段线，很多节点却只有一个这样的元素在里面
请问有什么方法提取这种线里的坐标吗

还有提取一个多段线里的坐标数据有什么简单方法吗？我都是一个一个提出来再判断是不是10开头的，好麻烦哦。提取出来的坐标如果我想按我的顺序去画线又该怎么做呢。请各位老手指教一二，谢谢

aeo

先研究一下论坛,有很多例子.

教父

那到底有没有方法可以提取pl线的坐标数据呢，我用原来的方法，就是entget提出来的坐标数据就是(10 0.0 0.0 0.0).这是什么原因啊


其实我想问的就是斑竹以前回复过的那篇关于多段线反向的问题。
你当时说pl线的反向问题很简单可没说具体怎么做，而且你们给的代码都是针对lp线的，这和我现在工作的要求不同哦，麻烦你给解释一下行吗

xyp1964

参考：

2. [FONT=courier new];;;多义线顶点坐标集(支持框选)
   
3. (defun c:test ()
   
4.   (princ "\n选取*PLINE多义线...")
   
5.   (setq        ss    (ssget '((0 . "*POLYLINE")))
   
6.         i     -1
   
7.         ptlst '()
   
8.   )
   
9.   (if ss
   
10.     (progn
    
11.       (while (setq s1 (ssname ss (setq i (1+ i))))
    
12.         (setq ret (vla-get-Coordinates (vlax-ename->vla-object s1))
    
13.               n          0
    
14.         )
    
15.         (repeat
    
16.           (/ (length (vlax-safearray->list (vlax-variant-value ret)))
    
17.              2
    
18.           )
    
19.            (setq ptx   (vlax-safearray-get-element
    
20.                          (vlax-variant-value ret)
    
21.                          n
    
22.                        )
    
23.                  n     (1+ n)
    
24.                  pty   (vlax-safearray-get-element
    
25.                          (vlax-variant-value ret)
    
26.                          n
    
27.                        )
    
28.                  n     (1+ n)
    
29.                  pt    (list ptx pty)
    
30.                  ptlst (cons pt ptlst)
    
31.            )
    
32.         )
    
33.       )
    
34.       (princ "\n多义线顶点坐标集 (!ptlst) : ")
    
35.       (princ"\n")
    
36.       (if ptlst
    
37.         (princ ptlst)
    
38.       )
    
39.     )
    
40.     (princ "\n未选到多义线!")
    
41.   )
    
42.   (princ)
    
43. )[/FONT]

[FONT=courier new];;;多义线顶点坐标集(支持框选)<br /> (defun c:test ()<br />   (princ "\n选取*PLINE多义线...")<br />   (setq        ss    (ssget '((0 . "*POLYLINE")))<br />         i     -1<br />         ptlst '()<br />   )<br />   (if ss<br />     (progn<br />       (while (setq s1 (ssname ss (setq i (1+ i))))<br />         (setq ret (vla-get-Coordinates (vlax-ename->vla-object s1))<br />               n          0<br />         )<br />         (repeat<br />           (/ (length (vlax-safearray->list (vlax-variant-value ret)))<br />              2<br />           )<br />            (setq ptx   (vlax-safearray-get-element<br />                          (vlax-variant-value ret)<br />                          n<br />                        )<br />                  n     (1+ n)<br />                  pty   (vlax-safearray-get-element<br />                          (vlax-variant-value ret)<br />                          n<br />                        )<br />                  n     (1+ n)<br />                  pt    (list ptx pty)<br />                  ptlst (cons pt ptlst)<br />            )<br />         )<br />       )<br />       (princ "\n多义线顶点坐标集 (!ptlst) : ")<br />       (princ"\n")<br />       (if ptlst<br />         (princ ptlst)<br />       )<br />     )<br />     (princ "\n未选到多义线!")<br />   )<br />   (princ)<br /> )[/FONT]

教父

感谢感谢，嘿嘿，xyp能顺带问一下扩展数据是怎么回事吗？又该怎么提取呢，不知道你有没有更新xyp-lib，最好给个提取扩展数据的函数吧，嘿嘿

neuwzy

多研究研究吧,研究完告诉我就行了,谢谢了
呵呵

nnqinj

按不同的线型提取是一种很基本的操作，CAD的几种基本线型包括LINE、POLYLINE、LWPLYLINE等，spline是一种图形编辑中较少用到的种
;线型之一，SPLINE线经过编辑以后，SPLINE线会增加未知的许多端点，使列表无法正常分析。而且在常用线型中
;我们也很难看到使用SPLINE做为规范线型的例子。因此我们主要针对POLYLINE、LWPLYLINE、两种线形作分析：
(defun c:test7 (/ ss1 sslist ss1date)
  (setq ss1 (car (entsel"拾取范围线：")))
  (setq enddate nil)
  (setq sslist (entget ss1))
  (setq ss1date (cdr (assoc 0 sslist)))
  (cond ((= "lwplyline" ss1date) (c:ltest));当范围线是复合线的时候，一般为这种线型
        ((= "polyline"  ss1date) (c:ptest));拟合线大多为这种线型
  )
)
(defun c:ltest()
  (setq ss1number (assoc 90 sslist));返回数据列表中的顶点数
  (setq ss1date (member (assoc 10 sslist ) sslist));从第一个坐标点对表开始排列组成新的列表
  (setq dump 0);设置循环量
  (repeat ss1number;|重复步数|;
    (setq enddate (cons (cdr (nth dump ss1date) enddate)));提取第一个坐标点对组表
    (setq dump (+ dump 3.0))
  )
  (princ enddate)
  (princ)
)
(defun c:ptest ()
   (setq ss2 (entnext ss1))
   (setq ss2date (entget ss2))
   (setq ss2ent (assoc 0 ss2date))
   (while  (/= "seqend"  ss2ent)
           (setq ss2list (cdr (assoc 10 ssdate)))
           (setq enddate (append enddate (list ss2list)))
           (setq ss2 (entnext ss2))
           (setq ss2date (entget ss2))
           (setq ss2ent  (assoc 0 ss2date))
   )

教父

斑竹你的反向程序运行后虽然反向了可是pl线变成lp线了哦，该怎么处理啊
有没有将lp线和pl线互换的函数或命令呢

雨箭风刀

给4楼的版主提个醒

;;;多义线顶点坐标集(支持框选)
(defun c:test ()
  (princ "\n选取*PLINE多义线...")
  (setq        ss    (ssget '((0 . "*POLYLINE")))
        i     -1
        ptlst '()
  )
  (if ss
    (progn
      (while (setq s1 (ssname ss (setq i (1+ i))))
        (setq ret (vla-get-Coordinates (vlax-ename->vla-object s1))
              n          0
        )
        (repeat
          (/ (length (vlax-safearray->list (vlax-variant-value ret)))
             2
          )
。。。。。。
版主的 (ssget '((0 . "*POLYLINE"))) 应改为(ssget '((0 . "LWPOLYLINE")))
否则如果是 (ssget '((0 . "POLYLINE"))) 的话， (/ (length (vlax-safearray->list (vlax-variant-value ret))) 2 ) 就错了

教父

斑竹你的反向程序运行后虽然反向了可是pl线变成lp线了哦，该怎么处理啊
有没有将lp线和pl线互换的函数或命令呢