[求助]osmode設定值？？

ljs026

请教各位大大，执行某些程序，在半途中按esc取消动作，为何我的锁点设点值会完全消除，我常用锁点设定值是4261，如何让这个值一直存在，不会因程序未执行完而消除？

雅明

做一个出错取消处理函数，并把要设置的锁点设定放在这里面。应该是可以的。

citykunan

把程序传上来看看。osmode的设定，应该在所有的输入动作后（getXXX, entsel, ssget) 设定。

ljs026

(defun c:ad_cen()
(setvar "cmdecho" 0) ;;指令执行过程不回应
(setq os (getvar "osmode")) ;;记录原物件锁点值
(setvar "osmode" 0) ;;设物件锁点最近点
(setq en (entsel "\n选取线性标註(未选取=>结束):")) ;;选取线性或对齐式标註
(while (/= en nil)
(setq en_data(entget(car en))) ;;取得元体资料串列
(setq en_type(cdr(assoc 0 en_data))) ;;取得图元类别
(if (= en_type "DIMENSION") ;;图元类别为"DIMENSION"
(progn
(setq old_list(assoc 1 en_data)) ;;原标註文字串列
(setq old_txt (cdr old_list)) ;;原标註文字内容
(if (and (/= (substr old_txt 1 1) "%")(= old_txt ""))
(progn
(setq old_txt "<>") ;;如果原标註内容为""(即为内定量测值),则原标註内容改为<>
(setq new_txt (strcat "%%c" old_txt)) ;;新标註文字内容
(princ new_txt)
(princ "\n")
(setq new_list(cons 1 new_txt)) ;;新标註文字串列
(setq en_data(subst new_list old_list en_data));;於元体资料串列,更新文字内容列
(entmod en_data) ;;画面上元体新
)
(prompt "\n直径符号已经加入")

);if
);progn
(prompt "\n该图元并不是尺寸标註,请再选一次")
);if

(setq en (entsel "\n选取线性标註(未选取=>结束):")) ;;选取线性或对齐式标註
);while

(setvar "osmode" 4261)
(princ)
) 请帮忙看看！ 以下这个才是一样情况耶 (defun c:#chgtxt (/ e)
(xdrx_begin)
(setq tf T)
(while tf
(setq e (nentsel "\n选择文字<退出>: "))
(if e
(progn
(xdrx_setenttodb (car e))
(if (or (= (xdrx_getentdxf 0) "TEXT")
(= (xdrx_getentdxf 0) "ATTRIB")
(= (xdrx_getentdxf 0) "MTEXT")
)
(progn
(princ (strcat "\n原文字: " (xdrx_getentdxf 1)))
(xdrx_modent 1 (getstring "\n新文字: "))
(if (= (xdrx_getentdxf 0) "ATTRIB")
(xdrx_object_regen (list (car e)))
(xdrx_object_regen (list (last e)))
)
)
)
)
(setq tf nil)
)
)
(xdrx_end)
(princ)
(setvar "osmode" 4261)
(setvar "cmdecho" 1)
)

yzxgwl

雅明发表于2004-8-12 17:22:00做一个出错取消处理函数，并把要设置的锁点设定放在这里面。应该是可以的。

怎样设置出错取消处理函数? 我是新手,请教! 谢谢!

ZZXXQQ

请问楼主用的是ACAD的哪个版本？如果是R14版，您设定的OSNAP参数太大了。

ljs026

小弟所用是2002版本