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

通过lisp导入工具托盘

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语句中：
(action_tile "Calculator" "(startapp \"Calc.exe\")")
;if calculator button selected, goto windows calculator
(calculator);goto calculator function
 
2.将其添加到“按钮/弹出窗口/编辑框/dcl代码的任何部分：”
: image_button {
key = "Calculator";
width = 5.42;
height = 2.51;
fixed_width = true;
fixed_height = true;
aspect_ratio = 1;
color = -15;
}

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

(defun Calculator ()
(start_image "Calculator")
(fill_image 2 2 29 29 9)
(mapcar 'vector_image
   (list 25 25 25   4   4   42525181818111111   4   4   4)
   (list 15 14 16   8   9   72127152127152127152127)
   (list 28 28 282828282828212121141414   7   7   7)
   (list 15 14 16   8   9   72127152127152127152127)
   (list 10 11 12 130 131 140 141 141 141 141 141 141 141 141 141 141 141)
);mapcar
(mapcar 'vector_image
   (list25   4   4   411111118181825   4   4)
   (list2228221628221628221628   6   5)
   (list28   7   7   7141414212121282828)
   (list2228221628221628221628   6   5)
   (list 143 143 143 143 143 143 143 143 143 143 143 150 160)
);mapcar
(mapcar 'vector_image
   (list31   3   23029   3   1   1   4   4   41111111818182525)
   (list   33130   231   1   3   32620142620142620142620)
   (list3129   3313129   1   3   7   7   71414142121212828)
   (list293131   329   129   12620142620142620142620)
   (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   3111511101115111011151110182218171822181718221817252925242529252425292524   329   4   4)
   (list262926251920232013141714252629261920232013141714252629261920232013141714252629261920232013141714   5   5   410)
   (list   3   7   8   7   7   8   7   3   7   8   7   3141514101415141014151410212221172122211721222117282928242829282428292824   3292828)
   (list282928251922232213161716252829281922232213161716252829281922232213161716252829281922232213161716   9   9   410)
   (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

谢谢你的帮助。
我将尝试使用这些代码并告知结果。
页: [1]
查看完整版本: 通过lisp导入工具托盘