请教

cppe

各位高手好：我是新加入的。才接触编程，有很多知识得向大家学习。

请教一个问题：我想实现选中CAD图型后，直接得出所选图形直线的长度，包括PLINE线，能否实现。能给个思路吗。方便的话给出语句，谢谢。

cppe

看过以前别人的帖子，但运行不了，出错

(defun c:tl()
    (setq tleng 0)
    (setq s (ssget))
    (setq n (sslength s))
    (setq index (- n 1))
    (repeat n
        (vl-load-com)
        (setq ent (ssname s index))
        (setq index (- index 1))
        (setq curve-obj (vlax-ename->vla-object ent))
        (setq leng (vlax-curve-getDistAtParam
                       curve-obj
                       (vlax-curve-getEndParam curve-obj)
                   )
        )
        (setq tleng (+ tleng leng))
        (princ leng)
        (princ "\\n")
    )
    (setq prscreemtext (strcat "\\n总共计算" (itoa n) "个对象，总长度为 " (rtos tleng 2 3)))
    (princ prscreemtext)
    (princ)
)

ZZXXQQ

应该能运行呀，出什么错？

cppe

[检查文字 tc.lsp 正在加载...]
; 错误: 输入的列表有缺陷
; 检查完成.

cppe

我用的CAD2005，和这个有关系没？

cppe

能用了，括号也不少