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

tcq2000_007

编了以下的LISP程序：
! G5 C3 ^  w# e  h" U& d(defun c:CCD()
) ^8 j# e6 e. r; C( L4 a, _  (prompt "\n恢復捕捉模式:")
# f5 ^( l! v* I" H: P# B  (setvar "osmode" 703)
; d- ^+ h  b% T)
(defun c:CDD()
  (prompt "\n取消捕捉模式:")
  (setvar "osmode" 0)
, y. U; A* H4 E" a  O)
- \, R( B# }1 p4 c在AUTOCAD2004中运行无任何问题，但在
7 }' T  q! E2 oAUTOCAD2006---AUTOCAD2008中却无法使用，请高手看看问题在哪里？？？

sealive_leafage

为何要定义同样的命令二次？同名函数定义重复，最后加载的函数起作用；
6 y+ r: b1 @) |0 W* g" S9 W设置捕捉模式一般是在程序执行前获得当前设置存储，然后设置自已程序中的捕捉模式，在你的程序执行完后，恢复捕捉模式到程序执行前的状态；
' j. q9 R$ v' L) a- h6 L" \(defun C:CCD()
(setq Osnapmode (getvar "OSMODE"))；获得当前捕捉模式
(setvar "OSMODE" 703)；设置程序中需要的模式
- ?- x/ v: Q/ C9 A；；your code
: u& J, N& ^: _(setvar "OSMODE" Osnapmode)；恢复初始状态
* r4 M1 Z1 L+ \% j& ?5 g)；defun

tcq2000_007

谢谢sealive_leafage 的回贴，可能你误会了我的意思了，这是定义好的两个命令，
- u7 @2 i) f. QCCD即将捕捉模式定为703（这些都是最常用的，太多的话绘图有迟缓现象）；
  ]8 r9 r  Z, v' W6 j$ ~9 ]# I; wCDD就是取消捕捉；
这个程序应该没有问题，我以前用的很好的，只是在装了PCCAD后才出问题的。在没有装PCCAD的系统中运行也是正常的。
我感到有疑问的地方是：
: k, M  ^6 V7 P% Q3 i' C$ `! Z) f$ |我手动设置捕捉模式为703，没有问题，
0 D3 U$ v) U  r& a4 I& H& r但用我的程序设置就有问题（另外在未装PCCAD的CAD中运都没有问题）。

sealive_leafage

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

tcq2000_007

我是写在另外一个文件里面的，里面有很多的程序，其它的都没有问题，只用其中的几个有问题：
$ T& F! N  Q% ?" f# X: S9 l" C;*******************************************************************************
(defun c:CCD()
  (prompt "\n恢復捕捉模式:")
  (setvar "osmode" 703)
, f1 y' p* ]- ^5 w+ B)
;*******************************************************************************
(defun c:CDD()
  (prompt "\n取消捕捉模式:")
5 z# f8 ^- M2 B3 G- J( {6 V" N  (setvar "osmode" 0)
)
;*******************************************************************************
$ U) u' }1 N  y; |(DEFUN C:er(/ VAR1 VAR2 O A P Q)  ;功能:切換到物體所在layer
  (SETQ VAR1 (GETVAR "BLIPMODE"))
3 {; X& x" `3 y5 X  (SETQ VAR2 (GETVAR "CMDECHO"))
  (SETVAR "BLIPMODE" 0)
) ^9 Z' x* Y8 o1 {6 d$ v4 a8 t, |  (SETVAR "CMDECHO"  0)
5 h4 X* N& \7 a# I7 d; [  (PRINC "\n 切換到物體所在層 : ")
' n0 c# `. m; \. m  (SETQ O (ENTSEL))
  (SETQ A (ENTGET (CAR O)))
2 X7 n* L, o* L6 e8 e  (SETQ P (CDR (ASSOC 8 A)))
/ `- X, l# p5 y1 {2 L4 R; S% E  (SETQ Q (GETVAR "CLAYER"))
2 `5 n3 U0 J0 `: Z' }1 R! S  (IF (= Q P)
% b+ ^! F# n2 O, s7 G. m      (PRINC "\n CORRENT LAYER,CAN'T FROOZEN!!!!")
7 |% ]) q, j9 Q1 u* C      (COMMAND "_-LAYER" "_s" P "")
. z# `! k1 j4 m% @) o' M   )
9 b3 L0 g7 r" O7 y& p  (SETVAR "BLIPMODE" VAR1)
  (SETVAR "CMDECHO"  VAR2)
  (PRINC "\nOK!")(PRINC)
)
0 H; X+ N* g( Q$ x# S1 U;*******************************************************************************
; Z7 @% c. q$ L$ ]3 M4 }& {1 D;*******************************************************************************
另外：
直接在命令行里运行下边一句：
setvar "osmode" 703
/ c5 Y: N& [1 g再确认就可以!
, J$ @! x, ^! n  t8 n* ^4 K7 k9 g7 P+ T但是运行
(setvar "osmode" 703)
就不行，
. o6 ~( n0 H1 R- ~9 Z9 x! q+ v郁闷中……

sealive_leafage

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

tcq2000_007

是的，我在命令行输入CCD,CDD,没有执行我的函数，但是我直接在命令行里运行
; Q/ f% [) l: t+ V. n3 ?. ~/ csetvar "osmode" 703
再确认就可以!
9 Z) V) a3 {% Q$ ^( I* \另外我也试过了换其它的命令名，还是一样。
上面这些程序，在没有装PCCAD的AUTOCAD里面都可以运行，都没有问题（我已经试过，也希望sealive_leafage  
* S- v0 t) ~& d0 H( t试一下，帮我检查一下）

sealive_leafage

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

tcq2000_007

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

sealive_leafage

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

有风吹过1985

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