[LISP程序]：OrdinateDimension标注文本

davinlee · 发表于 2006-2-27 21:43:47

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

写了一个简单程序,用来处理OrdinateDimension
希望文本不要在尺寸线上
程序如下
(defun  c:qddim()
(setvar  "dimtad"  0)
(setq  op  (getpoint  "\n指定原点位置:" ))
(setq ssent (ssget))
(command  "_qdim"  ssent  ""  "o"  "p"  op)
(setvar  "dimtad"  1)
)
可是文字一直在尺寸在线
(setvar  "dimtad"  0)应该未发生作用.

liuxb123 · 发表于 2006-2-28 11:28:15

好像和语句执行先后顺序有关，不是(setvar "dimtad" 0)未发生作用，而是(setvar "dimtad" 1)在qdim前先发生作用了，你不信去掉(setvar "dimtad" 1)这行试试就知道了。

ljpnb · 发表于 2006-2-28 12:08:55

(command "_qdim" ssent "" "o" "p" op)改成(command "_qdim" ssent "" "o" "p" op pause)

liuxb123 · 发表于 2006-3-1 15:18:13

果然如此，只是还想请教一下3楼：为什么(setvar "dimtad" 1)命令在最后，(command "_qdim" ssent "" "o" "p" op)没加 pause 时(setvar "dimtad" 1)命令好象被先执行了？这是怎么回事？谢谢了！

ljpnb · 发表于 2006-3-1 15:35:09

(setvar "dimtad" 1)它是一个内部执行的命令，可以随时随地执行，不受command下的命令限制，当“qdim”最后一步还未执行完时，(setvar "dimtad" 1)会先执行了。也许这个解释不太专业，大概意思就是这么回事

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：OrdinateDimension标注文本

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子