[求助]：VLISP FOR R14版的问题

LADESIGNER · 发表于 2005-7-21 18:26:52

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

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

×

LIST命令会自动跳出文本窗口，如果数据很长的话还要按回车，导致在程序里引用这个命令总是出现问题。
（COMMAND “LIST” EN “”）
跳出文本窗口；
PRESS ENTER TO CONTINUE……
要自动关闭文本框，还要去掉讨厌的回车，
请教高手该怎么解决？

fools · 发表于 2005-7-21 20:31:17

关闭文本框是(graphscr)
去掉回车是(setvar "qadiags" 2)

LADESIGNER · 发表于 2005-7-22 19:30:17

最初由 fools 发布
[B]关闭文本框是(graphscr)
去掉回车是(setvar "qadiags" 2) [/B]

——(graphscr)在LIST命令执行中不行，(setvar "qadiags" 2) 14和2002都没有这个系统变量，楼主是不是写错了？
——斑竹的意思是用WSCRIPT实现吗？

fools · 发表于 2005-7-22 23:52:52

sorry，是我写错了，应该是(setvar "qaflags" 2)
qaflags是一个未公开的系统变量，
－What is QAFLAGS?
－QAFLAGS been used a long time (<r12) by developers and autodesk themself too.
QAFLAGS acceps a value between 0 and 32767
bit 0 (1) : ^C in menu macro cancels grips (acts like keyboard <Esc>).
bit 1 (2) : no pause during text screen listings.
bit 2 (4) : no "alert" dialogs (text display instead).
bit 7 (128) : accepts "screen picks" (point lists) via (command) function.
Normally QAFLAGS should be set to 0. Because it might be set to other values it is a good idea to put (setvar "QAFLAGS" 0) in acaddoc.lsp or any other of your lisp files that you use for startup.

再写一个小程序，你试试应该会明白：
[php]
(defun c:tt(/ en)
  (setvar "qaflags" 2)
  (setq en (car (entsel)))
  (command "list" en "")
  (textscr)
  (command "delay" 3000);延时3s
  (graphscr)
  (setvar "qaflags" 0)
)
[/php]

LADESIGNER · 发表于 2005-7-24 14:29:05

用了 (setvar "qaflags" 2) 后解决了要回车的问题，(graphscr)后从文本窗口切换回了命令窗口，可是没有关闭文本窗口，屏幕一闪，比较不爽。
(defun c:test()
(prompt "\n选择要统计长度的曲线:")
(setq ss(ssget) n 0)
(repeat (sslength ss)
(setq en(ssname ss n))
(command "list" en "")
……
当然用VL函数就不用这么麻烦，可惜我用的是14……

WHGF · 发表于 2005-7-27 14:56:30

5楼是个热心人，向你学习

zxq0220 · 发表于 2005-7-28 13:25:14

为什么用LIST命令而不用LENGTHEN命令？

apple1124 · 发表于 2005-7-28 13:48:10

這也是解決一個方法，但個有用處

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

[求助] [求助]：VLISP FOR R14版的问题

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

相关帖子