[求助]：谁帮我解决呀

skywaycao

下面是偶编的一个小东东，还是有些问题
程序的目的是先画引出线，然后再第一点画一根类似标注的短斜线
运行时发现一个很怪的问题，在一个不大的屏幕范围里运行时，没有问题
但先 画一个10000长的线，再 zoom , all，然后再这个屏幕范围内执行下面的lisp程序，
相当于画的引出线很长，结果画出的短斜线成了一个点，但是list的性质还是线,调试中发现
整个过程 短斜线 的两端点坐标 pa，pb 的计算好像没错，接着的语句
(command "line" pa pb "") 应该也不会有问题呀？ 不知道是哪一步出错了,是不是精度设置问题

(defun C:ds (/ p1 p2 pa pb ObliqueLength)
;;;设置短斜线的长度
(setq ObliqueLength (getreal "enter ObliqueLength<200>:"))
(if (null ObliqueLength)
(setq ObliqueLength 200.0)
)

;;;画引出线
(setq p1 (getpoint "Specify first point:"))
(setq p2 (getpoint p1 "\nSpecify next point:"))
(command "line" p1 p2)
(while (setq p2 (getpoint p2 "Specify next point or :"))
(command p2)
) ;while
(command)

;;;画短斜线
(setq pa (polar p1 (/ pi 4) (/ ObliqueLength 2.0)))
(setq pb (polar p1 (* pi 1.25) (/ ObliqueLength 2.0)))
(command "line" pa pb "") ;;;???????????????????????
(princ)
)

eachy

注意先关闭 Osnap

li809

只是画引出线的吗，不能加其它标注吗，如果这样的话有何用呢