求助~~~~~~~~~~~~
yuanban24
yuanban24 Lv.5
2012年09月20日 10:22:49
只看楼主

用CAD画90°和45°弯头怎么画啊~~~~~~大神们教教我吧

用CAD画90°和45°弯头怎么画啊~~~~~~大神们教教我吧
免费打赏
seaking1988
2012年09月20日 14:02:09
2楼
其他图纸上拷贝一个~
其实我也没划过
回复
zgssd
2012年09月20日 14:51:49
3楼
画平面图还是画三维图?
回复
yuanban24
2012年09月24日 09:52:15
4楼
平面的~~~~~都不会!
回复
fcut2004
2012年09月29日 11:47:21
5楼
学下lisp吧,很快就搞定了 ,或者用插件。下面的代码可供参考,我刚学的时候写的,还很多问题,变量和捕捉参数都没有去设置,楼主经常要画图的话就学学lisp。
(defun c:57 ()
(setq p1 (getpoint "\n梁内边左下端点为起点: "))
(setq p2 (getpoint p1 "\n终点: "))
(setq p1 (polar p1 (+ (* 1.0 pi) ang1 ) 100));定义钢筋起点
(setq p2 (polar p2 ang1 100));定义钢筋终点
(setq dist1 (distance p1 p2));读取p1 p2间距
(setq ang1 (angle p1 p2)) ;读取直线的角度间距
(setq p3 (polar p1 (+ (* 0.25 pi) ang1) 200));定义斜钩起点
(setq p4 (polar p2 (+ (* 0.75 pi) ang1) 200));定义斜钩终点
(command "pline" p3 p1 p2 p4 "")
(setq tempPt (list (/ (+ (car p1) (car p2)) 2) (/ (+ (cadr p1) (cadr p2)) 2)))
(setq txtp (polar tempPt (+ (* 0.5 pi) ang1) 100))
(setq gangjin "净距 ")
(command "text" "c" txtp "250" (* ang1 (/ 180 pi)) (strcat gangjin (rtos dist1 2 0)) ""); 显示净距
(entdel ent)
(princ)
)



(defun C:56 ()
;(command "osnap" "ins")
;(command "osnap" "CEN,END,MID,NOD,ins")
(setq p1 (getpoint "\n起点: "))
(setq p2 (getpoint p1 "\n终点: "))
(setq ang1 (angle p1 p2))
(setq p3 (polar p1 (+ (* 1.0 pi) ang1) 25))
(setq p4 (polar p3 (+ (* 0.5 pi) ang1) 150))
(setq p5 (polar p4 ang1 150))
(setq p6 (polar p2 ang1 25))
(setq p7 (polar p6 (+ (* 0.5 pi) ang1) 150))
(setq p8 (polar p7 (+ (* 1.0 pi) ang1) 150))
(setq tempPt (list (/ (+ (car p1) (car p2)) 2) (/ (+ (cadr p1) (cadr p2)) 2)))
(setq txtp (polar tempPt (+ (* 0.5 pi) ang1) 100))
(setq gangjin "净距 ")
(command "text" "c" txtp "250" (* ang1 (/ 180 pi)) (strcat gangjin (rtos dist1 2 0)) ""); 显示净距
(command "PLINE" p5 p4 "a" p3 "l" p6 "a" p7 "l" p8 "")
;(command "PLINE" p5 p4 "")
;(command "layer" "set" "0" "")
;(command "osnap" "INS,END,MID,INT,EXT,APP,CEN,NOD,QUA,PER,TAN,NEA,PAR")
)
; 水平竖直通长带弯钩底钢筋
回复

相关推荐

APP内打开