你好各位大神帮我修改一下CAD用LSP这个代码

gongxifachai

你好各位大神帮我修改一下CAD用LSP这个代码
你好各位大神帮我修改一下这个代码正常我在多段线上输入50多段线上就出现个50标注，现在是输入50他出现359.0197801584798麻烦各位大神帮帮忙修改输入多少数字就出现多少数字好比输入50就出现50。
(defun c:tg(/  p1 p2 p3 p4 pt dd)                       
    (command ".undo" "be")
  (setq p1(getpoint "\n指定点"))
  (command ".CIRCLE" "non" p1 3)
(while
  (setq p2(getpoint p1 "\n指定点")
        p3(polar p1 (angle p1 p2) 3)
        p4(polar p2 (angle p2 p1) 3)
        )
  (command ".line" "non" p3 "non" p4 "")
  (setq dd (distance p1 p2)
        pt (polar p2 (angle p2 p1) (+ (* dd 0.55) 1.5)))
    (command ".CIRCLE" "non" p2 3)
     (command ".text" "non" pt 6 (/ (* (angle p1 p2) 180.0) pi) (rtos dd 2 2)  "")
  (setq p1 p2)
)
  (command ".undo" "e")
  (princ)
)

xxkz

我这里运行正常，cad2014，快捷命令tg