社区 › Auto Lisp › 将样条曲线转换为修订clo

vnanhvu 发表于 2022-7-6 09:21:37

将样条曲线转换为修订clo

我有一个lisp转换样条线到修订云。但我想用任何长度（例如1000mm…或最小弧长=最大弧长）转换。你能帮助我吗？
(defun c:51() (command "revcloud" "A" 200 500 "") (princ))
谢谢大家。

Tharwat 发表于 2022-7-6 11:11:00

(defun c:Test (/ ss)
(if
   (setq ss
          (ssget "_:L" '((0 . "SPLINE")))
   )
   (
   (lambda (i / sset)
       (while
         (setq sset
                (ssname ss
                        (setq i (1+ i)
                        )
                )
         )
          (command "_.revcloud" "_A" 200. 500. "" sset "")
       )
   )
      -1
    )
    (princ)
)
(princ)
)
 
塔瓦特

查看完整版本: 将样条曲线转换为修订clo