多选Pline转换为

ttray33y · 发表于 2022-7-5 18:31:45

我已经有了一个选择集，希望将这些多段线转换为revcloud，但是acad revcloud函数只允许最后一个或点。

是这个可行的家伙吗？我在microstation中尝试了这个，它确实立即将这些pline转换为revcloud。

pBe · 发表于 2022-7-5 18:43:12

当然可以。


(defun c:demo ()(if (setq ss (ssget))(repeat (sslength ss)(command-s "_Revcloud" "_Object" (ssname ss 0) "_n")(ssdel (ssname ss 0) ss))))

但所有的准备工作都应该事先做好，比如弧长等。。。

Lee Mac · 发表于 2022-7-5 18:45:28

尝试以下操作：

copy

(defun c:mrc ( / c i s )
   (if (setq s (ssget "_:L" '((0 . "ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE"))))
       (progn
           (setq c (getvar 'cmdecho))
           (setvar 'cmdecho 0)
           (repeat (setq i (sslength s))
               (command "_.revcloud" "_o" (ssname s (setq i (1- i))) "")
           )
           (setvar 'cmdecho c)
       )
   )
   (princ)
)