[求助]：如何用autolisp画抛物线

陈涛

如何用autolisp画抛物线

xyp1964

[php]
(load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

(defun c:qx32 ()
  (cmdla0)
  (prompt
    "\n抛物线 : y = axx + bx + c，步宽0.1 ; \n建议缺省值 : a=1 ; b=0 ; c=0"
  )
  (setq        no1 (ureal 1 "" "\nX区域" no1)
        a   (ureal 1 "" "\n常数a" a)
        b   (ureal 1 "" "\n常数b" b)
        c   (ureal 1 "" "\n常数c" c)
        x   (* -1.0 (abs no1))
  )
  (mkla "抛物线" 3)
  (setvar"osmode"0)
  (command "pline")
  (while (<= x (+ (abs no1) 0.1))
    (setq y  (+ (* a x x) (* b x) c)
          pt (list x y)
    )
    (command pt)
    (setq x (+ x 0.1))
  )
  (command "")
  (cmdla1)
)[/php]
经典曲线：http://www.xdcad.net/forum/showthread.php?s=&threadid=334403

陈涛

大恩人啊！