1. ¼± ±×¸®±â [VB] |
1. Form_Load °øÅë·çƾ¿¡ ¼³¸íµÈ ÇÁ·Î±×·¥ ÃʱâÈ °úÁ¤À» Form ·Îµå½Ã¿¡ ¼öÇàÇÕ´Ï´Ù.
InitApplication 2. Draw1Line »ç¿ëÀÚ·Î ºÎÅÍ ½ÃÀÛÁ¡°ú ³¡Á¡À» ÀÔ·Â¹Þ¾Æ ¼±ºÐÀ» ±×¸³´Ï´Ù.
Private Sub Draw1Line() Dim objLine As AcadLine Dim vsp, vep As Variant ' ½ÃÀÛÁ¡À» ÀԷ¹޴´Ù. vsp = objAcDoc.Utility.GetPoint(, "½ÃÀÛÁ¡: ") ' ³¡Á¡À» ÀԷ¹޴´Ù. vep = objAcDoc.Utility.GetPoint(vsp, "³¡Á¡: ") Set objLine = objAcDoc.ModelSpace.AddLine(vsp, vep) objAcApp.Update End Sub 3. cmdDraw_Click ¼± ±×¸®±â ¹öÆ°¿¡ ´ëÇÑ Ã³¸®¸¦ ¼öÇàÇÕ´Ï´Ù.
Private Sub cmdDraw_Click() Hide GetActiveDocument Draw1Line Show End Sub 4. cmdExit_Click Á¾·á ¹öÆ°¿¡ ´ëÇÑ Ã³¸®¸¦ ¼öÇàÇÕ´Ï´Ù.
Private Sub cmdExit_Click() Unload Me End Sub |
°ü·Ã ÀÚ·á [1] ¼± ±×¸®±â [VB] (5.89KB) |
Last updated 2002-09-07 by choi@moon-sun.com |