「Vla-setbitmaps」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-setbitmaps ''vla-object'' ''SmallIconName'' ''LargeIconName'') ; 機能 : ツールバー項目のアイコンとして使用する大小...」) |
細編集の要約なし |
||
| 59行目: | 59行目: | ||
* [[vlax-get-acad-object]] | * [[vlax-get-acad-object]] | ||
* [[vla-get-activedocument]] | * [[vla-get-activedocument]] | ||
* [[vla-setbitmaps]] | |||
* [[vla-getbitmaps]] | |||
[[Category:AutoLISP]] | [[Category:AutoLISP]] | ||
2015年11月13日 (金) 09:54時点における最新版
- 構文
- (vla-setbitmaps vla-object SmallIconName LargeIconName)
- 機能
- ツールバー項目のアイコンとして使用する大小のビットマップを設定する。
- 引数
-
- vla-object … ToolbarItem の VLAオブジェクト
- SmallIconName … 小さいアイコンの名前、ビットマップのパスおよびファイル名。
- LargeIconName … 大きいアイコンの名前、ビットマップのパスおよびファイル名
- 戻り値
- なし
- サンプル
(vl-load-com)
(defun c:Example_SetBitmaps()
;; MenuGroups を使用して、CAD のメイン メニューへの参照を取得。
;; (テスト メニュー) の新しいツールバーを作成し、カスタム アイコンをツールバー に挿入して表示。
;; * 注: 新しいツールバーのアイコンのパスは適当に変更すること。
(setq acadObj (vlax-get-acad-object))
(setq currMenuGroup (vla-Item (vla-get-MenuGroups acadObj) 0))
;; 新しいツールバーを作成
(setq newToolBar (vla-Add (vla-get-Toolbars currMenuGroup) "TestToolbar"))
;; ツールバーにアイテムを追加。
;; マクロは "ESC ESC _open "
(setq openMacro (strcat (Chr 3) (Chr 3) (Chr 95) "open" (Chr 32)))
(setq newButton (vla-AddToolbarButton newToolBar "" "NewButton" "Open a file." openMacro))
;; アイコンのパス
(vla-GetBitmaps newButton 'SmallBitmapName 'LargeBitmapName)
(alert (strcat "新しいツールバーは、次のアイコン ファイルを使用 : \n"
"Small Bitmap: " SmallBitmapName "\n"
"Large Bitmap: " LargeBitmapName))
;; ツールバーのボタンのスマイルアイコン（デフォルト）を変更
(setq SmallBitmapName "C:\\CAD\\16x16.bmp") ;; 16x16 ピクセルのビットマップイメージ
(setq LargeBitmapName "C:\\CAD\\32x32.bmp") ;; 32x32 ピクセルのビットマップイメージ
(vla-SetBitmaps newButton SmallBitmapName LargeBitmapName)
;; ボタンのパスを読み込み
(vla-GetBitmaps newButton 'SmallBitmapName 'LargeBitmapName)
(alert (strcat "新しいツールバーは、次のアイコン ファイルを使用 : \n"
"Small Bitmap: " SmallBitmapName "\n"
"Large Bitmap: " LargeBitmapName))
)
関連事項