二维多段线（等高线等）变换处理

hujirong8243692

求助：请教各位大侠
      我想对等高线（二维多段线）坐标变换处理。但在读出图元表中没有坐标数据。
      该如何处理，获得二维多段线坐标，处理后重新生成二维多段线？
      我想在lisp程序中选择二维多段线图元，转换成LWPOLYLINE后再处理，但未成功，无从着手。

lisp_beginner

二维多段线转LWPOLYLINE用 命令 convert

Lisphk

二维多段线的顶点不是保存在主实体里面，二维多段线是由一堆叫顶点（VERTEX）类型的子实体组成，最后接着一个SEQEND结束。
所以要获得二维多段线顶点，要用 ENTNEXT一直遍历实体（每个子实体的组码10是顶点）直到遇到SEQEND结束

1. (defun _verts (e / pts)
   
2.   (if (eq (cdr (assoc 0 (entget e))) "POLYLINE")
   
3.     (progn
   
4.       (while (and
   
5.                (setq e (entnext e))
   
6.                (/= (cdr (assoc 0 (setq ed (entget e)))) "SEQEND")
   
7.              )
   
8.         (setq pts (cons (cdr (assoc 10 ed)) pts))
   
9.       )
   
10.     )
    
11.   )
    
12.   (reverse pts)
    
13. )
    
14. 
    

(defun _verts (e / pts)<br />   (if (eq (cdr (assoc 0 (entget e))) "POLYLINE")<br />     (progn<br />       (while (and<br />                (setq e (entnext e))<br />                (/= (cdr (assoc 0 (setq ed (entget e)))) "SEQEND")<br />              )<br />         (setq pts (cons (cdr (assoc 10 ed)) pts))<br />       )<br />     )<br />   )<br />   (reverse pts)<br /> )<br /> <br />

hujirong8243692

谢谢大侠！已经读出坐标。
但顶点很多，那不是计算量很大?
转换成原来的多段线时顶点就没几个。这样是否先转换为多段线更好？
可以在lisp中将他转成多段线吗？在cass中可以用pedit手工转换，但我在程序中采用（command  “pedit”  a  “d”  “”)
没有起作用，不知错在哪里？

newer

hujirong8243692 发表于 2017-8-8 15:48

既然ACAD到现在还保留2维多段线POLYLINE，就有它存在的价值。
加载XDRX API

(xdrx_getpropertyvalue ent "vertices")  读出顶点
(xdrx_polyline_convertfrom <ent or ss>) 转成LWPOLYLINE

hujirong8243692

我是新手，下载不了插件。我查了一边，也未找到xdrx_polyline_convertfrom <ent or ss>源码。有些源码又要用到以前的源码，所以仍未能将二维多义线转换为LWPOLYLINE

evayleung

二楼的convert命令不行么？我也是这么转的

newer

hujirong8243692 发表于 2017-8-8 17:31

怎么会下载不了？

http://bbs.xdcad.net/thread-703851-1-1.html

http://bbs.xdcad.net/thread-668896-1-1.html

下载XDRX API什么提示？

hujirong8243692

我用的是CAD2006 cass9.1 windowsXP系统，
好像刚才进去可以下载了。
用2008会不会有影响？我的是工作用机。

hujirong8243692

我用的是cass9.1 用pedit可以将二维多段线转为多段线。用手工一条条选择。
但在lisp程序中没有用成功。
读二维多段线时顶点太多。多段线时有5个顶点，但二维多段线时有30个顶点。

用convert没成功

zipo123

二维多段线顶点可以用如下方法获取
（vl-load-com）
(setq points-list （vlax-get (vlax-ename->vla-object polyline) 'Coordinates))))
获取后的结果为一个包含所有点的x和y坐标的表，然后将其两两分割就可以了