首先,切換到西南等軸檢視,以0,0,0點為中心點,畫個正6邊形,然後,執行拉公升
命令: _extrude
當前線框密度: isolines=隨便
選擇物件: 找到 1 個(選畫的6邊形)
選擇物件:確認
指定拉伸高度或 [路徑(p)]: 20 (一般為6邊行內接圓半徑1/2,自己隨便)
指定拉伸的傾斜角度 <0>:
下一步以0,0,0為圓心畫半徑為20的圓,執行拉公升高度160,命令如下
命令: _circle 指定圓的圓心或 [三點(3p)/兩點(2p)/相切、相切、半徑(t)]: 0,0,0
指定圓的半徑或 [直徑(d)]: 20
命令: _extrude
當前線框密度: isolines=4
選擇物件: 找到 1 個
選擇物件:
指定拉伸高度或 [路徑(p)]: 160
指定拉伸的傾斜角度 <0>:
然後並集兩個圖形
命令: _union
選擇物件: 找到 1 個
選擇物件: 找到 1 個，總計 2 個
便於觀察過程,我使用2個視窗,乙個主視,乙個西南
現在在主視視窗進行
畫輔助線,命令如下
命令: _line 指定第一點: 0,40
指定下一點或 [放棄(u)]: 0,200
再畫2條輔助線
命令: _line 指定第一點: 0,40
指定下一點或 [放棄(u)]: -20,40
複製位移
命令: cp copy 找到 1 個
指定基點或位移: 指定位移的第二點或 : 6.5(沿中間的輔助線向上向下都可以拉)
再畫正多邊形,3邊,以兩條短的輔助線的端點為3邊行的一邊
命令: _polygon 輸入邊的數目 <3>:
指定正多邊形的中心點或 [邊(e)]: e 指定邊的第乙個端點: -20,33
指定邊的第二個端點: -20,40
然後旋轉剛才所畫的圖形,不過,這不是旋轉為實體的那種,看清楚
命令: _rotate
ucs 當前的正角方向: angdir=逆時針 angbase=0
選擇物件: 找到 1 個
選擇物件: 找到 1 個，總計 2 個
選擇物件: 找到 1 個，總計 3 個
選擇物件: 找到 1 個，總計 4 個
選擇物件:
指定基點:(以長輔助線底端為基點)
指定旋轉角度或 [參照(r)]: 3 (度數影響螺紋的斜度)
現在選中畫好的正3邊形做旋轉為實體,以長輔助線為旋轉物件,如下:
命令: _revolve
當前線框密度: isolines=4
選擇物件: 找到 1 個
選擇物件:
指定旋轉軸的起點或
定義軸依照 [物件(o)/x 軸(x)/y 軸(y)]: o
選擇物件:
指定旋轉角度 <360>:
現在對旋轉好的圖形進行三維陣列,在下拉列表》修改》三維操作 中,如下:
命令: _3darray
選擇物件: 找到 1 個，總計 1 個
選擇物件:
輸入陣列型別 [矩形(r)/環形(p)] :r
輸入行數 (—) <1>: 18 (說明:由於要和原來的圖配合,我們只要以y軸方向陣列即可)
輸入列數 (|||) <1>:
輸入層數 (…) <1>:
指定行間距 (—): 7 (這是每個螺紋和其空隙的距離)
陣列完畢,刪除輔助線,然後選中所有圖形,進行並集,著色後即可.[/size]
如果想做的非常好,就要使用lisp程式了
CAD lisp 文字避讓 CAD 原創外掛程式
為什麼人家改圖也是相當輕鬆？為什麼同樣是圖紙工作，人家可以按時下班，你卻要一直加班到深夜，到最後還是沒能夠完成 如果不找出解決辦法，那麼這些困擾會一直伴隨你，總有一天，你可能會對你的行業失去信心.改行，已然是不可能了！那就試著改變自己，這邊給你兩個方面的提公升 1 cad技巧方面的提公升，比如動態塊...
cad lisp 二次拋物線 cad畫二次拋物線
cad 畫二次拋物線如 y ax bx c 第一步 確認cad 中有vba module 第二步 開啟cad alt f11 開啟vba 視窗，新增模組，複製以下 sub pwx 定義幾個點 dim pnto 2 as double dim pnta 2 as double dim pntb 2 a...
cad lisp 二次拋物線 用Cad畫二次拋物線
cad 畫二次拋物線如 y ax2 bx c 第一步確認 cad中有 vbamodule 即cad 中 工具 巨集 visual basic 編輯器 點thisdrawing 第二步開啟 cad alt f11 開啟vba 視窗新增模組 複製以下 sub pwx 定義幾個點 dim pnto 2 a...