home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98a.iso / Wtestowe / AutoView / AcadInt / data1.cab / Program_Executable_Files / aview13.lsp < prev    next >
Lisp/Scheme  |  1998-01-20  |  14KB  |  577 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;   (C) Copyright 1997 by Autodesk, Inc.
  3. ;;   By Jessica Tarr and Daren Chung
  4. ;;   Portions (c)1996, Daryl L. Monk
  5. ;;
  6. ;;   Permission to use, copy, modify, and distribute this software 
  7. ;;   for any purpose and without fee is hereby granted, provided 
  8. ;;   that the above copyright notice appears in all copies and that 
  9. ;;   both that copyright notice and this permission notice appear in 
  10. ;;   all supporting documentation.
  11. ;;      
  12. ;;   THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
  13. ;;   WARRANTY.  ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
  14. ;;   PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.
  15. ;;
  16. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  17. ;;Global Variable Declaration and Initialization
  18.  
  19.     (setq AVW_REDATTACHED "FALSE")
  20.     (setq AVW_FNAME "")
  21.  
  22. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  23. ;;DXF FUNCTION
  24.  
  25. (defun dxf (CODE E_LIST)
  26.   (cdr (assoc CODE E_LIST))
  27. )
  28.  
  29. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  30. ;; XREFSELECT FUNCTION
  31.                         
  32. (defun C:XREFSELECT ( / ENT1 EN ED NAME VJUST HJUST WDTH NAME ELAY ECLR ELIN
  33.         STPT ENPT CTRPT RAD ROT TXHT VAL OBLQ JUSTNAM LAYDAT LAYCLR LAYLTYP STYL SBLIP)
  34.  
  35. ;;Preset variables
  36.  
  37.     (setq SBLIP (getvar "BLIPMODE"))
  38.  
  39.  
  40. ;;Prompt for selection
  41. (if(= AVW_REDATTACHED "TRUE")
  42. (progn
  43.     (if (= NOTE 1)
  44.         (progn
  45.             (setq ENTITY (nentsel "\nPlease select the note then <return>:"))
  46.             (setq NOTEREVERSESTR (reverse ENTITY))
  47.             (setq BLOCKNAMEID (car NOTEREVERSESTR))
  48.             (setq ENTITY (entget (car BLOCKNAMEID) ' ("*")))
  49.         )
  50.         
  51.     )
  52.     (if (= LINK 1)
  53.  
  54.         (progn
  55.             (setq ENTITY (entget (car (nentsel"\nPlease select the link then <return>: ")) ' ("admenote")))
  56.             (setq ENTNAMEID (dxf -1 ENTITY))
  57.             (setq ENTNAME (dxf 0 ENTITY))
  58.             (setq LOOPEND 0)
  59.  
  60.             (if (wcmatch ENTNAME "VERTEX")
  61.                 (progn
  62.                     (while (= LOOPEND 0)
  63.                         (setq ENTNEXTID (entnext ENTNAMEID))
  64.                         (setq ENTITY (entget ENTNEXTID))
  65.                         (setq ENTNAME (dxf 0 ENTITY))
  66.                         (setq ENTNAMEID ENTNEXTID)
  67.  
  68.                         (if (wcmatch ENTNAME "*SEQEND*")
  69.                             (setq LOOPEND 1)
  70.                         )
  71.                     )
  72.  
  73.                     (setq PLINENAMEID (dxf -2 ENTITY))
  74.                     (setq ENTITY (entget PLINENAMEID ' ("*")))
  75.                 )
  76.             )
  77.  
  78.         )        
  79.         
  80.     )
  81.  
  82. ;;Determine name of entity
  83.  
  84.     (setq NAME (dxf 0 ENTITY)  ELAY (dxf 8 ENTITY) ECLR (dxf 62 ENTITY) ELIN (dxf 6 ENTITY))
  85.        (getstring)
  86.  
  87. ;;Color bylayer
  88.  
  89.     (if (not ECLR) 
  90.         (progn
  91.             (setq LAYDAT (tblsearch "LAYER" ELAY)
  92.             LAYCLR (dxf 62 LAYDAT)
  93.             ECLR (strcat "Bylayer: " (itoa LAYCLR))
  94.                 )
  95.           )
  96.  
  97.               (setq ECLR (itoa ECLR))
  98.         )
  99.  
  100. ;;Linetype bylayer
  101.  
  102.     (if (not ELIN) 
  103.         (progn                                             
  104.             (setq LAYDAT (tblsearch "LAYER" ELAY)
  105.             LAYLTYP (dxf 6 LAYDAT)
  106.             ELIN (strcat "Bylayer: " LAYLTYP)
  107.         )
  108.     )
  109.     )
  110.  
  111.  
  112. ;;Get the XDATA from the Link or Note entities.
  113.  
  114.         (setq data1 (cdr (assoc -3 ENTITY)))
  115.         (if (not data1)
  116.             (progn
  117.                 (if (= LINK 1)
  118.                     (progn
  119.                         (princ "The selected entity is not a LINK")
  120.                     )
  121.                 )
  122.                 
  123.                 (if (= NOTE 1)
  124.                     (progn
  125.                         (princ "The selected entity is not a NOTE")        
  126.                     )
  127.                 )
  128.             )
  129.             (progn
  130.                 (setq data2 (car data1))
  131.                 (setq data3 (cadr data2))
  132.                 (setq data4 (cdr data3))
  133.                 (setq data5 (substr data4 6 256))
  134.  
  135.                 (if (= NOTE 1)
  136.                     (progn
  137.                         (if (wcmatch ELAY "*ADMENOTE*,*REDLINE_PSPACE*")
  138.                             (progn
  139.                                 (princ "\nThe contents of this note is: " )
  140.                                 (princ data5)
  141.                                 (princ)
  142.                             )
  143.                         )
  144.                     )
  145.                 )
  146.                 (if (= LINK 1)
  147.                     (progn
  148.                         (if (wcmatch ELAY "*ADMELINK*,*REDLINE_PSPACE*")
  149.                             (progn
  150.                                 (princ "\nThe file associated with this link is: " )
  151.                                 (princ data5)
  152.                                 (princ)
  153.                             )
  154.                         )
  155.                     )
  156.                 )
  157.             )
  158.         )
  159.  
  160.  
  161. ;;Start point
  162.  
  163.     (if STPT 
  164.         (progn
  165.             (princ (strcat "\n    Start pt: "))
  166.             (princ STPT)
  167.               )
  168.         )
  169.  
  170. ;;End point
  171.  
  172.     (if ENPT 
  173.         (progn 
  174.             (princ (strcat "\n    End pt: "))
  175.             (princ ENPT)
  176.               )
  177.     )
  178.  
  179.  
  180. ;;Reset variables
  181.  
  182.     (setq STPT nil ENPT nil STYL nil TXHT nil ROT nil RAD nil CTRPT nil NAME nil VAL nil)
  183.     (setvar "BLIPMODE" SBLIP)
  184.       (prin1)
  185.  
  186. )
  187. ;;ELSE (!AVW_REDATTACHED)
  188. (progn
  189.     (princ "\nThere are no redlines currently attached.")
  190.     (princ)
  191. )
  192. )
  193.     
  194. ;; End of XREFSELECT function
  195.  
  196. )
  197.  
  198. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  199. ;; GETNOTE FUNCTION
  200.  
  201. (defun c:aviewgetnote ()    
  202.  
  203.     (setq NOTE 1)
  204.     (setq LINK 0)
  205.     (c:xrefselect)
  206. )
  207.  
  208. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  209. ;;GETLINK FUNCTION
  210.  
  211. (defun c:aviewgetlink ()
  212.  
  213.     (setq LINK 1)
  214.     (setq NOTE 0)
  215.     (c:xrefselect)
  216. )
  217.  
  218. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  219. ;;DISPLAY REDLINES FUNCTION
  220.  
  221. (defun c:aviewredlines()
  222.  
  223. (setq ORIGLAYER (getvar "clayer"))
  224.     (setq AVW_FNAME (getfiled "Choose Redline File" "" "red" 14))
  225.     (setq FNAMELEN (strlen AVW_FNAME))
  226.  
  227. ;;Traverse the file name string to derive the base name
  228. ;;of the drawing. Find and set the slashpos and dotpos
  229.  
  230.     (setq COUNTER FNAMELEN)
  231.     (setq DOTPOS FNAMELEN)
  232.     (setq SLASHPOS -1)
  233.     (setq bDONE 0)
  234.  
  235.     (while (= bDONE 0)
  236.         (if (=(substr AVW_FNAME COUNTER 1) "\\")
  237.             (progn
  238.                 (setq SLASHPOS COUNTER)
  239.                 (setq bDONE 1)
  240.             )
  241.         )
  242.         (if (= (substr AVW_FNAME COUNTER 1) ".")
  243.             (progn
  244.                 (setq DOTPOS COUNTER)    
  245.             )
  246.         )    
  247.  
  248.         (if (= (substr AVW_FNAME COUNTER 1) ":")
  249.             (progn
  250.                 (setq SLASHPOS COUNTER)
  251.                 (setq bDONE 1)
  252.             )
  253.         )
  254.         (setq COUNTER (- COUNTER 1))
  255.         
  256.         (if (<= COUNTER 0)
  257.             (progn
  258.                 (setq bDONE 1)
  259.             )
  260.         )
  261.     )
  262.  
  263. ;;Create the original basename and basepath from the file name
  264.  
  265.     ;;Initialize the variables
  266.     (setq BASEPATH "")
  267.     (setq BASENAME "")
  268.     
  269.     ;;If a slashposition wasn't found, it means we're in the 
  270.     ;;AutoCAD directory and a path is not needed.
  271.     (if (= SLASHPOS -1)
  272.         (progn
  273.             (setq BASENAMELEN (- (strlen AVW_FNAME) 4))
  274.             (setq BASENAME (substr AVW_FNAME 1 BASENAMELEN))
  275.         )
  276.  
  277.     ;;Else if we found a slash in the filename. The basename needs to be parsed 
  278.     ;;from the basename using the slash and dot positions. The basepath is also
  279.     ;;needed.
  280.         (progn
  281.             (setq BASENAME (substr AVW_FNAME (+ SLASHPOS 1) (- (- DOTPOS SLASHPOS) 1)))
  282.             (setq BASEPATH (substr AVW_FNAME 1 SLASHPOS))
  283.         )
  284.     )
  285.     
  286. ;;Traverse the basename string looking to see if it's a long filename with spaces
  287. ;;Replace the spaces with underscores "_" only for the pupose of naming the block
  288. ;;The block is not allowed to have spaces in it. Original filename and basename are not
  289. ;;altered.
  290.  
  291.     (setq BASENAMELEN (strlen BASENAME))
  292.     (setq UNDERBAR "_")
  293.     (setq COUNTER BASENAMELEN)
  294.     (setq bDONE 0)
  295.     (setq bSPACE 0)
  296.     (setq BASENAMEL BASENAME)    
  297.     (while (= bDONE 0)
  298.         (if (=(substr BASENAMEL COUNTER 1) " ")
  299.             (progn                    
  300.                 (setq SPACEPOS COUNTER)        
  301.                 (setq MINUSSPACE (- SPACEPOS 1))
  302.                 (setq PLUSSPACE (+ SPACEPOS 1))
  303.                 (setq BASENAMEL (strcat (strcat (substr BASENAMEL 1 MINUSSPACE) "_")(substr BASENAMEL PLUSSPACE BASENAMELEN)))
  304.                 (setq bSPACE 1)
  305.                 (if(= bSPACE 1)
  306.                     (progn
  307.                         (setq BASENAMEL (strcat (strcat (substr BASENAMEL 1 MINUSSPACE) "_")(substr BASENAMEL PLUSSPACE BASENAMELEN)))
  308.                     )
  309.                 )                
  310.             )
  311.         )
  312.  
  313.         (setq COUNTER (- COUNTER 1))
  314.         
  315.         (if (<= COUNTER 0)
  316.             (progn
  317.                 (setq bDONE 1)
  318.             )
  319.         )
  320.     )
  321.  
  322.     (if(= bSPACE 1)
  323.         (progn
  324.             (setq BASENAME BASENAMEL)
  325.         )
  326.     )
  327.  
  328. ;;Need to alter the BLOCKNAME if the combined layer name
  329. ;;will exceed 31 characters. Combined name includes 
  330. ;;BLOCKNAME+_PS|ADMEREDLINE. Rename BASENAME to BLOCKNAME
  331. ;;since that's what is really is.
  332.  
  333.     (setq BLOCKNAME BASENAME)
  334.     (setq TEMPBLKNAME BLOCKNAME)    
  335.  
  336.     ;;Check the length of the BLOCKNAME. If it's still
  337.     ;;to long (ie..greater than 10 characters to be safe), take 
  338.     ;;the last 10 characters to make the BLOCKNAME
  339.     
  340.     (setq BLOCKLEN (strlen TEMPBLKNAME))    
  341.     (if(>= BLOCKLEN 10)
  342.         (progn
  343.             (setq STARTPOS (- BLOCKLEN 10))
  344.             (setq TEMPBLKNAME2 TEMPBLKNAME)
  345.             (setq TEMPBLKNAME (substr TEMPBLKNAME2 STARTPOS BLOCKLEN))
  346.         )
  347.     )
  348.  
  349.     (setq BLOCKNAME TEMPBLKNAME)
  350.             
  351. ;;Now it's time to try to attach the Xref
  352.  
  353.     (if (= AVW_FNAME nil)
  354.         (prompt "\nFunction failed due to incorrect name")
  355.         (progn
  356.             (command "layer" "new" "ADMEREDLINE" "set" "ADMEREDLINE" "")
  357.             (setq INITIALTILEMODE (getvar "TILEMODE"))
  358.             (if (= INITIALTILEMODE 1)
  359.                 (progn
  360.                     (c:insertmspaceredline)
  361.                     (c:insertpspaceredline)
  362.                     (command "tilemode" "1")
  363.                 )
  364.  
  365.             ;; else
  366.                 (progn
  367.                     (c:insertpspaceredline)
  368.                     (c:insertmspaceredline)
  369.                     (command "tilemode" "0")
  370.                 )
  371.  
  372.             )
  373.             (command "layer" "lock" "ADMEREDLINE" "")
  374.             (setq LAYERCREATED 1)
  375.         )
  376.     )
  377.  
  378.     (setvar "CLAYER" ORIGLAYER)
  379.     (setq NOTE 0)
  380.     (setq LINK 0)
  381.     (princ)
  382. )
  383.  
  384. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  385. ;;INSERT REDLINE XREF IN MSPACE
  386.  
  387. (defun c:insertmspaceredline()
  388.  
  389.     ;;Set the Block name
  390.     (strcase BLOCKNAME)
  391.     (setq MSPACENAME (strcat BLOCKNAME "="))    
  392.     (setq MSPACENAME (strcat MSPACENAME AVW_FNAME))
  393.     (command "tilemode" "1")
  394.     (command "xref" "attach" MSPACENAME "0,0" "" "" "")
  395.  
  396.     ;;Modelspace redline is now attached
  397.     (setq AVW_REDATTACHED "TRUE")
  398.  
  399. )
  400.  
  401. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  402. ;;INSERT REDLINE XREF IN PSPACE
  403.  
  404. (defun c:insertpspaceredline()
  405.  
  406.     ;;Set the Block name
  407.     (strcase BLOCKNAME)
  408.     (setq PSPACENAME (strcat BLOCKNAME "_ps="))
  409.     (setq PSPACENAME (strcat PSPACENAME AVW_FNAME))
  410.     (command "tilemode" "0")
  411.     (command "xref" "attach"  PSPACENAME "0,0" "" "" "")
  412.     (command "layer" "freeze" (strcat BLOCKNAME "_PS|*") "")
  413.     (command "layer" "thaw" (strcat BLOCKNAME "_PS|__AVIEW__") "")
  414.  
  415.     ;;Need to turn on the redline_pspace layers
  416.     (command "layer" "thaw" (strcat BLOCKNAME "_PS|REDLINE_PSPACE") "")
  417.  
  418.     ;;Need to enable VISRETAIN, since we are freezing/thawing specific xref layers. If user saves base dwg, with redlines
  419.     ;; xref'ed, the layer settings will be saved only if VISRETAIN=1
  420.     (command "visretain" "1")
  421.  
  422.     ;;Paperspace redline is now attached
  423.     (setq AVW_REDATTACHED "TRUE")
  424.  
  425. )
  426.  
  427. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  428. ;;HIDE MODELSPACE REDLINES
  429.  
  430. (defun c:hidemspaceredlines()
  431.     (if (= AVW_REDATTACHED "TRUE")
  432.         (progn
  433.             (setq CURRENTTILEMODE (getvar "TILEMODE"))
  434.             (if (= CURRENTTILEMODE 0)
  435.                 (progn
  436.                     (initget "Yes No")
  437.                     (setq ANSWER (getkword "This command hides Modelspace redlines in viewports (in Tilemode 0). Continue? (Yes or No)  "))
  438.                     (princ ANSWER)
  439.                     (if (= ANSWER "Yes")
  440.                         (progn
  441.                             (command "pspace")
  442.                             (command "vplayer" "freeze" "ADMEREDLINE" "all" "thaw" "ADMEREDLINE" "current")
  443.                             (command)
  444.                         )
  445.  
  446.                         (progn
  447.                             (command)
  448.                         )        
  449.                     )
  450.                 )
  451.                 ;ELSE
  452.                 (progn
  453.                     (princ "\nThis feature works in paperspace only.")
  454.                     (princ)                    
  455.                 )
  456.             )
  457.         )
  458.         ;;Else post a message on the command line if there are no redlines
  459.         ;;currently attached.
  460.         (progn
  461.             (princ "\nThere are no redlines currently attached.")
  462.             (princ)
  463.         )
  464.     )
  465. )
  466.  
  467. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  468. ;;REMOVE REDLINE FUNCTION
  469.  
  470. (defun c:aviewremoveredline()
  471.     (if (= AVW_REDATTACHED "TRUE")
  472.         (progn
  473.             (command "layer" "unlock" "ADMEREDLINE" "")
  474.             (setq SSREDLINE (ssget "X" '(( 8 . "ADMEREDLINE"))))
  475.             (setq NUMREDLINES (sslength SSREDLINE))
  476.             (setq COUNT 0)
  477.  
  478.             (while (< COUNT NUMREDLINES)
  479.                 (progn
  480.                     (setq XREFENT (entget (ssname SSREDLINE COUNT)))
  481.                     (setq XNAME (dxf 2 XREFENT))
  482.                     (command "_xref"  "detach"  XNAME)
  483.                     (setq JUNK (+ 1 COUNT))
  484.                     (setq COUNT JUNK)
  485.                 )
  486.             )
  487.             (setq AVW_REDATTACHED "FALSE")
  488.         )
  489.         ;;Else post a message on the command line if there are no redlines
  490.         ;;currently attached.
  491.         (progn
  492.             (princ "\nThere are no redlines currently attached.")
  493.             (princ)
  494.         )
  495.     )
  496. )
  497.  
  498. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  499. ;;LOAD AVIEW FROM ACAD FUNCTION
  500.  
  501. (defun c:aviewload()
  502.  
  503.     (setq dwgfilename (getvar "dwgname"))
  504.     (startapp "viewopen.exe" (strcat dwgfilename ".DWG"))    
  505.  
  506. )
  507.  
  508. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  509. ;;LIST REDLINES FUNCTION
  510.  
  511. (defun c:aviewlistredlines()
  512.     (if (= AVW_REDATTACHED "TRUE")
  513.         (progn
  514.             (command "layer" "unlock" "ADMEREDLINE" "")
  515.             (setq SSRED (ssget "X" '(( 8 . "ADMEREDLINE"))))
  516.             (setq NUMRED (sslength SSRED))
  517.             (setq COUNT 0)
  518.             (princ "\nThere are ")
  519.             (princ NUMRED)
  520.             (princ " redline files open. ")
  521.             (princ "The redline files are: ")
  522.             (while (< COUNT NUMRED)
  523.                 (progn
  524.                     (setq XREFENTITY (entget (ssname SSRED COUNT)))
  525.                     (setq XREFENTNAME (dxf 2 XREFENTITY))
  526.                     (setq JUNK (+ 1 COUNT))
  527.                     (setq COUNT JUNK)
  528.                     (princ "\n")
  529.                     (princ XREFENTNAME)            
  530.                     (princ)
  531.                 )
  532.             )
  533.         )
  534.         ;;Else post a message on the command line if there are no redlines
  535.         ;;currently attached.
  536.         (progn
  537.             (princ "\nThere are no redlines currently attached.")
  538.             (princ)
  539.         )
  540.     )    
  541. )
  542.  
  543. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  544. ;;ADD REDLINE MENU FUNCTION
  545.  
  546. (defun c:aviewaddtomenu()
  547.     
  548.     ;;Load the menus and toolbars if this is a windows environment    
  549.     (if (wcmatch (getvar "platform") "*Windows*")
  550.         (progn
  551.             
  552.             (command "menuload" "aviewred")
  553.             (menucmd "P6=+aviewredline.pop1")
  554.             (setq LAYERCREATED 0)
  555.             (command)
  556.         )
  557.       )
  558.     (princ "\n")
  559.     (princ "R13")
  560. )
  561.  
  562. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  563. ;;LOAD MENU
  564.  
  565. (if S::STARTUP 
  566.  
  567.     (setq s::startup (append s::startup '((c:aviewaddtomenu)) ))
  568.     (defun s::startup ( ) (c:aviewaddtomenu) )
  569.  
  570. )
  571.  
  572. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  573. ;;DISPLAY THE REDLINE TOOLBAR
  574.  
  575. (defun c:aviewdisplaytoolbar()
  576.     (command "_toolbar" "Redline Toolbar" "show")
  577. )