菜鸟求教，大侠们帮帮忙啊！！！！！！

笼兽天使

从网上下载了一些lisp的源码，或者别人设计好的程序代码，可以用CAD载入以后，经常不能使用，显示“FONTALT 无法设置为该值。
; 错误: 函数被取消”，或者显示“ ** 形 10 未定义”，导致程序不能正常运行，怎么调试？

vlisp2012

你应该吧程序，传上来吧！！！

笼兽天使

比如这个计算总长度的小程序运行以后点击线以后显示选择对象:
; 错误: ActiveX 服务器返回错误: 加载类型库/DLL 时出错。
(defun C:cd (/ CURVE TLEN SS N SUMLEN)
  (vl-load-com)
  (setq SUMLEN 0)
  ;不设定选取模式,但只将选取"指定"的对象加入选集,并将选集储存在变量SS中
  (setq SS (ssget '((0 . "LINE,*POLYLINE,SPLINE,CIRCLE,ARC,ELLIPSE"))))
  (setq N 0)
  (repeat (sslength SS)  ;选集对象数量
    (setq CURVE (vlax-ename->vla-object (ssname SS N)))
    (setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE)))
    (setq SUMLEN (+ SUMLEN TLEN))
    (setq N (1+ N))
  )
  (print (strcat "选中对象=" (itoa (sslength SS)) ", 总长度=" (rtos SUMLEN 2 4)))
  (princ)
)


这个把面积写在图上的程序在选定图形，选择在哪里标注面积后就显示
** 形 57 未定义
** 形 54 未定义
** 形 51 未定义
** 形 52 未定义
** 形 52 未定义
** 形 46 未定义
** 形 51 未定义
** 形 55 未定义
(DEFUN C:EA(/ OLDOS PT STA QAREA)
;;
  (setq olderr *error*)
  (setq *error* myerr)
  (SETVAR "CMDECHO" 0)
  (SETQ OLDOS (GETVAR "OSMODE"))
;;
  (SETVAR "OSMODE" 0)
  (SETQ STA (CAR (ENTSEL)))
  (COMMAND "AREA" "E" STA)
  (SETQ QAREA (RTOS (GETVAR "AREA") 2 2))
  (SETQ PT (GETPOINT"\nPick the point you want to write area:"))
  (COMMAND "TEXT" PT "" "" QAREA)
;;  
  (SETVAR "OSMODE" OLDOS)
  (SETVAR "CMDECHO" 1)
  (setq *error* olderr)
  (PRINC)
)
还有些别的，这是因为什么？cad版本问题吗？我用的是08的

byghbcx

应该是字体问题吧

笼兽天使

那应该用什么字体那？打开CAD以后一个个试吗？