[求助]：再次求助,ahlzl大大的抛物线LSP怎么使用?

kikichou

哈哈,这是猫王的专利啊.我本想叫大家去看置顶的贴子!
我在LISP论坛发了一个程序贴:http://www.xdcad.net/forum/showthre...threadid=142652 改一下,用在这了.
代码:

(defun c:pwx (/ mspace pt pt1 ptt i x y x1 x2 n a b tmp myobj)
  ;本程序修改后，可画任意函数曲线。
  (vl-load-com)
  (setq        mspace (vla-get-modelspace
                 (vla-get-activedocument (vlax-get-acad-object))
               )
  )
  (setq a (/ 178 (- (* 117.5 117.5) 1600)))
  (setq b (+ 810 (* a 1600)))
  (setq n 1)                             ;函数精度（越小，则准确）
  (setq x1 800                             ;自变量下限
        x2 1200)                           ;自变量上限
  (setq y1 (- b (* (- x1 1000)(- x1 1000) a)))                    ;函数公式
  (setq pt (list x1 y1))
  (setq i (+ x1 n))
  
  (while (<= i x2)
    (setq x i)
    (setq y (- b (* (- i 1000)(- i 1000) a)))                     ;函数公式
    (setq pt1 (list x y))
    (setq pt (append pt pt1))
    (setq i (+ i n))
    (setq ptt pt)
  )

  (setq        tmp (vlax-make-safearray
              vlax-vbDouble
              (cons 0 (- (length ptt) 1))
            )
  )
  (vlax-safearray-fill tmp ptt)
  (setq myobj (vla-addlightweightpolyline mspace tmp))
  (princ)
)
这个怎么使用啊?
我加载LSP以后没反应啊
大家还有没有什么更好的画抛物线的方法呢?
能不能根据方程直接画啊
我先253各位了
今天为了根抛物线在坛子里蹲一天了..

ahxly

你把方程写出来,ahlzl老师会画的!

kikichou

我不是要ahlzl老石帮画
以为要画很多不同的呀
我想学会

ahlzl

最初由 kikichou 发布
[B]我不是要ahlzl老石帮画
以为要画很多不同的呀
我想学会 [/B]

你把你的要求说出来，就是说你希望命令行有什么提示，我按你的要求写程序。

kikichou

我的要求很简单的
因为我是画一些反光镜的图纸
要求都是标准公式
我想问的是如何使用你的那个LISP
为什么执行了后不跳出命令框呢?

ahxly

那个程序是为那个问题写的,你当然用不上!
只有把你的要求准确写出来,别人才能帮你!

kikichou

哦~原来如此
我的要求是y^2=2px
能不能按照此方程画出抛物线
P是根据图不同变的
现在要画的是p=66
X从0.1----75

我给你画了一个。  by  ahlzl

ahlzl

在ACAD2005中用这个附件。用netload加载，输入pw命令！
使用方法可再看看这：http://www.xdcad.net/forum/showthread.php?threadid=180908

ahlzl

各大CAD论坛几乎都有画抛物线的程序（我自己以前也写过），都是一点一点描的，要精确，节点就要多。看看我现在用。NET编的……