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

tcq2000_007

编了以下的LISP程序：
7 }& F% C4 {" x, j8 J2 Y(defun c:CCD()
* X: O+ M) |2 t1 \6 ~  (prompt "\n恢復捕捉模式:")
0 o1 j( L8 L; o# P' k  (setvar "osmode" 703)
, E: ^7 k9 A" i6 {  G2 T7 j)
/ c" L! T5 E" T4 p7 j9 r* E(defun c:CDD()
  (prompt "\n取消捕捉模式:")
: X2 k2 u* z8 {5 r1 h0 n& J/ d. b6 Y  (setvar "osmode" 0)
) `/ i& \( S  {3 q)
在AUTOCAD2004中运行无任何问题，但在
+ U8 }9 o0 {0 [' Y/ u; u2 `; xAUTOCAD2006---AUTOCAD2008中却无法使用，请高手看看问题在哪里？？？

sealive_leafage

为何要定义同样的命令二次？同名函数定义重复，最后加载的函数起作用；
设置捕捉模式一般是在程序执行前获得当前设置存储，然后设置自已程序中的捕捉模式，在你的程序执行完后，恢复捕捉模式到程序执行前的状态；
, h+ {$ N. e8 j& v/ q! H6 D(defun C:CCD()
' s) ~0 j: V, Q1 F# O9 O/ D" i(setq Osnapmode (getvar "OSMODE"))；获得当前捕捉模式
(setvar "OSMODE" 703)；设置程序中需要的模式
4 e4 |' e7 S" s9 A) M! s" @8 c；；your code
(setvar "OSMODE" Osnapmode)；恢复初始状态
)；defun

tcq2000_007

谢谢sealive_leafage 的回贴，可能你误会了我的意思了，这是定义好的两个命令，
CCD即将捕捉模式定为703（这些都是最常用的，太多的话绘图有迟缓现象）；
4 B3 C2 v7 e8 i/ cCDD就是取消捕捉；
这个程序应该没有问题，我以前用的很好的，只是在装了PCCAD后才出问题的。在没有装PCCAD的系统中运行也是正常的。
我感到有疑问的地方是：
2 y; P% r0 Q7 k. [% W& p8 J3 _我手动设置捕捉模式为703，没有问题，
但用我的程序设置就有问题（另外在未装PCCAD的CAD中运都没有问题）。

sealive_leafage

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

tcq2000_007

我是写在另外一个文件里面的，里面有很多的程序，其它的都没有问题，只用其中的几个有问题：
;*******************************************************************************
(defun c:CCD()
  (prompt "\n恢復捕捉模式:")
  (setvar "osmode" 703)
" f7 }% r% g, _% Q% R0 z, Q3 P)
;*******************************************************************************
(defun c:CDD()
  (prompt "\n取消捕捉模式:")
  (setvar "osmode" 0)
; f8 v2 c  ?$ d- j  \& T)
;*******************************************************************************
) l/ q* O/ r. l7 i& g$ K(DEFUN C:er(/ VAR1 VAR2 O A P Q)  ;功能:切換到物體所在layer
& {$ `6 t( c2 _  @3 \  (SETQ VAR1 (GETVAR "BLIPMODE"))
. e7 e$ H" s7 G0 \+ M  (SETQ VAR2 (GETVAR "CMDECHO"))
  (SETVAR "BLIPMODE" 0)
  (SETVAR "CMDECHO"  0)
0 U. \; O6 f! u  (PRINC "\n 切換到物體所在層 : ")
  (SETQ O (ENTSEL))
! E" \: F* t2 h3 K  (SETQ A (ENTGET (CAR O)))
, j8 D* T. U* L" f! G  (SETQ P (CDR (ASSOC 8 A)))
/ O2 `* ]* r1 m& P  (SETQ Q (GETVAR "CLAYER"))
+ E) A" }& Q% U# V% |4 P  (IF (= Q P)
( g0 P, K# E- o3 G      (PRINC "\n CORRENT LAYER,CAN'T FROOZEN!!!!")
9 c0 W+ i% L* w, N: L      (COMMAND "_-LAYER" "_s" P "")
9 ?! c; Y  v8 ]+ O! Y: _! C   )
  (SETVAR "BLIPMODE" VAR1)
  (SETVAR "CMDECHO"  VAR2)
* s7 q0 ?; D+ n; }& J/ Y  (PRINC "\nOK!")(PRINC)
)
$ M. J' M# a5 u* [;*******************************************************************************
7 g: h2 K3 T+ ?- _;*******************************************************************************
另外：
直接在命令行里运行下边一句：
  o' u  b8 p1 S4 t6 esetvar "osmode" 703
5 d. w/ W( f2 ]1 N, T) V& R再确认就可以!
但是运行
+ `3 R0 o# D" _8 Z1 q+ R(setvar "osmode" 703)
就不行，
9 @1 \; ?: d7 W! a, }3 ^0 ~' e郁闷中……

sealive_leafage

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

tcq2000_007

是的，我在命令行输入CCD,CDD,没有执行我的函数，但是我直接在命令行里运行
) {4 G; k. f( y/ ?4 Ksetvar "osmode" 703
1 |! M6 ^9 U" w: a% G" C+ T6 \再确认就可以!
1 G- k: A( F8 \/ [8 x2 k另外我也试过了换其它的命令名，还是一样。
) _, E7 V* |8 m  A9 V上面这些程序，在没有装PCCAD的AUTOCAD里面都可以运行，都没有问题（我已经试过，也希望sealive_leafage  
+ i& y) c8 m( k  j# u试一下，帮我检查一下）

sealive_leafage

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

tcq2000_007

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

sealive_leafage

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

有风吹过1985

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