那位高手来看下那里错了
<p>(defun c:GBJ10-89 (/ p p1 p2 p3 p4 p5 p6 p7 p8 p9 x y a a1 a2 v1 v2 v3 v4)<br/> (command "layer" "m" "zuobiao" "c" "red" "zuobiao" "lw" 0.6 "" "")<br/> (setq v1 (getvar "luprec"))<br/> (setq v2 (getvar "cmdecho"))<br/> (setq v3 (getvar "osmode"))<br/> (setq v4 (getvar "blipmode"))<br/> (setvar "luprec" 8)<br/> (setvar "cmdecho" 0)<br/> (setvar "osmode" 0)<br/> (setvar "blipmode" 0)<br/> (setq a1 (getreal "\n输入εo的值："))<br/> (setq a2 (getreal "\n输入εu的值："))<br/> (setq p '(0 0 0))<br/> (setq p1 (polar p (/ pi 2) 4))<br/> (setq p2 (polar p1 (* pi 1.25) 0.1))<br/> (setq p3 (polar p1 (- 0 (* pi 0.25)) 0.1))<br/> (setq p4 (polar p 0 4))<br/> (setq p5 (polar p4 (* pi 0.75) 0.1))<br/> (setq p6 (polar p4 (* pi 1.25) 0.1))<br/> (command "pline" p2 p1 p3 p1 p p4 p6 p4 p5 "" )<br/> (setq x (/ 0.002 100))<br/> <font color="#ff0000">(repeat 100<br/> (setq y (- (* (/ x a1 ) 2) (expt (/ x a1) 2)))<br/> (setq a (* x 1000))<br/> (command "line" p "a,y" "")<br/> (setq x (+ (/ 0.002 100) x))<br/> )</font><br/> (setvar "luprec" v1)<br/> (setvar "cmdecho" v2)<br/> (setvar "osmode" v3)<br/> (setvar "blipmode" v4)<br/> (princ)<br/>)</p><p>可能是红色的地方错了</p><p>红色部分目的是打算用许多直线依次相接的方法形成一条曲线！</p><p>刚开始学这个！有点蒙了！！</p> 自个顶下 <font color="#ff0000">(command "line" p "a,y" "")</font><br/>改成<br/><font color="#ff0000">(command "line" p (list a y) "")</font><br/>
页:
[1]