筆記不定期更新苫昌。蔓姚。捕虽。
問題3. 創(chuàng)建字典
字典在哪里?如何創(chuàng)建字典?
字典是由scrrun.dll 鏈接庫提供的,
工具-引用-瀏覽找到scrrun.dIl- 確定坡脐,
Set d = CreateObiect(" scripting.dictionary")
問題2. 清空選擇集
先介紹幾個關(guān)于選擇集的刪除操作吧泄私。
1、Clear::Clear方法是清空選擇集备闲。選擇集依然存在晌端,但不包含任何實體對象。這些實體對象仍駐留在圖形數(shù)據(jù)庫中恬砂,只是不再與該選擇集關(guān)聯(lián)咧纠。
2、RemoveItems:RemoveItems方法是從選擇集中清除一個或者多個實體對象泻骤。這些被清除的實體對象仍舊駐留在圖形數(shù)據(jù)庫中漆羔,只是不再與該選擇集關(guān)聯(lián)。
問題1. 如何在 userform 和CAD 窗體之間隨意切換
(1)在“工具箱”中的空白區(qū)域單擊右鍵狱掂,從彈出的菜單中選擇“附加控件”菜單項演痒。
(2)在“附加控件”對話框中,引用“AcFocusCtrl”控件趋惨,單擊“確定”按鈕關(guān)閉該對話框鸟顺。
(3)將添加的“AcFocusCtrl”控件放置在要作為非模態(tài)使用的窗體中,并在窗體的初始化事件中添加:Me.AcFocusCtrl1.KeepFocus = True
(4)在ThisDrawing模塊中添加下面的語句:
Sub Test()
UserForm1.Show vbModeless
End Sub
(5)運行Test宏器虾,窗體自由切換的效果讯嫂。
實際上這是非模態(tài)對話框
"模態(tài)對話框":在Form1窗口上點擊按鈕彈出一個Form2窗口蹦锋,在關(guān)閉Form2窗口之前,不能在Form1窗口上操作
"非模態(tài)對話框":在Form1窗口上點擊按鈕彈出一個Form2窗口欧芽,這個時候既可以在Form1窗口上操作莉掂,也可以在Form2窗口上操作
可以解決使用問題,但不是很完善