为何每次开机，命令行总有参数类型错误提示

zgssd

我用的是AutoCAD2004，请问怎样去掉这种提示语句，谢谢！
! i6 T& Y# o  d: h( @4 e% k

0426

一般是加载了错误的程序所致。你搜索一下看看能不能找到acad.mnl文件，用记事本打开，将里面的代码贴上来看看。

或者你看看加载程序的启动组中有那几个程序？一个一个排除。

zgssd

尊楼上，将acad.mnl文件内容贴上来，请指教（因太长，分2次）

;;;     ACAD.MNL
;;;     Copyright (C) 1992 - 1997 by Autodesk, Inc.
3 G, u4 h3 K3 c+ N5 l' d;;;
;;;     Permission to use, copy, modify, and distribute this software
;;;     for any purpose and without fee is hereby granted, provided
;;;     that the above copyright notice appears in all copies and
;;;     that both that copyright notice and the limited warranty and
;;;     restricted rights notice below appear in all supporting
;;;     documentation.
# t- m6 P! ?' j- R;;;
;;;     AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.  
2 D' h. L; H9 G% S) p" [;;;     AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
;;;     MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC.
;;;     DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
, K+ Q2 F, y; `1 O+ S;;;     UNINTERRUPTED OR ERROR FREE.
;;;
/ A( ~2 D8 \$ K! S$ ^5 y% _4 k;;;     Use, duplication, or disclosure by the U.S. Government is subject to
8 r; m6 l4 A4 K;;;     restrictions set forth in FAR 52.227-19 (Commercial Computer
# [! I0 K" v- j* Z! V;;;     Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
;;;     (Rights in Technical Data and Computer Software), as applicable.
;;;
;;;     AutoLISP routines used by the AutoCAD Standard Menu.
: x2 d( Q5 W, g5 };;;
1 }; Z" f( q' C9 A9 |, }2 D;;;     This file is loaded automatically following the menu ACAD.  
% |. {7 T* V; A" G: @& w
7 q7 S- [' v& z9 R8 y(princ "\nAutoCAD 菜单实用程序")


;;;=== Icon Menu Functions ===

# N* {* n- s0 E8 G/ T: W. o$ w;;;  View -> Layout -> Tiled Viewports...

8 h0 g, r- M+ r; L, \(defun ai_tiledvp_chk (new)
4 \# G& w5 l+ B9 q  (setq m:err *error* *error* *merrmsg*)

* G  B$ _+ P- y% E) R  (if (= (getvar "TILEMODE") 0)
    (progn
      (princ "\n** “布局”不允许使用的命令 **")
& d1 W# r/ S9 t4 w% [$ i* z      (princ)
7 w% C* I" b% Y6 J    )
  r, q8 L# }; D' i    (progn
      (if new
        (menucmd "I=ACAD.IMAGE_VPORTI")
        (menucmd "I=IMAGE_VPORTI")
; ~" b$ X) P$ f  B5 m9 I      )
/ |8 b1 o7 g, v' s2 r      (menucmd "I=*")
    )
  )
  (setq *error* m:err m:err nil)
; X; ~) }- f  o  (princ)
# e( m  A% ]8 D: R( v' ?" c)

(defun ai_tiledvp (num ori / ai_tiles_g ai_tiles_cmde)
  (setq m:err *error* *error* *merrmsg*
$ c- F+ _2 \* E7 z4 ]        ai_tiles_cmde (getvar "CMDECHO")
        ai_tiles_g (getvar "GRIDMODE")
; X* J; ]4 G$ ^6 j8 E$ o  )
  (ai_undo_push)
  (setvar "CMDECHO" 0)
  (setvar "GRIDMODE" 0)
- w9 `% s" u3 c" l! I* e% @) K  (cond ((= num 1)
& W6 r/ M! V9 m1 C8 A         (command "_.VPORTS" "_SI")
         (setvar "GRIDMODE" ai_tiles_g)
        )
        ((< num 4)
; }4 R9 T! s+ y* K2 U' t# |8 C         (command "_.VPORTS" "_SI")
: `- ]! A3 ?( G$ m( K' i$ g* F         (command "_.VPORTS" num ori)
         (setvar "GRIDMODE" ai_tiles_g)
2 p" C# V1 k4 i* z        )
        ((= ori nil)
         (command "_.VPORTS" "_SI")
         (command "_.VPORTS" num)
2 t  V9 p% z1 x% ^* s         (setvar "GRIDMODE" ai_tiles_g)
6 k4 X& f4 a% L3 \        )
! h% Y' P& Y. e! p5 y        ((= ori "_L")
( u2 Q. V3 K; J, H5 v" N         (command "_.VPORTS" "_SI")
! p7 @2 L, d2 s$ y5 Z# P3 t         (command "_.VPORTS" "2" "")
) V  o: R$ d  H% q& l) `4 B' a# B         (setvar "CVPORT" (car (cadr (vports))))
  f1 w; U- W& g" v' \. p         (command "_.VPORTS" "2" "")
         (command "_.VPORTS" "_J" "" (car (cadr (vports))))
2 L2 h$ c$ ?0 d+ n& p! f         (setvar "CVPORT" (car (cadr (vports))))
, ^' u5 b5 j6 n1 \, \% k         (command "_.VPORTS" "3" "_H")
) B, N( ~* B+ ]# y         (setvar "GRIDMODE" ai_tiles_g)
3 V8 [- |5 v$ t% S         (setvar "CVPORT" (car (cadddr (vports))))
" ]4 F6 a; c' Y: D& M         (setvar "GRIDMODE" ai_tiles_g)
         (setvar "CVPORT" (car (cadddr (vports))))
7 @6 h: l/ V# g3 I( X, \         (setvar "GRIDMODE" ai_tiles_g)
: f- y! w5 u0 F* M* X3 {9 `         (setvar "CVPORT" (car (cadddr (vports))))
         (setvar "GRIDMODE" ai_tiles_g)
4 L6 r+ b% k2 p0 U' c8 R( u        )
) p* M  N7 \- @/ |) [! G        (T
         (command "_.VPORTS" "_SI")
/ n4 e2 `9 w: ?) `7 U. W+ J  @         (command "_.VPORTS" "2" "")
         (command "_.VPORTS" "2" "")
5 R. e# w9 Y. d! E" F; ~7 {1 W: z         (setvar "CVPORT" (car (caddr (vports))))
4 q! z! @3 `6 [4 r; z4 U         (command "_.VPORTS" "_J" "" (car (caddr (vports))))
+ r2 e0 ]5 f+ p$ F         (setvar "CVPORT" (car (cadr (vports))))
2 Y; w$ \# r. I' @, {         (command "_.VPORTS" "3" "_H")
1 z/ x# D- n3 H# a% y( ^. L         (setvar "GRIDMODE" ai_tiles_g)
3 n! b4 I) ^  \, m6 J         (setvar "CVPORT" (car (cadddr (vports))))
         (setvar "GRIDMODE" ai_tiles_g)
6 Q- g3 z, w  B6 t4 k         (setvar "CVPORT" (car (cadddr (vports))))
+ O" M& ^4 n. G8 O; Q5 O         (setvar "GRIDMODE" ai_tiles_g)
6 ^5 d1 z: |! R( O! ]: N: w( f         (setvar "CVPORT" (car (cadddr (vports))))
         (setvar "GRIDMODE" ai_tiles_g)
8 x* B- t9 ?7 b: I* F8 K- ~; b; H2 K        )
  )
  (ai_undo_pop)
. O/ h" @$ e3 y. c0 B- w  (setq *error* m:err m:err nil)
1 G: U. {( W. {  x. ]7 \2 h0 c6 J  (setvar "CMDECHO" ai_tiles_cmde)
' K5 ?' e/ H8 E4 F" p( T4 Q  (princ)
7 ^- S# c8 m  {' B)


4 j, R8 ^& B( X. z;;;=== General Utility Functions ===
5 E$ w% ^/ P5 `( P$ W% b5 f" U
0 B8 v# C0 U% j; J. U% {8 B;;; ai_popmenucfg -- retrieve parameter from cfg settings
/ o; q, D; d, l. h9 g2 ]- _% };;; <param> is a string specifiying the parameter

(defun ai_popmenucfg (param)
  (set (read param) (getcfg (strcat "CfgData/Menu/" param)))
)
! u- W- e3 J- S+ D+ D) c+ }& x
: ^; N& ^3 q$ g+ d( A  X, {, g6 j;;; ai_putmenucfg -- store parameter in cfg settings
1 j, ?1 q: N0 n# K;;; <param> is a string specifiying the parameter
7 Q) s; s, W/ `$ r; n, o  w9 Y: G;;; <cfgval> is the value for that parameter
% m, g8 i; R2 e% y7 c
(defun ai_putmenucfg (param cfgval)
, E3 }1 ^7 c$ D8 O  (setcfg (strcat "CfgData/Menu/" param) cfgval)
)
4 [9 x9 b5 I6 a" ?5 G6 v$ i
( s/ y& F( @; A% ]6 A(defun *merr* (msg)
" B' q. @- d: f+ ~: N3 k  (ai_sysvar nil) ;; reset system variables
  (setq *error* m:err m:err nil)
  (princ)
)
1 E: Y5 C2 i+ s1 F
; I5 ^. I# D1 E. B3 d(defun *merrmsg* (msg)
  (princ msg)
) y0 f- h; [  h, h! b" f3 E  (setq *error* m:err m:err nil)
. D2 p" I2 |' s  (princ)
! r9 A, y; p4 z  F: z/ _)
. }( T& R% k/ b3 O. I4 |& u

) K* T% j0 v. l* G0 p$ D4 Q9 x( i(defun ai_showedge_alert ()
) ^% A! {" d" h: a   (alert "下次重生成时显示不可见边。")
3 e8 U$ u! I$ |$ ?: Z$ |. C   (princ)
)
3 m6 R8 h4 z, F6 ?
(defun ai_hideedge_alert ()
   (alert "下次重生成时隐藏不可见边。")
   (princ)
)
8 y0 U: D: \4 R# ^* l4 p& ~( d
(defun ai_viewports_alert ()
   (princ "** 命令不允许在模型选项卡中使用 **")
   (setq *error* m:err m:err nil)
   (princ)
% O/ t2 Z' `+ ^) R$ u1 A)
+ U1 @9 i2 [/ o0 l- v% D( a+ s
6 ]9 f! \# R* G' x(defun ai_refedit_alert ()
   (princ "\n** 除非参照已用 REFEDIT 命令检查，否则不允许使用该命令 **")
   (setq *error* m:err m:err nil)
   (princ)
)
) ]/ Q0 }. |) h- A; {3 C, y2 g
% ?7 V/ c" u/ I9 Y;;; --- ai_sysvar ------------------------------------------
;;; Change system variable settings and save current settings
) u" Z) V9 [  V* \- P* t6 Y;;; (Note: used by *merr* to restore system settings on error.)
;;;
1 l4 K+ f9 ~  q# e) G;;; The <vars> argument is used to...
;;;   restore previous settings (ai_sysvar NIL)
;;;   set a single sys'var (ai_sysvar  '("cmdecho" . 0))
;;;   set multiple sys'vars (ai_sysvar '(("cmdecho" . 0)("gridmode" . 0)))
;;;
;;; defun-q is needed by Visual Lisp for functions which redefine themselves.
# N3 M: N; d8 b# p2 M5 J$ Y;;; it is aliased to defun for seamless use with AutoLISP.
& T) ~( O! A, l8 _: }
(defun-q ai_sysvar (vars / savevar pair varname varvalue varlist)

   (setq varlist nil)  ;; place holder for varlist
; [: N  p' ~2 k+ o* }: M7 ]
' I* x) f3 G5 B   (defun savevar (varname varvalue / pair)
      (cond
             ;; if new value is NIL, save current setting
         ((not varvalue)
            (setq varlist
               (cons
                   (cons varname (getvar varname))
                    varlist
( Z) {4 [! c$ _( M" y0 F% A' ]               )
            )
8 I4 |: |* @9 u) l3 J7 i             )
+ W+ t7 a6 B7 c) C                 ;; change sys'var only if it's different
         ((/= (getvar varname) varvalue)
                 ;; add current setting to varlist, change setting
; z2 u) [, {! g+ x$ C             (setq varlist
) o2 }) q; Y) }) g) S0 i/ D/ G                (cons
# C& C' L9 b3 ?1 R# {7 i                   (cons varname (getvar varname))
3 q1 l4 H2 Q" R( U) H& N2 S                    varlist
) c  E- U7 b% K- ^! n                )
             )
             (setvar varname varvalue)
             )
) P4 e; _' F# K                 (T nil)
          )
   )
, p' P% L* T: D% p$ P" c  J# i
   (cond
          ;; reset all values
      ((not vars)
         (foreach pair varlist
( c: s. F4 H: X6 R            (setq  varname (car pair)  
0 w: S# \8 \4 }- u8 ^                  varvalue (cdr pair)
* i  n1 Q# S7 h5 H5 t) J1 y0 k            )
            (setvar varname varvalue)
; S4 T1 J3 E# C2 d  G: E                 )
" ~$ N' o4 p) S3 m- a8 _  y; F* b         (setq varlist nil)
          )
% R1 d9 ]) E: a, M
! d, _1 T0 J5 O4 x+ O          ((not (eq 'LIST (type vars)))
              (princ "\nAI_SYSVAR: 参数类型错。\n")
* y: z  S3 C- `          )

+ @6 O* X9 k# |& [4 g$ q& }' R# o          ;; set a single system variable
      ((eq 'STR (type (car vars)))
         (savevar (car vars) (cdr vars))
/ e1 `6 ]3 s4 D. X+ `1 h
          )
# r% R' e: S) Y- `% _- y' o% }
          ;; set multiple system variables
      ((and
                (eq 'LIST (type (car  vars)))
8 |1 v, Q; w" {1 U( i            (eq 'STR  (type (caar vars)))
) L/ L8 R$ c5 j           )
         (foreach pair vars
            (setq  varname (car pair)  
                  varvalue (cdr pair)
" t2 k0 O3 [7 n- G# Y5 t% a            )
            (if (not (eq 'STR (type varname)))
, V* H9 @+ p1 S* s: i' e' a                (princ "\nAI_SYSVAR: 参数类型错。\n")
9 w2 A/ l( O# N, L3 G$ Z                (savevar varname varvalue)
            )
& l$ H: f( G+ i5 ?9 w5 v                 )
9 h/ @5 H! I4 f# z' P" L, L          )
- E) i$ G( J9 r0 x+ {& e      
1 g. S$ C5 Z0 v0 [; B3 O      (T (princ "\nAI_SYSVAR: 第一个参数有错。\n"))
   
4 z* p& z# Q- X) T7 `- y   );cond
) v5 D: u$ \: s* S5 g; h. ^# O   
   ;; redefine ai_sysvar function to contain the value of varlist
   (setq ai_sysvar
4 @+ }/ n1 q8 G; z      (cons (car ai_sysvar)
$ _$ c6 V9 B' V7 T0 k- H              (cons (list 'setq 'varlist (list 'quote varlist))
                        (cddr ai_sysvar)
                  )
! e1 F1 O1 t  t0 ^, P' k7 h          )
" s* ^. T1 Q' v" j: ?5 I   )
/ }0 @9 }* L  S' K# X
   varlist  ;; return the list
, q; J) f! X$ [7 `0 h# Y
4 x) `+ j' a: h$ y8 r/ I);sysvar
: f1 z2 s* G9 ^+ Q- ?
- D. A9 k% h! r) P
9 W2 g- h# E9 e/ k6 |! R;;; return point must be on an entity
. [' D! C( g- H7 x- e) Q. k; D, u" T;;;
/ u$ D$ C# G% l2 x( _+ o(defun ai_entsnap (msg osmode / entpt)
   (while (not entpt)
          (setq entpt (last (entsel msg)))
: }5 o  @$ ~, m: T+ o   )
   (if osmode
; a5 w7 |1 C* t  }( T& L. v      (setq entpt (osnap entpt osmode))
   )
   entpt
4 }2 `$ A) G1 P8 h" c, b)

1 j+ M6 Q& {" D9 [7 L: b% J;;;
;;; These UNDO handlers are taken from ai_utils.lsp and copied here to
;;; avoid loading all of ai_utils.lsp. Command echo control has also
;;; been added so that UNDO commands aren't echoed everywhere.
;;;
;;; UNDO handlers.  When UNDO ALL is enabled, Auto must be turned off and
" [1 p  M/ [2 P7 r! p  S3 u; P;;; GROUP and END added as needed.
;;;
( K2 q3 [( a! [* f* M* [  x: E8 h* W(defun ai_undo_push()
3 h0 a9 E$ B) T" a& R% M& k  (ai_sysvar '("cmdecho" . 0))
5 O( v; v! r5 @: s  (setq undo_init (getvar "undoctl"))
2 D0 J  `9 ?! s( V2 Y0 V; ^6 d3 i  (cond
    ((and (= 1 (logand undo_init 1))   ; enabled
          (/= 2 (logand undo_init 2))  ; not ONE (ie ALL is ON)
          (/= 8 (logand undo_init 8))   ; no GROUP active
! f5 p/ k5 ^1 m     )
  F9 f+ B0 t! A+ R# P5 b  y) Q      (command "_.undo" "_group")
    )
( c; m! n0 u; t    (T)
  )  
  ;; If Auto is ON, turn it off.
  (if (= 4 (logand 4 undo_init))
5 e: A  o0 i) ~& O0 y" t, ~/ C2 i2 o      (command "_.undo" "_auto" "_off")
  )
" l3 k! c( j7 b4 H3 `  (ai_sysvar NIL)
)

zgssd

;;;
- z: L/ K+ G8 X0 h$ E/ Q' N. b;;; Add an END to UNDO and return to initial state.
' P9 c% _) [1 S# n;;;
(defun ai_undo_pop()
  (ai_sysvar '("cmdecho" . 0))
8 ?6 X& t9 U) R( z- G  (cond
    ((and (= 1 (logand undo_init 1))   ; enabled
6 }$ H6 r( b6 J( U+ }3 L          (/= 2 (logand undo_init 2))  ; not ONE (ie ALL is ON)
  I+ F" A2 E" }' p          (/= 8 (logand undo_init 8))   ; no GROUP active
     )
9 f5 n  d' G; o1 ^& u      (command "_.undo" "_end")
    )
    (T)
+ `) U7 L  w! n  )  
5 C8 a3 p+ l* C. r  ;; If it has been forced off, turn it back on.
  (if (= 4 (logand undo_init 4))
/ x; F: V& O8 b* g8 N5 c1 Y    (command "_.undo" "_auto" "_on")
  )  
  i% w( j- X. o' u- Q  (ai_sysvar NIL)
0 h" p. B7 k5 s+ @)
5 d. ^; f' \/ s% _) m, v" C
7 S, t/ |- w4 I% Y* J- |;;;=== Menu Functions ======================================

(defun ai_rootmenus ()
  (setq T_MENU 0)
  (menucmd "S=S")
  (menucmd "S=ACAD.S")
' y! R! N" A: f9 B* D9 c  h) e2 o  (princ)
)
$ j+ z6 q6 x% j: [" Z! [& X
(defun c:ai_fms ( / fmsa fmsb)
  (setq m:err *error* *error* *merr*)
8 r. C! t- `( d  (ai_undo_push)
  (if (getvar "TILEMODE") (setvar "TILEMODE" 0))
  (setq fmsa (vports) fmsb (nth 0 fmsa))
% a* R. p& d  _3 R& X: K( }  (if (member 1 fmsb)
    (if (> (length fmsa) 1)
+ ~; Q1 e7 _5 R8 q; Q      (command "_.mspace")
1 U2 f  P$ n" T" @      (progn
, ?8 c+ k4 ?9 O        (ai_sysvar '("cmdecho" . 1))
        (command "_.mview")
' Q4 R8 z) D, l8 n! p) ]& Y        (while (eq 1 (logand 1 (getvar "CMDACTIVE")))
! f! l( @0 P) Z# I8 n, \3 k          (command pause)
4 t2 Y; I( `: X! x. `% F3 e        )
        (ai_sysvar NIL)
        (command "_.mspace")
      )
    )
  )
4 x) [$ G6 S( s, D" I8 O  (ai_undo_pop)
( e/ s% o8 i- I5 [0 L, f  (setq *error* m:err m:err nil)
  (princ)
: F* W! F# S, C* s! X% Q" y6 {)

(defun ai_onoff (var)
' f" M+ R# A& ^" g& v2 I  (setvar var (abs (1- (getvar var))))
; B3 A  x; c2 ]+ e  (princ)
' ]. {7 e; e" s* C: })
: z* ^! Z1 R; [/ P! `
;;; go to paper space
(defun c:ai_pspace ()
  (ai_undo_push)
* y" Q$ }/ I3 e! B  (if (/= 0 (getvar "tilemode"))
    (command "_.tilemode" 0)
  )
  (if (/= 1 (getvar "cvport"))
+ v0 j$ Y7 q9 j; w0 K  H# A3 }3 W* X    (command "_.pspace")
  )
  (ai_undo_pop)
  (princ)
2 s4 s: m1 O: })

% p- E. g5 s; u3 S;;; go to tilemode 1
(defun c:ai_tilemode1 ()
  (ai_undo_push)
  j+ `& Y0 t5 Y  (if (/= 1 (getvar "tilemode"))
) h$ p( x8 U7 T2 H' D1 y    (command "_.tilemode" 1)
  )
  (ai_undo_pop)
  (princ)
)

;;; Pop menu Draw/ Dim/ Align Text/ Centered
;;; Toolbar Dimensions/ Align Text/ Centered

(defun ai_dim_cen (/ ai_sysvar ai_dim_ss)
  (setq ai_sysvar (getvar "cmdecho"))
- J+ P! v8 K1 f1 F. ~  (setvar "cmdecho" 0)
  (cond
    ((setq ai_dim_ss (ssget  "_P" '((0 . "DIMENSION"))))
      (command "_.dimoverride" "_dimjust" 0 "" ai_dim_ss ""
               "_.dimtedit" ai_dim_ss "_h")
    )
$ J4 H$ y7 Q. \* W8 u" ~    (T nil)
1 a# n8 Z0 y8 m3 y" r/ a  )
- C+ s/ m8 C% D& l2 D! s" x  (setvar "cmdecho" ai_sysvar)
, |. S3 r6 l! a  (princ)
)

;;; Shortcut menu for Dimension Text Above
& s* C, W& T6 a# F! F
( A; z5 k  t; f5 v- @7 X; K(defun c:ai_dim_textabove (/ ss)
' V+ h4 h2 q8 o2 _  (ai_sysvar '("cmdecho" . 0))
0 @. D% I& I" r9 R9 [$ J  (if (setq ss (ssget "_I"))
: J$ ]3 B% @4 W2 j2 t2 {  U; b, r    (command "_.dimoverride" "_dimtad" 3 "" ss "")
, h8 \. J; c4 P& V( v    (if (setq ss (ssget))
      (command "_.dimoverride" "_dimtad" 3 "" ss "")
    )
) V" H! w& b& Q; x/ X  )
  (ai_sysvar NIL)
$ ^( u- k$ Y7 T9 D  (princ)
" `" R6 c9 Q& j" F: Y4 Z% p2 q)

;;; Shortcut menu for Dimension Text Center
+ C0 @6 Q) H& n1 c; [
(defun c:ai_dim_textcenter (/ ss)
* y$ P# l: ~* M" }  (ai_sysvar '("cmdecho" . 0))
& e: G. \- T0 n% f  (if (setq ss (ssget "_I"))
; P! O& L* q& A5 }( g( Z    (command "_.dimoverride" "_dimtad" 0 "" ss "")
5 C/ }2 |2 I& _    (if (setq ss (ssget))
& u9 L1 F+ L$ B5 w& d" S% i3 o$ J      (command "_.dimoverride" "_dimtad" 0 "" ss "")
0 ~! ?( L1 ~0 ~7 S    )
  )
  (ai_sysvar NIL)
  (princ)
% r7 t+ Z1 l: _8 d)
. u7 k8 u" Q+ }8 y, S
;;; Shortcut menu for Dimension Text Home
3 Y1 T7 C8 h, Q# g! F$ W! Y( Z( A
(defun c:ai_dim_texthome (/ ss)
) Z( V" M7 b7 d, R. m! \  (ai_sysvar '("cmdecho" . 0))
  (if (setq ss (ssget "_I"))
8 b6 x. {+ \6 x6 R  l# ~    (command "_.dimedit" "_h")
" K6 p: S: P  [+ L8 A' W    (if (setq ss (ssget))
      (command "_.dimedit" "_h" ss)
: b- G/ Q, |, i* i7 R' N    )
  )
  G& |% \8 g8 G  (ai_sysvar NIL)
8 K7 k$ ^9 i! Q) J  (princ)
3 z$ L7 C+ F0 Q# V)

8 y8 v- R/ w3 G, d; t
, {$ _; ^7 q( Q- f/ |;;; Screen menu item for CIRCLE TaTaTan option.
;;;     first, get points on entities
(defun ai_circtanstart()
   (setq m:err *error* *error* *merr*)
   (ai_sysvar
) z: V! T) W# T- z      (list '("cmdecho" . 0)
         ;; make sure _tan pick for CIRCLE gets same entity
  w5 ~- q. {9 P* J# O: j1 o         (cons "aperture"  (getvar "pickbox"))
% d- ^7 c  E5 q) H6 H          )
   )
4 Q  J% f' H2 G( |- n   ;; prompts are the same as CIRCLE/TTR command option
   (setq pt1 (ai_entsnap "\n输入切点定义: "  nil))
  l! j4 W2 ^  Y   (setq pt2 (ai_entsnap "\n输入第二个切点的定义: " nil))
8 d% q5 E! f: R9 V3 u+ g, z   (setq pt3 (ai_entsnap "\n输入第三个切点的定义: "  nil))
2 k: X- \: A2 X- P+ F/ b)
;;; Command-line version
(defun c:ai_circtan (/ pt1 pt2 pt3)
   (ai_circtanstart)

  x5 f' _, }( V$ ?7 R- T, @   (ai_sysvar '("osmode" . 256))
   (command "_.circle" "_3p" "_tan" pt1 "_tan" pt2 "_tan" pt3)
   
   (ai_sysvar nil)
5 s4 e5 J1 n7 c3 D   (setq *error* m:err m:err nil)
   (princ)
( [5 E3 s* O7 G6 K3 i)
;;; Use this if CMDNAMES == CIRCLE
" \6 M+ Q# T. b; w* m7 D(defun ai_circtan (/ pt1 pt2 pt3)
, j3 U5 u# g3 b/ V: h: X9 H   (ai_circtanstart)

   (ai_sysvar '("osmode" . 256))
% v5 Z) j2 P# A3 Y; W   (command "_3p" pt1  pt2  pt3)
   
   (ai_sysvar nil)
0 [# o$ C* K, P# Y7 x" O   (setq *error* m:err m:err nil)
   (princ)
)
) o, Q8 q( Z' h! v3 U6 C4 M
5 }' T1 ?: A( \+ {  [, w

;;;=== Make Object's Layer Current =============================
) Z4 M* e5 l+ A4 Q, F
7 H. r7 J2 z0 R# ^1 c) V;; Makes the layer of the selected object current.  If there is one
$ N+ B  O) i8 c) l" F;; object in the pickfirst set, it's layer is made current without
;; prompting for an object.  Else a prompt is issued.
(defun c:ai_molc(/ old_error end_undo old_cmdecho set1 ent undo_control)
+ j; j2 U1 n# d7 `) @% f! u8 _  
2 P5 I: F6 H1 ?& T  V  ;; Simple error handling.
  (defun molc_error (s)
    ;; Reset error handling.
        (if old_error (setq *error* old_error))
- `1 b1 c+ i% ~* u4 s! p        ;; End undo if we started one.
( `1 ~0 d+ N5 h* R        (if (eq end_undo 1) (command "_.undo" "_end"))
9 u; }: U0 b. \! a3 H: T7 M# j! e- p        ;; Reset command echo
! \" ?, I% L% A0 \9 H        (if old_cmdecho (setvar "cmdecho" old_cmdecho))
        ;; Silent exit.
6 a7 D: C$ P9 j        (princ)
  )
  
  ;; Save current error function.
) O, x0 D3 S4 y* I  (setq old_error *error*)
' ^. R% H* _  Q/ A/ }( [  
3 T0 a: U, |% n( y& M  ;; Set error handling to molc's error function.
  (setq *error* molc_error)
  
  ;; Save cmdecho setting.
  (setq old_cmdecho (getvar "cmdecho"))
  
) u0 ]6 R& T3 N9 v+ p  ;; Turn off cmdecho
" X( S- e) ^/ O' L7 w! ~  (setvar "cmdecho" 0)
   
  ;; If Pickfirst is on and the selction set contains
  ;; one object, then use it, else prompt for one.
  (if (and (eq 1 (logand 1 (getvar "pickfirst")))
            (setq set1 (ssget  "_i"))
: S; T0 X/ z2 X! R1 Z8 `+ o                (eq 1 (sslength set1))
          )
     (progn
) I' Y" b; N8 E' v- U           (setq ent (entget (ssname set1 0)))            
0 Q% J) I- e& ?, d. j  ]: w) C8 B% e$ o       (sssetfirst nil nil)
4 j1 ]2 J* o5 j& |7 z& W         )
! d* R( ^& L- m) ~; e         (progn
7 z8 K# m5 a3 b, l           (sssetfirst nil nil)
           (setq ent (entget (car (entsel "\n选择将使其图层成为当前图层的对象: "))))
         )
  )
2 e" ~+ _# l  ?  [; K5 Z! a- u; I$ a  
  ;; Get undo setting.
  (setq undo_control (getvar "undoctl"))
  
  ;; Initialize flag to to end undo.
  (setq end_undo 0)
* G! z0 S6 L7 x, l  
: g# K1 s% U  K6 N4 M+ [  ;; Begin Undo group if need be.
  (if (and (= 1 (logand 1 undo_control))   ; undo on
% l! @1 o1 v, P3 j- T+ g3 y1 q           (/= 2 (logand 2 undo_control))  ; not single undo
                 (/= 8 (logand 8 undo_control))  ; no active group
4 D: p# U1 b0 D/ g8 ]          )
: s7 H' M8 u; i7 s7 f          (progn
            ;; Begin a new one
                (command "_.undo" "_begin")
                   ;; Set flag so that we know to end undo.
  X4 b# P6 N0 T  p9 W            (setq end_undo 1)
' a5 y$ P% Z, ?9 I* `. g      )
3 }' c9 D" o& f2 e7 G: i8 j  )
% U$ \3 A0 q3 d7 j5 `* _0 M
1 R8 u1 s- h& S. d; |+ t  ;; Make object's layer current.
  (setvar "clayer" (cdr (assoc '8 ent)))
  
  ;; Print message
% ~0 h5 Z- J  ~' C  (princ (strcat "\n" (getvar "clayer") " 现在是当前图层。"))
" X( R9 H1 }. }- f! c   
% c! D. C- I) e  ;; Undo end
+ G* A7 C2 [- _/ ?* @' C/ t( x  (if (eq 1 end_undo)
2 k9 P7 Q" t5 d8 G    (command "_.undo" "_end")
$ y$ e6 G8 N# d; ]- N$ w7 `' G  )
& D# t) Q! a! _+ ^, P$ q/ x  
& q! x, J! B% L- a* Z# T- w  ;; Turn on cmdecho
  (setvar "cmdecho" old_cmdecho)
; D' n/ }* A, R: {  
. Y6 @) h! I- r6 Y1 l. Z: U. [  ;; Reset error function.
  (setq *error* old_error)
" @1 W: \6 R- x  
1 x+ }; {  p& [; t( Y  ;; Silent exit.
  (princ)
)

;;; Shortcut menu Deselect All item.

(defun ai_deselect ()
   (if (= (getvar "cmdecho") 0)                        ;start if
       (command "_.select" "_r" "_all" "")
       (progn                                        ;start progn for cmdecho 1
           (setvar "cmdecho" 0)
           (command "_.select" "_r" "_all" "")
5 Z- N5 M: C  y6 v5 Q% @           (setvar "cmdecho" 1)
  c; [/ e2 U. R9 U* s2 i) }5 n0 X       )                                        ;end progn for cmdecho 1
. C% e5 j0 d5 H- I# P  b7 ?   )                                                ;end if
: g0 |( y& C7 h. n, t5 {   (terpri)
. y" d* a  W8 N' y! j% X3 @   (prompt "所有对象都已取消选择")
   (princ)
)

;;;
" x, `) N0 w$ u;;; Enable Draworder to be called from a menu
$ K1 @. b) Y& ^;;; Checks for Pickfirst selected objects
;;;

: X; p) v! N! N& _7 E  l(defun ai_draworder (option / ss )

  (setq m:err *error* *error* *merr*)
  (ai_sysvar '("cmdecho" . 0))

  (if (setq ss (ssget "_I"))
    (command "_.draworder" option)
( D8 b9 \1 e8 t" `, V& f9 o2 r    (if (setq ss (ssget))
      (command "_.draworder" ss "" option)
    )
  )
2 r4 [* k- p) ]+ ^  (ai_sysvar NIL)
  (setq *error* m:err m:err nil)
) g" E: C, v3 v! V& G
: _# [) r4 t8 ^' k- t0 `3 e  (princ)
* `6 J6 t: @- j)
: x' D. R6 B9 r0 u$ I- c) i- h& D
(defun c:vlisp ()
  (if (/= nil c:vlide) (c:vlide))
)

(princ "已加载。")
(princ)

0426

你将AutoCAD Express Tools删除掉试试。好像是这个东西的问题。

zgssd

ET扩展工具，经常使用，咋能删除，肯定是它的原因吗？

0426

ET扩展工具，经常使用，咋能删除，肯定是它的原因吗？
3 c6 i( C+ l! ]' }2 B" X* Ezgssd 发表于 2011-2-23 12:55

1 Z' x0 ~! U' P& v! e7 `, ^$ U# V要学会变通，你可以先删除，看看还有没有这个问题。然后再重新安装一下，很可能就好了。很可能是它的原因。

wenjie2008

看看！！！！！！！！