只需一步,快速开始
(defun c:luoxian
(/)
(setq b1 (getpoint"指定螺旋线基点: "))
(setq r (getreal"请输入螺纹平均半径: "))
(setq disp (getreal"请输入螺纹节距: "))
(setq n (getint"请输入每圈细化段数: "))
(setq delta (/ (*2.0 pi)n))
(setq j (/ disp n))
(setq bb (caddr bl))
(setq and 0)
(setq jj 0)
(Command "UCS" "o" b1)
(command "3dpoly" (list r 0 0))
(repeat n
(setq jj (+jj))
(setq ang (+delta ang))
(setq pt2(list(*r(cos ang))(*r(sin ang))(+0*(j jj))))
(Command pt2)
)
(Command"")
使用道具 举报
我不是怪你,我只想告诉你那里是专门的版块,会的人应该很多的!
只是我一时发快了。没有详细说明白!
谢谢了 ?
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2024-11-6 11:43 , Processed in 0.193186 second(s), 27 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.