请问此图在ACAD里能画吗?

CADghost

你用不同的面旋转出路径试试

pencilliny

CADghost发表于2004-7-9 11:28:00你用不同的面旋转出路径试试

那路径是三维的,可是你用旋转,怎么转都只能是转出一个二维曲线.

FJQZ456

旋转旋转旋什么转呀？真是的！



先画路径，然后沿着路径拉伸就行了，


这么简单的题你都不愿意动脑筋！

bluedomb

楼上的不标准的


       





看看这个


在CAD下载里有这个LISP程序

阿QQ

14楼你要看清楼主的主题，


他并不是要画像你这种弹簧，


再说这种弹簧简单的很，不用加载LISP程序同样也很容易就画出来！


不信你看，这个是没有加载LISP程序直接用拉伸的，


难道也像你所说的不标准吗？？？？我看不见得！！


兄弟啊！不要随便对别人的作品下结论！

人万

关键就是路径的画法了！

ds11

到底路径怎么画呀？？？？？？？？？？？？？？？？？？

吴钩霜雪明

老大们别卖关子了。快说吧。我都急死了。

相信传说

对呀!说来说去也没说,


怎么画的?用什么命令?

yuchenghon

(defun shuru ()
(setq zhijing (getREAL "公称直径:"))
(setq luoju (getreal "螺距:"))
(SETQ QUANSHU (GETREAL "螺纹有效圈数:"))
(SETQ JINGDU (GETint "每转切割次数:"))
(setq QIDIAN (getpoint "输入起始点:"))
)
(defun JISUAN ()
(setq H (* 0.8660254 luoju))
(setq D2 (- zhijing (* 2 0.375 H)))
(SETQ LD2 (* D2 PI))
(SETQ LUOXUANJIAO (ATAN (/ LUOJU LD2)))
(SETQ LXJ (* 180 (/ LUOXUANJIAO pi)))
(setq banjiao(atan(/ luoju zhijing)))
(setq djxc (sqrt(+ (expt luoju 2) (expt zhijing 2))))
(setq pyj (+ banjiao luoxuanjiao))
(setq pianyi (* (sin pyj) djxc))
(setq pianyi (/ pianyi 2.0000))
(SETQ SL (fix (* (+ 1 QUANSHU) JINGDU )))
(SETQ FD (/ 360.0000 JINGDU))
(SETQ BC (/ (* 1.0000 LUOJU) JINGDU))
(setq bc (- bc))
)
(defun draw ()
(setq pt1 (polar QIDIAN PI (/ LUOJU 2.0000)))
(SETQ PT1 (POLAR PT1 (* 1.5 PI) (+ (* 0.1250 H) (/ ZHIJING 2.0000))))
(setq pt2 (polar pt1 0 (* luoju 0.375 (cos LUOXUANJIAO))))
(SETQ PT2 (POLAR PT2 (* 0.5 PI) (* 0.750 H)))
(setq pt3 (polar pt2 0 (* 0.25 LUOJU (cos LUOXUANJIAO))))
(setq pt4 (polar pt1 0 (* LUOJU (cos LUOXUANJIAO))))
(setq pt5 (polar QIDIAN pi (* 2.00 LUOJU QUANSHU)))
(setq pt7 (polar pt5 0 (* 2 LUOJU)))
(setq pt7 (polar pt7 (* 1.5 pi) (/ ZHIJING 2)))
(setq pt6 (polar pt5 0 LUOJU))
(SETQ PT6 (POLAR PT6 (* 0.5 PI) (* 0.50000 ZHIJING)))
(SETQ PT8 (POLAR PT1 0 (* 0.5 LUOJU)))
(SETQ PT9 (POLAR PT8 (* 0.5 PI) (* 0.8 ZHIJING)))
(SETQ MV (POLAR QIDIAN 0 (/ ZHIJING 2.0000)))
;制做齿条并转角
(command "pline" pt1 pt2 pt3 pt4 "c" )
(command "extrude" "last" "" ZHIJING "" )
(setq SS (ssget pt1))
(rotate3d ss PT9 PT8 90)
(COMMAND "MOVE" "Previous" "" QIDIAN MV )
(rotate3d ss "" PT8 PT9 90)
(rotate3d ss "" PT9 PT8 LXJ)
(SETQ YD (POLAR QIDIAN 0 (/ LUOJU 2.0000)))
(COMMAND "MOVE" "Previous" "" QIDIAN YD )
;制做光杆
(SETQ PT0 (POLAR QIDIAN 0 LUOJU))
(COMMAND "LINE" PT5 PT0 "")
(COMMAND "rectang" PT6 QIDIAN)
(COMMAND "revolve" "LAST" "" PT5 qidian "")
(command "zoom" "e")
;布尔运算
(SETQ PT (POLAR PT4 0 pianyi))
(SETQ SQ pt6)
(while (/= SL 0)
(SETQ SS (SSGEt pt))
(setq pta (polar pt 0 bc))
(command "copy" ss "" pt pta)
; (prin1 pt)
(COMMAND "subtract" sq "" ss "")
; (setq zanting(getstring))
(setq SS (ssget pt6))
(ROTATE3D SS PT5 qidian FD )
(setq PT pta)
(SETQ SL (- SL 1))
)
(setq pta (polar pt 0 bc))
(COMMAND "ERASE" PT "")
)
(defun C:3DLW ()
(arxload "geom3d.ARX" NIL)
(shuru)
(SETQ SSs (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(SETQ SNM (GETVAR "SNAPMODE"))
(SETVAR "SNAPMODE" 0)
(SETQ PICKB (GETVAR "PICKBOX"))
(SETVAR "PICKBOX" 0)
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(JISUAN)
(SETQ GD (* 60 ZHIJING))
(SETQ CT (POLAR QIDIAN PI (* LUOJU QUANSHU)))
(COMMAND "ZOOM" "C" CT GD)
(draw)
(SETVAR "OSMODE" SSs)
(setvar "cmdecho" cmd)
(SETVAR "SNAPMODE" SNM)
(SETVAR "PICKBOX" PICKB)
)
(princ "\n\tC: 3DLW 为绘制命令")
(princ) 加载后就可以画了!