請問 用cad 怎樣畫正弦曲線？

qucong

謝謝大家了,，如果可以的話 還有其一些變形的圖形

sxyxs13754

excel生成點(diǎn)數(shù)據(jù),，cad中使用樣條曲線命令就ok了,！

qucong

如果單純使用cad呢？不用excell,。

寂靜天花板

那就做螺旋線,然后投影

qucong

可不可以說的具體點(diǎn),？先謝謝了~~~

cm272

寂靜天花板 發(fā)表于 2012-3-2 17:11
0 h2 C  h& s# P( z/ W) M+ I# x那就做螺旋線,然后投影

我也請教一下，不知怎樣進(jìn)行投影操作

萬戶門徒

小學(xué)講正玄曲線曲線的過程,，看懂這個(gè)圖你就明白了
  s  ^% M. y. [$ D! R3 k; m

zzp6444

Sub sinl()
Dim p(0 To 719) As Double '定義點(diǎn)坐標(biāo)
For i = 0 To 718 Step 2 '開始畫多段線
# h0 E' x3 ~' d8 v% j    p(i) = i * 2 * 3.1415926535897 / 360 '橫坐標(biāo)
5 _& E$ N) O) R! k( W6 X0 j    p(i + 1) = 2 * Sin(p(i)) '縱坐標(biāo)
7 k$ h) M4 h/ n- {. ZNext i
ThisDrawing.ModelSpace.AddLightWeightPolyline (p) '畫多段線
- U) E( f4 D3 c1 c$ }$ jZoomExtents '顯示整個(gè)圖形
End Sub

金牌小色狼

zzp6444 發(fā)表于 2012-3-13 17:02
Sub sinl()
* w/ z* `+ H7 b  W# EDim p(0 To 719) As Double '定義點(diǎn)坐標(biāo)
5 h  G6 i2 v1 x# O: aFor i = 0 To 718 Step 2 '開始畫多段線

5 d' v( V9 O# r8 O* \高手{:soso_e179:}
( S3 k& O: k5 e* C, z: x