社区 › Auto Lisp › 创建32 x 32图标和按钮

drwhite 发表于 2022-7-6 12:03:25

创建32 x 32图标和按钮

我引用了AutoCAD中的帮助文件：“可以创建两种不同大小的自定义图像：小图像和大图像。小图像应为16 x 16像素。大图像应为32 x 32像素。与这些大小不匹配的图像将按比例缩放。”
 
现在，我们如何创建一个32x32像素的图标按钮呢。我能做的就是16x16。我单击“仅大”和“两者”，似乎什么都不起作用。方法是什么？还有其他编辑吗？我创建了一个。在Autocad外部的32x32中导入bmp。它是16x16。为什么？为什么内部。AutoCAD中的BMP看起来很好，我不能创建这样的BMP？

Lee Mac 发表于 2022-7-6 12:13:45

这似乎有效
 

(defun Put_BitMap (tbutt sml lrg / tbutt)
(vl-load-com)
(setq tbutt (strcase tbutt))

(vlax-for Men (vla-get-MenuGroups (vlax-get-acad-object));; Cycle through MenuGroups
   
   (vlax-for Tool (vla-get-Toolbars Men);; Cycle through Toolbars

   (vlax-for Butt Tool;; Cycle through Buttons
   
       (if (eq tbutt (strcase (vla-get-Name Butt)));; If button name matches

         (vla-SetBitmaps Butt sml lrg))))));; Set the BitMaps
      
(defun c:test ()
(put_bitMap "Command1" ;; Button Name
             "C:\\Users\\Lee Mac\\Pictures\\Untitled.bmp"   ;; Small Bitmap filepath
             "C:\\Users\\Lee Mac\\Pictures\\Untitled2.bmp") ;; Large Bitmap filepath
(princ))

drwhite 发表于 2022-7-6 12:27:26

Mac先生或李：
我加载了例程。输入：测试
很多东西以接近光速在屏幕上滚动。我不知道发生了什么，但确实发生了什么。添加一些旧的；这样做，并且；这会影响到你日常生活中的每一行。我不完全理解这是如何转换或允许我创建32x32的。自定义命令上按钮的bmp文件。细节和解释会很有帮助。谢谢你，先生。

Lee Mac 发表于 2022-7-6 12:32:33

对不起，怀特博士，我无意中在那里留下了一张打印纸。。。代码已更新
 
您需要为sub（Put_位图）提供按钮的名称（例如“Command1”），以及大小位图的文件路径，并且应该将它们分配给按钮（如果找到按钮）。
 
李

drwhite 发表于 2022-7-6 12:45:50

所以我必须把每个按钮（或.bmp文件）的名称放在例程中（有正确的路径），这个例程会把它们转换成大按钮吗？为什么当我打开Autocad bmp时，无论我在“大”或“小”上选择什么，它都只显示小尺寸？如果我将选项按钮更改为大图标，这会有影响吗？

Lee Mac 发表于 2022-7-6 12:49:28

嗨，怀特博士，
 
对于多个位图，可能是这样的：
 

(defun Put_BitMap (lst / lst tag)
(vl-load-com)
(setq lst (mapcar
             (function
               (lambda (x)
               (list (strcase (car x)) (cadr x) (caddr x)))) lst))

(vlax-for Men (vla-get-MenuGroups (vlax-get-acad-object))
   
   (vlax-for Tool (vla-get-Toolbars Men)

   (vlax-for Butt Tool
   
       (if (setq tag (assoc (strcase (vla-get-Name Butt)) lst))

         (vla-SetBitmaps Butt (cadr tag) (caddr tag)))))))

      
(defun c:test nil
(put_bitMap '(("Command1" "C:\\Small.bmp" "C:\\Large.bmp")
               ("Command2" "C:\\Small.bmp" "C:\\Large.bmp")
               ("Command3" "C:\\Small.bmp" "C:\\Large.bmp")
               ("Command4" "C:\\Small.bmp" "C:\\Large.bmp")
               ("Command5" "C:\\Small.bmp" "C:\\Large.bmp")
               ("Command6" "C:\\Small.bmp" "C:\\Large.bmp")))
(princ))

 
如果在“选项”对话框中放置“使用工具栏的大按钮”，则应显示大位图。

drwhite 发表于 2022-7-6 13:00:31

对于工具栏，这是可以理解的。用于带有按钮的自定义命令。bmp分配给它的，不是。我想我只是没有掌握你例程的语法，但是怎么做呢
（命令c:\\small.bmp c:\\large.bmp）（去掉所有引号）行吗？它正在重命名吗。bmp文件？这只适用于工具栏吗？我不希望它用于工具栏。我想要它的按钮编辑。查看CUI中用于AutoCAD自定义的按钮图标。看看这些按钮是如何拥有所有底纹和精细细节的？这仅适用于32x32像素。BMP。AutoCAD中只提供了一个16x16的网格框。如何将其变成32x32网格盒？

Lee Mac 发表于 2022-7-6 13:03:42

 
程序查找名为“Command1”的按钮，并将小位图作为第一个文件名，将大位图作为第二个文件名。
 
我不知道如何获得大位图的编辑框，但这对我设置大小位图很有用。

查看完整版本: 创建32 x 32图标和按钮