[功能] 多段线反向 (By 自贡黄明儒 2015.2.9)

/db_自贡黄明儒_ · 发表于 2015-2-12 10:41:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

本帖最后由 /db_自贡黄明儒_ 于 2016-11-2 07:57 编辑

[功能] 多段线反向 (By 自贡黄明儒 2015.2.9)
;;entget中，高版本和低版本显示内容不同了
;;(_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)))
)

游客，如果您要查看本帖隐藏内容请回复

上一篇：MSXL-GET-ACTIVESHEET 在什么地方去装载?
下一篇：无语了,求助!!!!!!!!!!!!!!!!!!!!!!!!!

Free-Lancer · 发表于 2015-2-12 11:56:00

使用 DXF 组码就可以完成 Pline 的反向，将 Bulge 组码后移取负值

cable2004 · 发表于 2015-2-12 12:47:26

llllkkkkkkkkkkk

ynhh · 发表于 2015-2-12 12:58:11

是升级程序吧

gufengyin · 发表于 2015-2-12 13:12:17

有考虑带宽度的线吗

里皎相 · 发表于 2015-2-12 15:05:14

回复，收藏，学习，感谢分享！

freedake · 发表于 2015-2-12 16:49:13

非常实用，如果不考虑线宽的话我会用第三方软件进行反向调整

q3_2006 · 发表于 2015-2-12 17:04:31

不同的似乎也没什么影响...

sicky111 · 发表于 2015-2-13 01:59:06

看看黄大师的反向函数

Michael527 · 发表于 2015-2-13 08:46:03

反向有什么作用呢？

海天风云 · 发表于 2015-2-13 09:26:10

学习黄大师的反向程序

viphappy · 发表于 2015-2-13 11:48:40

谢谢楼主分享，论坛有你很精采

zytyd · 发表于 2015-2-13 12:56:48

谢谢分享，学习学习

/db_自贡黄明儒_ · 发表于 2015-2-13 14:59:52

Michael527 发表于 2015-2-13 08:46
反向有什么作用呢？

http://bbs.xdcad.net/thread-679037-1-1.html
多段线接着画

守仁格竹GM · 发表于 2015-2-13 15:11:37

freedake 发表于 2015-2-12 16:49
非常实用，如果不考虑线宽的话我会用第三方软件进行反向调整

我们一般使用不考虑宽度，要是反向也不是不行

帐号		自动登录	找回密码
密码			立即注册

[每日一码] [功能] 多段线反向 (By 自贡黄明儒 2015.2.9)

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评