ID:
PW:

     0 ºÐ
     23 ºÐ

¿£Áö´Ï¾î µ¹Á¾
  dolljong

Áö½ÄÀº °øÀ¯µÇ¾úÀ» ¶§ ±× ÈûÀ» ¹ßÈÖÇÑ´Ù.


Excel VBA, AutoCAD ActiveX ¸Àº¸±â °­ÁÂ(21)

Model space¿¡ EntityÃß°¡Çϱâ(1)

¿À´ÃºÎÅÍ´Â µåµð¾î ijµå¿¡´Ù ¿£Æ¼Æ¼¸¦ ¸¸µé¾îº¸µµ·Ï ÇÏ°Ú½À´Ï´Ù. Áö±Ý±îÁö´Â °è¼Ó Á÷Á¢½ÇÇàâ¿¡´Ù Å×½ºÆ®¸¦ Çغ¸¾Ò½À´Ï´Ù. Å×½ºÆ®Çϴµ¥´Â ¿ª½Ã Á÷Á¢½ÇÇàâÀÌ ÃÖ°íÁö¿ä? ÇÏÁö¸¸ ÀÌÁ¦ºÎÅÍ´Â Á÷Á¢ ½ÇÇàâÀ» ¹ö¸®°í sub·Î ¸¸µé±â·Î ÇÏ°Ú½À´Ï´Ù. Áö³­¹ø °­Á¿¡¼­ AutoCAD°³Ã¼ ¾Æ·¡¿¡´Â document°¡ ÀÖ°í ÀÌ°ÍÀ» dwgÆÄÀÏÀ» ¶æÇÏ°í, ±× ¾Æ·¡¿¡´Â model space¿Í paper space°¡ Àִµ¥ ¿ì¸®´Â ÁÖ·Î model space¿¡´Ù µµ¸éÀ» ±×¸°´Ù°í Çß½À´Ï´Ù. ¹Ù·Î ÀÌ model space¶ó´Â °³Ã¼´Â ¿©·¯°¡Áö entityµéÀ» °Å´À¸®°í ÀÖ½À´Ï´Ù. ¶óÀÎ, ¿ø, ÅؽºÆ®µîÀÌ°ÚÁÒ. ÀÌ·¯ÇÑ °³Ã¼µéÀ» ¸¸µé±â À§Çؼ­ model space´Â add¾î¼°í Àú¼°í ÇÏ´Â ¸Þ¼­µå¸¦ Áö¿øÇÕ´Ï´Ù. ÀÏ´Ü model space°³Ã¼ÀÇ ±¸¼ºÀ» ¾Ë¾Æº¼±î¿ä? µµ¿ò¸» ¾²½Ã´Âµ¥ ¾î´ÀÁ¤µµ Àͼ÷ÇØÁ³À¸¸®¶ó ¹Ï½À´Ï´Ù. À̹ø¿¡´Â ¾îÁ¦ ¸»¾¸µå¸° AutoCAD°³Ã¼ ¸ðµ¨À» ÅëÇؼ­ model spaceÀÇ ¸Þ¼­µå,¼Ó¼ºµéÀ» ¾Ë¾Æº¸µµ·Ï ÇÏ°Ú½À´Ï´Ù. ¾Æ·¡¿Í °°ÀÌ AuotCAD °³Ã¼ modelÀ» ¶ç¿ì°í model space¸¦ ¼±ÅÃÇÕ´Ï´Ù. ÀÌ ¸ðµ¨Àº Àϸñ¿ä¿¬ÇÏ°Ô º¼ ¼ö À־ ÁÁ½À´Ï´Ù.



±×·¯¸é ´ëÃæ ¾Æ·¡¿Í °°Àº ³»¿ëÀÌ ³ª¿Ã °ÍÀÔ´Ï´Ù. paper space¿¡ ´ëÇÑ ¼³¸íÀÌÁÒ. À§¼­ºÎÅÍ °³¿ä°¡ ³ª¿À°í ¾Æ·¡¿ÞÂÊ¿¡´Â ¸Þ¼­µå°¡ ¿À¸¥ÂÊ¿¡´Â ¼Ó¼ºÀÌ, ¸Ç ¿À¸¥ÂÊ¿¡´Â À̺¥Æ®°¡ ³ª¿É´Ï´Ù. ¿ì¸®°¡ °ü½ÉÀִ°ÍÀº ¸Þ¼­µå¿Í ¼Ó¼ºÀÔ´Ï´Ù.



¸Þ¼­°¡ ¸î°³º¸À̴µ¥.. ¾î¶² ³ðÀ¸·Î °ñ¶ó¼­ Å×½ºÆ®¸¦ Çغ¼±î¿ä? À½.. ¼­Å¬ÀÌ º¸À̳׿ä.. addcircle¸Þ¼­µå..¸Þ¼­µå À̸§À» º¸¸é ¹Ì·ç¾î ÁüÀÛÀÌ µÇÁö¿ä.. ¾î´ÀÁ¤µµ addcircle... = circleÀ» ´õÇضó.. ¸Ó ±×·±¶æÀÏ°¡¿ä? modelspace¿¡ ¼­Å¬À» ´õÇ϶ó´Â À̾߱䵥.. Çѹø Çغ¸µµ·Ï ÇÏÁö¿ä. Á÷Á¢½ÇÇàâÀÌ ¾Æ´Ñ ÄÚµùÀ» ÇؾßÇϴϱî ÇÁ·ÎÁ§Æ®Ã¢¿¡¼­ ¿À¸¥ÂÊ ¸¶¿ì½º¸¦ ´­·¯ »ðÀÔ/¸ðµâÀ» ´­·¯ »õ·Î¿î ¸ðµâÀ» Çϳª ¸¸µì´Ï´Ù.

±×¸®°í ù¶óÀÎÀ» ¾î¶»°Ô ½ÃÀÛÇØ¾ß ÇÒ±î¿ä? ´ç¿¬È÷ sub·Î ½ÃÀÛÇØ¾ß °ÚÁö¿ä. sub ÇÏ°í¼­.. addc()¶ó´Â À̸§À¸·Î ¸ÅÅ©·Î¸¦ ÀÛ¼ºÇϵµ·Ï ÇÏÁö¿ä... ±×´ÙÀ½Àº º¯¼ö¼±¾ðºÎÀε¥.. autocad°³Ã¼¸¦ ´ã¾ÆµÑ objectÇü º¯¼ö°¡ ÇÊ¿äÇÏÁö¿ä? ÀÏ´Ü ³ª¸ÓÁö °ÍµéÀº ³ªÁß ¼±¾ð Çϱâ·ÎÇÏ°í acad¶ó´Â objectÇüº¯¼öºÎÅÍ ¼±¾ðÇÏÇÕ´Ï´Ù. ±×¸®°í ijµå¿Í ¿¬°á½ÃÅ°´Â Äڵ带 ÀÛ¼ºÇÕ´Ï´Ù. ±â¾ï³ª½Ã³ª¿ä? getobject()ÇÔ¼ö..

Sub addc()
  dim acad as obejct
  set acad = getobject(,"AutoCAD.apllication")
  msgbox acad.name
End sub  

ÀÏ´Ü ¿å½É³»Áö ¸»°í ¿©±â±îÁö Çѹø Å×½ºÆ®Çغ¸µµ·Ï ÇÒ±î¿ä? ´Ü¼¼ÁÙÀÇ ÄÚµåÀÌ´Ï±î ¸ðµÎµé ÀÌÇØÇÏ½Ç ¼ö ÀÖÀ» °Å¶ó »ý°¢µË´Ï´Ù. acadº¯¼ö¿¡´Ù setÀ» ÀÌ¿ëÇؼ­ autocad.applicatoinÀ» Àâ¾Æ ³Ö°í, msgbox¸¦ ÀÌ¿ëÇÏ¿© acad º¯¼ö¿¡ ´ã°ÜÁø °³Ã¼ÀÇ À̸§À» º¸¿©Áà¶ó~ ¶ó´Â ÄÚµåÀÔ´Ï´Ù. ½ÇÇà°á°ú´Â..



À§ ±×¸²°ú °°ÀÌ AutoCAD¶ó´Â ½ä··ÇÑ ¸Þ¼¼Áö¸¸ º¸¿©ÁÝ´Ï´Ù. ÇÏÁö¸¸ ¹«¾ùÀΰ¡ AutoCAD¿Í Á¤È®ÇÏ°Ô ±³°¨ÀÌ ÀÌ·ç¾îÁ³´Ù´Âµ¥ Àǹ̰¡ ÀÖ´Â °ÍÀÌ°ÚÁÒ.
modelspace¿¡ circleÀ» Ãß°¡ÇÏ´Â ÇÁ·Î±×·¥À» ¸¸µé±â·Î Çߴµ¥ ¹®Åο¡¼­ ³¡³ª³×¿ä.. ±×·³ ³»ÀÏ °è¼ÓÇϵµ·Ï ÇÏ°Ú½À´Ï´Ù.

[ÀÌÀü °­ÁÂ]     [´ÙÀ½ °­ÁÂ]


dolljong@gmail.com