AutoLISP °ÁÂ [5] |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
1. ÀÔ¹®(I) - AutoLISPÀÇ ±âº» °³³ä |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
5. Symbol table°ú Device Á¦¾î 5.1 Symbol table ó¸® AutoCAD¿¡´Â APPID, BLOCK, DIMSTYLE, LAYER, LTYPE, STYLE, UCS, VIEW, VPORT¿Í °°Àº symbol tableÀÌ ÀÖÀ¸¸ç À̵éÀº ¾Õ¼ ´Ù·ç¾î º¸¾Ò´ø entity¿Í À¯»çÇÑ ÇüÅ·ΠÀúÀåµÇ¾î ÀÖ´Ù.
Ç¥ 1. symbol table¿¡ ´ëÇÑ 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
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 Äڵ尪
Command: (while T (print (grread T))) À§¿Í °°Àº »óÅ¿¡¼ Űº¸µå³ª ÀÔ·ÂÀåÄ¡ÀÇ ¹öưÀ» »ç¿ëÇØ¼ ÀÔ·ÂÀ̳ª ¼±ÅÃÀ» ÇàÇßÀ»¶§ ȸé»ó¿¡ ³ªÅ¸³ª´Â °á°úÀÇ Â÷À̸¦ Àß ºñ±³ÇØ º¸±â ¹Ù¶õ´Ù. À§ÀÇ »óŸ¦ ³¡¸¶Ä¡°í ½ÍÀ» ¶§´Â <Ctrl> + C¸¦ ´©¸£¸é µÈ´Ù. 5.2.4 GRTEXT GRTEXT´Â ȸé»óÀÇ STATUS LINE°ú SCREEN MENU ¿µ¿ª¿¡ ÇÊ¿ä·ÎÇÏ´Â Á¤º¸¸¦ Ãâ·ÂÇϰíÀÚ ÇÒ ¶§ »ç¿ëµÈ´Ù. ±× ¿µ¿ªÀº ´ÙÀ½°ú °°ÀÌ Á¤ÀǵǾî ÀÖ´Ù.
-1 : mode status line
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 : ![]() |