多段线反向

自贡黄明儒 · 发表于 2015-2-9 14:58:42

本帖最后由自贡黄明儒于 2015-7-13 09:50 编辑

;;多段线反向 (By 自贡黄明儒 2015.2.9)
;;entget中，高版本和低版本显示内容不同了，zml84写的那个要重写
http://bbs.xdcad.net/thread-679037-1-1.html 多段线接着画
;;(_HH:PLReverse (car(entsel)))
(defun _HH:PLReverse (e / EN L L1 LST X)
  (setq en (entget e))
  (while (setq x  (car en)
            en (cdr en)
      )
(cond
   ((and (/= (car x) 10) (or (not L) (not L1))) (setq Lst (cons x Lst)))
   ((equal (car x) 10) (setq L1 (cons L L1)) (setq L nil)(setq L (cons x L)))
   (T (setq L (cons x L)))
)
  )
  (setq L1 (cons L L1))
  (entmod(append (reverse lst) (apply 'append (mapcar 'reverse L1)) (list x)))
)

想保证凸度，宽度不变的见96楼，更接近AutoCAD本身命令reverse

bai2000 · 发表于 2019-10-18 19:00:51

如果能够对多线段方向进行标注，就更好了

vladimir · 发表于 2020-12-1 23:40:57

这样的代码正需要的。谢谢楼主分享。

cable2004 · 发表于 2019-10-19 17:53:26

来学习一下，试用一下，感谢楼主分享

伪书虫86 · 发表于 2015-2-9 15:01:51

沙发走起

zzyong00 · 发表于 2015-2-9 15:52:37

和autocad的REVERSE命令有何不同

Linhay · 发表于 2015-2-9 16:03:47

谢谢.这个对我来说正好学习

qyming · 发表于 2015-2-9 16:23:46

多段线反向

yoyoho · 发表于 2015-2-9 16:32:07

学习一下看有何不同!

香田里浪人 · 发表于 2015-2-9 17:29:13

学习一下看有何不同!

cnks · 发表于 2015-2-9 17:29:49

是源码支持一下！

hao3ren · 发表于 2015-2-9 18:00:42

回复一下看看

杜阳 · 发表于 2015-2-9 19:55:53

xue xi le

账号		自动登录	找回密码
密码			注册

[源码] 多段线反向

点评