AutoLISP °­ÁÂ [5]


1. ÀÔ¹®(I) - AutoLISPÀÇ ±âº» °³³ä
2. ÀÔ¹®(II) - »ç¿ëÀÚ Á¤ÀÇ ÇÔ¼ö Á¦ÀÛ
3. ÀÔ¹®(III) - ±× ¹ÛÀÇ ±âº» ±â´Éµé
4. ÀÀ¿ë(I) - Entity¿Í Selection-Set
5. ÀÀ¿ë(II) - Symbol table°ú Device Á¦¾î
6. ÀÀ¿ë(III) - Dialogue box Á¦¾î
7. È°¿ë¿¹Á¦


5. Symbol table°ú Device Á¦¾î

5.1 Symbol table ó¸®

AutoCAD¿¡´Â APPID, BLOCK, DIMSTYLE, LAYER, LTYPE, STYLE, UCS, VIEW, VPORT¿Í °°Àº symbol tableÀÌ ÀÖÀ¸¸ç À̵éÀº ¾Õ¼­ ´Ù·ç¾î º¸¾Ò´ø entity¿Í À¯»çÇÑ ÇüÅ·ΠÀúÀåµÇ¾î ÀÖ´Ù.

APPID 2 ÀÀ¿ë ÇÁ·Î±×·¥ À̸§
  70 flag
BLOCK 1 Xref È­ÀÏÀ̸§
  2 BLOCK À̸§
  3 Ãß°¡ÀûÀÎ BLOCK À̸§
  10 BLOCKÀÇ ±âÁØÁ¡
  70 BLOCKÀÇ ÇüÅ flag
DIMSTYLE 2 DIMSTYLE À̸§
  70 flag
    ±×¿Ü 39°³ÀÇ Ä¡¼ö°ü·Ã½Ã½ºÅÛº¯¼ö¸¦ ÀúÀå
LAYER 2 LAYER À̸§
  6 ¼±Á¾·ù
  62 »ö¹øÈ£
  70 flag
LTYPE 2 LINETYPE À̸§
  3 ¼±Á¾·ù¿¡ ´ëÇÑ °£´ÜÇÑ ¼³¸í
  40 Àüü ±æÀÌ
  49 ¸¶µðÀÇ ±æÀÌ (¸¶µðÀÇ ¼ö¸¸Å­ ¹Ýº¹)
  70 flag
  72 alignment code
  73 ¸¶µðÀÇ ¼ö
STYLE 2 STYLE À̸§
  3 ±âº» ¹®ÀÚü È­ÀÏÀ̸§
  4 BIG-FONT È­ÀÏÀ̸§
  40 °íÁ¤µÈ ±ÛÀÚ ³ôÀÌ
  41 ÆøÀÇ ºñÀ²
  42 ÃÖ±Ù »ç¿ë ³ôÀÌ
  50 ±â¿î °¢
  70 flag
  71 ¹®ÀÚÃâ·ÂÇüÅ flag
UCS 2 UCS À̸§
  10 ¿øÁ¡
  11 XÃà»óÀÇ ÇÑÁ¡
  12 YÃà»óÀÇ ÇÑÁ¡
  70 flag
VIEW 2 VIEW À̸§
  10 Áß½ÉÁ¡
  11 ¸ñÇ¥Á¡À¸·ÎºÎÅÍ viewÀÇ ¹æÇâ
  12 ¸ñÇ¥Á¡
  40 viewÀÇ ³ôÀÌ
  41 viewÀÇ Æø
  42 lens °Å¸®
  43 front clipping plane
  44 back clipping plane
  50 ºñƲ¸²°¢
  70 flag
  71 view mode
VPORT 2 VIEWPORT À̸§
  10 ¿ÞÂÊ ¾Æ·¡ ¸ð¼­¸® ÁÂÇ¥
  11 ¿À¸¥ÂÊ À§ ¸ð¼­¸® ÁÂÇ¥
  12 Áß½ÉÁ¡
  13 SNAPÀÇ ±âÁØÁ¡
  14 SNAPÀÇ X, Y ¹æÇâ °£°Ý
  15 GRIDÀÇ X, Y ¹æÇâ °£°Ý
  16 ¸ñÇ¥Á¡À¸·ÎºÎÅÍ viewÀÇ ¹æÇâ
  17 ¸ñÇ¥Á¡
  40 viewÀÇ ³ôÀÌ
  41 viewportÀÇ °¡·Î¼¼·Îºñ
  42 lens °Å¸®
  43 front clipping plane
  44 back clipping plane
  50 SNAPÀÇ È¸Àü°¢
  51 ºñƲ¸²°¢
  68 »óÅ°ª
  69 ID
  70 flag
  71 view mode
  72 ¿ø È®´ëÀ²
  73 ½Å¼ÓÇÑ È®´ë ¼³Á¤
  74 UCSICON ¼³Á¤
  75 SNAPÀÇ »óÅÂ
  76 GRIDÀÇ »óÅÂ
  77 SNAPÀÇ ÇüÅÂ
  78 SNAP isopair

Ç¥ 1. symbol table¿¡ ´ëÇÑ DXF ÄÚµå
(ÇØ´ç DXF ÄÚµåÀÇ º¸´Ù ÀÚ¼¼ÇÑ Àǹ̴ ¸Å´º¾óÀ» Âü°íÇϽñ⠹ٶø´Ï´Ù.)

À§¿Í °°Àº symbol tableÀÇ ÀڷḦ ¾ò¾î³»´Âµ¥ »ç¿ëµÇ´Â ÇÔ¼ö¿¡´Â TBLNEXT¿Í TBLSEARCH°¡ ÀÖ´Ù. TBLNEXT´Â ¼øÂ÷ÀûÀ¸·Î symbol table ³»¿¡ÀÖ´Â Á¤º¸¸¦ ¾ò¾î³»´Âµ¥ ÁÖ·Î »ç¿ëµÇ¸ç, TBLSEARCH´Â symbol table ³»¿¡ ÇØ´ç symbolÀÌ Á¸ÀçÇϴ°¡¸¦ È®ÀÎÇÏ°í Á¸ÀçÇϸé Á¤º¸¸¦ ¾ò¾î³»´Âµ¥ ÁÖ·Î »ç¿ëµÈ´Ù.

5.1.1 APPID

APPID´Â ÇöÀç µµ¸é»ó¿¡¼­ »ç¿ëÁßÀÎ ¸ðµç ÀÀ¿ëÇÁ·Î±×·¥ÀÇ À̸§À» ´ã°í ÀÖ´Ù. Ãʱ⠰ªÀ¸·Î "ACAD"¶ó´Â Á¤º¸°¡ µé¾îÀÖ´Ù.

Command: (tblnext "APPID" T)
((0 . "APPID") (2 . "ACAD") (70 . 64))

70¹ø flagÀÇ °ªÀÎ 64´Â ÇöÀç ±× ÀÀ¿ëÇÁ·Î±×·¥ÀÌ µµ¸é»ó¿¡¼­ »ç¿ëµÇ°í ÀÖÀ½À» ÀǹÌÇÑ´Ù.

5.1.2 BLOCK

BLOCKÀº ¸»±×´ë·Î BLOCK ¸í·ÉÀ» »ç¿ëÇÏ¿© Á¤ÀÇµÈ entityµéÀÇ Á¤º¸¸¦ ´ã°í ÀÖ´Ù.

Command: LINE
From point: 1,1
To point: 2,2
To point:
Command: BLOCK
Block name (or ?): LINE
Insertion base point: 1,1
Select objects: L
1 found
Select objects:

À̹ø¿¡´Â µµ¸é»ó¿¡ ÀÌ¹Ì ¸¹Àº BLOCKÀÌ Á¤ÀǵǾî ÀÖÀ» °æ¿ì¸¦ »ý°¢Çؼ­ TBLSEARCH ÇÔ¼ö¸¦ »ç¿ëÇØ º¸ÀÚ.

Command: (tblsearch "BLOCK" "LINE")
((0 . "BLOCK")
 (2 . LINE) (70 . 64) (10 0.0 0.0 0.0)
 (-2 . <Entity name: XXXXXXXX>)
)

À§¿Í °°ÀÌ ÇØ´ç BLOCK Á¤º¸ÀÇ ³¡¿¡´Â entity À̸§ÀÌ µé¾îÀִµ¥ ÀÌ°ÍÀ» ÀÌ¿ëÇϸé ÇØ´ç BLOCK ³»¿¡ ¾î¶² entityµéÀÌ Æ÷ÇԵǾîÀִ°¡¸¦ ¾Ë ¼ö ÀÖ´Ù.

Command: (setq en (cdr (assoc '-2 (tblsearch "BLOCK" "LINE"))))
<Entity name: XXXXXXXX>
Command: (entget en)
((-1 . <Entity name: XXXXXXXX>)
 (0 . "LINE") (8 . "0") (5 . "67")
 (10 0.0 0.0 0.0) <= ±âÁØÁ¡¿¡ ´ëÇØ ÁÂÇ¥º¯È¯µÈ °ÍÀ» ¾Ë ¼ö ÀÖ´Ù.
 (11 1.0 1.0 1.0) <= ±âÁØÁ¡¿¡ ´ëÇØ ÁÂÇ¥º¯È¯µÈ °ÍÀ» ¾Ë ¼ö ÀÖ´Ù.
 (210 0.0 0.0 1.0)
)
Command: (setq en (entnext en))
nil <= ´õ ÀÌ»ó BLOCK¿¡ Æ÷ÇÔµÈ entity°¡ Á¸ÀçÇÏÁö ¾Ê´Â´Ù´Â ¶æ

5.1.3 DIMSTYLE

DIMSTYLEÀº Ä¡¼ö¿Í °ü·ÃµÈ ½Ã½ºÅÛ º¯¼öÀÇ °ªµéÀ» ´ã°í ÀÖ´Ù. Ãʱ⿡´Â ¾Æ·¡¿¡¼­¿Í °°ÀÌ Á¤ÀǵǾî ÀÖ´Â DIMSTYLEÀÌ ¾ø´Ù. ¿¬½À»ï¾Æ DIMSTYLE Çϳª¸¦ ¸¸µé¾î¼­ ÀúÀåµÇ¾î ÀÖ´Â ³»¿ëÀ» »ìÆ캸ÀÚ.

Command: (tblnext "DIMSTYLE" T)
nil <= Á¤ÀÇµÈ DIMSTYLEÀÌ ¾ø´Ù´Â ¶æ
Command: DIM
Dim: SAVE
?/Name for new dimension style: MYWAY
Dim: EXIT
Command: (tblnext "DIMSTYLE" T)
((0 . "DIMSTYLE") (2 . "MYWAY") (70 . 0) ...<<ÀÌÇÏ »ý·«>>...)

À§ÀÇ ¸Ç¸¶Áö¸· °á°ú´Â »ç¿ëÀÚ¸¶´Ù ½Ã½ºÅÛ º¯¼öÀÇ ¼³Á¤Ä¡¿¡ µû¶ó ´Þ¶óÁú ¼ö ÀÖ´Ù.

5.1.4 LAYER

LAYERÀÇ À̸§°ú ÇöÀç »ç¿ëÁßÀÎÁö »ç¿ëÁßÀÌ ¾Æ´ÑÁö ±×¸®°í ¼³Á¤»ö°ú ¼±Á¾·ù¸¦ ´ã°í ÀÖ´Ù. ±âº»ÀûÀ¸·Î Á¸ÀçÇÏ´Â layer "0"ÀÇ Á¤º¸¸¦ º¸ÀÚ.

Command: (tblnext "LAYER" T)
((0. "LAYER") (2 . "0") (70 . 0) (62 . 7) (6 . "CONTINUOUS"))

±×¸®°í, 70¹ø flagÀÇ °ªÀÇ Àǹ̸¦ È®ÀÎÇϱâ À§ÇØ ¸î°³ÀÇ layer¸¦ ´õ ¸¸µé¾î º¸ÀÚ.

Command: LAYER
?/Make/Set/New/ON/OFF/Color/Ltype/Freeze/Thaw/LOck/Unlock: N
New layer name(s): off,freeze,lock
?/Make/Set/New/ON/OFF/Color/Ltype/Freeze/Thaw/LOck/Unlock: OFF
Layer name(s) to turn Off: off
?/Make/Set/New/ON/OFF/Color/Ltype/Freeze/Thaw/LOck/Unlock: F
Layer name(s) to Freeze: freeze
?/Make/Set/New/ON/OFF/Color/Ltype/Freeze/Thaw/LOck/Unlock: LO
Layer name(s) to Lock: lock
?/Make/Set/New/ON/OFF/Color/Ltype/Freeze/Thaw/LOck/Unlock:
Command: (tblnext "LAYER")
((0 . "LAYER") (2 . "OFF") (70 . 64) (62 . -7) (6 . "CONTINUOUS"))
Command: (tblnext "LAYER")
((0 . "LAYER") (2 . "FREEZE") (70 . 65) (62 . 7) (6 . "CONTINUOUS"))
Command: (tblnext "LAYER")
((0 . "LAYER") (2 . "LOCK") (70 . 68) (62 . 7) (6 . "CONTINUOUS"))
Command: (logand 65 1)
1 <= FROZEN µÇ¾ú´Ù.
Command: (logand 68 4)
4 <= LOCK µÇ¾ú´Ù.

ù¹ø°·Î ¸¸µç LAYER´Â OFFµÈ »óÅÂÀ̸é À̶§´Â 62¹ø »ö¹øÈ£°¡ À½ÀÇ °ªÀ» °®°ÔµÈ´Ù´Â °ÍÀ» ¾Ë ¼ö ÀÖ´Ù. µÎ¹ø°¿Í ¼¼¹ø°ÀÇ °æ¿ì´Â 70¹ø flagÀÇ °ªÀ¸·Î »óŸ¦ ¾Ë ¼ö Àִµ¥ 0¹ø bit°¡ ONÀ̸é FROZENµÈ »óÅÂÀ̸ç 2¹ø bit°¡ ONÀ̸é LOCKµÈ »óÅÂÀÌ´Ù. ÀÌÁ¦ ÀÌ¿Í °ü·ÃµÈ ¿¹Á¦ Çϳª¸¦ ¼Ò°³ÇÒ±î ÇÑ´Ù.

; LAOFF.LSP : ¼±ÅÃµÈ ·¹À̾ Á¦¿ÜÇÑ ¸ðµç ·¹À̾ º¸ÀÌÁö ¾Ê°Ô ÇÑ´Ù.

(defun C:LAOFF ( / sl ty tl ln)
  (setq sl (strcase (getstring "\nSet layer name: ")))
  (if (not (tblsearch "LAYER" sl))
    (progn (princ "\nIt is not a layer.") (exit))
  )
  (initget 1 "Freeze Off")
  (setq ty (getkword "Type <Freeze/Off>: "))
  (if (= 1 (logand 1 (cdr (assoc 70 (tblsearch "LAYER" sl)))))
    (command "LAYER" "THAW" sl "")
  )
  (command "LAYER" "SET" sl "")
  (setq tl (tblnext "LAYER" T))
  (command "LAYER")
  (while tl
    (setq ln (cdr (assoc 2 tl)))
    (if (/= ln sl)
      (cond ((= ty "Freeze") (command "FREEZE" ln))
            ((= ty "Off") (command "OFF" ln))
      )
    )
    (setq tl (tblnext "LAYER"))
  )
  (command "")
  (princ)
)

5.1.5 LTYPE

LTYPEÀº Àß ¾Ë°í Àִ¹ٴë·Î »ç¿ëÀÚ°¡ Á¤ÀÇÇÑ LINETYPE¿¡ °üÇÑ Á¤º¸¸¦ ´ã°í ÀÖ´Ù. ÀÚ·áÇüÅ´ *.LIN È­ÀÏ¿¡ Á¤ÀǵǴ Çü½Ä°ú °°´Ù. ±âº»ÀÚ·á·Î´Â Á÷¼±¿¡ °üÇÑ Á¤º¸°¡ µé¾îÀִµ¥ Çѹø »ìÆ캸ÀÚ.

Command: (tblnext "LTYPE" T)
((0 . "LTYPE" (2 . "CONTINUOUS") (70 . 64) (3 . "SOLID LINE")
 (72 . 65) (73 . 0) (40 . 0))

»õ·Î¿î LINETYPEÀ» ¸¸µé°í ºÒ·¯µé¿©¼­ Á¤º¸ÀÇ Â÷À̸¦ ºñ±³ÇØ º¸ÀÚ.

Command: LINETYPE
?/Create/Load/Set: C
Name of linetype to create: DASHDOT
File for storage of linetype <C:\ACAD\SUPPORT\ACAD.LIN>: DASHDOT
Creating new file
Descriptive text: _ . _ . _
Enter pattern (on next line):
A,.5,-.25,0,-.25
New definition written to file.
?/Create/Load/Set: L
Linetype(s) to load: DASHDOT
File to search <DASHDOT>:
Linetype DASHDOT loaded.
?/Create/Load/Set:
Command: (tblnext "LTYPE")
((0 . "LTYPE") (2. "DASHDOT") (70 . 64)
 (3 . "_ . _ . _") <= descriptive text
 (72 . 65) <= Ç×»ó 65 (ASCII ÄÚµå·Î 'A')
 (73 . 4) <= 49¹ø Ç׸ñÀÇ °ªÀÌ 4°³ Á¸Àç
 (40 . 1.0) <= 49¹ø Ç׸ñÀÇ Àüü ±æÀÌ°¡ 1.0
 (49 . 0.5) <= ¾çÀÇ °ªÀ̸é Á÷¼±ÀÇ ±æÀÌ
 (49 . -0.25) <= À½ÀÇ °ªÀÌ¸é °ø¹éÀÇ ±æÀÌ
 (49 . 0.0) <= ¿µÀ̸é Á¡À» ÀǹÌ
 (49 . -0.25)
)

5.1.6 STYLE

STYLEÀº ±ÛÀÚü³ª SHAPE¿¡ °üÇÑ Á¤º¸¸¦ ´ã°í ÀÖ´Ù. ±âº»À¸·Î µé¾îÀÖ´Â "STANDARD"¿¡ °üÇÑ Á¤º¸¸¦ »ìÆ캸ÀÚ.

Command: (tblnext "STYLE" T)
((0 . "STYLE") (2 . "STANDARD")
 (70 . 0) <= ù¹ø° ºñÆ®°¡ 1À̸é SHAPE, ¼¼¹ø° ºñÆ®°¡ 1ÀÌ¸é ¼öÁ÷
 (40 . 0.0) <= 0ÀÌ¸é ±ÛÀÚÀÇ ³ôÀÌ°¡ °íÁ¤µÇÁö ¾Ê¾ÒÀ½
 (41 . 1.0)
 (50 . 0.0)
 (71 . 0) <= µÎ¹ø° ºñÆ®°¡ 1À̸é Á¿찡 ¹Ý´ë·Î ½áÁø´Ù. 
             ¼¼¹ø° ºñÆ®°¡ 1À̸é À§¾Æ·¡°¡ ¹Ý´ë·Î ½áÁø´Ù.
 (42 . 0.2)
 (3 . "txt")
 (4 . "") <= big-font¸¦ »ç¿ëÇÏÁö ¾ÊÀ¸¸é blank
)

5.1.7 UCS

UCS´Â »ç¿ëÀÚ Á¤ÀÇ ÁÂÇ¥°è¿¡ ´ëÇÑ Á¤º¸¸¦ ´ã°í ÀÖ´Ù. ±âº»À¸·Î ¾Æ¹«·± UCSµµ Á¤ÀǵǾî ÀÖÁö ¾ÊÀ¸¹Ç·Î ¸î°³¸¦ ¿¬½À»ï¾Æ ¸¸µé¾î º¸ÀÚ.

Command: UCS
Origin/ZAxis/3point/.../Prev/Restore/Save/Del/?/<World>: O
Origin point <0,0,0>: 1,1,1
Command: UCS
Origin/ZAxis/3point/.../Prev/Restore/Save/Del/?/<World>: S
?/Desired UCS name: origin
Command: UCS
Origin/ZAxis/3point/.../Prev/Restore/Save/Del/?/<World>:
Command: UCS
Origin/ZAxis/3point/.../Prev/Restore/Save/Del/?/<World>: 3
Origin point <0,0,0>:
Point on positive portion of the X-axis <1,0,0>: 0,1,0
Point on positive-Y portion of the UCS XY plane <-1,0,0>: 1,0,0
Command: UCS
Origin/ZAxis/3point/.../Prev/Restore/Save/Del/?/<World>: S
?/Desired UCS name: back-plane
Command: UCS
Origin/ZAxis/3point/.../Prev/Restore/Save/Del/?/<World>:
Command: (tblnext "UCS" T)
((0 . "UCS") (2 . "ORIGIN") (70 . 0)
 (10 1.0 1.0 1.0) <= ¿øÁ¡ÀÌ 1,1,1·Î À̵¿µÇ¾ú´Ù.
 (11 1.0 0.0 0.0) <= 11°ú ¾Æ·¡ 12´Â ¿ø·¡ »óÅ ±×´ë·ÎÀÌ´Ù.
 (12 0.0 1.0 0.0)
)
Command: (tblnext "UCS")
((0. "UCS") (2 . "BACK-PLANE") (70 . 0)
 (10 0.0 0.0 0.0) <= ¿øÁ¡Àº ±×´ë·ÎÀÌ´Ù.
 (11 0.0 1.0 0.0) <= 11°ú ¾Æ·¡ 12´Â ÀÔ·ÂÇÑ´ë·Î º¯°æµÇ¾ú´Ù.
 (12 1.0 0.0 0.0)
)

5.1.8 VIEW

VIEW´Â Àß ¾Æ´Â ¹Ù´ë·Î È­¸é Ãâ·Â¿¡ °üÇÑ ¸¹Àº ¼³Á¤µéÀ» ¹Ì¸® ¾î¶² »óÅ·Π¸¸µé¾î µÎ°í Æí¸®ÇÏ°Ô È­¸é »óŸ¦ ¹Ù²Ü ¼ö ÀÖ°Ô ÇØÁÖ´Â ¸Å¿ì Æí¸®ÇÑ ±â´ÉÀÌ´Ù. À̰͵µ ¹Ì¸® Á¤ÀÇµÈ °ÍÀÌ ¾øÀ¸¹Ç·Î Çϳª¸¦ ¸¸µé¾î º¸ÀÚ.

Command: DVIEW
Select objects:
.../Distance/POints/PAn/Zoom/TWist/CLip/Hide/Off/Undo/<eXit>: PO
Enter target point <8.3559,4.9408,0.0000>: 0,0,0
Enter camera point <8.3559,4.9408,1.0000>: 1,1,1
.../Distance/POints/PAn/Zoom/TWist/CLip/Hide/Off/Undo/<eXit>: D
New camera/target distance <1.7321>:
.../Distance/POints/PAn/Zoom/TWist/CLip/Hide/Off/Undo/<eXit>: TW
New view twist <0.00>: 10
.../Distance/POints/PAn/Zoom/TWist/CLip/Hide/Off/Undo/<eXit>: CL
Back/Front/<Off>: B
ON/OFF/<Distance from target> <0.0000>: 1
.../Distance/POints/PAn/Zoom/TWist/CLip/Hide/Off/Undo/<eXit>: CL
Back/Front/<Off>: F
Eye/<Distance from target> <1.7320>: 0.9
.../Distance/POints/PAn/Zoom/TWist/CLip/Hide/Off/Undo/<eXit>:
Regenerating drawing.
Command: VIEW
?/Delete/Restore/Save/Window: S
View name to save: PERSP
Command: (tblnext "VIEW" T)
((0 . "VIEW") (2 . "PERSP")
 (70 . 0) <= ù¹ø° ºñÆ®°¡ 1À̸é paper space view ÀÌ´Ù.
 (40 . 9.88155)
 (10 0.0 0.0)
 (41 . 16.7118)
 (11 1.0 1.0 1.0)
 (12 0.0 0.0 0.0)
 (42 . 50.0) <= ÃʱⰪÀÌ´Ù.
 (43 . 0.9)
 (44 . 1.0)
 (50 . 0.174533) <= 10µµ¸¦ ¶óµð¾È°ªÀ¸·Î º¯°æÇÑ °Í
 (71 . 23) <= view mode °ªÀÇ Àǹ̴ ¾Æ·¡¸¦ ÂüÁ¶
)

VIEWMODE ½Ã½ºÅÛº¯¼öÀÇ Àǹ̴ ´ÙÀ½°ú °°´Ù.

1 = perspective view
2 = front clipping
4 = back clipping
8 = UCS follow mode
16 = front clip ¸éÀÌ ½ÃÁ¡»ó¿¡ Á¸ÀçÇÏÁö ¾ÊÀ»¶§

5.1.9 VPORT

VPORT´Â È­¸é Ãâ·Â°ú °ü·ÃµÈ´Ù´Â Á¡¿¡¼­ VIEW¿Í »ó´çÈ÷ ºñ½ÁÇÏ¸ç ³»ºÎ Á¤º¸µµ Áߺ¹µÇ´Â ºÎºÐÀÌ ¸¹´Ù.

Command: VPORTS
Save/Restore/Delete/Join/SIngle/?/2/<3>/4: 4
Regenerating drawing.
Command: VPORTS
Save/Restore/Delete/Join/SIngle/?/2/<3>/4: S
?/Name for new viewport configuration: four
Command: (tblnext "VPORT" T)
((0 . "VPORT") (2 . "FOUR") (70 . 0)
 (10 0.5 0.0) <= ´ÜÀ§È­¸é»óÀÇ ¿ÞÂÊ ¾Æ·¡ ¸ð¼­¸®ÀÇ ÁÂÇ¥Á¡
 (11 1.0 0.5) <= ´ÜÀ§È­¸é»óÀÇ ¿À¸¥ÂÊ À§ ¸ð¼­¸®ÀÇ ÁÂÇ¥Á¡
 (12 0.0 0.0) (13 0.0 0.0) (14 1.0 1.0) (15 0.0 0.0)
 (16 1.0 1.0 1.0) (17 0.0 0.0 0.0)
 (40 . 9.88155) (41 . 1.70697) (42 . 50.0)
 (43 . 0.9) (44 . 1.0) (50 . 0.0) (51 . 0.174533)
 (71 . 23) (72 . 100) (73 . 1) (74 . 1)
 (75 . 0) (76 . 0) (77 . 0) (78 . 0)
)

10¹ø°ú 11¹øÀÇ ÁÂÇ¥Á¡À¸·Î º¼¶§ ÀÌ VPORT´Â ¿À¸¥ÂÊ ¾Æ·¡ ¸ð¼­¸®¿¡ ÀÖ´Â °ÍÀÇ Á¤º¸¶ó´Â °ÍÀ» ¾Ë ¼ö ÀÖ´Ù. ¸î°¡Áö ¼³Á¤°ªÀ» º¯°æÇغ¸°í °á°ú¸¦ È®ÀÎÇØ º¸±â ¹Ù¶õ´Ù. ±×¸®°í, È­¸éÀÌ 4°³·Î µîºÐµÇ¾úÀ¸¹Ç·Î °°Àº À̸§À» °®´Â VPORT°¡ 4°³ Á¸ÀçÇÏ°Ô µÈ´Ù. °è¼ÓÇؼ­ ³ª¸ÓÁö 3°³ÀÇ Á¤º¸¸¦ ¾ò¾î³»¼­ Â÷ÀÌÁ¡À» È®ÀÎÇϱ⠹ٶõ´Ù.

±×¸®°í, Âü°í·Î À¯¿ëÇÏ°Ô ¾²Àϸ¸ÇÑ °ü·Ã ÇÔ¼ö Çϳª¸¦ ¼Ò°³ÇÒ±î ÇÑ´Ù. VPORTÀÇ ´ÜÀ§È­¸éÀÇ ÁÂÇ¥Á¡¸¸À» È®ÀÎÇϴµ¥ »ç¿ëµÇ´Â VPORTS°¡ ¹Ù·Î ±×°ÍÀε¥ ÀÌ ÇÔ¼ö¸¦ »ç¿ëÇϸé ÇöÀç »ç¿ëÁßÀÎ ¸ðµç VPORTÀÇ ID¸¦ ¾ò¾î³¾ ¼ö ÀÖ´Ù. ÀÌ ID¸¦ ¾Ë¾Æ¾ß¸¸ ½Ã½ºÅÛ º¯¼ö CVPORTÀÇ °ªÀ» º¯°æÇؼ­ ÇÁ·Î±×·¥»ó¿¡¼­ ÇöÀç VPORT¸¦ º¯°æÇÒ ¼ö ÀÖ´Ù. À̸¦ ÀÌ¿ëÇÏ¸é ¸ðµç VPORT¿¡ ´ëÇØ ¾î¶² ÀÛ¾÷À» µ¿½Ã¿¡ ÇàÇØ¾ß ÇÒ¶§ ¸Å¿ì Æí¸®ÇÏ´Ù. ¾Æ·¡ÀÇ ÇÁ·Î±×·¥ ¿¹Á¦¸¦ º¸ÀÚ.

; POFFALL.LSP : ¸ðµç ºäÆ÷Æ®¿¡ ´ëÇØ perspective off¸¦ ¼öÇàÇÑ´Ù.

; ¸ðµç ºäÆ÷Æ®ÀÇ ID ¹øÈ£¸¦ ±¸ÇÑ´Ù.

(defun g-avnum ( / vp vl)
  (setq vp (vports))
  (while vp
    (setq vl (cons (caar vp) vl))
    (setq vp (cdr vp))
  )
  vl
)

(defun C:POFFALL ( / vp)
  (foreach vp (g-avnum)
    (setvar "CVPORT" vp)
    (command "DVIEW" "" "OFF" "")
  )
  (princ)
)

5.2 Device Á¦¾î

5.2.1 GRCLEAR

GRCLEAR ÇÔ¼ö´Â È­¸é»ó¿¡ ±×·ÁÁø ¸ðµç ±×¸²µé(UCSICON±îÁö)À» Áö¿î´Ù. Áö¿î´Ù°í Çؼ­ µ¥ÀÌŸº£À̽º¿¡¼­ »èÁ¦µÇ´Â °ÍÀÌ ¾Æ´Ï¶ó ´Ü¼øÈ÷ È­¸é»ó¿¡¼­¸¸ »ç¶óÁö´Â °ÍÀÌ´Ù.

Command: (grclear)
nil <= Ç×»ó ¹Ýȯ°ªÀº 0ÀÌ´Ù.
Command: REDRAW
<<¿ø·¡ ±×¸²ÀÌ ´Ù½Ã ³ªÅ¸³­´Ù.>>

ÀÌ ÇÔ¼ö´Â ´ÙÀ½À¸·Î ´Ù·ê GRDRAW ÇÔ¼ö¸¦ ÀÌ¿ëÇؼ­ È­¸é»ó¿¡ ¾î¶² ±×¸²À» Ãâ·ÂÇÏ°íÀÚ ÇÒ¶§ Àӽ÷Πȭ¸éÀ» Áö¿ì±â À§ÇØ ÁÖ·Î »ç¿ëµÈ´Ù.

5.2.2 GRDRAW

GRDRAW ÇÔ¼ö´Â È­¸é»ó¿¡ ÀÓÀÇÀÇ 2D ¶Ç´Â 3D º¤Å͸¦ ±×¸®±â À§ÇØ »ç¿ëµÈ´Ù. ´ÙÀ½ÀÇ ¿¹¸¦ º¸ÀÚ.

Command: (grdraw '(0 0 0) '(10 10 10) 7)
nil
Command: (grdraw '(0 0 0) '(10 10 10) -1) <= XORÀÇ Àǹ̸¦ °®´Â´Ù.
nil
Command: (grdraw '(0 0 0) '(10 10 10) -1 1) <= highlightµÈ´Ù.
nil

5.2.3 GRREAD

GRREAD ÇÔ¼ö´Â ÀÔ·ÂÀåÄ¡·ÎºÎÅÍ ´ÙÀ½°ú °°Àº Ư¼öÇÑ Á¤º¸¸¦ ¾ò¾î³»±â À§ÇØ »ç¿ëµÈ´Ù.

2 : Å°º¸µå ÀÔ·Â, ±ÛÀÚÀÇ ASCII Äڵ尪
3 : ¼±ÅÃµÈ Á¡, 3Â÷¿ø ÁÂÇ¥°ª
4 : ½ºÅ©¸°À̳ª Ç®´Ù¿î ¸Þ´º ¼±ÅÃ, ¼±ÅÃµÈ Ç׸ñÀÇ ¹øÈ£
5 : ÀÔ·ÂÀåÄ¡ÀÇ À§Ä¡, 3Â÷¿ø ÁÂÇ¥°ª
6 : ¹öÆ° ¸Þ´º ¼±ÅÃ, ¼±ÅÃµÈ Ç׸ñÀÇ ¹øÈ£
7 : TABLET1 ¸Å´º ¼±ÅÃ, ¼±ÅÃµÈ Ç׸ñÀÇ ¹øÈ£
8 : TABLET2 ¸Å´º ¼±ÅÃ, ¼±ÅÃµÈ Ç׸ñÀÇ ¹øÈ£
9 : TABLET3 ¸Å´º ¼±ÅÃ, ¼±ÅÃµÈ Ç׸ñÀÇ ¹øÈ£
10 : TABLET4 ¸Å´º ¼±ÅÃ, ¼±ÅÃµÈ Ç׸ñÀÇ ¹øÈ£
11 : AUX ¸Å´º ¼±ÅÃ, ¼±ÅÃµÈ Ç׸ñÀÇ ¹øÈ£
12 : ¹öÆ° ¼±ÅÃ, 3Â÷¿ø ÁÂÇ¥°ª (6À̳ª 11¿¡ À̾ ³ª¿Â´Ù.)

Command: (while T (print (grread T)))

À§¿Í °°Àº »óÅ¿¡¼­ Å°º¸µå³ª ÀÔ·ÂÀåÄ¡ÀÇ ¹öÆ°À» »ç¿ëÇؼ­ ÀÔ·ÂÀ̳ª ¼±ÅÃÀ» ÇàÇßÀ»¶§ È­¸é»ó¿¡ ³ªÅ¸³ª´Â °á°úÀÇ Â÷À̸¦ Àß ºñ±³ÇØ º¸±â ¹Ù¶õ´Ù. À§ÀÇ »óŸ¦ ³¡¸¶Ä¡°í ½ÍÀ» ¶§´Â <Ctrl> + C¸¦ ´©¸£¸é µÈ´Ù.

5.2.4 GRTEXT

GRTEXT´Â È­¸é»óÀÇ STATUS LINE°ú SCREEN MENU ¿µ¿ª¿¡ ÇÊ¿ä·ÎÇÏ´Â Á¤º¸¸¦ Ãâ·ÂÇÏ°íÀÚ ÇÒ ¶§ »ç¿ëµÈ´Ù. ±× ¿µ¿ªÀº ´ÙÀ½°ú °°ÀÌ Á¤ÀǵǾî ÀÖ´Ù.

-1 : mode status line
-2 : coordinate status line
0 ~ : screen menu

Command: (grtext -1 "MODE STATUS LINE")
"MODE STATUS LINE"
Command: (grtext -2 "COORDINATE STATUS LINE")
"COORDINATE STATUs LINE"
Command: (grtext 0 "BOX 0")
"BOX 0"
Command: (grtext 19 "BOX 19" 1) <= highlightµÈ´Ù.
"BOX 19"
Command: (grtext) <= ¿ø·¡´ë·Î ȯ¿øµÈ´Ù.
nil

5.2.5 GRVECS

GRVECS ÇÔ¼ö´Â GRDRAW ÇÔ¼ö°¡ È®ÀåµÈ °ÍÀ¸·Î¼­ ¿©·¯°³ÀÇ º¤Å͸¦ µ¿½Ã¿¡ ±×¸± ¼ö ÀÖÀ¸¸ç ±×¿Í µ¿½Ã¿¡ 3Â÷¿ø º¯È¯À» ¼öÇàÇÒ ¼ö ÀÖ´Ù.

Command: (grvecs '(
2> 1 (0 0 0) (1 0 0)
2> 3 (1 0 0) (1 1 0)
2> 5 (1 1 0) (0 1 0)
2> 7 (0 1 0) (0 0 0))
1> '(
2> (0.2 0.0 0.0 0.0)
2> (0.0 0.4 0.0 0.0)
2> (0.0 0.0 0.8 0.0)
2> (0.0 0.0 0.0 1.0)
2> ))
nil


Last updated 2002-09-06 by choi@moon-sun.com
This page has been accessed : Counter times.
Home