[求助]：怎么实现自动画抛物线？

xwhh1314

我因为工作需要，需在ACAD里画Y＝kX^的抛物线（X、Y为未知数，k为常数），哪位高手能指点，怎么编个小程序来作此抛物线呢？先谢啦。

kelinjuan

我不会编程，不过可以通过在EXCEL里输入各点，然后粘贴到CAD里。精度不太够。

ahlzl

最初由 xwhh1314 发布
[B]我因为工作需要，需在ACAD里画Y＝kX^的抛物线（X、Y为未知数，k为常数），哪位高手能指点，怎么编个小程序来作此抛物线呢？先谢啦。 [/B]

期望命令行有什么提示，说一下，程序会有人来写。注意，抛物线是无限的，把范围说一下。

xwhh1314

命令行希望只输入K值，X变量从1～500，哪位高手能帮忙写一下，不胜感激！

xinbuzhe

呵呵，这个问题够难的，通常CAD只提供样条曲线

zxdcad

最初由 xwhh1314 发布
[B]命令行希望只输入K值，X变量从1～500，哪位高手能帮忙写一下，不胜感激！ [/B]

我来贴个lisp！



[PHP]

(defun C:PWX (/ k pz x y p )
(command "undo" "begin")
(princ"\n程序功能:绘制y=Kx^2抛物线。X范围1至500")
(setq k(getreal "\n抛物线的K值<0.001>:"))
(if (= k nil) (setq k 0.001))
(setq pz (getvar "osmode"))
  (setvar "osmode" 0)
  (setvar "CMDECHO" 0)
  (setq x 1)
  (setq y(* K x x ))
  (setq p (list x y))
  (command "PLINE" p)
  (repeat 499
   (setq x(1+ x))
    (setq y(* K x x ))
    (setq p(list x y))
    (command p)
  )
  (command "")
  (setvar "osmode" pz)
  (command "undo" "end")
  (setvar "cmdecho" 1)
  (princ)
)

[/PHP]

zxdcad

雷锋班竹厉害，这程序太好了，基本上任意曲线都可以做了！

zhynt

修改了一下，这样更简洁了。

zhynt

现在的对话框

zhynt

这是我画的几个曲线

maplesu

这个是只要写的出表达式的就都能画了！
不过用lisp的个人认为唯一的缺憾就是这种表达式不是很容易适应，没有接触过lisp的人会很不习惯，不过雷锋版主给出的说明倒是可以满足一般人的需要了！

zhynt

呵呵。又修改了一下，这样表达式就简单多了。如图中画红线的地方就表示
0.005乘以X的四次方

zhynt

这是程序源文件：

zhynt

具体的函数用法，大家可以看看CAD帮助里面的CAL部分。

zhynt

函数
说明

sin(角度)
角度的正弦

cos(角度)
角度的余弦

tang(角度)
角度的正切

asin(实数)
数值的反正弦，数值必须在 -1 到 1 之间

acos(实数)
数值的反余弦，数值必须在 -1 到 1 之间

atan(实数)
数值的反正切

ln(实数)
数值的自然对数

log(实数)
以 10 为底的对数

exp(实数)
数值的自然指数

exp10(实数)
以 10 为底的指数

sqr(实数)
数值的平方

sqrt(实数)
数值的平方根，必须为非负数

abs(实数)
数值的绝对值

round(实数)
数值舍入到最接近的整数

trunc(实数)
数值的整数部分

r2d(角度)
将角度从弧度转换成度，例如，r2d(pi) 可将常量 pi 转换成 180 度

d2r(角度)
将角度从度转换成弧度，例如，d2r(180) 可将 180 度转换成弧度，且返回值为常量 pi

pi
常量 pi