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

tcq2000_007

编了以下的LISP程序：
(defun c:CCD()
# N, T( o; h" {( Q3 U  (prompt "\n恢復捕捉模式:")
  (setvar "osmode" 703)
8 E) J% d8 c( x8 U)
(defun c:CDD()
8 Z; n2 w) `4 ~0 T& G' q1 _7 `) g  (prompt "\n取消捕捉模式:")
  (setvar "osmode" 0)
% N5 C* c& W* c+ H6 J)
在AUTOCAD2004中运行无任何问题，但在
5 `' @' ]: t# l3 R/ tAUTOCAD2006---AUTOCAD2008中却无法使用，请高手看看问题在哪里？？？

sealive_leafage

为何要定义同样的命令二次？同名函数定义重复，最后加载的函数起作用；
1 k3 C) ^; z2 k- K3 H4 G( R) @设置捕捉模式一般是在程序执行前获得当前设置存储，然后设置自已程序中的捕捉模式，在你的程序执行完后，恢复捕捉模式到程序执行前的状态；
3 n$ m2 n( _; M1 h(defun C:CCD()
(setq Osnapmode (getvar "OSMODE"))；获得当前捕捉模式
2 s: A) u8 p) s5 {8 |(setvar "OSMODE" 703)；设置程序中需要的模式
；；your code
$ O6 j/ g2 F, o2 Q. J(setvar "OSMODE" Osnapmode)；恢复初始状态
)；defun

tcq2000_007

谢谢sealive_leafage 的回贴，可能你误会了我的意思了，这是定义好的两个命令，
CCD即将捕捉模式定为703（这些都是最常用的，太多的话绘图有迟缓现象）；
9 U$ m+ |2 G$ g7 ?8 @4 |3 aCDD就是取消捕捉；
这个程序应该没有问题，我以前用的很好的，只是在装了PCCAD后才出问题的。在没有装PCCAD的系统中运行也是正常的。
我感到有疑问的地方是：
5 A8 N( ~0 C. W0 y7 r9 X我手动设置捕捉模式为703，没有问题，
但用我的程序设置就有问题（另外在未装PCCAD的CAD中运都没有问题）。

sealive_leafage

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

tcq2000_007

我是写在另外一个文件里面的，里面有很多的程序，其它的都没有问题，只用其中的几个有问题：
;*******************************************************************************
: Y1 P+ l2 f3 k1 l' H. u(defun c:CCD()
! b! L3 u0 \4 f6 Z  (prompt "\n恢復捕捉模式:")
  (setvar "osmode" 703)
* g/ Y# I( P6 B)
;*******************************************************************************
' o2 m1 X$ v" b7 z(defun c:CDD()
' k  C6 X  @' G! C1 x  (prompt "\n取消捕捉模式:")
3 R7 d5 E7 f  ?6 ~- Y  (setvar "osmode" 0)
)
. i) A- v8 D, |/ Q: O;*******************************************************************************
(DEFUN C:er(/ VAR1 VAR2 O A P Q)  ;功能:切換到物體所在layer
  (SETQ VAR1 (GETVAR "BLIPMODE"))
  (SETQ VAR2 (GETVAR "CMDECHO"))
( n# V: A$ q8 w+ _7 V) f  (SETVAR "BLIPMODE" 0)
: F: w1 X, L7 v, Q! X1 y( m  (SETVAR "CMDECHO"  0)
  (PRINC "\n 切換到物體所在層 : ")
3 V. ]" ~  k2 ?4 k( E' j. Z  (SETQ O (ENTSEL))
3 k% V; ~+ W' |  (SETQ A (ENTGET (CAR O)))
. d' @/ ]$ r6 J( v" _0 J$ y  e! n2 {4 b  (SETQ P (CDR (ASSOC 8 A)))
5 _7 e6 I. K- {3 ?# @: G0 a" U  (SETQ Q (GETVAR "CLAYER"))
  (IF (= Q P)
      (PRINC "\n CORRENT LAYER,CAN'T FROOZEN!!!!")
      (COMMAND "_-LAYER" "_s" P "")
3 s; I# {6 y" D, q4 g   )
4 c% k! W' z4 J% n2 e- v" G3 U% P  (SETVAR "BLIPMODE" VAR1)
  (SETVAR "CMDECHO"  VAR2)
$ n! I( `9 ^3 G' j  (PRINC "\nOK!")(PRINC)
)
2 _& e8 @% q" Y; h/ N;*******************************************************************************
;*******************************************************************************
另外：
直接在命令行里运行下边一句：
* y5 c/ N" R" l6 @& F1 i! ^- a1 {setvar "osmode" 703
再确认就可以!
0 c4 U1 T  v& g但是运行
2 W- r% b0 R- v* O1 E% s7 r1 l; q(setvar "osmode" 703)
就不行，
郁闷中……

sealive_leafage

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

tcq2000_007

是的，我在命令行输入CCD,CDD,没有执行我的函数，但是我直接在命令行里运行
setvar "osmode" 703
* W) c' j/ m0 e. Q) O0 B再确认就可以!
" k3 Z: H! Y6 \/ m3 G另外我也试过了换其它的命令名，还是一样。
$ t& _5 Z+ U" a3 @: u, ]- Q* O上面这些程序，在没有装PCCAD的AUTOCAD里面都可以运行，都没有问题（我已经试过，也希望sealive_leafage  
  D$ ^0 d4 w, ~8 X& }试一下，帮我检查一下）

sealive_leafage

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

tcq2000_007

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

sealive_leafage

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

有风吹过1985

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