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

qucong

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

sxyxs13754

excel生成點數據，cad中使用樣條曲線命令就ok了！

qucong

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

寂靜天花板

那就做螺旋線,然后投影

qucong

可不可以說的具體點？先謝謝了~~~

cm272

寂靜天花板 發表于 2012-3-2 17:11
( E1 x2 ?0 M  C3 C: r那就做螺旋線,然后投影

! R$ A$ n" Z1 G( f我也請教一下，不知怎樣進行投影操作

萬戶門徒

小學講正玄曲線曲線的過程，看懂這個圖你就明白了
7 V  q4 e4 _6 t: R* i; _' N. f

zzp6444

Sub sinl()
Dim p(0 To 719) As Double '定義點坐標
4 C3 N3 @' f6 L3 a$ k  JFor i = 0 To 718 Step 2 '開始畫多段線
8 D* |3 ]! y4 o    p(i) = i * 2 * 3.1415926535897 / 360 '橫坐標
    p(i + 1) = 2 * Sin(p(i)) '縱坐標
3 t1 F6 N6 z% d, G. \Next i
ThisDrawing.ModelSpace.AddLightWeightPolyline (p) '畫多段線
+ d( @& `( f, j; u8 o; V8 D; gZoomExtents '顯示整個圖形
End Sub
, n5 ~9 B: u! m# ?5 R

金牌小色狼

zzp6444 發表于 2012-3-13 17:02
Sub sinl()
Dim p(0 To 719) As Double '定義點坐標
For i = 0 To 718 Step 2 '開始畫多段線

# b- Z8 w) k3 \$ I8 q高手{:soso_e179:}
  ~8 V- |6 n( z+ h2 x% B