[求助]自定义的涵数如何注册?

xgr · 发表于 2004-10-18 09:42:00

本人运行自编的AUTOLISP涵数时，为什么运行后总是出现：“[XXXXX]未知命令，请按F1帮助。”后查阅资料，估计是注册的问题。请教高人自定义的命令在编LISP程序中如何注册？如可以请把回复发至：xuguangren1234@hotmail.com　谢谢！

alin · 发表于 2004-10-18 10:32:00

It has nothing to do with registry. Your code contains errors. Paste it here and maybe someone can help you.

xyp1964 · 发表于 2004-10-18 13:03:00

不是注册的问题，可能函数有错误，帖出程序看看！

xgr · 发表于 2004-10-18 14:00:00

请不要见笑，程序如下： (defun c:KZDXG (/ l ent entl ss1 l1 l2 l3 l4 pp pp1 pp2 pp3 pp4 ct)
   (setq l (getvar "ltscale")) (setq oldosmode (getvar "osmode"))
   (setq ent (ssget)) ;设置ent为选择集
   (setq ss1 (ssname ent 0)) ;取出选择集中的实体
   (setq entl (entget ss1)) ;设置ent为最新实体的数据关表
   (setq l1 (getvar "ucsxdir"))
   (setq l2 (getvar "ucsorg"))
   (setq l3 (* -1 (angle l2 l1)))
   (setq l4 (/ (* l3 180) pi))
   (setq ct 0)
   (repeat (length entl)
   (setq pp (nth ct entl))
   (setq xk(cdr(assoc 43 entl)))
   (if (<= xk 0)(setq xk 0.1))
   (setq n (car pp))
   (if (= n 10)
   (progn
(setq pp1 (cdr pp))
(setq pp2 (trans pp1 0 1))
(setvar "osmode" 0)
(setvar "clayer" (cdr(assoc 8 entl)))
(command "circle" pp2 (* l xk) "")
(setq xx(entlast))
(setvar "clayer" "0")
(setq pp3 (polar pp2 (+ l3 1.57) xk))
(setq pp4 (polar pp2 (- l3 1.57) xk))
(command "zoom" "c" pp2 4 "")
(command "trim" xx "" "f" pp3 pp4"" "")
(setq ct (+ 1 ct))
(setvar "osmode" oldosmode)
   )
   )
   (setq ct (+ ct 1))
)
   (princ)
)
此程序作用是在图中选一多段线，取其顶点坐标，并在每一个顶点上按线宽比例画圆，再把圆内的多段线剪断。因为仓促，程序可能有错误，请高手指正。