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

多选Pline转换为

我已经有了一个选择集，希望将这些多段线转换为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

尝试以下操作：
(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)
)
编辑：pBe打败了我

pBe 发表于 2022-7-5 18:49:55

 
这是罕见的事件之一，比如一颗巨大的流星撞击我们的星球

BIGAL 发表于 2022-7-5 18:59:19

为什么不改变线型呢？我们有一个1/2的圆线型。这是一个大锤子打了一个小问题

Lt Dan's l 发表于 2022-7-5 19:02:49

李，你以前不是做过revcloud lsp吗？

Lt Dan's l 发表于 2022-7-5 19:17:26

我知道是你做的，但我找不到。我在弧上遇到了问题，你发了一些关于雷夫云的帖子。我不认为我参与了这条线索（只是一个爬行动物）。我会找到的

Lee Mac 发表于 2022-7-5 19:24:38

 
也许是这个？

Lt Dan's l 发表于 2022-7-5 19:27:37

我以为这和凸起和弧度有关。。。也许就是这样。我不记得了，我只是一条腿

ttray33y 发表于 2022-7-5 19:32:37

哈哈哈。。。tnx alot guyz，这个程序在未来会派上用场。。
页: [1]
查看完整版本: 多选Pline转换为