将样条曲线转换为修订clo

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

我有一个lisp转换样条线到修订云。但我想用任何长度（例如1000mm…或最小弧长=最大弧长）转换。你能帮助我吗？

(defun c:51() (command "revcloud" "A" 200 500 "") (princ))

谢谢大家。

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

copy


(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

发表回复

精选推荐