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

tcq2000_007

编了以下的LISP程序：
(defun c:CCD()
- G* Q& i% x3 g7 R5 x* Y  (prompt "\n恢復捕捉模式:")
/ O) n0 D2 T1 V, x9 _  (setvar "osmode" 703)
2 b& ]. ?( Z6 V7 k% d)
/ C1 q1 Z# H; \, j; R(defun c:CDD()
! c7 ^9 |( q/ M  S: S, a  (prompt "\n取消捕捉模式:")
6 w4 R( k! P9 B  (setvar "osmode" 0)
)
6 }- x' L7 S) U) q在AUTOCAD2004中运行无任何问题，但在
AUTOCAD2006---AUTOCAD2008中却无法使用，请高手看看问题在哪里？？？

sealive_leafage

为何要定义同样的命令二次？同名函数定义重复，最后加载的函数起作用；
设置捕捉模式一般是在程序执行前获得当前设置存储，然后设置自已程序中的捕捉模式，在你的程序执行完后，恢复捕捉模式到程序执行前的状态；
' t1 F5 H! m" C' c; Y(defun C:CCD()
5 L4 M: f/ o8 ~* D5 b(setq Osnapmode (getvar "OSMODE"))；获得当前捕捉模式
4 W. Q! U. m. i6 ?1 F0 ?7 H(setvar "OSMODE" 703)；设置程序中需要的模式
；；your code
# T! l4 K: k- ^4 T3 l/ J0 Y(setvar "OSMODE" Osnapmode)；恢复初始状态
)；defun

tcq2000_007

谢谢sealive_leafage 的回贴，可能你误会了我的意思了，这是定义好的两个命令，
; J( e2 o. B/ |CCD即将捕捉模式定为703（这些都是最常用的，太多的话绘图有迟缓现象）；
CDD就是取消捕捉；
这个程序应该没有问题，我以前用的很好的，只是在装了PCCAD后才出问题的。在没有装PCCAD的系统中运行也是正常的。
我感到有疑问的地方是：
4 }! F' s% H7 T$ Y+ _我手动设置捕捉模式为703，没有问题，
2 m+ \* Y6 E8 A' \0 k8 K但用我的程序设置就有问题（另外在未装PCCAD的CAD中运都没有问题）。

sealive_leafage

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

tcq2000_007

我是写在另外一个文件里面的，里面有很多的程序，其它的都没有问题，只用其中的几个有问题：
;*******************************************************************************
(defun c:CCD()
' I: Q8 |3 _% b& X' Q1 e  (prompt "\n恢復捕捉模式:")
# K0 i0 v. N* p9 t8 a% L1 z  (setvar "osmode" 703)
" m5 {4 t' H7 Q)
;*******************************************************************************
(defun c:CDD()
0 a/ P4 G3 J3 q6 K  (prompt "\n取消捕捉模式:")
  (setvar "osmode" 0)
5 F4 k+ a& e9 T+ @( f3 L)
* ^+ a! ^$ T0 {! ~/ p;*******************************************************************************
(DEFUN C:er(/ VAR1 VAR2 O A P Q)  ;功能:切換到物體所在layer
  a- ]9 r" a; T; G  (SETQ VAR1 (GETVAR "BLIPMODE"))
; ]/ P* y, z. p- u+ l" ~  (SETQ VAR2 (GETVAR "CMDECHO"))
  (SETVAR "BLIPMODE" 0)
  (SETVAR "CMDECHO"  0)
  (PRINC "\n 切換到物體所在層 : ")
  (SETQ O (ENTSEL))
2 x8 l8 m" q7 a+ i0 k/ Z8 S  (SETQ A (ENTGET (CAR O)))
  (SETQ P (CDR (ASSOC 8 A)))
  (SETQ Q (GETVAR "CLAYER"))
  (IF (= Q P)
! G: t+ f3 `1 W( `: m      (PRINC "\n CORRENT LAYER,CAN'T FROOZEN!!!!")
      (COMMAND "_-LAYER" "_s" P "")
   )
  (SETVAR "BLIPMODE" VAR1)
  (SETVAR "CMDECHO"  VAR2)
6 R2 I" S, ~6 R$ x; a  (PRINC "\nOK!")(PRINC)
/ q5 Q9 `& ~1 G2 M8 \: X& G)
: m% c2 s- J3 ?  a;*******************************************************************************
- C5 q0 Y( u/ A+ [  A2 f! @;*******************************************************************************
% J( q4 C  K9 R另外：
$ {8 j& m) ?& u9 s1 O3 A直接在命令行里运行下边一句：
/ W/ d. G0 O6 ]+ V  wsetvar "osmode" 703
再确认就可以!
7 d0 c6 x' d+ M8 c* y但是运行
(setvar "osmode" 703)
% u" i$ @0 F- i就不行，
4 E* A0 S, B( D& x- Q: ~! z郁闷中……

sealive_leafage

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

tcq2000_007

是的，我在命令行输入CCD,CDD,没有执行我的函数，但是我直接在命令行里运行
3 e$ \; j: U  K0 g0 r7 Fsetvar "osmode" 703
再确认就可以!
  B0 w/ o" D, J! L% Y# U+ y8 [另外我也试过了换其它的命令名，还是一样。
上面这些程序，在没有装PCCAD的AUTOCAD里面都可以运行，都没有问题（我已经试过，也希望sealive_leafage  
' T9 ^/ s3 p; K: N2 i试一下，帮我检查一下）

sealive_leafage

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

tcq2000_007

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

sealive_leafage

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

有风吹过1985

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