通过lisp导入工具托盘

wimal · 发表于 2022-7-5 23:02:11

1、是否有使用lisp导入工具托盘的想法。
2.我们可以使用一些lisp代码将windows计算器程序与auto cad结合起来吗。

mostafa badran · 发表于 2022-7-5 23:40:43

对于windows calculator，请使用此选项。

(startapp "calc.exe" )

LosGirk · 发表于 2022-7-5 23:47:49

如果要将计算器添加到程序的对话框中，请执行以下操作：
1.在lisp代码中，将其添加到action\u tile语句中：

copy

(action_tile "Calculator" "(startapp "Calc.exe")")
;if calculator button selected, goto windows calculator
(calculator);goto calculator function

2.将其添加到“按钮/弹出窗口/编辑框/dcl代码的任何部分：”

copy

: image_button {
 key = "Calculator";
 width = 5.42;
 height = 2.51;
 fixed_width = true;
 fixed_height = true;
 aspect_ratio = 1;
 color = -15;
 }

最后将其添加到lisp代码的底部。（不在原来的defun语句中，将其放在最后一个括号之外）；这是一个函数本身，它在程序中创建计算器的图片，因此您不必维护单独的幻灯片文件。）

copy


(defun Calculator ()
 (start_image "Calculator")
 (fill_image 2 2 29 29 9)
 (mapcar 'vector_image
   (list 25 25 25   4   4   4  25  25  18  18  18  11  11  11   4   4   4)
   (list 15 14 16   8   9   7  21  27  15  21  27  15  21  27  15  21  27)
   (list 28 28 28  28  28  28  28  28  21  21  21  14  14  14   7   7   7)
   (list 15 14 16   8   9   7  21  27  15  21  27  15  21  27  15  21  27)
   (list 10 11 12 130 131 140 141 141 141 141 141 141 141 141 141 141 141)
 );mapcar
 (mapcar 'vector_image
   (list  25   4   4   4  11  11  11  18  18  18  25   4   4)
   (list  22  28  22  16  28  22  16  28  22  16  28   6   5)
   (list  28   7   7   7  14  14  14  21  21  21  28  28  28)
   (list  22  28  22  16  28  22  16  28  22  16  28   6   5)
   (list 143 143 143 143 143 143 143 143 143 143 143 150 160)
 );mapcar
 (mapcar 'vector_image
   (list  31   3   2  30  29   3   1   1   4   4   4  11  11  11  18  18  18  25  25)
   (list   3  31  30   2  31   1   3   3  26  20  14  26  20  14  26  20  14  26  20)
   (list  31  29   3  31  31  29   1   3   7   7   7  14  14  14  21  21  21  28  28)
   (list  29  31  31   3  29   1  29   1  26  20  14  26  20  14  26  20  14  26  20)
   (list 250 250 250 250 250 255 255 255 255 255 255 255 255 255 255 255 255 255 255)
 );mapcar
 (mapcar 'vector_image
   (list   3   4   8   4   4   8   4   3   4   8   4   3  11  15  11  10  11  15  11  10  11  15  11  10  18  22  18  17  18  22  18  17  18  22  18  17  25  29  25  24  25  29  25  24  25  29  25  24   3  29   4   4)
   (list  26  29  26  25  19  20  23  20  13  14  17  14  25  26  29  26  19  20  23  20  13  14  17  14  25  26  29  26  19  20  23  20  13  14  17  14  25  26  29  26  19  20  23  20  13  14  17  14   5   5   4  10)
   (list   3   7   8   7   7   8   7   3   7   8   7   3  14  15  14  10  14  15  14  10  14  15  14  10  21  22  21  17  21  22  21  17  21  22  21  17  28  29  28  24  28  29  28  24  28  29  28  24   3  29  28  28)
   (list  28  29  28  25  19  22  23  22  13  16  17  16  25  28  29  28  19  22  23  22  13  16  17  16  25  28  29  28  19  22  23  22  13  16  17  16  25  28  29  28  19  22  23  22  13  16  17  16   9   9   4  10)
   (list 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252)
 );mapcar
 (end_image)
);defun Calculator

希望这有帮助

wimal · 发表于 2022-7-6 00:07:02

谢谢你的帮助。
我将尝试使用这些代码并告知结果。

[编程交流] 通过lisp导入工具托盘

发表回复

精选推荐