[求助]：多义线反向的问题

yuer0103

请问LWPOLYLINE多义线的反向程序该如何编才好，不能用取出顶点，然后删除重绘的形式。请指教！

winabcd

你是出考题还是有问题需要帮助？
你已经有办法解决这个问题了，还要来问？
给你出个主意，修改DXF数据，可以达到你的目的。

yuer0103

在下是做测绘的，经常要用到多义线的反向。POLYLINE线的时候，我用修改顶点的办法可以达到要求，但LWPOLYLINE线，我试过多次总是不行，用取出顶点，然后删除重绘的形式，线的方向是反过来了，可很多属性数据都丢失掉了。所以请各们高手帮帮忙，指教指教一下！
先谢啦！

狂刀

到程序库板块，eachy好像写了一个

wmz_0211

最初由 yuer0103 发布
[B]在下是做测绘的，经常要用到多义线的反向。POLYLINE线的时候，我用修改顶点的办法可以达到要求，但LWPOLYLINE线，我试过多次总是不行，用取出顶点，然后删除重绘的形式，线的方向是反过来了，可很多属性数据都丢失掉... [/B]

我这里收集了一个:
;曲线反向函数
(defun GETPL (ED / ENTS PTS PTS2 EDS D)
  (setq PTS nil PTS2 nil)
   (setq ENTS (entget ED))
   (setq EDS ENTS)
  (while (setq ENTS (member (assoc 10 ENTS) ENTS))
    (setq PTS (append PTS (list (car ENTS) (cadr ENTS) (caddr ENTS) (cadddr ENTS))))
    (setq ENTS (CDR ENTS))
  )
  (setq PTS (reverse PTS))
  (repeat 3 (setq PTS (append (cdr PTS) (list (car PTS)))))
  (foreach item PTS
    (if (= (car item) 42)      
      (setq item (cons 42 (- (cdr item))))
    )
    (setq PTS2 (append PTS2 (list item)))
  )
  (setq PTS PTS2)
  (while (setq item (assoc 10 EDS))
    (setq EDS (vl-remove item EDS))
    (setq EDS (vl-remove (assoc 40 EDS) EDS))
    (setq EDS (vl-remove (assoc 41 EDS) EDS))
    (setq EDS (vl-remove (assoc 42 EDS) EDS))
  )
  (setq D (car (setq EDS (reverse EDS))))
  (setq EDS (append (reverse (cdr EDS)) PTS (list D)))
  (entmod EDS)
)

yuer0103

呵呵，太棒了！效果很好啊，XDCAD真是高手如云，各位大虾真是义薄云天！实实令人好生佩服。。。。。。谢啦！

winabcd

最初由 yuer0103 发布
[B]在下是做测绘的，经常要用到多义线的反向。POLYLINE线的时候，我用修改顶点的办法可以达到要求，但LWPOLYLINE线，我试过多次总是不行，用取出顶点，然后删除重绘的形式，线的方向是反过来了，可很多属性数据都丢失掉... [/B]

我不知道你有多少属性有保留
如果是我的话，我就在读取顶点时把要保留的属性一起读出来，画线时再设回去，
有人认为在LISP中用COMMAND函数不好，我是这样想的，
大家都是搞设计的，图纸画出来就好，程序越简单越好，要讲运行速度、刷新图面等等，反正做设计时要停下来思考的，等一下又何仿。

yuer0103

谢谢七楼的朋友，理论上有时可能如你刚才所说那样，但真要把要保留的属性一起读出来，画线时再设回去的话，程序将极其复杂的。各种软件所定义的属性数据很可能不一样，分析起数据构成成份将很大工作量，还是五楼的朋友的代码好！只修改了顶点坐标，其它江山依旧！

JHX948954875

学习了学习了学习了学习了