csharp 发表于 2016-10-8 18:19:05

Pline弧段全部反向



(defun c:tt (/ ss sl e el old)
(if (setq ss (ssget '((0 . "lwpolyline"))))
    (progn
      (setq sl (sslength ss))
      (while (setq e (ssname ss (setq sl (1- sl))))
        (setq el (mapcar '(lambda (x)
                          (if        (= (car x) 42)
                              (cons 42 (* -1 (cdr x)))
                              x
                          )
                          )
                       (entget e)
               )
        )
        (entmod el)
      )
    )
)
(princ)
)

HLCAD 发表于 2016-10-9 08:17:45

非常感谢楼主！！！这才是我们所需要的源码。

zyhandw 发表于 2016-10-9 11:47:58

这么简洁，真是高手！

kqqt6236 发表于 2016-11-14 22:59:52

确实很简洁。

yoyoho 发表于 2016-11-15 00:12:14

啥也不说了，感谢 csharp 楼主分享哇！

xvjiex 发表于 2021-10-29 07:21:09

感谢分享Pline弧段全部反向

ynhh 发表于 2021-10-29 08:37:11

有时很难控制弧方向，CAD中选择方向D时却不能同时选择半径R，太麻烦了
有这个可再调整好一些
谢谢大师的分享{:1_23:}

vbnewer 发表于 2021-10-31 19:40:33

相当的简洁高效

ynpxqjlb 发表于 2023-1-12 10:09:39

学习一下~~~~

happyending 发表于 6 天前

又学到有用的知识了。感谢分享。
页: [1]
查看完整版本: Pline弧段全部反向