[讨论]：用XdRx_API函数怎么样设置工具栏的图标ico

aliu22

用XdRx_API函数怎么样设置工具栏的图标ico

wujimmy

这个代码是关于toolbar的,参考一下应该用?


  (setq newToolBarSel(vla-get-Toolbars currMenuGroup))
  (vlax-dump-object newToolBarSel t)
  (setq mid (vlax-invoke-method newToolBarSel "Item" 0))
  (setq mid (vlax-invoke-method mid "Item" 0))
  (vlax-dump-object mid t)


#<VLA-OBJECT IAcadToolbarItem 010e581c>
; IAcadToolbarItem: AutoCAD 工具栏上的单个按钮项目
;特性值:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00a88728>
;   Flyout (RO) = 发生意外。
;   HelpString = "对PKPM、TBSA、广厦、天正建筑的图形数据进行转换"
;   Index (RO) = 0
;   Macro = "\003\003\020$S=TSSD.cls\n$S=TSSD.io\nprnsc\n"
;   Name = "外部接口"
;   Parent (RO) = #<VLA-OBJECT IAcadToolbar 010e495c>
;   TagString = "Id_io"
;   Type (RO) = 0
;支持的方法:
;   AttachToolbarToFlyout (2)
;   Delete ()
;   GetBitmaps (2) =============================这个就是
;   SetBitmaps (2)==============================这个就是


[php]
(defun Example_DockStatus()

;;; 这个范例建立被调用的新工具栏接着插入三个
;;; 按钮到其中。将工具栏显示为浮动工具栏
;;; 然后显示为固定工具栏。
;;; 要在执行完这个宏后删除工具栏，可使用[工具]菜单中的
;;; [自定义菜单]选项

  (VL-LOAD-COM)

  (setq AcadObject(vlax-get-acad-object)

        AcadDocument(vla-get-ActiveDocument Acadobject)

        mSpace(vla-get-ModelSpace Acaddocument)

  )

  (setq currMenuGroupSel(vla-get-MenuGroups AcadObject))

  (setq currMenuGroup(vla-Item currMenuGroupSel 0))

;;; 建立新的工具栏

  (setq newToolBarSel(vla-get-Toolbars currMenuGroup))

  (setq newToolBar(vla-add newToolBarSel "TestToolBar"))

;;; 添加三个按钮到新的工具栏
;;; 三个按钮附上相同的宏
;;; 指定相当于 VB的 "ESC ESC _open "的宏字符串

  (setq openMacro(strcat (chr 3) (chr 3) (chr 95) "open" (chr 32)))

  (setq index 0)

  (setq name1 "NewButton1")

  (setq name2 "NewButton2")

  (setq name3 "NewButton3")

  (setq helpString "打开图档")

  (setq newButton1(vla-AddToolbarButton newToolbar index name1 helpString openMacro))

  (setq newButton2(vla-AddToolbarButton newToolBar index name2 helpString openMacro))

  (setq newButton3(vla-AddToolbarButton newToolBar index name3 helpString openMacro))

;;; 显示工具栏

  (vla-put-Visible newToolBar :vlax-true)

;;; 将工具栏固定在屏幕的左端

  (vla-Dock newToolBar acToolbarDockLeft)

  (Querystatus)

  (PROMPT "<Enter>进行:")(VL-CMDF pause)

;;; 将工具栏设成浮动

  (vla-Float newToolBar 200 200 1)

  (Querystatus)

  (princ)

)

(defun Querystatus()

;;; 查询工具栏是否为固定

  (if (= (vla-get-DockStatus newToolBar) acToolbarFloating)

    (princ "工具条为浮动\n")

    (princ "工具条为固定\n")

  )

)

[/php]