SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 现学现卖，画3D螺纹其实很简单 [打印本页]
作者: tntntntn    时间: 2006-9-8 13:13
标题: 现学现卖，画3D螺纹其实很简单
现学现卖，画3D螺纹其实很简单
加载附件程序即可
在CAD输入命令：3Dlw
就OK了
呵呵，刚学的
作者: zlname    时间: 2006-9-8 14:23
我现在使用CAD2004
在工具栏－－加载应用程序－－选择附件程序加载－－ok
在命令中："3DLW"即可
慢慢玩吧。。。。。。。。。。
      
作者: qwertyuasdfg    时间: 2006-9-8 15:14
不咋地啊，让我花掉1元
作者: jlhawk    时间: 2006-9-8 15:50
本来想发张图的，弄不来。那位高手指点一下
作者: wyb3779    时间: 2006-9-8 16:02
楼主发的是1个加载程序还是咋的？
作者: hjhy001    时间: 2006-9-8 16:22
2007直接能画3D螺纹。
作者: abc126    时间: 2006-9-8 16:33
是不是用宏命令写的？
作者: fuminghai    时间: 2006-9-8 17:17
用个高版本的CAD就解决问题了,画螺纹也可用其他软件.方便的很
作者: lvzhe108    时间: 2006-9-8 17:27
吼吼 ，赚钱了
!!!
作者: shark8015    时间: 2006-9-8 17:28
怎么上传图片，那位高手指点
作者: spiritwind    时间: 2006-9-8 18:21
还有其他的方法吗?
我公司的电脑不能下载上传啊!
作者: mgy_jy    时间: 2006-9-8 18:39
我试过,不错,但效果好像不太好哦     
作者: 2650290    时间: 2006-9-8 19:34
看我的是画好了的一套螺丝
螺丝.dwg (961.47 KB, 下载次数: 11)
作者: xiangwei15    时间: 2006-9-8 19:57
我加载后生出来的不是螺纹啊
作者: aybcom    时间: 2006-9-8 20:04
这样画就没意思啦
作者: matrixy    时间: 2006-9-8 20:08
楼住，我用他，怎么画不出来螺纹啊！！！！！！！！1
作者: kivinchan    时间: 2006-9-8 20:58
大哥，画不出来！！！！！！
作者: ste1111    时间: 2006-9-8 21:34
晕，我用记事本打开，里面的东西和你说的一点关系也没有~！
作者: tianxin6381    时间: 2006-9-8 22:57
怎么　　不是螺纹啊　　我看怎么是个轴上开的齿啊　　　难道是我的操作方法不对？
请楼主帮忙说明一下啊　　
作者: yangwx    时间: 2006-9-8 23:02
OUTOCAD2007有螺旋功能，直接用命令在扫描就可以了！！
作者: cyg20042001    时间: 2006-9-9 00:39
楼主现在是王婆卖瓜吗?????YES  or  NO???
作者: zhenzz    时间: 2006-9-9 00:54
我试过了，保证好用。
不行的，回去再研究研究
作者: eladjslj    时间: 2006-9-9 01:21
(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 "ntC: 3DLW 为绘制命令")
(princ)
作者: xujinhua10    时间: 2006-9-9 01:50
我相信你~~~
作者: cwyltl    时间: 2006-9-9 01:52
呵呵这么简单吗？？？我不相信啊
作者: ponduniverse    时间: 2006-9-9 02:30
呵呵这么简单吗？？？
作者: hongfan666    时间: 2006-9-9 02:39
哈   bushi zheme  简单
作者: zhangjuan781011    时间: 2006-9-9 02:49
二次开发的?那好
作者: ltyzh2002    时间: 2006-9-9 02:59
不懂啊   
作者: xindexuanze    时间: 2006-9-9 03:07
请问加载那个附件呀!



欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/) Powered by Discuz! X3.2