设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃专业技术版 › ╃机械设计与CAD技术 › [寻找]：在CAD里画螺栓螺母
12下一页
返回列表 发新帖
查看: 2407|回复: 27

[寻找]：在CAD里画螺栓螺母

[复制链接]
hyf
发表于 2004-2-4 15:35:15 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
有谁知道在CAD里画螺栓螺母的小软件？
螺母, 螺栓, CAD

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

amplly
发表于 2004-2-4 17:07:55 | 显示全部楼层
没有小软件，我是用Autocad Mechaniacal 2004 DX，里面各个标准的标准件都有！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

上帝
发表于 2004-2-4 17:08:20 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
那样的东东有用吗？
自己作个图库。。。好像有人作过。。。cad图库里面好像也有
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

fjzdl
发表于 2004-2-5 09:40:36 | 显示全部楼层
去这里下载：
http://www.cemn.cn/jszy/drawing/drawing.jsp?style=gb_jgj_ldyls
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

yql369963
发表于 2004-2-10 23:45:19 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
很多国产软件里都有，如caxa！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

marry_01
发表于 2004-2-11 09:38:36 | 显示全部楼层
不知兄台做的是一个连续模，不过，步进距的定位，以及浮料器的定位没有说明，本产品有必要做成连续膜吗。就工件来说，我觉得做成一个复合膜就可以了。不知兄台怎么想。做成连续膜成本增加了一倍，不过样片的利用率提高了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

jxhaha
发表于 2004-2-13 14:12:31 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
8楼的小妹是在于俺说关于模具吗？——在俺的帖下回你了

1楼朋友，下面是俺收的LSP，不过俺用MDT，不用这，楼主试试

;;绘制螺栓“bolt.lsp”

    (defun dtr (a)
    (* pi (/ a 180.00))
     )

         (defun zoom_to ()
         (setq top (polar pt (dtr 45)   l ))
         (setq bot (polar pt (dtr 225) (/ l 2)))
         (command "zoom" "w" top bot )
         )

         (defun headface ()
         (setq  f (- d 0.025))
         (setq dist1 (/ (- head_dia f) 2))
         (setq pt27 (polar pt8 0 dist1))
         (setq pt28 (polar pt7 (dtr 180) dist1))
         (setq pt29 (polar pt9 0 dist1))
         (setq pt30 (polar pt10 (dtr 180) dist1))
         (command "line" pt29 pt27 "")
         (command "line" pt30 pt28 "")
         (setq pt31a (polar pt9 0 (/ DIST1 2)))
         (SETQ pt31 (polar pt31a (dtr 90) (float (/ head_thick 10))))
         (setq pt32a (polar pt2 (dtr 90) head_thick))
         (setq pt32 (polar pt32a (dtr 90) (float (/ head_thick 10))))
         (setq pt33a (polar pt30 0 (/ dist1 2)))
         (setq pt33 (polar pt33a (dtr 90) (float (/ head_thick 10))))
         (command "arc" pt29 pt31 pt9)
         (setq e10 (entlast))
         (command "arc" pt30 pt32 pt29)
         (setq e11 (entlast))
         (command "arc" pt10 pt33 pt30)
         (setq e11 (entlast))
         (command "erase" erase_ent "")
         (command "line" pt31 pt33 "")
         )

         (defun nutface ()
         (setq pt18 (polar pt14 0 dist1))
         (setq pt17 (polar pt15 0 dist1))
         (setq pt19 (polar pt13 pi dist1))
         (setq pt20 (polar pt12 pi dist1))
         (command "line" pt18 pt17 "")
         (command "line" pt19 pt20 "")
         (setq pt21a (polar pt15 0 (/ DIST1 2)))
         (SETQ pt21 (polar pt21a (dtr 270) (float (/ nut_thick 20))))
         (setq pt22 (polar pt11 (dtr 270) (float (/ nut_thick 10))))
         (setq pt23a (polar pt20 0 (/ dist1 2)))
         (setq pt23 (polar pt23a (dtr 270) (float (/ nut_thick 20))))
         (command "arc" pt20 pt23 pt12)
         (setq e6 (entlast))
         (command "arc" pt17 pt22 pt20)
         (setq e8 (entlast))
         (command "arc" pt15 pt21 pt17)
         (setq e7 (entlast))
         (command "explode" ent )
         (command "erase" pt11 "")
         (setq tpt8 (polar pt11 (dtr 180) (/ d 2)))
         (setq tpt9 (polar pt11 0 (/ d 2)))
         (command "trim" e6 e7 ""  tpt8 tpt9 "")
         (command "line" pt21 pt23 "")
         (setq dist2 (distance pt21 pt23))
         (setq picpt (polar pt21 0 (/ dist2 2)))
         (command "trim" e8 "" picpt "")
         )

         (defun chamfers ()
         (setq cpt1 (polar pt6 (dtr 90)(/ d 4)))
         (setq cpt2 (polar pt6 (dtr 0)(/ d 4)))
         (setq cpt3 (polar pt5 (dtr 180)(/ d 4)))
         (setq cpt4 (polar pt5 (dtr 90)(/ d 4)))
         (command "chamfer" "d" 0.06 0.06)
         (command "chamfer" cpt1 cpt2)
         (command "chamfer" cpt3 cpt4)
         )

         (defun trims ()
         (setq tpt1 (polar pt11 (dtr 180) (/ d 2)))
         (setq tpt2 (polar tpt1 (dtr 90) (/ nut_thick 2)))
         (setq tpt3 (polar pt11 0  (- halfdia 0.06) ))
         (setq tpt3a (polar tpt3 (dtr 90) (/ nut_thick 2)))
         (setq tpt4 (polar pt11 pi  (- halfdia 0.06) ))
         (setq tpt4a (polar tpt4 (dtr 90) (/ nut_thick 2)))
         (setq tpt5 (polar pt11 0 (/ d 2)))
         (setq tpt6 (polar tpt5 (dtr 90) (/ nut_thick 2)))
         (command "trim" ent "" tpt2 tpt3a tpt4a tpt6 "")
         )

         (defun hexagon ()
            (if (< l 6)
            (setq thread_len (+ (* 2 d) 0.25))
            (setq thread_len (+ (* 2 d) 0.5))
            )
            (if (> (* 2 d) l)
            (setq thread_len (* 1.5 d))
            )
         (setq head_dia (* 2 d))
         (setq head_thick (* 0.66667 d))
         (setq nut_thick (* 0.9 d))
         (setq halfdia (/ d 2))
         (setq p1 (polar pt 0 (- halfdia 0.06)))
         (setq p2 (polar p1 (dtr 90) thread_len))
         (setq p3 (polar p2 pi (- d 0.12)))
         (setq p4 (polar pt pi (- halfdia 0.06)))
         (setq pt2 (polar pt (dtr 90) l))
         (setq pt3 (polar pt2 0 (/ d 2)))
         (setq pt4 (polar pt2 pi (/ d 2)))
         (setq pt5 (polar pt 0 (/ d 2)))
         (setq pt6 (polar pt pi (/ d 2)))
         (setq pt7 (polar pt2 0 (/ head_dia 2)))
         (setq pt8 (polar pt2 pi (/ head_dia 2)))
         (setq pt9 (polar pt8 (dtr 90) head_thick))
         (setq pt10 (polar pt7 (dtr 90) head_thick))
         (command "line" pt3 pt4 "")
         (setq e (entlast))
         (command "line" pt4 pt6 "")
         (setq e1 (entlast))
         (command "line" pt6 pt5 "")
         (setq e3 (entlast))
         (command "line" pt5 pt3 "")
         (setq e4 (entlast))
         (chamfers)
         (setq thpt1 (polar pt6 (dtr 90) 0.06))
         (setq thpt2 (polar pt5 (dtr 90) 0.06))
         (setq b (cdr (assoc 2 (tblsearch "LAYER" "THREAD"))))
         (if (/= b "THREAD")
         (command "layer" "n" "thread" "")
         )
         (command "layer" "c" "red" "thread" "s" "thread" "")
         (command "pline" p1 p2 p3 p4 "c")
         (setq entit (entlast))
         (command "line" thpt1 thpt2 "")
         (setvar "clayer" "0")
         (setq pt11 (getpoint "\n选择螺母底部中心： "))
         (setq pt12 (polar pt11 0 (/ head_dia 2)))
         (setq pt13 (polar pt12 (dtr 90) nut_thick))
         (setq pt14 (polar pt13 pi head_dia))
         (setq pt15 (polar pt14 (dtr 270) nut_thick))
         (command "line" pt7 pt10 "")
         (command "line" pt10 pt9 "")
         (setq erase_ent(entlast))
         (command "line" pt9 pt8 "")
         (command "line" pt8 pt7 "" )
         (command "pline" pt12 pt13 pt14 pt15 "c")
         (setq ent (entlast))
         (setq pt16 (polar pt (dtr 90) (+ l (* 3 head_thick))))
         (command "circle" pt16 "d" (* 1.73 d) )
         (command "polygon" "6" pt16 "c" (/ (* 1.73 d) 2))
         )

         (defun hexagon1 ()
            (if (< l 6)
            (setq thread_len (+ (* 2 d) 0.25))
            (setq thread_len (+ (* 2 d) 0.5))
            )
            (if (> (* 2 d) l)
            (setq thread_len (* 1.5 d))
            )
         (setq head_dia (* 2 d))
         (setq head_thick (* 0.66667 d))
         (setq nut_thick (* 0.9 d))
         (setq halfdia (/ d 2))
         (setq p1 (polar pt 0 (- halfdia 0.06)))
         (setq p2 (polar p1 (dtr 90) thread_len))
         (setq p3 (polar p2 pi (- d 0.12)))
         (setq p4 (polar pt pi (- halfdia 0.06)))
         (setq pt2 (polar pt (dtr 90) l))
         (setq pt3 (polar pt2 0 (/ d 2)))
         (setq pt4 (polar pt2 pi (/ d 2)))
         (setq pt5 (polar pt 0 (/ d 2)))
         (setq pt6 (polar pt pi (/ d 2)))
         (setq pt7 (polar pt2 0 (/ head_dia 2)))
         (setq pt8 (polar pt2 pi (/ head_dia 2)))
         (setq pt9 (polar pt8 (dtr 90) head_thick))
         (setq pt10 (polar pt7 (dtr 90) head_thick))
         (command "line" pt3 pt4 "")
         (setq e (entlast))
         (command "line" pt4 pt6 "")
         (setq e1 (entlast))
         (command "line" pt6 pt5 "")
         (setq e3 (entlast))
         (command "line" pt5 pt3 "")
         (setq e4 (entlast))
         (chamfers)
         (setq pt12 (polar pt11 0 (/ head_dia 2)))
         (setq pt13 (polar pt12 (dtr 90) nut_thick))
         (setq pt14 (polar pt13 pi head_dia))
         (setq pt15 (polar pt14 (dtr 270) nut_thick))
         (setq thpt1 (polar pt6 (dtr 90) 0.06))
         (setq thpt2 (polar pt5 (dtr 90) 0.06))
         (command "line" pt7 pt10 "")
         (command "line" pt10 pt9 "")
         (setq erase_ent(entlast))
         (command "line" pt9 pt8 "")
         (command "line" pt8 pt7 "" )
         (setq b (cdr (assoc 2 (tblsearch "LAYER" "THREAD"))))
         (if (/= b "THREAD")
         (command "layer" "n" "thread" "")
         )
         (command "layer" "c" "red" "thread" "s" "thread" "")
         (command "pline" p1 p2 p3 p4 "c")
         (setq entit (entlast))
         (command "line" thpt1 thpt2 "")
         (setq dis (distance thpt1 thpt2))
         (setq cut (polar thpt1 0 (/ dis 2)))
         
         (setvar "clayer" "0")
         (setq pt16 (polar pt (dtr 90) (+ l (* 3 head_thick))))
         (command "circle" pt16 "d" (* 1.73 d) )
         (command "polygon" "6" pt16 "c" (/ (* 1.73 d) 2))
         )

        (defun C:bolt ()
        (setvar "cmdecho" 0)
        (setq snaps (getvar "snap"))
        (setq l (getdist "\n输入螺栓长度： "))
        (setq d (getdist "\n输入螺栓直径： "))
        (setq new_snap (/ d 2))
        (command "snap" new_snap)
        (setq pt (getpoint "\n输入螺栓中心点： "))
        (zoom_to)
        (initget 1 "Y y n N")
        (setq answer (getkword "\n需要螺母吗？(Y/N)： "))
        (if (= answer "Y")
        (progn
        (hexagon)
        (trims)
        (headface)
        (nutface)
        (command "zoom" "p")
        )
        (progn
        (hexagon1)
        (headface)
        (command "zoom" "p")
        )
      )
        )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ruokay
发表于 2004-2-14 13:53:18 | 显示全部楼层
最初由 amplly 发布
[B]没有小软件，我是用Autocad Mechaniacal 2004 DX，里面各个标准的标准件都有！ [/B]


mdt里的国标件的标准好像不对呀
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

yahong
发表于 2004-3-3 00:02:02 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
5楼说的对，www.cemn.cn中有上万种标准 ... 们国家的标准
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

guanhuaming
发表于 2004-3-5 19:05:52 | 显示全部楼层
上面的程序好像有点问题。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xxb8601
发表于 2004-3-7 17:31:05 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
楼主可用下面的LSP程序,在装配图中画螺栓,螺母


(defun from (/ ss)
      (setq ss (ssadd))
      (while ent
      (setq ent (entnext ent))
      (if (/= ent nil)
      (setq ss (ssadd ent ss)))
      )
      ss
)

(defun from ( e / ss )
       (setq ss (ssadd))
       (while e
          (setq e (entnext e))
          (if (/= e nil)
          (setq ss (ssadd e ss))
          )
         )
         ss
)
(defun s-b12( D pt0 / W R0 PT1 PT2 PT3 PT4 PT5 PT6 PT7 PT8 )
       (SETQ R0 (* 0.9 D))
       (SETQ W (* 0.8 D))
       (SETQ PT1 (LIST (CAR PT0) (+ (CADR PT0) R0)))
       (SETQ PT2 (LIST (- (CAR PT0) W) (CADR PT1)))
       (SETQ PT3 (LIST (CAR PT2) (- (CADR PT0) R0)))
       (SETQ PT4 (LIST (CAR PT0) (CADR PT3)))
       (SETQ PT5 (LIST (CAR PT0) (+ (CADR PT0) (* 0.5 R0))))
       (SETQ PT6 (LIST (CAR PT2) (CADR PT5)))
       (SETQ PT7 (LIST (CAR PT0) (- (CADR PT0) (* 0.5 R0))))
       (SETQ PT8 (LIST (CAR PT2) (CADR PT7)))
       (COMMAND "LINE" PT1 PT2 PT3 PT4 "C")
       (COMMAND "LINE" PT5 PT6 "")
       (COMMAND "LINE" PT7 PT8 "")
               
)
(defun s-b3( D PT0 /  W R0 PT1 PT2 PT3 PT4 )
       (SETQ R0 (* 1.0 D) w (* 0.15 d))
       (SETQ PT1 (LIST (CAR PT0) (+ (CADR PT0) R0)))
       (SETQ PT2 (LIST (- (CAR PT0) W) (CADR PT1)))
       (SETQ PT3 (LIST (CAR PT2) (- (CADR PT0) R0)))
       (SETQ PT4 (LIST (CAR PT0) (CADR PT3)))
       (COMMAND "LINE" PT1 PT2 PT3 PT4 "C")
       )
(defun s-b4( D PT0 / W R0 PT1 PT2 PT3 PT4 PT5 PT6 PT7 )
       (setq r0 (* 0.75 d) w (* 0.25 d))
       (setq pt1 (list (car pt0) (+ (cadr pt0) r0)))
       (SETQ PT2 (LIST (- (CAR PT0) W) (CADR PT1)))
       (SETQ PT3 (LIST (CAR PT2) (- (CADR PT0) R0)))
       (SETQ PT4 (LIST (CAR PT0) (CADR PT3)))
       (SETQ PT5 (LIST (CAR PT2) (- (CADR PT0) (/ w (sqrt 3)))))
       (SETQ PT6 (LIST (CAR PT0) (+ (CADR PT0) (/ w (sqrt 3)))))
       (SETQ PT7 (LIST (CAR PT2) (CADR PT0)))
       (COMMAND "LINE" PT1 PT2 "")
       (COMMAND "LINE" PT3 PT4 "")
       (COMMAND "LINE" PT0 PT5 "")
       (COMMAND "LINE" PT6 PT7 "")
  )
(defun s-b78910( d pt0 l ct /  c b pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10 pt11 pt12)
       (setq c (getvar "dimscale"))
       (if (= ct 7) (setq b (* 1.75 D)))
       (if (= ct 8) (progn (setq b (* 0.95 d)) (setq l (+ l c))))
       (if (or (= ct 9) (= ct 10)) (setq b l))
       (if (> b l) (setq b (* 0.8 l)))
       (SETQ PT1 (LIST (CAR PT0) (+ (CADR PT0) (* 0.5 d))))
       (SETQ PT2 (LIST (+ (CAR PT0) (- l c)) (CADR PT1)))
       (SETQ PT3 (LIST (CAR PT2) (- (CADR PT0) (* 0.5 d))))
       (SETQ PT4 (LIST (CAR PT0) (CADR PT3)))
       (SETQ PT5 (LIST (+ (CAR PT0) l) (- (CADR PT1) c)))
       (SETQ PT6 (LIST (CAR PT5) (+ (CADR PT3) c)))
       (SETQ PT7 (LIST (- (CAR PT5) B) (CADR PT1)))
       (SETQ PT8 (LIST (CAR PT7) (CADR PT3)))
       (SETQ PT9 (LIST (CAR PT7) (CADR PT5)))
       (SETQ PT10 (LIST (CAR PT2) (CADR PT5)))
       (SETQ PT11 (LIST (CAR PT7) (CADR PT6)))
       (SETQ PT12 (LIST (CAR PT2) (CADR PT6)))
       (COMMAND "LINE" PT1 PT2 "")
       (COMMAND "LINE" PT3 PT4 "")
       (if (/= ct 8) (command "line" pt2 pt5 pt6 pt3 "c"))
       (if (/= ct 10) (command "line" pt7 pt8 ""))
       (command "layer" "s" 3 "")
       (command "line" pt9 pt10 "")
       (command "line" pt11 pt12 "")
       (command "layer" "s" 0 "")
)
(defun c:lslj( / OS D L IP0 e IP1 IP2 IP3 IP4 C RA E L10 PT1 PT2)
      (setq c (getvar "dimscale"))
      (setq os (getvar "osmode"))
      (setvar "osmode" 0)
      (setq IP0 (getpoint "\nInsert point:"))
      (setq D (getreal "\nDiameter:"))
      (cond ((< (/ (* 0.5 d) c) 2.0) (progn
             (princ "007\nIt's too small to see clearly on the drawing paper")
             (princ ",drawing CANCELLED.") (princ)))
           (T (setq L (getdist "n\Connected length:"))
               (SETQ PT1 (LIST (- (CAR IP0) l d) (CADR iP0)))
               (SETQ PT2 (LIST (+ (CAR iP0) d d) (CADR iP0)))
               (SETQ IP1 (LIST (+ (CAR iP0) (* 0.15 d)) (cadr ip0)))
               (SETQ IP2 (LIST (+ (CAR IP1) (* 0.25 d)) (cadr ip0)))
               (SETQ IP3 (LIST (+ (CAR iP2) (* 0.80 d)) (cadr ip0)))
               (SETQ L10 (* 0.55 d))
               (setq ip4 (list (- (car ip0) l) (cadr ip0)))
               (setq e (entlast))
               (s-b12 d ip4)(s-b78910 d ip4 l 8)(s-b3 d ip1)(s-b4 d ip2)(s-b12 d ip3)(s-b78910 d ip3 l10 10)
               (command "layer" "s" 1 "")
               (command "line" pt1 pt2 "")
               (command "layer" "S" 0 "")
               (setq ra (getreal "n\Rotation angle:"))
               (if (/= ra 0) (command "rotate" (from e) "" ip0 ra))
               (setvar "cmdecho" 1)
               (setvar "osmode" os)
           )
         )
   )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cdp
发表于 2004-3-8 10:40:20 | 显示全部楼层
*-*4 可以直接造型，但是，除非特写，在装配图上不要用带螺纹的模型；这螺栓占用2.3M字节！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

linxiangdong
发表于 2004-5-12 20:01:59 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
谢谢。
这个论坛非常好。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

stevenzoe
发表于 2004-5-12 20:11:18 | 显示全部楼层
其实CAD2002本身就有公制螺栓图块，CAXA也有，只是太麻烦。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zhaoyan029
发表于 2004-5-14 10:58:12 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
请问15楼楼主的朋友：
你的论谈下面的虚线下面的：
我是菜鸟，我怕谁？
还有下面的图是怎么样弄上面的？
能教一下吗？

谢谢！！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-18 15:59 , Processed in 0.653417 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表