아 정말 답답합니다.. ㅜ
이제막 캐드2008을 배울려고 하는데.. ㅜㅜ

오토캐드2008 컴터에 저장시킬려면 어떻게 깔아야 하나요. ㅜㅜ
2009가 깔려있는기는한데..
회사 상사분이 2008호 가르쳐 준다시길래..또한 2009보단 2008이 더편하다고 하네요.. ㅜ

누가좀 도와주세요.. ㅜ
이렇게 부탁드립니다.. ㅜ
몸뚱아리 하나믿고 열시미 살아가 보려는 한 청년입니다..
저에게 좋은말씀좀 마니 부탁드립니다.. ~~!!
그럼다들 복받으실 거에염~~!!

Public Function eGVLF() As Object
Dim VLapp As Object
Dim acadver As String: acadver = ThisDrawing.GetVariable(“acadver”): acadver = Left(acadver, 2)
‘On Error Resume Next
Select Case acadver
Case “15”: Set VLapp = AutoCAD.Application.GetInterfaceObject(“VL.Application.1”)
Case “16”: Set VLapp = AutoCAD.Application.GetInterfaceObject(“VL.Application.16”)
End Select
Set eGVLF = VLapp.ActiveDocument.Functions
Set VLapp = Nothing
End Function

Public Function Acad_colorDlg(ByVal default As Integer, Optional ByVal flag As Boolean = True) As Variant
Dim VLF As Object
Set VLF = eGVLF()
Acad_ColorDlg = VLF.Item(“eval”).funcall(VLF.Item(“read”).funcall(“(acad_colordlg ” & Str(default) & IIf(flag, ” T)”, ” nil)”)))
Set VLF = Nothing
‘Acad_ColorDlg = GetLispValue(“(acad_colordlg ” & str(default) & IIf(flag, ” T)”, ” nil)”))
End Function

Private Sub test_Acad_colorDlg() ‘
ThisDrawing.Utility.Prompt vbCrLf
Dim ACI As Variant
Dim default As Integer
default = 3
ACI = Acad_colorDlg(default)
‘ACI = Acad_colorDlg(4, True)
‘ACI = Acad_colorDlg(5, False)
If IsEmpty(ACI) Then
ThisDrawing.Utility.Prompt vbLf & “Nothing selected.”
Else
AutoCAD.Application.ActiveDocument.Utility.Prompt vbLf & “AutoCAD color Index (ACI) Number = ” & Str(ACI)
End If
End Sub

여기에서 다이얼로그가 뜨면 bylayer, byblock 단추가 활성화 되어 있는데
이단추 들을 비활성화 할수 는 없을 까요?
lisp 에서는 (acad_colordlg 3 nil) 이렇게 하면 비활성화 되는데 vba로 layer 칼라를 바꾸는 프로그램을 만들어 볼려고 하는데 잘 안되네요?
가르쳐 주세요?