[LISP程序]：帮忙指点为什么会出现这种BUG（见程序和图）

158466939

程序的工能：多义线画的圆相互变换（具体下图看），不知为什么在图和窗口成一定比例很小时用此程序就出现我图中的错误结果，希望有高手帮我看下，thanks。。。。。。。。
[PHP](defun c:tt ()
  (DC-begin)
  (setq        ss (ssget
             (list '(0 . "LWPOLYLINE") '(8 . "se-gj-jiaojing,se-dot"))
           )
  )
  (setq i 0)
  (progn
    (repeat (sslength ss)
      (setq
        en (ssname ss i)
        op (dc-dxf 43 en)
      )
      (if (= op 0)
        (setq r         30
              w         60
              la "se-dot"

        )
        (setq r         60
              w         0
              la "se-gj-jiaojing"
        )
      )
      (progn
        (setq pt1 (dc-dxf 10 en)
              pt2 (cdr (assoc 10 (reverse (entget en))))
        )
        (setq oldr (/ (distance pt1 pt2) 2))
        (setq pc (polar pt1 (angle pt1 pt2) oldr))
        (command ".pedit" pt1 "w" 0 "")
        (command ".scale" en "" pc (/ r oldr))
        (command ".pedit" (polar pc (angle pt1 pt2) r) "w" w "")
        (command ".chprop" en "" "layer" la "")
      )
      (setq i (1+ i))
    )
  )
   (DC-end)
  (princ)
)

(defun dc-dxf (sn ename)
  (cdr (assoc sn (entget ename)))
)




[/PHP]

wwddzz

看不懂！？

flowerson

楼主 少了 (DC-begin) (DC-end) 等子函数！

tengf2003

学习中

kmliro_2017

不错，谢谢分享！！！！！