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

tcq2000_007

编了以下的LISP程序：
' e! ]: ~) ^  f8 [5 J& g  R(defun c:CCD()
  |* c" c" \& h: m5 U+ ~/ D  (prompt "\n恢復捕捉模式:")
  (setvar "osmode" 703)
)
(defun c:CDD()
5 z3 t' ]4 D) r" m3 Q2 x) L; p  (prompt "\n取消捕捉模式:")
/ g. S% I1 X3 R" c7 V' \; a  (setvar "osmode" 0)
2 Y& X; a5 J' k" @1 k9 L  H)
在AUTOCAD2004中运行无任何问题，但在
) i4 l* B/ k6 vAUTOCAD2006---AUTOCAD2008中却无法使用，请高手看看问题在哪里？？？

sealive_leafage

为何要定义同样的命令二次？同名函数定义重复，最后加载的函数起作用；
设置捕捉模式一般是在程序执行前获得当前设置存储，然后设置自已程序中的捕捉模式，在你的程序执行完后，恢复捕捉模式到程序执行前的状态；
: ?3 r: a7 L: b/ I3 X& @' O6 Y(defun C:CCD()
(setq Osnapmode (getvar "OSMODE"))；获得当前捕捉模式
0 B5 A+ s- Z2 _) k( z; p9 m; ~(setvar "OSMODE" 703)；设置程序中需要的模式
' D% Y2 X1 a" ]1 {( K8 }  F; w；；your code
+ {6 H3 o4 g* K* \+ e% x( Z6 N(setvar "OSMODE" Osnapmode)；恢复初始状态
)；defun

tcq2000_007

谢谢sealive_leafage 的回贴，可能你误会了我的意思了，这是定义好的两个命令，
2 @" }& f0 ~) ?' @& LCCD即将捕捉模式定为703（这些都是最常用的，太多的话绘图有迟缓现象）；
' i( _1 H8 \9 ?) QCDD就是取消捕捉；
' o* y& `8 p. H& H+ J8 n这个程序应该没有问题，我以前用的很好的，只是在装了PCCAD后才出问题的。在没有装PCCAD的系统中运行也是正常的。
$ X* N/ y& ~) E4 W我感到有疑问的地方是：
我手动设置捕捉模式为703，没有问题，
- X8 y3 }  E( k/ d但用我的程序设置就有问题（另外在未装PCCAD的CAD中运都没有问题）。

sealive_leafage

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

tcq2000_007

我是写在另外一个文件里面的，里面有很多的程序，其它的都没有问题，只用其中的几个有问题：
% A7 A3 A' }! ~' B4 U3 h8 g;*******************************************************************************
% l/ W, b; B7 T; w- L& i9 i' F(defun c:CCD()
  (prompt "\n恢復捕捉模式:")
" ]6 V# ^7 f! k9 V9 a7 j  s  (setvar "osmode" 703)
)
;*******************************************************************************
2 u! P) e7 }% M: [1 K5 \* W: U(defun c:CDD()
  (prompt "\n取消捕捉模式:")
  (setvar "osmode" 0)
. x+ w5 p. P; g)
;*******************************************************************************
(DEFUN C:er(/ VAR1 VAR2 O A P Q)  ;功能:切換到物體所在layer
  (SETQ VAR1 (GETVAR "BLIPMODE"))
1 R! g, ?3 k/ r+ F4 w, T  (SETQ VAR2 (GETVAR "CMDECHO"))
7 j; D# P% M. [1 J' V  (SETVAR "BLIPMODE" 0)
  (SETVAR "CMDECHO"  0)
) Q0 O5 y- B, {% Z  (PRINC "\n 切換到物體所在層 : ")
* n' D. I. @" X3 |  (SETQ O (ENTSEL))
  T$ }+ a* I, I% o  (SETQ A (ENTGET (CAR O)))
1 L, t$ f- D7 F. j2 _  (SETQ P (CDR (ASSOC 8 A)))
) j2 T" {9 b5 w2 J( T; G  (SETQ Q (GETVAR "CLAYER"))
  (IF (= Q P)
      (PRINC "\n CORRENT LAYER,CAN'T FROOZEN!!!!")
4 B( |6 Y5 T% G& S" p$ M9 N      (COMMAND "_-LAYER" "_s" P "")
   )
  (SETVAR "BLIPMODE" VAR1)
  (SETVAR "CMDECHO"  VAR2)
  (PRINC "\nOK!")(PRINC)
4 ~1 p! p' C. p4 M, h, B+ E6 T! l! ~3 O)
;*******************************************************************************
. p' S8 `$ m: i8 a;*******************************************************************************
另外：
6 E, _) E( h! O" x直接在命令行里运行下边一句：
setvar "osmode" 703
再确认就可以!
但是运行
(setvar "osmode" 703)
2 {: e" l" _: f; h就不行，
% j7 X1 u! A6 \, k郁闷中……

sealive_leafage

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

tcq2000_007

是的，我在命令行输入CCD,CDD,没有执行我的函数，但是我直接在命令行里运行
setvar "osmode" 703
再确认就可以!
! P% I8 @  a  F: r另外我也试过了换其它的命令名，还是一样。
上面这些程序，在没有装PCCAD的AUTOCAD里面都可以运行，都没有问题（我已经试过，也希望sealive_leafage  
试一下，帮我检查一下）

sealive_leafage

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

tcq2000_007

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

sealive_leafage

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

有风吹过1985

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