国产精品乱码一区-性开放网站-少妇又紧又爽视频-西西大胆午夜人体视频-国产极品一区-欧美成人tv-四虎av在线-国产无遮挡无码视频免费软件-中文字幕亚洲乱码熟女一区二区-日产精品一区二区三区在线观看-亚洲国产亚综合在线区-五月婷婷综合色-亚洲日本视频在线观看-97精品人人妻人人-久久久久久一区二区三区四区别墅-www.免费av-波多野结衣绝顶大高潮-日本在线a一区视频高清视频-强美女免费网站在线视频-亚洲永久免费

機(jī)械社區(qū)

標(biāo)題: 用CAD怎么精確畫拋物線 [打印本頁(yè)]

作者: hyj_9766 時(shí)間: 2008-12-27 10:15
標(biāo)題: 用CAD怎么精確畫拋物線
向大家請(qǐng)教啦

作者: liang2039 時(shí)間: 2008-12-27 12:20
標(biāo)題: 回復(fù) 1# hyj_9766 的帖子
很困難的，也沒(méi)什么必要。如果覺(jué)得cad學(xué)的差不多了就學(xué)習(xí)sw，ug，proe，他們畫起來(lái)很方便的。如果實(shí)在想畫的話，可以學(xué)習(xí)一下autolisp語(yǔ)言，通過(guò)描點(diǎn)連線畫出來(lái)

作者: hyj_9766 時(shí)間: 2008-12-27 13:02
標(biāo)題: 回復(fù) 2# liang2039 的帖子
我的圖形需要，但只學(xué)了CAD，之前我用作點(diǎn)法做的，在激光切割后有棱角，不影響使用，我想是不是有更好的辦法，再去學(xué)其他應(yīng)用軟件，我這年齡有點(diǎn)不適應(yīng)了

作者: 機(jī)械小手 時(shí)間: 2008-12-27 22:32
標(biāo)題: 回復(fù) 2# liang2039 的帖子
autolisp語(yǔ)言是什么？是一個(gè)CAD的加載程序嗎？是不是掌握了這個(gè)語(yǔ)言后，可以把畫都畫成CAD圖啊

作者: liang2039 時(shí)間: 2008-12-29 21:05
標(biāo)題: 回復(fù) 3# hyj_9766 的帖子
其實(shí)編程做法也是描點(diǎn)連線做得，只不過(guò)苗的點(diǎn)比手繪得多而已。
對(duì)于autocad這樣得開放系統(tǒng)，準(zhǔn)確得的畫復(fù)雜的曲線一般是要用lisp語(yǔ)言做二次開發(fā)的。
你多大年齡了，活到老學(xué)到老，要有信心的。雖然我們年輕人學(xué)的快，老一輩也不能落下啊！！

作者: liang2039 時(shí)間: 2008-12-29 21:14
標(biāo)題: 回復(fù) 4# 機(jī)械小手的帖子
lisp語(yǔ)言是一種結(jié)構(gòu)化的語(yǔ)言，autocad用他做二次開發(fā)。雖然lisp是高級(jí)語(yǔ)言，但是很麻煩。如果不是專業(yè)搞二次開發(fā)，也沒(méi)有太大必要學(xué)！
說(shuō)白了lisp語(yǔ)言就是把你的操作命令寫下來(lái)，由計(jì)算機(jī)來(lái)執(zhí)行罷了。如果你想輸入10000個(gè)點(diǎn)，然后用線段連起來(lái)，這么龐大的工作人是做不來(lái)的，就用lisp編程實(shí)現(xiàn)嘍！！呵呵

作者: 海鷗哭了 時(shí)間: 2008-12-30 19:41
要是要求不是很高的話可以少描點(diǎn)點(diǎn)，然后用樣條曲線逼近

彈頭的曲線的方程比這個(gè)麻煩多了，都是可以打點(diǎn)描的～～······

作者: hyj_9766 時(shí)間: 2008-12-30 21:50
標(biāo)題: 回復(fù) 5# liang2039 的帖子
謝謝你的鼓勵(lì)，是要活到老學(xué)到老，我小孩都在學(xué)導(dǎo)數(shù)和積分了，我現(xiàn)在的記憶力實(shí)在有些問(wèn)題，前學(xué)后忘記，只能強(qiáng)化練習(xí)才能記住一些。

作者: liang2039 時(shí)間: 2009-1-6 17:00
標(biāo)題: 回復(fù) 8# hyj_9766 的帖子
沒(méi)事，加油了！哈哈

作者: huzhenpengskd 時(shí)間: 2009-1-8 10:27
標(biāo)題: 回復(fù) 8# hyj_9766 的帖子
估計(jì)你和我父親是一輩的50歲左右吧，我的一個(gè)大學(xué)老師都快60歲了，學(xué)pro/e,UG,ANSYS,還和我們學(xué)生一起在學(xué)校學(xué)汽車駕駛，雖然學(xué)得慢一點(diǎn)，但大家都挺佩服他的。學(xué)學(xué)pro/e吧，我覺(jué)得挺簡(jiǎn)單的。

[ 本帖最后由 huzhenpengskd 于 2009-1-8 10:36 編輯 ]

作者: 手拉手 時(shí)間: 2009-3-29 19:47
1# hyj_9766
哎喲，還真沒(méi)畫過(guò)。待我回去試試看……

作者: 手拉手 時(shí)間: 2009-3-30 00:03
慚愧，一時(shí)間還真沒(méi)畫出來(lái)……

作者: arminyang126 時(shí)間: 2009-3-30 10:00

要活到老學(xué)到老,所以我們年輕人更應(yīng)該抓緊學(xué)習(xí)了，

作者: 李建民 時(shí)間: 2009-3-30 10:25
樣條曲線應(yīng)該是最好用的，但是一般畫的都是大致的因?yàn)槲覀儥C(jī)器不認(rèn)識(shí)樣條曲線

作者: kaiyuan_abin 時(shí)間: 2009-4-21 13:35
樣條曲線，三點(diǎn)就可以畫出拋物線了！

作者: 小陶子 時(shí)間: 2009-4-21 13:51
呵呵，還真的沒(méi)在CAD里面畫真實(shí)的曲線，一般都是用樣條曲線描的

作者: 聽(tīng)濤 時(shí)間: 2011-8-29 15:00
這個(gè)真是個(gè)難題，現(xiàn)在我把下載的一個(gè)做法提供給大家，供參考
1.先用直線命令畫一直線（圖1）。過(guò)程如下：

　　命令: LINE
　　指定第一點(diǎn): 0,0
　　指定下一點(diǎn)或 [放棄(U)]: 'cal
　　>> 表達(dá)式: +[100*100/200<-30]
　　(43.3013 -25.0 0.0)
　　指定下一點(diǎn)或 [放棄(U)]: ↙

　　2.移動(dòng)該直線，如圖2。

　　3.用多段線命令畫多段線，先向-60度方向拉出適當(dāng)長(zhǎng)度，如圖3。

　　4.繼續(xù)畫多段線，完成一個(gè)直角三角形，如圖4。

　　5.用REVOLVE命令旋轉(zhuǎn)直角三角形，生成一個(gè)三維實(shí)體，如圖5。過(guò)程如下：

　　命令: REVOLVE
　　當(dāng)前線框密度:  ISOLINES=4
　　選擇對(duì)象:（選擇直角三角形）
　　選擇對(duì)象: ↙
　　指定旋轉(zhuǎn)軸的起點(diǎn)或
　　定義軸依照 [對(duì)象(O)/X 軸(X)/Y 軸(Y)]:（捕捉A點(diǎn)）
　　指定軸端點(diǎn): （捕捉B點(diǎn)）
　　指定旋轉(zhuǎn)角度 <360>:↙

　　6.用SECTION命令切割三維實(shí)體，生成一個(gè)面域，如圖6。過(guò)程如下：

　　命令: SECTION
　　選擇對(duì)象: (選擇上一步生成的旋轉(zhuǎn)實(shí)體)
　　選擇對(duì)象: ↙
　　指定截面上的第一個(gè)點(diǎn)，依照 [對(duì)象(O)/Z 軸(Z)/視圖(V)/XY 平面(XY)/YZ 平面(YZ)/ZX 平面(ZX)/三點(diǎn)(3)] <三點(diǎn)>: yz
　　指定 YZ 平面上的點(diǎn) <0,0,0>:（捕捉C點(diǎn)）

　　7.用rotate3d命令對(duì)上一步生成的面域進(jìn)行三維旋轉(zhuǎn)，如圖7。過(guò)程如下：

　　命令: rotate3d
　　當(dāng)前正向角度:  ANGDIR=逆時(shí)針 ANGBASE=0
　　選擇對(duì)象: （選擇上一步生成的面域）
　　選擇對(duì)象: ↙
　　指定軸上的第一個(gè)點(diǎn)或定義軸依據(jù)[對(duì)象(O)/最近的(L)/視圖(V)/X 軸(X)/Y 軸(Y)/Z 軸(Z)/兩點(diǎn)(2)]: (捕捉C點(diǎn)) 指定軸上的第二點(diǎn):（捕捉D點(diǎn)）
　　指定旋轉(zhuǎn)角度或 [參照(R)]: 90

　　8.先用EXPLODE命令分解旋轉(zhuǎn)后的面域，再清理圖面，刪除不需要的圖元，如圖8。

　　9.移動(dòng)拋物線，如圖9。完畢！

http://bbs.icax.cn/register.php

Sub trparabola()
Dim bq1, bq2, pt1, pt2 As Variant
Dim aa, ll, yy, a1, a2, a3, a4, aa1, pt3(0 To 2), bq4(0 To 2) As Double
Dim bq3(0 To 2) As Double
Dim ae As Double
Dim pt33(0 To 2) As Double
Dim ptarr(0 To 7) As Double
Dim alt As Variant
Dim objboltb As Acad3DSolid
Dim al As Variant
Dim lens As AcadLWPolyline

'求個(gè)控制點(diǎn)
bq1 = ThisDrawing.Utility.GetPoint(, "拋物線頂點(diǎn): ")
aa = ThisDrawing.Utility.GetReal("輸入二次項(xiàng)系數(shù)： ")
ll = ThisDrawing.Utility.GetDistance(, "輸入開口弦長(zhǎng)： ")
aa1 = 1 / aa
yy = aa * (ll / 2) ^ 2
a1 = ThisDrawing.Utility.AngleToReal(-30, acDegrees)
a2 = ThisDrawing.Utility.AngleToReal(30, acDegrees)
a3 = ThisDrawing.Utility.AngleToReal(90, acDegrees)
a4 = ThisDrawing.Utility.AngleToReal(150, acDegrees)
bq2 = ThisDrawing.Utility.PolarPoint(bq1, a2, yy)
pt1 = ThisDrawing.Utility.PolarPoint(bq1, a4, aa1)
pt2 = ThisDrawing.Utility.PolarPoint(bq2, a3, aa1)
pt3(0) = pt2(0): pt3(1) = pt1(1): pt3(2) = pt1(2)
bq3(0) = bq2(0): bq3(1) = bq2(1): bq3(2) = bq2(2) + 10
bq4(0) = bq2(0): bq4(1) = bq1(1): bq4(2) = bq1(2)
pt33(0) = 10: pt33(1) = 0: pt33(2) = 0

ptarr(0) = pt1(0)
ptarr(1) = pt1(1)
ptarr(2) = pt2(0)
ptarr(3) = pt2(1)
ptarr(4) = pt3(0)
ptarr(5) = pt3(1)
ptarr(6) = pt1(0)
ptarr(7) = pt1(1)

'畫多段線
Set lens = ThisDrawing.ModelSpace.AddLightWeightPolyline(ptarr)
Dim objlist(0) As AcadEntity
Set objlist(0) = lens

'將多段線變?yōu)槊嬗?
Dim altregion As AcadRegion
alt = ThisDrawing.ModelSpace.AddRegion(objlist)
objlist(0).Delete
Set altregion = alt(0)

'旋轉(zhuǎn)面域得到圓錐
ae = 2 * Atn(1) * 4
Set objboltb = ThisDrawing.ModelSpace.AddRevolvedSolid(altregion, pt1, pt33, ae)
altregion.Delete

'切圓錐得到拋物線
Set al = objboltb.SectionSolid(bq1, bq2, bq3)
objboltb.Delete
al.Rotate bq1, a1
al.Rotate3D bq1, bq4, a3
Dim explodedobjects As Variant
explodedobjects = al.Explode
al.Delete
Dim i As Integer
Dim kind As String
Dim parabolaobject As AcadSpline
For i = 0 To UBound(explodedobjects)
kind = explodedobjects(i).ObjectName
If kind = "AcDbLine" Then
explodedobjects(i).Delete
Else
   Set parabolaobject = explodedobjects(i)
End If
Next

'旋轉(zhuǎn)拋物線
ThisDrawing.SendCommand "rotate" & vbCr & "(Handent """ & parabolaobject.Handle & """)" & vbCr & "" & vbCr & bq1(0) & "," & bq1(1) & vbCr

End Sub

作者: lovemy006 時(shí)間: 2011-8-29 15:10
哈哈一直學(xué)下去

作者: 風(fēng)雲(yún)再起 時(shí)間: 2012-9-28 09:56

kaiyuan_abin 發(fā)表于 2009-4-21 13:35 ; j j( q* a9 o3 E0 {: E+ ~7 I7 r' x
樣條曲線，三點(diǎn)就可以畫出拋物線了！

用樣條曲線怎么畫拋物線呢？描點(diǎn)點(diǎn)是哪里求出的呢？

歡迎光臨機(jī)械社區(qū) (http://www.whclglass.com.cn/)