【转帖】哪位高人教教怎么用cad画三角函数曲线
 

哪位高人教教怎么用cad画三角函数曲线
www.dimcax.com
哪位高人教教怎么用cad画三角函数曲线
哪位高人教教怎么用cad画三角函数曲线
谢谢

先用程序求出曲线的各点坐标，在用画曲线命令用已知点坐标画线

'抛物线程序
public sub pwx()
dim p as double, x as double, y as double, i as integer,point(62) as double
p = 5
for y = -10 to 10
x = y ^ 2 / (2 * p)
point(i) = x
point(i + 1) = y
point(i + 2) = 0
i = i + 3
next y
thisdrawing.modelspace.addpolyline point
thisdrawing.sendcommand "zoom" & vbcr & "e" & vbcr
end sub

看不懂

很不错

dim p 有什么用啊,好像后面没用到啊

vlisp程序
为保证准确度，请按照提示输入参数
(defun c:sinspline (/)
(setq a (getdist "\n 输入振幅[小于10]:"))
(setq n (getint "\n 输入精度[大于50]:"))
(setq dang (/ (* 2 pi) n))
(command "osnap" "off")
(command "line" (list -5 0) (list 10 0) "")
(command "line" (list 0 -5) (list 0 10) "")
(setq x dang)
(command "spline" (list 0 0))
(while (<= x (* 2 pi))
(setq y (* a(sin x)))
(command (list x y))
(setq x (+ x dang))
)
(command "" "" "")
(command "zoom" "e")
(princ)
)
progress every day!!!

:
dim p 有什么用啊,好像后面没用到啊
x = y ^ 2 / (2 * p)
是公式里的一个参数,可以改的

这样的曲线是由多个直线构造成的，不精确。
谁有好贴通知我!