AutoCAD 2007에서는 맨위 도움말 옆에 그룹메뉴가 VBA로 만들어 잘 나타납니다.
이름은 도면이라는 메뉴로 되어 있습니다.
잘사용하다가, 2014 캐드를 설치하고 VBA 를 돌렸습니다만,
그룹메뉴가 나타나지 않습니다. 일주일째 씨름중입니다. ㅠㅠ
물론 2014 VBA Enabler 를 설치했습니다. 런타임팩도 설치하였고요..
그래서 찾아낸 것이 acad.lsp 파일에서 VBA 를 로딩하는데, 이 리습파일이 자동로딩이 안되더라고
이래저래 하다보니, C:Program FilesAutodeskAutoCAD 2014Acadm 에서 acad 리습파일이 있어서
여기에 제가 만든 리습을 추가하였더니, 리습이 로딩되고, VBA 가 로딩 된 것 같습니다.
그런데도 상단 메뉴인 도면메뉴가 나타나지 않습니다.
VBA 편집기를 열면 열립니다.
고수님 힌트라도… 부탁드립니다.
급해서, 사용자화를 만들어 VBA로 연결시켜놨습니다.
무엇이 문제인지…
C:Program FilesAutodeskAutoCAD 2014Acadm -> acad.lsp
(defun S::STARTUP(/ dvb)
(if (setq dvb (findfile “RAD3.4b.dvb”))
(vl-vbarun (strcat dvb “!” “RMenuGroups”))
)
)
C:Program FilesAutodeskAutoCAD 2014Support -> RAD3.4b.dvb
Thisdrawing 에는…
Sub RMenuGroups()
Dim currMenuGroup As AcadMenuGroup
Dim newMenu As AcadPopupMenu
Dim FileSubMenu10 As AcadPopupMenu
– 유사코드 중략-
Dim newMenuItem1 As AcadPopupMenuItem
– 유사코드 중략-
Dim openMacro1 As String
– 유사코드 중략-
On Error GoTo ERRORTRAP
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(“ACAD”)
Set newMenu = currMenuGroup.Menus.Add(“&도면”)
openMacro1 = Chr(3) & Chr(3) & Chr(95) & “-vbarun” & ” thisdrawing.메인화면폼열기” & Chr(32)
– 유사코드 중략-
Set newMenuItem1 = newMenu.AddMenuItem(newMenu.count + 1, “&K도면”, openMacro1)
– 유사코드 중략-
Exit Sub
ERRORTRAP:
‘MsgBox “오류가 발생되었습니다. – ” & Err.Description
End Sub
공유