呆呆的努努 发表于 2014-6-6 22:35:36

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




http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 呆呆的努努的微博

nzl1116 发表于 2014-6-6 23:24:25

本帖最后由 nzl1116 于 2014-6-7 06:49 编辑

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

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

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

呆呆的努努 发表于 2014-6-7 23:58:38

ZZXXQQ 发表于 2014-6-7 22:49 static/image/common/back.gif


好像不行啊 我再发个帖子吧
页: [1]
查看完整版本: 有没有可以使二维轴对称图形，以对称轴旋转成旋转实体的lisp程序