[求助]：谁帮我看看这个程序有什么问题？

yaker_77

;;;功能：输出矩形长宽
(defun c:CS ()
  (vl-load-com)
  (setq modelspace (vla-get-Modelspace (vla-get-activeDocument(vlax-get-acad-object))))

;;;计算长和宽
  (setq ss (ssget))
  (setq ent (ssname ss 0))
  (setq di (vlax-curve-getDistAtParam ent 1))
  (setq dj (- (vlax-curve-getDistAtParam ent 2) di))
  (setq text1(strcat "L= "(rtos di 2 0) "  B= "(rtos dj 2 0)))

;;;计算插入点
  (setq p1 (vlax-curve-getstartpoint ent))
  (setq p3 (vlax-curve-getPointAtParam endObj (+ di dj))
  (setq x1 (car p1))
  (setq y1 (cadr p1))
  (setq x3 (car p3))
  (setq y3 (cadr p3))
  (setq x0 (/ (+ x1 x3) 2))
  (setq y0 (/ (+ y1 y3) 2))

;;;插入文字
  (if(setq insertpt (cons x0 y0))
    (if(setq height (/ di 20))
       textobj1 (vla-addtext modelspace text1 insertp height)
    )
  )
)

xyp1964

;;;功能：输出矩形长宽
(defun c:test ()
  (vl-load-com)
  (setq        modelspace (vla-get-Modelspace
                     (vla-get-activeDocument (vlax-get-acad-object))
                   )
        ;; 计算长和宽
        ent           (ssname (ssget) 0)
        di           (vlax-curve-getDistAtParam ent 1)
        dj           (- (vlax-curve-getDistAtParam ent 2) di)
        text           (strcat "L= " (rtos di 2 0) " B= " (rtos dj 2 0))
        ;; 计算插入点
        p1           (vlax-curve-getstartpoint ent)
        p3           (vlax-curve-getPointAtParam ent 2)
        x1           (car p1)
        y1           (cadr p1)
        x3           (car p3)
        y3           (cadr p3)
        x0           (/ (+ x1 x3) 2)
        y0           (/ (+ y1 y3) 2)
  )
  ;; 插入文字
  (if (setq insertpt (list x0 y0 0))
    (if        (setq height (/ di 20))
      (vla-addtext modelspace
                   text
                   (vlax-3D-point insertpt)
                   height
      )
    )
  )
)

yaker_77

非常漂亮，谢谢！