|
|||||
¾È³çÇϼ¼¿ä. °¢Á¾ Àü¹®°¡µéÁß ÇÁ·Î±×·¥ Àü¹®°¡°¡ °¡Àå ¸¹Àº°Í °°¾Æ ¹®Àǵ帳´Ï´Ù. VBA¿¡¼ INIÆÄÀÏÀ» Àд Äڵ尡 ÀÖ½À´Ï´Ù. ÀÎÅͳݿ¡ µ¹°í µµ´Â ÈçÇÑ ÄÚµåÀ̸ç, Ưº°È÷ ¹®Á¦ ¾ø¾î¼ ¸î³âµ¿¾È Àß »ç¿ëÇÏ°í Àִµ¥, ¿À´Ã ¾ÈµË´Ï´Ù. ¾Æ·¡ ÄÚµåÁß ±½Àº ºÎºÐ¿¡¼ ¹®Á¦°¡ ¹ß»ýÇÑ°Í °°½À´Ï´Ù. ¾Æ, Àú´Â ¿¢¼¿VBA¿Í AutoCAD VBA ¸ðµÎ »ç¿ëÇÏ°í ÀÖ½À´Ï´Ù. ¾ÈµÇ´Â °ÍÀº AutoCAD VBA¿¡¼ ¾ÈµÇ°í, ¿¢¼¿¿¡¼´Â Àß ÀÛµ¿µË´Ï´Ù. AutoCAD´Â 2010, 2018À̸ç, Windows 10, 64bitÀÔ´Ï´Ù. ¶Ç µ¥½ºÅ©Å¾, ³ëÆ®ºÏ ¸ðµÎ µ¿ÀÏÇÕ´Ï´Ù. Á¦°¡ »ç¿ëÇß´ø ÄÚµå´Â ´ÙÀ½°ú °°½À´Ï´Ù. Public Declare Function WritePrivateProfileString _ Lib "kernel32" Alias "WritePrivateProfileStringA" ( _ ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, _ ByVal lpString As Any, _ ByVal lpFileName As String) As Long Public Declare Function GetPrivateProfileString _ Lib "kernel32" Alias "GetPrivateProfileStringA" ( _ ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, _ ByVal lpDefault As String, _ ByVal lpReturnedString As String, _ ByVal nSize As Long, ByVal lpFileName As String) As Long Public Function ProfileGetItem(IniFile As String, Section As String, KeyName As String) As String Dim IngRet As Long Dim strValue As String * 1024 IniRet = GetPrivateProfileString(Section, KeyName, "", strValue, 1024, IniFile) ProfileGetItem = Left(strValue, InStr(strValue, Chr(0)) - 1) End Function |
|
| ||
| ||
| ||
| ||