创建零长度直线,代码怎么处理这样的错误

youyou3810

1. (defun c:tt ()
   
2.     (setq p1 (getpoint "第一点："))
   
3. 
   
4. (setq p2  (getpoint p1 "\n**第二点："))
   
5. (command "xline" p1 p2 "")
   
6. 
   
7.   (setq r (getdist "\n**+-距离:"))
   
8. (setq ang (angle p1 p2))
   
9.   (setq p1up (trans (setq p(polar p1 (- ang (* 0.5 pi)) (* r))) 1 0))
   
10.     (setq p2up (trans (setq p(polar p2 (- ang (* 0.5 pi)) (* r))) 1 0))
    
11.   (command "line" p1 p1up "")
    
12.   (command "line" p2 p2up "")
    
13.   (command "xline" p1up p2up "")
    
14. )

(defun c:tt () <br />     (setq p1 (getpoint "第一点："))<br /> <br /> (setq p2  (getpoint p1 "\n**第二点："))<br /> (command "xline" p1 p2 "")<br /> <br />   (setq r (getdist "\n**+-距离:"))<br /> (setq ang (angle p1 p2)) <br />   (setq p1up (trans (setq p(polar p1 (- ang (* 0.5 pi)) (* r))) 1 0)) <br />     (setq p2up (trans (setq p(polar p2 (- ang (* 0.5 pi)) (* r))) 1 0))<br />   (command "line" p1 p1up "") <br />   (command "line" p2 p2up "")<br />   (command "xline" p1up p2up "")<br /> )

创建零长度直线,代码怎么处理这样的错误

jun470

我也遇到这个问题了，发现是缩放得小的时候，使用command绘制直线会这样，如果放大了视图，就正常了。还没学会用生成的方式