這個dvb檔案中包含,選單建立功能,例如:
public sub setupmenu()
dim currmenugroup as acadmenugroup
'建立新的選單
dim newmenu as acadpopupmenu
set newmenu = currmenugroup.menus.add("智慧型展點系統(&s)")
'新增乙個選單項的子選單
dim newmenuitem as acadpopupmenuitem
dim openmacro as string
dim filesubmenu as acadpopupmenu
'新增子選單
' 將巨集指定字串相當於 esc esc _open
openmacro = chr(3) & chr(3) & chr(95) & "-vbarun draw500points" & chr(32)
set newmenuitem = newmenu.addmenuitem(newmenu.count + 1, "abc", openmacro)
openmacro = chr(3) & chr(3) & chr(95) & "-vbarun draw1000points" & chr(32)
set newmenuitem = newmenu.addmenuitem(newmenu.count + 1, "aba", openmacro)
openmacro = chr(3) & chr(3) & chr(95) & "-vbarun draw2000points" & chr(32)
set newmenuitem = newmenu.addmenuitem(newmenu.count + 1, "abd", openmacro)
openmacro = chr(3) & chr(3) & chr(95) & "-vbarun mapturn" & chr(32)
set newmenuitem = newmenu.addmenuitem(newmenu.count + 1, "abc", openmacro)
set newmenuitem = newmenu.addseparator(newmenu.count)
set filesubmenu = newmenu.addsubmenu(newmenu.count + 1, "繪製2d實體")
openmacro = chr(3) & chr(3) & chr(95) & "-vbarun mkline" & chr(32)
set newmenuitem = filesubmenu.addmenuitem(newmenu.count + 1, "繪製直線(&l)", openmacro)
openmacro = chr(3) & chr(3) & chr(95) & "-vbarun mkpolyline" & chr(32)
set newmenuitem = filesubmenu.addmenuitem(newmenu.count + 1, "繪製多段線(&p)", openmacro)
openmacro = chr(3) & chr(3) & chr(95) & "-vbarun mkcircle" & chr(32)
set newmenuitem = filesubmenu.addmenuitem(newmenu.count + 1, "繪製圓(&c)", openmacro)
openmacro = chr(3) & chr(3) & chr(95) & "-vbarun aboutme" & chr(32)
set newmenuitem = newmenu.addmenuitem(newmenu.count + 1, "&about", openmacro)
set newmenuitem = newmenu.addmenuitem(newmenu.count + 1, "&open file...", openmacro)
'顯示選單欄上的的選單
end sub
例如cad 2004 修改acad2004.lsp
這個檔案一般在目錄c:\program files\autocad 2004\support
在該檔案中加入以下語句:
(defun s::startup()
(command "_vbaload" "smartsystem.dvb")
(command "_-vbarun" "setupmenu"))
smartsystem.dvb為dvb檔名,然後把這個檔案拷貝到cad的預設搜尋目錄,如c:\program files\autocad 2004\support
分欄報表製作攻略
我們常常會遇到一些列數很少行數很多的報表,這種報表窄窄長長,列印在一張 a4 紙上,橫向留出大片空白 或者行數很少,列數很多的報表,列印在 a4 紙上,縱向留出大片空白 這些情況下不但浪費張紙而且不美觀,不方便使用者查閱。為了解決這種問題,我們提出了分欄的解決方案,把資料按照一定的規則分欄分塊的顯示...
分欄報表製作攻略
我們常常會遇到一些列數很少行數很多的報表,這種報表窄窄長長,列印在一張 a4 紙上,橫向留出大片空白 或者行數很少,列數很多的報表,列印在 a4 紙上,縱向留出大片空白 這些情況下不但浪費張紙而且不美觀,不方便使用者查閱。為了解決這種問題,我們提出了分欄的解決方案,把資料按照一定的規則分欄分塊的顯示...
製作右鍵彈出選單
1.新建乙個選單資源 idr menu pop 2.新增選單項 3.彈出右鍵選單 cmenu menu menu.loadmenu idr menu pop cmenu psubmenu menu.getsubmenu 0 0表示是載入idr menu pop的第一列選單 cpoint pt get...