返回首页

泵体叶轮用CAD二维怎么画?

268 2023-04-25 13:12 admin

一、泵体叶轮用CAD二维怎么画?

把下面这段程序放入autocad2004的安装的目录下面的support目录里面的acad2004doc.lsp文件里面(用记事本打开),以后你并戚在cad里面的绝兄陵command:输入:spring ,就可以绘制弹簧了!

;;;-----------弹簧的程序----------  

(defun c:spring(/)  尘晌

(setq p1(getpoint 请指定螺旋线基点:))  

(setq r(getreal 请输入弹簧平均半径:))  

(setq d0(getreal 请输入弹簧丝直径:))  

(setq disp(getreal 请输入弹簧节距:))  

(setq n0(getint 请输入弹簧工作圈数:))  

(setq n(getint 请输入每圈细化段数(16/20/24/28/32/36/40/48/52/56/60/100):))  

(setq n1(* 1.25 n)) ;支撑圈细化段数  

(setq n1(fix n1))  

(setq n2(* n0 n)) ;工作圈细化段数  

(setq delta(/ (* 2.0 pi) n)) ;单位转角  

(setq j(/ disp n)) ;工作圈轴向位移量  

(setq j0(/ d0 n)) ;支撑圈轴向位移量  

(setq bb(caddr p1))  

(setq ang 0)  

(setq jj 0)  

(command ucs o p1)  

(setq pt1(list r 0 0))  

(command 3dpoly pt1)  

(repeat n1 ;绘制下支撑圈  

(setq jj(+ jj 1))  

(setq ang(+ delta ang))  

(setq pt(list (* r (cos ang)) (* r (sin ang)) (* j0 jj)))  

(command pt)  

)  

(setq p2(list 0 0 (* j0 jj)))  

(setq g1(* j0 jj)) ;下支撑圈高度  

(setq jj 0)  

(repeat n2 ;绘制工作圈  

(setq jj(+ jj 1))  

(setq ang(+ delta ang))  

(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 (* j jj))))  

(command pt)  

)  

(setq p3(list 0 0 (* j jj)))  

(setq g2(* j jj)) ;工作圈高度  

(setq jj 0)  

(repeat n1 ;绘制上支撑圈  

(setq jj(+ jj 1))  

(setq ang(+ delta ang))  

(setq pt(list (* r (cos ang)) (* r (sin ang)) (+ g1 g2 (* j0 jj))))  

(command pt)  

)  

(setq g3(* j0 jj)) ;上支撑圈高度  

(command )  

(setq e1(entlast))  

(command ucs x ) ;拉伸弹簧  

(command circle pt1 (/ d0 2))  

(setq e2(entlast))  

(command extrude e2 p e1)  

(setq e3(entlast))  

(setq pt2(list r (/ d0 4) 0)) ;磨平  

(setq py(+ g1 g2 g3 (- 0 (/ d0 4))))  

(setq pt3(list (- 0 r) py 0))  

(command slice e3 zx pt2 pt3)  

(command slice e3 zx pt3 pt2)  

(command ucs w)  

 

)  

;;;---------end----------弹簧程序结束!

先画圆,在画里面的线,很简单的。

二、cad图纸内部有弹簧的要怎么表示弹簧,要用剖面图吗

用剖面图可以清楚地反映弹簧的安装状况,可以局部剖或半剖图。

三、CAD中的拉伸怎么用呢?

命令S吗?你先画个矩形,然后命令S,从右往左框选矩形的一半,矩形显示为虚线的时候,再敲下空格,接着随便在旁边点一下鼠标,再拖动。

四、CAD如何拉伸

具体的图形拉伸方式不同,拿矩形作为例子吧:同样是整体拉高而不变宽方式:鼠标采用从又向左的方式框选上左右三条直线——输入指令“S”——选择拉伸到的点或者输入距离。即可

五、CAD中如何做拉伸!

拉伸操作如下:

    输入拉伸命令,快捷键S  

  拉伸与选择窗口或多边形交叉的对象。

将拉伸窗交窗口部分包围的对象。将移动(而不是拉伸)完全包含在窗交窗口中的对象或单独选定的对象。某些对象类型(例如圆、椭圆和块)无法拉伸。

    将显示以下提示:

 选择对象

    指定对象中要拉伸的部分。使用“圈交”选项或交叉对象选择方法。完成选择后,按 Enter 键。

     STRETCH 仅移动位于窗交选择内的顶点和端点,不更改那些位于窗交选择外的顶点和端点。STRETCH 不修改三维实体、多段线宽度、切向或者曲线拟合的信息。

    基点

      指定基点,将计算自该基点的拉伸的偏移。此基点可以位于拉伸的区域的外部。

   第二点

     指定第二个点,该点定义拉伸的距离和方向。从基点到此点的距离和方向将定义对象的选定部分拉伸的距离和方向。

  使用第一个点作为位移

   指定拉伸距离和方向将基于从图形中的 0,0,0 坐标到指定基点的距离和方向。

   位移

   指定拉伸的相对距离和方向。

     若要基于从当前位置的相对距离设置位移,请以 X,Y,Z 格式输入距离。例如,输入 5,4,0 可将选择拉伸到距离原点 5 个单位(沿 X 轴)和 4 个单位(沿 Y 轴)的点。

若要基于图形中相对于 0,0,0 坐标的距离和方向设置位移,请单击绘图区域中的某个位置。例如,单击 1,2,0 处的点以将选择拉伸到距离其当前位置 1 个单位(沿 X 轴)和 2 个单位(沿 Y 轴)的点。

    注意:

  1.采用窗口方式来选取对象,即从右往左的交叉窗口(框选框为虚线绿色的那个,左往右是蓝色实线)

   2.被局部选中的对象才能被拉伸或缩放,如果整个对象(如整条直线)被框中了,那该对象只能移动,相当于“MOVE”。

    3.只能拉伸直线、圆弧、椭圆弧、多段线、射线、样条曲线、标注等对象,对于圆和图块不能拉伸。矩形的拉伸就相当于拉伸两条长(宽)边,被框中的一条宽(长)边平移。