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

tcq2000_007

编了以下的LISP程序：
(defun c:CCD()
, }- ~9 I3 ]4 A1 P2 c1 a+ {  {0 }( @  (prompt "\n恢復捕捉模式:")
  (setvar "osmode" 703)
! F2 J) G3 ]3 P* e5 W. ^1 l)
(defun c:CDD()
  (prompt "\n取消捕捉模式:")
  (setvar "osmode" 0)
2 t2 s* ^9 r7 f)
" c- I# q# ?) X在AUTOCAD2004中运行无任何问题，但在
$ n2 Y. u" _5 T* N6 \3 X- ^  LAUTOCAD2006---AUTOCAD2008中却无法使用，请高手看看问题在哪里？？？

sealive_leafage

为何要定义同样的命令二次？同名函数定义重复，最后加载的函数起作用；
设置捕捉模式一般是在程序执行前获得当前设置存储，然后设置自已程序中的捕捉模式，在你的程序执行完后，恢复捕捉模式到程序执行前的状态；
% @5 W) R! I! |3 [% l% d(defun C:CCD()
" J  ?0 a5 f0 \! @0 F(setq Osnapmode (getvar "OSMODE"))；获得当前捕捉模式
9 y( v; _2 v( u2 Y* w(setvar "OSMODE" 703)；设置程序中需要的模式
1 q* D* C' g6 T# ^$ z$ v- {；；your code
1 ^# f: |* i+ o+ ](setvar "OSMODE" Osnapmode)；恢复初始状态
# r% ^  }$ I; v- {)；defun

tcq2000_007

谢谢sealive_leafage 的回贴，可能你误会了我的意思了，这是定义好的两个命令，
CCD即将捕捉模式定为703（这些都是最常用的，太多的话绘图有迟缓现象）；
CDD就是取消捕捉；
5 l) o% a& j9 i这个程序应该没有问题，我以前用的很好的，只是在装了PCCAD后才出问题的。在没有装PCCAD的系统中运行也是正常的。
6 ~' J! I6 k% [  `* e  b我感到有疑问的地方是：
我手动设置捕捉模式为703，没有问题，
但用我的程序设置就有问题（另外在未装PCCAD的CAD中运都没有问题）。

sealive_leafage

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

tcq2000_007

我是写在另外一个文件里面的，里面有很多的程序，其它的都没有问题，只用其中的几个有问题：
;*******************************************************************************
(defun c:CCD()
  (prompt "\n恢復捕捉模式:")
  (setvar "osmode" 703)
)
8 {* x: _% |* l7 N& H6 z) S/ y;*******************************************************************************
& g* G1 ~" O' @5 p4 O3 |(defun c:CDD()
  (prompt "\n取消捕捉模式:")
9 f$ e; T! n1 u$ N1 a  (setvar "osmode" 0)
)
5 _; W+ \6 u0 L5 {! e+ z;*******************************************************************************
(DEFUN C:er(/ VAR1 VAR2 O A P Q)  ;功能:切換到物體所在layer
  (SETQ VAR1 (GETVAR "BLIPMODE"))
  (SETQ VAR2 (GETVAR "CMDECHO"))
& `' U  Q2 l5 C  (SETVAR "BLIPMODE" 0)
9 V+ d# }3 h: W3 g" \. w7 @, ], s  (SETVAR "CMDECHO"  0)
5 ~9 Z- J& {7 \9 F+ X8 m$ N% ?% ?7 p  (PRINC "\n 切換到物體所在層 : ")
  (SETQ O (ENTSEL))
  (SETQ A (ENTGET (CAR O)))
  (SETQ P (CDR (ASSOC 8 A)))
  (SETQ Q (GETVAR "CLAYER"))
  (IF (= Q P)
& e* `$ g5 W% I! i# |" @      (PRINC "\n CORRENT LAYER,CAN'T FROOZEN!!!!")
( @0 Z% ^( v; s. I& f$ M. n# c6 ]" d      (COMMAND "_-LAYER" "_s" P "")
   )
  (SETVAR "BLIPMODE" VAR1)
  (SETVAR "CMDECHO"  VAR2)
! B+ C: [% _" x1 V8 _  (PRINC "\nOK!")(PRINC)
# O/ q. B6 Z4 b, a. Y( e* B)
;*******************************************************************************
' [! r8 Z- i+ ~$ p6 S# ];*******************************************************************************
/ h  |) z# x( M1 R) T另外：
直接在命令行里运行下边一句：
! r6 e! F0 P/ {6 S: I8 D5 U1 Esetvar "osmode" 703
7 q% _; W' l* D3 v$ [! A1 E再确认就可以!
但是运行
5 X+ J1 `  ]& o9 n# a' [(setvar "osmode" 703)
" O% d% R  \6 A3 v, l就不行，
郁闷中……

sealive_leafage

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

tcq2000_007

是的，我在命令行输入CCD,CDD,没有执行我的函数，但是我直接在命令行里运行
setvar "osmode" 703
: R. V8 x+ h8 u再确认就可以!
另外我也试过了换其它的命令名，还是一样。
& p) Y9 @9 X3 \, _: Y( V上面这些程序，在没有装PCCAD的AUTOCAD里面都可以运行，都没有问题（我已经试过，也希望sealive_leafage  
试一下，帮我检查一下）

sealive_leafage

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

tcq2000_007

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

sealive_leafage

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

有风吹过1985

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