[编程交流] 调试帮助

(defun C:NODE (/ pick space inc); for Mark PolyLine with Distance
 (setvar 'attdia 0)
 (setq
   pick (entsel "\nSelect Polyline at marker location:")
   picknear (osnap (cadr pick) "nea")
   pickname (car pick)
   pton (vlax-curve-getClosestPointTo pickname picknear)
 ); end setq
 (command
   "_.insert"
   "kilo10"
   pton
   "" "" "" ; scale factors [1] and rotation [0]
   (rtos ; answer to attribute value prompt
     (vlax-curve-getDistAtPoint pickname pton); end getDist
   ); end rtos
 ); end command
); end defun