那位高手来看下那里错了

sdeadking

(defun c:GBJ10-89 (/ p p1 p2 p3 p4 p5 p6 p7 p8 p9 x y a a1 a2 v1 v2 v3 v4)
    (command "layer" "m" "zuobiao" "c" "red" "zuobiao" "lw" 0.6 "" "")
    (setq v1 (getvar "luprec"))
    (setq v2 (getvar "cmdecho"))
    (setq v3 (getvar "osmode"))
    (setq v4 (getvar "blipmode"))
    (setvar "luprec" 8)
    (setvar "cmdecho" 0)
    (setvar "osmode" 0)
    (setvar "blipmode" 0)
    (setq a1 (getreal "\n输入εo的值："))
    (setq a2 (getreal "\n输入εu的值："))
    (setq p '(0 0 0))
    (setq p1 (polar p (/ pi 2) 4))
    (setq p2 (polar p1 (* pi 1.25) 0.1))
    (setq p3 (polar p1 (- 0 (* pi 0.25)) 0.1))
    (setq p4 (polar p 0 4))
    (setq p5 (polar p4 (* pi 0.75) 0.1))
    (setq p6 (polar p4 (* pi 1.25) 0.1))
    (command "pline" p2 p1 p3 p1 p p4 p6 p4 p5 "" )
    (setq x (/ 0.002 100))
    (repeat 100
        (setq y (- (* (/ x a1 ) 2) (expt (/ x a1) 2)))
        (setq a (* x 1000))
        (command "line" p "a,y" "")
        (setq x (+ (/ 0.002 100) x))
    )
    (setvar "luprec" v1)
    (setvar "cmdecho" v2)
    (setvar "osmode" v3)
    (setvar "blipmode" v4)
    (princ)
)

可能是红色的地方错了

红色部分目的是打算用许多直线依次相接的方法形成一条曲线！

刚开始学这个！有点蒙了！！

sdeadking

自个顶下

ZZXXQQ

(command "line" p "a,y" "")
改成
(command "line" p (list a y) "")