[求助]在线等。。。。急

chupj

(defun c:bb ()
(vl-load-com)
(setq a (vla-get-length
(vlax-ename->vla-object (car (entsel)))) )

(if (/= a nil)
         
     怎么让他循环？就是一直求线段长度？               
 )
      )
)

caoyin

(defun c:bb (/ e a)
  (vl-load-com)
  (while (setq e (car (entsel)))
    (princ  (vla-get-length (vlax-ename->vla-object e)))
  )
  (princ)
)

chupj

每次都会出现“选择对象:”

怎么将这几个字取消？

粘贴在EXCEl里有要处理这几个字

要怎么弄才会只显示数字

caoyin

(entsel)改成(entsel "")

chupj

(entsel)改成(entsel "\n")

加个换行符更加完美

chupj

谢谢了