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

qucong

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

sxyxs13754

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

qucong

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

寂靜天花板

那就做螺旋線,然后投影

qucong

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

cm272

寂靜天花板 發表于 2012-3-2 17:11
4 @2 K% a0 s* @5 Q1 A# i那就做螺旋線,然后投影

: f. t+ W- E+ M7 |; s" Y% w* q. R3 `我也請教一下，不知怎樣進行投影操作

萬戶門徒

小學講正玄曲線曲線的過程，看懂這個圖你就明白了
3 N' O$ y1 l- J* ~9 D" s! O: |2 r

zzp6444

Sub sinl()
; s8 f! D0 ^$ }5 H8 K( ?% ]Dim p(0 To 719) As Double '定義點坐標
2 h0 z* |! s( j2 G: }For i = 0 To 718 Step 2 '開始畫多段線
    p(i) = i * 2 * 3.1415926535897 / 360 '橫坐標
$ o# _: U; G6 p) j    p(i + 1) = 2 * Sin(p(i)) '縱坐標
- [6 v; q% B/ U5 S0 QNext i
: e* ^: F' y# `" o- A# s  bThisDrawing.ModelSpace.AddLightWeightPolyline (p) '畫多段線
ZoomExtents '顯示整個圖形
End Sub
0 q, l6 [) K* _0 M

金牌小色狼

zzp6444 發表于 2012-3-13 17:02
Sub sinl()
Dim p(0 To 719) As Double '定義點坐標
. m1 ~. w5 e; e: v2 Z& r+ qFor i = 0 To 718 Step 2 '開始畫多段線

$ L) ?& U# t& F7 [$ Y* c4 s高手{:soso_e179:}
" A2 m3 f/ H- r7 N/ l0 ]