CAD螺旋画法

qq123820859

这个用CAD怎么画    希望高手能教我下
有小程序也可以 谢谢好心人

lvdeping

07以上的CAD画螺旋非常简单，只要用“螺旋”、“扫掠”二个命令便可绘制。
   1.选取“螺旋”命令，根据你的螺旋导程、圈数、高度生成螺旋线.
   2.根据你的螺旋截面形状(三角、梯形、方形等，你的附图看上去象“绞龙”，是长方形的)画一个域面。
   3.选择“扫掠”命令，使域面沿螺旋线扫掠便可以了。

liu351170

以前在学校学过 现在全忘记了

wangjing19

07以上的CAD画螺旋非常简单，只要用“螺旋”、“扫掠”二个命令便可绘制。
   1.选取“螺旋”命令，根据你 ...
lvdeping 发表于 2010-7-20 18:27

                               
登录/注册后可看大图

    不好意思啊，我是新手。可以说得更详细点吗？我不太会用扫掠这个命令。

lvdeping

回楼主：我的文字表达能力较差，明天如果有时间的话给你做一个原文件，这样你一看就能知道是怎么样绘制的了。

吃苦的人吃香

很好的螺旋

qq123820859

嘿嘿  谢谢  其实我也没明白  我按你的步骤试了  没做出来     后来我被逼的用直线和圆画的  看着是那回事了

qq123820859

这是我找的一个程序  你要明白给看下  我弄了但在CAD里没有啊
我说的就是制作一个小程式LISP，按近似等分数将各点坐标用公式表示，在CAD中加载这个小程式，然后输入螺距、外径、内径等参数，利用数据化绘图，以下是我多年前编写的一个程式，语言不够简洁，但可用，你可以用记事本，将以下文字复制到记事本，保存,后缀名用.lsp 然后在CAD中加载（appload命令）该文件。试一下吧，我当时也是在制作螺旋时厌其烦才搞了这么一个小程式，螺旋叶片的展开图同时画出（近视画法），绘图时会提示等分数，最好取24、48、96……等，数越大越精确。
(defun c:lxyp()   ;;;本程序将绘制出螺旋叶片的内外径在螺管上的一个节距的投影图.
  (setq os(getvar"osmode")) ;;保存OSNAP系统变量值。
  (setvar"osmode"0)        ;;关闭捕捉功能
  (setq cen (getpoint"\输入展开图中心："))
  (setq pp(getpoint"\n输入绘图中心:"))
  (setq dd (getdist"\n请输入螺旋大径："))
  (setq dd1 (getdist"\n请输入螺旋小径："))
  (setq tt(getdist"\n请输入螺旋节距:"))
  (setq n (getdist"\n请输入等分数："))
  (setq rr (/ dd 2.0))    ;;;计算螺旋的外半径
  (setq rr1 (/ dd1 2.0))  ;;;计算螺旋的内半径
  (setq tt1 (/ tt n))
  (setq pp1 (list (car pp) (cadr pp)))
  (setq p1 (list (car pp) (cadr pp)))
  (setq inc (/ (* pi 2)  n)) ;;;计算等分角度。
  (setq pa (polar pp 0 rr1))
  (setq pb (polar pa (/ pi 2.0) tt))
  (setq pc (polar pp pi  rr1))
  (setq pd (polar pc (/ pi 2.0) tt))
  (setq a 0)
  (while (< a ( + 1 n));;;循环语句连续绘制曲线。
  (setq p0 (list (+ (car pp) (* (cos(* a inc)) rr)) (+ (cadr pp) (* tt1 a))))
  (setq pp0 (list (+ (car pp) (* (cos( * a inc)) rr1)) (+ (cadr pp) (* tt1 a))))
  (command "line"p1 p0 "")
  (command "line" pp1 pp0 "")
  (setq p1 (list (car p0) (cadr p0)))    ;;;重新指定初值重复绘制线段。
  (setq pp1 (list (car pp0) (cadr pp0)))
  (setq a (+ 1  a )))
  (command "line" pa pb"")  ;;;绘制螺管素线。
  (command "line" pc pd"") ;;;绘制螺管素线。
  (SETQ Paa (polar pp (/ PI 2.0) tt))
  (setq la(* dd1 pi))
  (setq lb(* dd pi))
  (setq a (sqrt(+(* tt tt) (* la la))))
  (setq b (sqrt(+(* tt tt) (* lb lb))))
  (setq c(/ (- dd dd1) 2))
  (setq rr1(/ (* a c) (- b a)))
  (setq rr2(+ rr1 c))
  (command "circle"cen rr1)
  (command "circle" cen rr2)
   (command "LAYER" "S""0""");;;根据你所设的图层，“将0改为你所需的中心线表示层。
  (command "line" pp paa"")

  (setvar "osmode"os)       ;;;恢复保存过的系统变量osnap的值。
(princ)         ;;;退出程序。
  )

[ 本帖最后由 fgq86233246 于 2009-8-31 08:46 编辑 ]
Snap1.jpg (6.92 KB)

下载次数:7

2009-8-31 08:46

qq123820859

他这个就可以画成这样的[img][/img]

吃苦的人吃香

qq123820859 楼主做得太麻烦，有扫掠何必不用

wsz506@163.com

用“螺旋”、“扫掠”二个命令

qq123820859

我太无地自容了  我不是科班出身啊  连高中都没上过   以前是用图板的   别再笑了

lvdeping

回5楼及楼主：我发了一“螺旋的画法”新帖，你们可去看一下，有不明白的我们再来讨论。