AutoCAD裡面如何能夠畫出螺旋線

時間 2021-10-15 00:23:17

1樓:匿名使用者

這要先畫出作為螺旋槽的拉伸路徑的螺旋線,然後在垂直於螺旋線端點的平面上根據螺旋槽的半徑畫出一個圓,建立面域後沿路徑進行拉伸,最後用差集命令去掉這條螺旋線,螺旋槽即可成形。

2樓:匿名使用者

柱座標輸入方式:“ r<α,z ”。r——輸入點到z軸的距離。

在這裡就是螺旋線的半徑;<α——座標點在xy平面上的投影與x軸之間的夾角。在這裡可以是270/n×i(i=0,1,2,……),n——等分數,該值越大,畫出的螺旋線越光順。z——座標點與xy平面的距離,也就是該點的z座標值。

在這裡z軸應與你那零件的軸線重合。 &e n/a#j#p7t3c在autocad中畫螺旋線 ,唯一的線型就是三維多段線。2v!

a9f*b8^#t www.askcad.com如果你用的是2007版,裡邊就有畫螺旋線的命令,用起來應該方便多了。3z

3樓:匿名使用者

.先畫出一個與螺旋線的投影大小相同的圓

2.用不同於圓的顏色,過圓心畫相互垂直的線段與圓相交於1、2、3、4點

3,轉到西南軸測圖,更改座標系,使圓處於xoz平面,過1、2、3、4點分別作圓平面的垂線長為要做螺旋線的節距。

4. 在四條線段上畫等分點,等分距離為節距的1/4.為便於作圖,現在可以把四條線段刪除,只留下等分點。

5.用剪下和畫圓命令把圓分成相接的兩半可以用不同顏色區分。

6.用al命令對兩半圓根據螺旋方向分別進行與等分點對齊。

注意,只能用兩點(先半圓端點和其中點,然後中點和另一端點)逐漸進行並根據命令提示選擇縮放對齊方式。

7.框選所做的兩段螺旋線,用複製命令,點取螺旋的下端為基點,根據所需長度進行上端點定位複製。

最後別忘了刪除多餘的線條哦。

4樓:匿名使用者

1、開啟cad後,找工具/autolisp/visual lisp編輯器,開啟.點新建檔案

2、然後輸入

(defun c:luoxuan

(/)(setq b1 (getpoint "請指定螺旋線基點: "))

(setq r (getreal "請輸入螺紋平均半徑: "))

(setq disp (getreal "請輸入螺紋節距: "))

(setq n (getint "請輸入每圈細化段數: "))

(setq delta (/ (* 2.0 pi) n))

(setq j (/ disp n))

(setq bb (caddr b1))

(setq ang 0)

(setq jj 0)

(command "ucs" "o" b1)

(command "3dpoly" (list r 0 0))

(repeat n

(setq jj(+ jj 1)

(setq ang(+ delta ang))

(setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ 0 (* j jj))))

(command pt2)

)(command "")

)存檔為luoxuan.lsp,關閉編輯器

3、要用時,點工具/autolisp/載入,找到luoxuan.lsp檔案將其載入,關閉對話方塊.在命令列輸入luoxuan回車,就開始了螺旋線的繪製

autocad2004中如何畫螺旋線

5樓:匿名使用者

先確定螺旋形線直徑,螺旋升角,假設直徑50,升角20度,先畫一個直徑50的圓,畫中心線剪下,留半圓,水平或垂直都行,再映象半個圓,現在又兩個半圓,兩個半圓取不同顏色,如果水平剪下,現在有上下兩個不同顏色的半圓,使用,ucs繞y周旋轉90度,再選中兩個半圓,旋轉90度,兩個半圓視覺看是條直線,ucs繞y周旋轉負90度,凍結一個半圓的圖層,旋轉一個半圓10度,旋轉軸在左側或右側的象限點,把凍結的圖層開啟,旋轉另一個半圓,負10度,旋轉軸在同一個象限點,就完成了,旋轉或轉為西南檢視就可以看見螺旋線了。

cad螺旋線怎麼畫

6樓:寒流

繪圖裡面有個螺旋線命令,要是上下一樣的就輸入一樣的直徑,不一樣的就輸入兩種直徑後再輸入高度

7樓:龍——珠——改

你輸入helix回車,就可以執行螺旋線了

8樓:今晨不再

見下圖:

cad可用層來設定粗實線和細實線,也可以在列印時按不同顏色區分不同的粗細(根據列印樣式表)。

9樓:匿名使用者

helix命令,按下方提示畫相應螺旋線。

10樓:匿名使用者

樣條曲線或者雲朵曲線試試

cad螺旋線如何畫?

11樓:匿名使用者

先畫出一個與螺旋線的投影大小相同的圓

2.用不同於圓的顏色,過圓心畫相互垂直的線段與圓相交於1、2、3、4點

3,轉到西南軸測圖,更改座標系,使圓處於xoz平面,過1、2、3、4點分別作圓平面的垂線長為要做螺旋線的節距。

4. 在四條線段上畫等分點,等分距離為節距的1/4.為便於作圖,現在可以把四條線段刪除,只留下等分點。

5.用剪下和畫圓命令把圓分成相接的兩半可以用不同顏色區分。

6.用al命令對兩半圓根據螺旋方向分別進行與等分點對齊。

注意,只能用兩點(先半圓端點和其中點,然後中點和另一端點)逐漸進行並根據命令提示選擇縮放對齊方式。

7.框選所做的兩段螺旋線,用複製命令,點取螺旋的下端為基點,根據所需長度進行上端點定位複製。

最後別忘了刪除多餘的線條哦。

12樓:竇福汗奕葉

這個呢,我是學過,不過也只能給你一點意見啊,你應該學過cad吧,你可以嘗試那種畫樓梯的方法來畫,這個你,應該知道吧,要是不可以的話,就用那個旋轉曲面,應該可以做得到,要不然的話,就用先畫一根螺旋線,再由[視窗]--[三維操作]--[三維旋轉]圍著你畫得那根線就可以畫出來了,你自己慢慢試吧.

13樓:匿名使用者

在2007版本以上就有了

在autocad中怎樣畫“阿基米德螺旋線”? 賞分400分

14樓:匿名使用者

在autocad裡按alt+f11

開啟vba視窗,把下面的程式全粘進去, 引數自己設

在autocad裡執行巨集,或在vba視窗裡點那個執行的三角號

const pi as double = 3.1415926

const angstart as double = 0 '起始角度

const angend as double = 720 '終止角度

const npoints as long = 4000 '總計點數

const a as double = 1

'極座標轉換函式

function coordconv(byref x as double, byref y as double, byval r as double, byval angle as double)

x = r * sin(angle * pi / 180)

y = r * cos(angle * pi / 180)

end function

'主程式

sub main()

dim points(npoints * 3 + 2) as double

dim n as long

dim b as boolean

dim x as double

dim y as double

dim r as double

dim ang as double

n = 0

for ang = angstart to angend step (angend - angstart) / npoints

'曲線的極座標公式 r=a*θ

r = a * (ang / 2 / pi)

b = coordconv(x, y, r, ang)

points(n) = x

points(n + 1) = y

points(n + 2) = 0

n = n + 3

next ang

'畫多線段

thisdrawing.modelspace.addpolyline (points)

end sub

15樓:匿名使用者

繪圖裡有螺旋工具啊,怎麼還出來這麼多方法?

16樓:匿名使用者

新建一個文字檔案 把下面的**複製到檔案 儲存為 .lsp

; 3dspiral.lsp

(defun myerror (s)

(if (/= s "function cancelled")

(princ (strcat "\nerror: " s))

)(setvar "cmdecho" ocmd)

(setvar "blipmode" oblp)

(setq *error* olderr)

(princ)

)(defun cspiral (ntimes bpoint hfac lppass strad vfac

/ ang dist tp ainc dhinc dvinc circle dv)

(setvar "blipmode" 0)

(setvar "cmdecho" 0)

(setq circle (* 3.141596235 2))

(setq ainc (/ circle lppass))

(setq dhinc (/ hfac lppass))

(if vfac (setq dvinc (/ vfac lppass)))

(setq ang 0.0)

(if vfac

(setq dist strad dv 0.0)

(setq dist 0.0)

)(if vfac

(command "3dpoly")

(command "mline" bpoint)

)(repeat ntimes

(repeat lppass

(setq tp (polar bpoint (setq ang (+ ang ainc))

(setq dist (+ dist dhinc))))

(if vfac

(setq tp (list (car tp) (cadr tp) (+ dv (caddr tp)))

dv (+ dv dvinc)))

(command tp) ))

(command "")

(princ)

) (defun c:spiral (/ olderr ocmd oblp nt bp cf lp)

;;;;(setq olderr *error*

;;;; *error* myerror)

(setq ocmd (getvar "cmdecho"))

(setq oblp (getvar "blipmode"))

(setvar "cmdecho" 0)

(initget 1) ; bp must not be null

(setq bp (getpoint "\ncenter point: "))

(initget 7) ; nt must not be zero, neg, or null

(setq nt (getint "\nnumber of rotations: "))

(initget 3) ; cf must not be zero, or null

(setq cf (getdist "\ngrowth per rotation: "))

(initget 6) ; lp must not be zero or neg

(setq lp (getint "\npoints per rotation <30>: "))

(cond ((null lp) (setq lp 30)))

(cspiral nt bp cf lp nil nil)

(setvar "cmdecho" ocmd)

(setvar "blipmode" oblp)

(setq *error* olderr) ; restore old *error* handler

(princ)

) ;;;

;;; interactive spiral generation

;;;(defun c:3dspiral (/ olderr ocmd oblp nt bp hg vg sr lp)

;;;;(setq olderr *error*

;;;; *error* myerror)

(setq ocmd (getvar "cmdecho"))

(setq oblp (getvar "blipmode"))

(setvar "cmdecho" 0)

(initget 1) ; bp must not be null

(setq bp (getpoint "\ncenter point: "))

(initget 7) ; nt must not be zero, neg, or null

(setq nt (getint "\nnumber of rotations: "))

(initget 7) ; sr must not be zero, neg, or null

(setq sr (getdist bp "\nstarting radius: "))

(initget 1) ; cf must not be zero, or null

(setq hg (getdist "\nhorizontal growth per rotation: "))

(initget 3) ; cf must not be zero, or null

(setq vg (getdist "\nvertical growth per rotation: "))

(initget 6) ; lp must not be zero or neg

(setq lp (getint "\npoints per rotation <30>: "))

(cond ((null lp) (setq lp 30)))

(cspiral nt bp hg lp sr vg)

(setvar "cmdecho" ocmd)

(setvar "blipmode" oblp)

(setq *error* olderr) ; restore old *error* handler

(princ)

) (princ "\n\tc:spiral and c:3dspiral loaded. ")

(princ)

在cad 下用命令 load 載入你儲存的檔案 後

使用命令 3dspiralok

如何能果斷離婚,如何能夠離婚?

可以選擇淨身出戶 請律師 協議離婚,這三種方式都很快,既果斷又不拖泥帶水。對於第一種淨身出戶我想大部分都不願意,因為中間涉及到許多的問題,比如孩子的撫養問題,還有自己在這個家庭當中付出的那麼多,到頭來自己什麼都沒有拿到,心裡面多多少少會不甘。對於請律師來說,相信大部分人都會這樣選擇,雖然相比較第一種...

如何能夠提公升英語

多看外文 和電影,擴大閱讀量。我練得是美式發音,我還經常去英語角隨便暢談。大膽找老外聊天,多參加英語活動,如英語口語競賽,多教別人學英語。我做了半年的家教 獲益頗深,我希望能夠給提高口語朋友一些幫助,以借助我的綿薄之力。苦苦學英語,才能取得好方法。沒有時間的限制,隨時隨地都可以上課,不用擔心遲到或缺...

如何能夠快速適應陌生的環境,如何能夠快速適應乙個陌生的環境?

其實每個人都有這樣的過程,來到乙個新的工作環境,面對陌生的同事 陌生的工作總是覺得一切都不不是那麼的順利,尤其是看到別人都忙忙碌碌的,自己彷彿是個局外人,無法溶入這個環境中去。不過,要知道人與人的交往不可能是一下子就很熟悉的,大家都要有乙個彼此認識了解的過程,對於你的同事,你可以先和那些比較開朗的人...