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

tcq2000_007

编了以下的LISP程序：
9 a+ s" F& x7 o+ Y7 B7 p5 d. n(defun c:CCD()
& {! `* n+ F7 q$ @& U  (prompt "\n恢復捕捉模式:")
& b+ ~; y. @; B/ Z/ |- l  (setvar "osmode" 703)
)
(defun c:CDD()
  (prompt "\n取消捕捉模式:")
  (setvar "osmode" 0)
)
在AUTOCAD2004中运行无任何问题，但在
. i8 k1 O1 |, ~1 n) }3 N# zAUTOCAD2006---AUTOCAD2008中却无法使用，请高手看看问题在哪里？？？

sealive_leafage

为何要定义同样的命令二次？同名函数定义重复，最后加载的函数起作用；
6 m9 O0 \0 b- p' y# ~) b; a设置捕捉模式一般是在程序执行前获得当前设置存储，然后设置自已程序中的捕捉模式，在你的程序执行完后，恢复捕捉模式到程序执行前的状态；
(defun C:CCD()
(setq Osnapmode (getvar "OSMODE"))；获得当前捕捉模式
. ?) N9 w6 ^0 O4 o' p9 D6 r- `7 L$ A0 G(setvar "OSMODE" 703)；设置程序中需要的模式
! x) C6 `8 {! s. z；；your code
(setvar "OSMODE" Osnapmode)；恢复初始状态
)；defun

tcq2000_007

谢谢sealive_leafage 的回贴，可能你误会了我的意思了，这是定义好的两个命令，
7 O1 ^  q! q9 M+ q+ CCCD即将捕捉模式定为703（这些都是最常用的，太多的话绘图有迟缓现象）；
CDD就是取消捕捉；
这个程序应该没有问题，我以前用的很好的，只是在装了PCCAD后才出问题的。在没有装PCCAD的系统中运行也是正常的。
* }( s) i6 Q8 i7 P3 ]; q9 X8 \' k我感到有疑问的地方是：
我手动设置捕捉模式为703，没有问题，
6 o% b9 U; V8 a2 l: x6 R. d但用我的程序设置就有问题（另外在未装PCCAD的CAD中运都没有问题）。

sealive_leafage

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

tcq2000_007

我是写在另外一个文件里面的，里面有很多的程序，其它的都没有问题，只用其中的几个有问题：
;*******************************************************************************
7 k: B. l( C7 b/ [5 v) g4 k(defun c:CCD()
4 E3 d/ c  F& |. m6 h6 z3 M  (prompt "\n恢復捕捉模式:")
5 x* |- L% [4 P2 q: p& i* c. C  (setvar "osmode" 703)
( q, z. M0 l1 n  p, p: ^)
;*******************************************************************************
(defun c:CDD()
  (prompt "\n取消捕捉模式:")
( X' Q6 _5 I% W$ B& u  (setvar "osmode" 0)
)
;*******************************************************************************
! b/ a- o5 g- M" Y/ W7 T& m8 A(DEFUN C:er(/ VAR1 VAR2 O A P Q)  ;功能:切換到物體所在layer
8 q8 Q7 g. }7 P; X2 N- s* E  (SETQ VAR1 (GETVAR "BLIPMODE"))
  (SETQ VAR2 (GETVAR "CMDECHO"))
+ f' Y/ t& b& C/ f  (SETVAR "BLIPMODE" 0)
. D/ V; ^: f1 s- R3 R) z" k  (SETVAR "CMDECHO"  0)
  (PRINC "\n 切換到物體所在層 : ")
4 k1 n8 x/ I! _7 h, q' n6 W7 I  (SETQ O (ENTSEL))
  (SETQ A (ENTGET (CAR O)))
5 e- S8 t5 w: n  (SETQ P (CDR (ASSOC 8 A)))
  (SETQ Q (GETVAR "CLAYER"))
  (IF (= Q P)
      (PRINC "\n CORRENT LAYER,CAN'T FROOZEN!!!!")
; a# U' @( ?3 E1 `4 g      (COMMAND "_-LAYER" "_s" P "")
, \1 w6 o3 H6 R/ H% o+ n! x2 s   )
. ]2 e- @9 [! ]. Q  (SETVAR "BLIPMODE" VAR1)
- d5 |, ~. ~" A7 Y  (SETVAR "CMDECHO"  VAR2)
! C1 q' |& X& ~- f+ d& P+ \  (PRINC "\nOK!")(PRINC)
+ F8 z( N0 U$ N  A0 `) X- T)
1 y: V& h/ l( J! \;*******************************************************************************
;*******************************************************************************
/ N* s! S2 H# `5 D5 W' f另外：
+ j' b9 l* f; T直接在命令行里运行下边一句：
setvar "osmode" 703
再确认就可以!
但是运行
- k2 ^6 M3 o7 I(setvar "osmode" 703)
9 d4 S9 {7 g7 X* [1 [, l. N就不行，
郁闷中……

sealive_leafage

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

tcq2000_007

是的，我在命令行输入CCD,CDD,没有执行我的函数，但是我直接在命令行里运行
# B. k; f8 T! y  }6 n/ A  isetvar "osmode" 703
* y1 U. g2 D" R$ P6 n3 B5 R再确认就可以!
2 |; I3 T0 a9 r% ]" B) d另外我也试过了换其它的命令名，还是一样。
上面这些程序，在没有装PCCAD的AUTOCAD里面都可以运行，都没有问题（我已经试过，也希望sealive_leafage  
4 x$ A; d0 {" L8 j7 ]4 \( q试一下，帮我检查一下）

sealive_leafage

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

tcq2000_007

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

sealive_leafage

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

有风吹过1985

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