求PL线反向功能，

xxwoaini897 · 发表于 2014-5-15 15:52:10

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

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

×

各位大神你们好，来到论坛发现很多大神发了代码，小弟不晓得怎么用，现需求一个批量反向PL线的LSP，如图：需要把PL线的顶点从左边直接反向到右边来，当然这是一条线，我需求可以一次框选很多线条的反向工具，再次感谢了

kwok · 发表于 2014-5-16 10:11:50

高版本有自带命令: REVERSE
下面是论坛有的
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=671091

xxwoaini897 · 发表于 2014-5-16 13:14:34

kwok 发表于 2014-5-16 10:11
高版本有自带命令: REVERSE
下面是论坛有的
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=671091

谢谢哥们了，我积分不够，看不到。

xxwoaini897 · 发表于 2014-5-16 13:20:47

kwok 发表于 2014-5-16 10:11
高版本有自带命令: REVERSE
下面是论坛有的
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=671091

哥们，能麻烦你把代码发给我可以吗？我积分不够。

xxwoaini897 · 发表于 2014-5-16 13:37:14

有没有人在的啊。

xxwoaini897 · 发表于 2014-5-16 13:42:38

有没有人啊

拉契 · 发表于 2014-5-18 15:39:05

;;;pl线反转
(defun reverse-LWPOLYLINE (e / a en how li1 li2 li3)
  (setq en (entget e '("*"))
      how nil
  )
  (foreach an en
(if (setq a (member (car an) '(10 40 41 42)))
   (setq how t)
)
(cond
   ((not how)
      (setq li1 (cons an li1))
   )
   ((and
      how
      a
   )
      (cond
      ((= (car an) 40)
         (setq an (cons 41 (cdr an)))
      )
      ((= (car an) 41)
         (setq an (cons 40 (cdr an)))
      )
      ((= (car an) 42)
         (setq an (cons 42 (- 0 (cdr an))))
      )
      (t
         an
      )
      )
      (setq li2 (cons an li2))
   )
   ((and
      how
      (not a)
   )
      (setq li3 (cons an li3))
   )
)
  )
  (entmod (append
         (reverse li1)
         (append
            (cdddr li2)
            (list (car li2) (cadr li2) (caddr li2))
         )
         (reverse li3)
      )
  )
)

JHX948954875 · 发表于 2020-4-5 21:19:42

学习了学习了

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

[建议] 求PL线反向功能，

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

点评