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

标题: 如何绘制3D螺纹? [打印本页]
作者: zaoxiao    时间: 2008-1-24 09:45
标题: 如何绘制3D螺纹?
那位高手能指定一下如何绘制3D螺纹?
作者: cqbbpdy    时间: 2008-1-24 10:59
...
作者: kevin7.7    时间: 2008-1-24 11:41
直接用2007版作就好了
作者: csk6885228    时间: 2008-1-24 12:27
请问如果是2006版的CAD怎样可以画出来,
作者: thjzxp    时间: 2008-1-24 12:54
用这个程序可以画出来

3D螺纹.rar (1.34 KB, 下载次数: 149)
作者: sxsheng    时间: 2008-1-24 14:08
感谢快乐版主分享!
(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)
作者: SWH1981    时间: 2008-1-24 14:23
不用辅助软件,直接用ACAD能否画出来?
作者: whgparadise    时间: 2008-1-24 14:38
晕,5楼高人的是啥子东东
作者: liwei30622    时间: 2008-1-24 14:53
请教678123你的3D螺纹怎么用
作者: qhdyjy    时间: 2008-1-24 15:00
请问快乐1 : 你的3D螺纹怎么用？先谢谢你
作者: spaceyuan    时间: 2008-1-24 16:19
回九楼朋友：把程序代码复制下来，打开系统内的记事本、粘贴上刚复制下来的东东，保存成名为（3Dlw.lsp）文件，返回CAD，工具—加载应用程序—加载，选中刚保存的3Dlw.lsp文件，关闭，命令行内输入3DLW，按提示一步一步。。。。。。。。
作者: yanghao01    时间: 2008-1-24 16:27
请问5楼，每转切割次数定在多少才有真实感觉？
作者: zoushuiyue    时间: 2008-1-24 17:43
2006下化的都是伪螺纹，好像有老大发过教程，还是在2007及以后的直接有螺旋线工具，在沿路径拉伸做并集或做差集就成外螺纹或内螺纹了，
作者: youxinhui    时间: 2008-1-24 18:16
我都不会用 CAD画3D图有没有谁发个教程上来看看啊
作者: guanguow    时间: 2008-1-24 20:44
怎么画三维图呀？？
作者: 275753871    时间: 2008-1-24 20:46
很好用，不过不知道切割的作用。
作者: byy659    时间: 2008-1-24 22:43
写楼主，好用，就用在CAD2006.
作者: jxyang    时间: 2008-1-24 22:43
5楼下载4缕的，用起来还是不方便。
作者: qiu906    时间: 2008-1-24 22:51
用autocad画三维图有用吗，
作者: jpenny    时间: 2008-1-24 23:35
直接用PROE画,比在CAD画间单多了,..
作者: glyls8281    时间: 2008-1-25 00:24
不会用啊



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