关于对象捕捉（LISP程序）的疑惑？？？

tcq2000_007

编了以下的LISP程序：
(defun c:CCD()
  (prompt "\n恢復捕捉模式:")
  (setvar "osmode" 703)
)
(defun c:CDD()
  (prompt "\n取消捕捉模式:")
  {6 z! |/ V/ d6 R! i7 m  (setvar "osmode" 0)
)
在AUTOCAD2004中运行无任何问题，但在
AUTOCAD2006---AUTOCAD2008中却无法使用，请高手看看问题在哪里？？？

sealive_leafage

为何要定义同样的命令二次？同名函数定义重复，最后加载的函数起作用；
: N8 A9 q" n* p6 {1 G9 y2 z设置捕捉模式一般是在程序执行前获得当前设置存储，然后设置自已程序中的捕捉模式，在你的程序执行完后，恢复捕捉模式到程序执行前的状态；
; H/ p# g4 ~+ y: o% W(defun C:CCD()
(setq Osnapmode (getvar "OSMODE"))；获得当前捕捉模式
(setvar "OSMODE" 703)；设置程序中需要的模式
: H/ @0 S$ D  v. t( _/ N2 N; ?；；your code
" ^4 E# n2 ~: \5 T/ i0 Q% ~% C. a$ h(setvar "OSMODE" Osnapmode)；恢复初始状态
+ t0 R8 b3 n% X, A/ P$ F)；defun

tcq2000_007

谢谢sealive_leafage 的回贴，可能你误会了我的意思了，这是定义好的两个命令，
( D6 Z1 j) C2 U, y: l9 WCCD即将捕捉模式定为703（这些都是最常用的，太多的话绘图有迟缓现象）；
4 w# [7 o8 D  Y8 k( oCDD就是取消捕捉；
) z- ]' Y6 M" Z这个程序应该没有问题，我以前用的很好的，只是在装了PCCAD后才出问题的。在没有装PCCAD的系统中运行也是正常的。
/ @4 h: ]) w3 X' m. A4 @我感到有疑问的地方是：
我手动设置捕捉模式为703，没有问题，
但用我的程序设置就有问题（另外在未装PCCAD的CAD中运都没有问题）。

sealive_leafage

函数你写在那个文件里（acaddoc.lsp or acad.lsp）？就把这些内容写到PCCAD的安装目录或support中（对应的文件，），因为安装PCCAD后ACAD路径下的启动加载文件被屏蔽了！

tcq2000_007

我是写在另外一个文件里面的，里面有很多的程序，其它的都没有问题，只用其中的几个有问题：
;*******************************************************************************
(defun c:CCD()
  (prompt "\n恢復捕捉模式:")
2 e) b- Y/ `  I8 e  (setvar "osmode" 703)
)
;*******************************************************************************
" t; L" b  I9 t) D0 l- }(defun c:CDD()
' _& H- H) j7 w% B" L) m9 V  (prompt "\n取消捕捉模式:")
  (setvar "osmode" 0)
# d/ s! ]( C; ?2 {+ S)
. |2 g7 B! O& C2 A& E$ ~;*******************************************************************************
. _1 I' T) a5 u: y/ N8 a7 T(DEFUN C:er(/ VAR1 VAR2 O A P Q)  ;功能:切換到物體所在layer
% S3 Y; _) S7 n% _! O0 k: Q  (SETQ VAR1 (GETVAR "BLIPMODE"))
' x8 V1 ]  K/ y: {* M( A0 W9 o; G  (SETQ VAR2 (GETVAR "CMDECHO"))
8 r) e8 L/ j! H* S2 @  (SETVAR "BLIPMODE" 0)
  (SETVAR "CMDECHO"  0)
  (PRINC "\n 切換到物體所在層 : ")
, O4 ^4 O9 {/ r1 I/ t1 o: J5 v# k4 s  (SETQ O (ENTSEL))
" l* I, n0 x8 |8 }9 P* ~8 v6 }* _  (SETQ A (ENTGET (CAR O)))
- N  n/ D# m8 Z3 i7 v0 a  (SETQ P (CDR (ASSOC 8 A)))
3 ?7 u, H: E' o* z8 q+ @0 q  (SETQ Q (GETVAR "CLAYER"))
* J) v  l; Z4 A8 c. `1 |6 O  (IF (= Q P)
      (PRINC "\n CORRENT LAYER,CAN'T FROOZEN!!!!")
0 d9 Q0 ?: M' d0 K# T      (COMMAND "_-LAYER" "_s" P "")
. M1 r! o& m- b8 P, o! }$ p   )
1 N$ j8 ^& ^9 t& O6 f  (SETVAR "BLIPMODE" VAR1)
8 d9 ]! h2 l) M0 G  (SETVAR "CMDECHO"  VAR2)
  (PRINC "\nOK!")(PRINC)
. K$ f' x4 E+ _' i2 b1 ])
;*******************************************************************************
;*******************************************************************************
另外：
( F# R6 o3 @1 h$ g7 l7 X) Z直接在命令行里运行下边一句：
setvar "osmode" 703
4 J1 e  }5 k% Y" z0 |再确认就可以!
4 {9 f2 |4 ^6 N$ k但是运行
(setvar "osmode" 703)
1 B3 k4 V7 |$ v- T2 {; Z就不行，
& K7 X$ F+ j8 |$ x. n# K郁闷中……

sealive_leafage

你是不是在命令行输入CCD时没有执行你的函数？PCCAD不是很熟，你看看它里面有没有命令为CCD，会不会是命令名冲突，你改个名字试试看。

tcq2000_007

是的，我在命令行输入CCD,CDD,没有执行我的函数，但是我直接在命令行里运行
7 d2 A' O1 b. m4 U; E2 b$ S9 ]2 h+ ?setvar "osmode" 703
1 m3 x  y+ k9 Z/ C5 C0 {2 g再确认就可以!
, Z% [$ f$ u! U. }7 ]+ k" o另外我也试过了换其它的命令名，还是一样。
) A5 f( p6 @2 o5 d8 |上面这些程序，在没有装PCCAD的AUTOCAD里面都可以运行，都没有问题（我已经试过，也希望sealive_leafage  
试一下，帮我检查一下）

sealive_leafage

应该问题在PCCAD，ACAD测试过都没问题，你运行时命令行提示什么？

tcq2000_007

没有任何提示，和ACAD里面运行是一样的，只是没有把捕捉模式改过来！

sealive_leafage

把变量cmdecho设置为1就有提示了，你单独把这两个函数写在一个文件里，手动加载试试。

有风吹过1985

好高深的问题啊，学习一下－－－－－