这是CAD中计算多条线段的长度的插件执行命令后报错，我想知道怎样修复能正常使用

计算曲线长度，autolisp代码如下：

;;测量长度
(defun C:CD ( / &k1 &kw1 i ss1 x)
 (setvar "cmdecho" 0)
 (setvar "blipmode" 0)
 (setvar "dimzin" 0)
 (if (null vlax-dump-object) (vl-load-com) )
 (princ "\n请选择曲线对象")
 (if (setq &kw1 (ssget '((0 . "LINE,LWPOLYLINE,CIRCLE,ARC,HELIX,ELLIPSE,SPLINE,POLYLINE"))))
  (progn
   (setq ss1 '() i 0.0)
   (while (setq &k1 (ssname &kw1 0))
    (setq &kw1 (ssdel &k1 &kw1) ss1 (cons &k1 ss1) i (1+ i))
   )
   (princ (strcat "\n曲线长度共:"
    (rtos (* 0.001 (apply '+ (mapcar '(lambda (x) (vlax-curve-getDistAtParam x (vlax-curve-getEndParam x))) ss1))) 2 3)
    "ç±³; æ•°é‡å…±è®¡:" (rtos i 2 0) "æ ¹")
   )
  )
 )
 (prin1)
)

命令行显示长度，单位米。

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v7yre7vjrxj3exryjrx.html