F2用作lisp命令

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

这可能是一个相当蹩脚的问题，但如何使用autolisp而不是“手动”F2键打开“Autocad文本窗口”？

这个想法是抛出几个提示命令来在文本窗口中报告结果，但似乎我找不到可以在Autolisp例程之外调用和打开此窗口的东西。

有人知道吗？

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

正如它的名字

copy


(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）？我试着用这个例子，当我浏览时，我从某处得到了这个例子。。

copy

(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

请尝试以下操作：

copy

(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

请尝试以下操作：

copy

(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命令

发表回复

精选推荐