加载类型库/DLL 时出错

yinheng

; 警告:未能加载 AutoCAD 类型库: "加载类型库/DLL 时出错。"
; 警告:未能加载 AutoCAD 类型库: "加载类型库/DLL 时出错。" Error:no function definition: VLAX-ENAME->VLA-OBJECT. 我以前的一般求直线或曲线长度的小程序，在我运行了CAD2002安装文件夹中的一个未知注册表以后就出现了上边的错误。 程序如下 ;
;==============================================================================
;功能:计算所有选择对象的总长,可是是非直线。
;==============================================================================
(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)
) 版主兄能告诉我解决办法吗？

Taoyimaier

是我的话，我回把cad反安装掉，让后再全新安装，估计差不多了，