社区 › Auto Lisp › F2用作lisp命令

MJLM 发表于 2022-7-5 16:02:19

F2用作lisp命令

这可能是一个相当蹩脚的问题，但如何使用autolisp而不是“手动”F2键打开“Autocad文本窗口”？
 
这个想法是抛出几个提示命令来在文本窗口中报告结果，但似乎我找不到可以在Autolisp例程之外调用和打开此窗口的东西。
 
有人知道吗？

hanhphuc 发表于 2022-7-5 16:08:08

正如它的名字

(textpage) ;or
(textscr)
;vice verse
(graphscr); returns graphic screen

Spaj 发表于 2022-7-5 16:11:50

为什么不试试（警报“消息”）框

MJLM 发表于 2022-7-5 16:13:06

 
谢谢！

MJLM 发表于 2022-7-5 16:16:08

 
由于返回的数据太多，您需要滚动查看所有数据。

Deby Ferdian 发表于 2022-7-5 16:21:09

如何在完整的LISP中同时使用这两种语言（切换函数为textscr hide/show）？我试着用这个例子，当我浏览时，我从某处得到了这个例子。。
 
 
(defun c:TS ()
(if (dos_istextscr)
(graphscr)
(textscr)))



(defun c:TW ()
(if (zerop (getvar "opmstate"))
(command "textscr")
(command "graphscr")
)
(princ)
)

Lee Mac 发表于 2022-7-5 16:23:14

请尝试以下操作：
(defun-q c:ts nil
   (graphscr)
   (setq c:ts (vl-list* '() (if (equal '(graphscr) (cadr c:ts)) '(textscr) '(graphscr)) (cddr c:ts)))
   (princ)
)

Deby Ferdian 发表于 2022-7-5 16:27:12

呵呵。。你两次问我同一个问题，那是~。太棒了~再一次，非常突出！

Deby Ferdian 发表于 2022-7-5 16:30:14

您好，我们如何在绘图完成后将“AI_取消选择”包含到该代码中？

Lee Mac 发表于 2022-7-5 16:31:56

 
请尝试以下操作：
(defun-q c:ts nil
   (progn (graphscr) (sssetfirst nil nil))
   (setq c:ts (vl-list* '() (if (equal '(textscr) (cadr c:ts)) '(progn (graphscr) (sssetfirst nil nil)) '(textscr)) (cddr c:ts)))
   (princ)
)

查看完整版本: F2用作lisp命令