[求助]：提示:创建了零长度直线!

lm_lxt

下面的程序边读入数据边画直线,结果出现提示:创建了零长度直线!图形不能正确显示,不知什么原因.向大家请教!
(setq basepoint (getpoint "\n请指定图形的起始点："))
  (setq point1 basepoint)
  (setq fp (open "d:/lisp/t12.txt" "r"))
  
  (while (/= (setq pointp (read-line fp)) nil)
    (setq pointn (read pointp))
    (setq point2xy (/ (* (cadr pointn) pi) 180.0))
    (setq point2x (+ (car point1) (* (car pointn) (cos point2xy))))
    (setq point2y (+ (cadr point1) (* (car pointn) (sin point2xy))))
    (setq point2 (list point2x point2y))
    (command "line" point1 point2 "")
    (setq point1 point2)
  )
  (command "line" point1 basepoint "")
  (command "zoom" "e")
  (close fp)
数据文件:
(5 0)
(3 90)
(5 -40)
(4 60)
(2 90)
(3 120)
(1.5 210)
(3 270)
(2 180)
(6 145)
(2 270)
(3 -30)
(2 -120)
(2 180)
(1.5 -150)

carrot1983

没有遇到这个情况..运行正常
(setvar "osmode" 0)
可能会比较好

zml84

是对象捕捉设置的问题。

另外，点位计算使用 polar 函数较省力气。

lm_lxt

谢谢各位，确实是这个问题！

cy956

生成实体用entmake就更方便，而且快。
建议你用entmake搜索，我以前也发过帖子的。