新手 cadlisp的 有个问题 在线等大神指导

h199101

看一下这代码 是画抛物线的 可是为什么cad画出来的却有问题 哪里有问题啊
(defun c:ddf (/ p0 p1 xx mm yy)
(setq xx 0 mm 0)
(setq p0 (list xx mm))
(command "pline")
(repeat 10
(setq xx (+ xx 1))
(setq yy (* xx xx))
(setq p1 (list xx yy))
(command p0 p1)
(setq p0 p1)
)
(command "")
)

h199101

y=x^2  理论上应该（1,1）（2,4）。。。。。。（10,100） 可是查询了点坐标 只发现首尾两个点是正确的  想不通啊 求大神指导

ll_j

你把捕捉关掉试试。