有没有可以使二维轴对称图形，以对称轴旋转成旋转实体的lisp程序

呆呆的努努

该贴已经同步到 呆呆的努努的微博

nzl1116

(vla-AddRevolvedSolid ms region (vlax-3d-point pt1) (vlax-3d-point pt2) angl)

ZZXXQQ

2. (defun c:tt ()
   
3. (if (setq ss (ssget ":E:S" '((0 . "LWPOLYLINE") (70 . 1))))
   
4. (command "REVOLVE" ss "" "O" PAUSE "")
   
5. )
   
6. (princ)
   
7. )
   

(defun c:tt ()<br /> (if (setq ss (ssget ":E:S" '((0 . "LWPOLYLINE") (70 . 1))))<br /> (command "REVOLVE" ss "" "O" PAUSE "")<br /> )<br /> (princ)<br /> )<br />

呆呆的努努

ZZXXQQ 发表于 2014-6-7 22:49

好像不行啊 我再发个帖子吧