[求助]：CAD2005有个LISP文件无法自动加载啊

jbqiu

有个LISP无法自动加载，请帮忙弄一下，谢谢
;;*** dmtr2=====dim trim 剪齐dim边界线--v2-----------lxx.2001v1;2002.10v2---终结版
;;与dmtr的区别在于，dmtr2切割点为pt1 pt2中点!并与p10 p14垂直.dmtr可以斜线切割；
;;
;;      |   p11   |
;;    -   ------ p10 -
;;      |         |
;;     p13       p14
;;注意，点为wcs点
;;生成dim必备的组码    (0 10 11) ;;;eg: ((0 . "DIMENSION")
;;形成特征dim的组码    (3 13 14 11 100)  ;;;其中含(100 . "AcDbRotatedDimension") 为dimlinear,不含为align类型;3为dim标注定义类型(3 . "AXIS");11可不指定
;;其他组码             (8 70 210);;;8层名;70＝0，1（模型/图纸空间）;210矢量方向eg:(210 0.0 0.0 1.0)
;;
;;
;;
(princ "\ndmtr2=====dim trim 剪齐dim边界线---v2 终结版----------lxx.2002\n")
;;;
(defun c:dmtr2 ( / pt1 pt2 ss i ent entl p10 p13 p14 ptt np14 np13)
(princ "\ndmtr2=====dim trim 剪齐dim边界线--v2 终结版-----------lxx.2001")
(command "_.undo" "be" ^c )
;;;
(defun *error* (msg) (print msg)(command  "_.undo" "e" ^c)(setq *error* nil))
;;;
(setq pt1 (getpoint "\n定义修剪界线 (只处理相交的dim),起点:")
      pt2 (getpoint pt1 "\n终点:")
      ss (ssget "f" (list pt1 pt2) '((0 . "DIMENSION")) )
      pt1 (trans pt1 1 0)
      pt2 (trans pt2 1 0)
      i 0
)
(repeat (sslength ss)
(setq ent (ssname ss i)
      entl (entget ent)
      p10 (cdr (assoc 10 entl))
      p13 (cdr (assoc 13 entl))
      p14 (cdr (assoc 14 entl))
    ;;ptt (cdr (assoc 11 entl));;文字定位
      i (1+ i)
      pt1 (polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2) ) ;;变为pt1 pt2的中点
      pt2 (polar pt1 (+ (/ PI 2) (angle p10 p14)) 100)
      np14 (inters pt1 pt2 p14 p10 nil)
)
(if (not(member '(100 . "AcDbRotatedDimension") entl)) ;;如果不是linear类型
     (setq np13 (polar np14 (angle p14 p13) (distance p14 p13)))
     (setq np13 (inters pt1 pt2 p13 (polar p13 (angle p14 p10) 100) nil))  ;;else;;align类型
)
(setq entl (subst (cons 13 np13) (assoc 13 entl) entl)
       entl (subst (cons 14 np14) (assoc 14 entl) entl)
)
  (entmod entl)
);end repeat
(command "_.undo" "e" ^c)
(setq *error* nil)
(princ)
)

yi.gao

抛砖引砖一下！
无法加载给你什么提示？