home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p024 / 5.img / SUPPORT3.LIB / MVSETUP.LSP < prev    next >
Encoding:
Text File  |  1993-02-15  |  110.5 KB  |  3,215 lines
  1. ;;;   MVSETUP.LSP
  2. ;;;   ¬⌐┼v (C) 1990-1992  Autodesk ñ╜Ñq
  3. ;;;
  4. ;;;   Ñ╗│n┼ΘºK╢O¿╤▒z╢iªµÑ⌠ª≤Ñ╬│~╗▌¿D¬║½■¿⌐íB¡╫º∩ñ╬╡oªµ, ª²¼O░╚╜╨┐φ┤`ñU¡z
  5. ;;;   ¡∞½h :
  6. ;;;
  7. ;;;   1)  ñWªC¬║¬⌐┼v│qºi░╚╗▌ÑX▓{ªb¿Cñ@Ñ≈½■¿⌐∙╪íC
  8. ;;;   2)  ¼█├÷¬║╗í⌐·ñσÑ≤ñ]Ñ▓╢╖⌐·╕ⁿ¬⌐┼v│qºiñ╬Ñ╗╢╡│\Ñi│qºiíC
  9. ;;;
  10. ;;;   Ñ╗│n┼Θ╢╚┤ú¿╤º@¼░└│Ñ╬ñW¬║░╤ª╥, ª╙Ñ╝┴n⌐·⌐╬┴⌠ºtÑ⌠ª≤½O├╥; ╣∩⌐≤Ñ⌠ª≤»S«φ
  11. ;;;   Ñ╬│~ñº╛A║┘⌐╩, ÑHñ╬░╙╖~╛P░Γ⌐╥┴⌠ºtÑX¿π¬║½O├╥, ªbª╣ñ@╖ºñ⌐ÑHº_╗{íC
  12. ;;;
  13. ;;;
  14. ;;; DESCRIPTION
  15. ;;;
  16. ;;;   This is a setup routine for Mview.
  17. ;;;
  18. ;;;   It is based around a set of functionality that was determined to be a
  19. ;;;   necessary part of preparing a drawing for plotting.  This routine allows
  20. ;;;   the user to insert several pre-defined title blocks (ANSI A - E) and in
  21. ;;;   addition it allows the user to create a set of viewports within the
  22. ;;;   title block just inserted.  A global scale may be specified as a ratio
  23. ;;;   between the scale of the title block in paperspace and the model geometry
  24. ;;;   in modelspace.  For example, if you were doing an engineering drawing at
  25. ;;;   a scale of 1:4 or quarter scale, then you would specify that you wanted
  26. ;;;   a ratio of 1 paperspace unit to 4 modelspace units.  The routine will
  27. ;;;   convert this to 0.25xp for the Zoom command.  You may also elect to
  28. ;;;   align the viewports.
  29. ;;;
  30. ;;;   (The first time you invoke MVSETUP, you may notice a slight delay.
  31. ;;;   This occurs because the routine is creating a default file of various
  32. ;;;   title blocks and viewport layouts.  If you should accidentally erase
  33. ;;;   your default file, another will be created the next time you invoke
  34. ;;;   MVSETUP.  The file will be created in the directory specified by the
  35. ;;;   AutoCAD system variable "ACADPREFIX".  If you run AutoCAD from a
  36. ;;;   directory other than that one, and the system variables ACAD or ACADCFG
  37. ;;;   do not point to that directory, then MVSETUP will not be able to find
  38. ;;;   it, and will create a new one in the directory pointed to by the first
  39. ;;;   path found in the current setting of the AutoCAD system variable
  40. ;;;   "ACADPREFIX".)
  41. ;;;
  42. ;;;   When you invoke MVSETUP from the command line or one of the menus, you
  43. ;;;   are given four options;  three dealing with the creation and manipulation
  44. ;;;   of viewports, and one which allows you to insert various "title blocks".
  45. ;;;   The initial prompts are shown below.
  46. ;;;
  47. ;;;
  48. ;;;         MVSetup, Version 1.15, (c) 1990-1992 by Autodesk, Inc.
  49. ;;;         Align/Create/Scale viewports/Options/Title block/Undo:
  50. ;;;
  51. ;;;   The Align viewports option presents you with several more options; you
  52. ;;;   are asked to determine the type of alignment you wish to perform.
  53. ;;;
  54. ;;;         Angled/Horizontal/Vertical alignment/Rotate view/Undo?
  55. ;;;
  56. ;;;   The Horizontal and Vertical options ask you to pick a basepoint in one
  57. ;;;   viewport, and the point to move in another viewport.  The view in the
  58. ;;;   second viewport is panned by the offset distance in X or Y between
  59. ;;;   the two points relative to the zoom scale factor of the second viewport.
  60. ;;;
  61. ;;;   The Angled option asks you for these two points and for a distance and
  62. ;;;   angle from the basepoint.  The point in the first viewport at the
  63. ;;;   specified distance and angle from the basepoint is where the "other"
  64. ;;;   point will be panned.
  65. ;;;
  66. ;;;   The Rotate view option asks you for a basepoint and a rotation angle
  67. ;;;   and uses the DVIEW command to change the view twist.  This generally
  68. ;;;   will be useful only when the UCS of the view you are rotating is
  69. ;;;   parallel to the screen and would be used to align a view with an
  70. ;;;   angled edge with the Align Angled option.
  71. ;;;
  72. ;;;   Selecting Create viewports prompts you with the following:
  73. ;;;
  74. ;;;         Delete objects/<Create viewports>:
  75. ;;;
  76. ;;;   Selecting Delete objects provides you with a general selection prompt
  77. ;;;   at which time you may delete any paperspace objects that you wish.
  78. ;;;   This is intended to allow you to clear an area for your new viewports.
  79. ;;;   Modelspace entities will NOT be removed.
  80. ;;;
  81. ;;;
  82. ;;;   Selecting Create viewports prompts you to select one of the viewport
  83. ;;;   options listed.
  84. ;;;
  85. ;;;         Available Mview viewport layout options:
  86. ;;;
  87. ;;;         0:       ╡L
  88. ;;;         1:       │µñ@
  89. ;;;         2:       ╝╨╖╟¬║íuñu╡{Ñ╬│~ív«µªí
  90. ;;;         3:       ╡°╡í░}ªC
  91. ;;;
  92. ;;;         R¡½╖s┼πÑ▄/<╕ⁿñJ╕Ω«╞╢╡╝╞>:
  93. ;;;
  94. ;;;   Pressing RETURN or selecting "None" returns you to the main prompt
  95. ;;;   without creating any viewports.
  96. ;;;
  97. ;;;   "Single" is a single viewport which can fill the default area open in
  98. ;;;   the sheet or it can be located by picking two points on the screen.
  99. ;;;
  100. ;;;   Std. Engineering is a set of four viewports with the upper left viewport
  101. ;;;   in plan view, the lower left in a front view, the lower right in a right
  102. ;;;   side view, and the upper right in an oblique view at -45 degrees from 0
  103. ;;;   and up 30 degrees.
  104. ;;;
  105. ;;;   The "Array of Viewports" allows you to specify any array of viewports
  106. ;;;   that you want to place on your sheet, from a 1 by 2 or 2 by 1 to any
  107. ;;;   level allowed by AutoCAD.
  108. ;;;
  109. ;;;
  110. ;;;   After selecting option 1, 2 or 3, you are prompted to specify the bounding
  111. ;;;   area for the viewports that are to be created.  Each of the title blocks
  112. ;;;   provided has a bounding region defined for it in the default file.  You
  113. ;;;   can elect to create all of the viewports within this region by selecting
  114. ;;;   "Default" at the following prompt:
  115. ;;;
  116. ;;;         Bounding area for viewports.  Default/<First point >:
  117. ;;;
  118. ;;;   You can also select two points on the screen and the number of viewports
  119. ;;;   you subsequently define will be mapped into this area.
  120. ;;;
  121. ;;;   Picking options 2 or 3 prompts you to specify the distance between the
  122. ;;;   viewports; the interstitial distance.  This value must be a positive
  123. ;;;   number but may be zero.  The value you enter for X is automatically
  124. ;;;   assigned to Y, though you may specify Y to have a different value.
  125. ;;;   If you selected option 2 above, then the four viewports are created and
  126. ;;;   the four views are mapped into them as defined in the default file.
  127. ;;;   The other options create the viewports but do not change the views in
  128. ;;;   any of them; the view will be a plan view in the current UCS.
  129. ;;;
  130. ;;;
  131. ;;;   Selecting Scale viewports at the main menu prompts you to select the
  132. ;;;   viewports you wish to scale.  If you select one or more viewports
  133. ;;;   you asked whether you wnat to set the zoom scales all at once or for
  134. ;;;   each viewport separately:
  135. ;;;
  136. ;;;         Set zoom scale factors for viewports.  Interactively/<Uniform>:
  137. ;;;
  138. ;;;   After selecting one of these you are asked the following;
  139. ;;;
  140. ;;;         Enter the ratio of paper space units to model space units...
  141. ;;;         Number of paper space units.  <1.0>:
  142. ;;;         Number of model space units.  <1.0>:
  143. ;;;
  144. ;;;   The number of viewports specified will have their zoom scales changed
  145. ;;;   by the ratio of the paper space units divided by the model space units.
  146. ;;;   This is cumulative over time, so performing this operation twice with
  147. ;;;   paper space units set to 1.0 and model space units set to 2.0 will give
  148. ;;;   the same results as doing it once with 1.0 an 4.0 as the values.
  149. ;;;
  150. ;;;
  151. ;;;   Selecting Options at the main menu allows you to specify several
  152. ;;;   preferences for operation of Mvsetup.  They are:
  153. ;;;
  154. ;;;         Set Layer/LImits/Units/Xref:
  155. ;;;
  156. ;;;   The Layer option allows you to specify a layer, existing or new, on
  157. ;;;   which to insert the title block, the LImits option allows you to
  158. ;;;   specify whether or not to reset the limits to the drawing extents after
  159. ;;;   a title block has been inserted, Units specifies whether the sizes and
  160. ;;;   point locations are to be translated to inch or millimeter paper units,
  161. ;;;   and the Xref option let's you determine whether the title block is to
  162. ;;;   be inserted or Xref'ed.
  163. ;;;
  164. ;;;
  165. ;;;   Selecting Title block from the main menu gives you another sub-menu.
  166. ;;;
  167. ;;;         Delete objects/Origin/<Insert title block>:
  168. ;;;
  169. ;;;   Delete objects works as described above under Create viewports.
  170. ;;;   Origin allows you to specify a new UCS origin for the subsequent
  171. ;;;   insertion of a title block.  Pressing RETURN will cause you to be
  172. ;;;   presented with a list of available title blocks or sheets.
  173. ;;;
  174. ;;;         Available title block options:
  175. ;;;
  176. ;;;         0:       NONE
  177. ;;;         1:       ISO A4 Size(mm)
  178. ;;;         2:       ISO A3 Size(mm)
  179. ;;;         3:       ISO A2 Size(mm)
  180. ;;;         4:       ISO A1 Size(mm)
  181. ;;;         5:       ISO A0 Size(mm)
  182. ;;;         6:       ANSI-V Size(in)
  183. ;;;         7:       ANSI-A Size(in)
  184. ;;;         8:       ANSI-B Size(in)
  185. ;;;         9:       ANSI-C Size(in)
  186. ;;;         10:      ANSI-D Size(in)
  187. ;;;
  188. ;;;         11:      ANSI-E Size(in)
  189. ;;;         12:      Arch/Engineering (24 x 36 in)
  190. ;;;
  191. ;;;         Add/Redisplay/<Number of entry to load>:
  192. ;;;
  193. ;;;   This list includes ISO standard sheets used outside the US, specified
  194. ;;;   in millimeters, the ANSI standard sheet layouts from A to E and size
  195. ;;;   A Vertical specified in inches.  Selecting the number preceding one of the
  196. ;;;   selections causes one of two things to occur.  One, if the AutoCAD
  197. ;;;   drawing associated with the selections cannot be found, then the
  198. ;;;   default file is read, a definition is extracted, and the drawing is
  199. ;;;   created in your current drawing.  You are then asked whether you want
  200. ;;;   to save this drawing to disk.  If you want to use this drawing more
  201. ;;;   than once, you should answer Yes to this prompt.  Two, if the AutoCAD
  202. ;;;   drawing can be found then it is INSERTed into your drawing at 0,0.
  203. ;;;
  204. ;;;   The other options are Add, Delete and Redisplay.
  205. ;;;
  206. ;;;   Pressing RETURN or selecting 0 for "None" at this prompt returns you
  207. ;;;   to the main menu.  Selecting the number of a viable entry causes one
  208. ;;;   of two things to occur:  if you selected one of the built-in entries,
  209. ;;;   and you have not created a drawing by the name associated with this
  210. ;;;   entry, the default file is scanned for a definition, and if found,
  211. ;;;   the title block is created in your current drawing.  You are asked
  212. ;;;   whether you want to create a drawing of the entities just created.
  213. ;;;   For example, picking 1 (ANSI-V Size) gives you the following prompt:
  214. ;;;
  215. ;;;         Create a drawing named ansi-v.dwg? <Y>:
  216. ;;;
  217. ;;;   Answering Yes causes a drawing to be created and reinserted into your
  218. ;;;   drawing where it was created.
  219. ;;;
  220. ;;;   If the drawing already exists it is inserted at the current UCS origin.
  221. ;;;   This is the mechanism for using your own title blocks and parts of
  222. ;;;   title blocks.
  223. ;;;
  224. ;;;   Selecting Add after the available title blocks are listed gives you
  225. ;;;   the following prompts; example text follows the colon:
  226. ;;;
  227. ;;;         Title block description: A/E (24 x 18in)
  228. ;;;
  229. ;;;         Drawing to insert (without extension): arch-b
  230. ;;;         Specify default usable area? <Y>:  Y
  231. ;;;
  232. ;;;         Lower left corner: (1.12 0.99 0.00)
  233. ;;;         Upper right corner: (18.63 17.02 0.00)
  234. ;;;
  235. ;;;   A line looking like this
  236. ;;;
  237. ;;;         A/E (24 x 18in),arch-b.dwg,(1.12 0.99 0.00),(18.63 17.02 0.00),in
  238. ;;;
  239. ;;;   is added after the last entry in the default file.
  240. ;;;
  241. ;;;   The last field of the line specifies whether the title block has been
  242. ;;;   created in inch or millimeter units.  This filed is used to allow title
  243. ;;;   blocks created in either unit system to be interchanged simply by setting
  244. ;;;   the unit type in the Options menu.
  245. ;;;
  246. ;;;   Selecting Delete at the same prompt allows you to delete any of the
  247. ;;;   lines listed except line 0.  Redisplay causes the list to be displayed
  248. ;;;   again.
  249. ;;;
  250. ;;;   If neither a valid drawing or a definition can be found you are so
  251. ;;;   informed and returned to the main menu.
  252. ;;;
  253. ;;;
  254. ;;;   GLOBALS:
  255. ;;;     mv_nln -- New layer name for title block insertions.
  256. ;;;     mv_slr -- Set Limits Request from drawing extents.
  257. ;;;     mv_utr -- Unit Translation Request.
  258. ;;;     mv_uxr -- Use Xref Request for title block insertions.
  259. ;;;
  260. ;;;----------------------------------------------------------------------------;
  261. ;;;
  262. ;;; ===========================================================================
  263. ;;; ===================== load-time error checking ============================
  264. ;;;
  265.  
  266.   (defun ai_abort (app msg)
  267.      (defun *error* (s)
  268.         (if old_error (setq *error* old_error))
  269.         (princ)
  270.      )
  271.      (if msg
  272.        (alert (strcat " └│Ñ╬╡{ªí┐∙╗~: "
  273.                       app
  274.                       " \n\n  "
  275.                       msg
  276.                       "  \n"
  277.               )
  278.        )
  279.      )
  280.      (exit)
  281.   )
  282.  
  283. ;;; Check to see if AI_UTILS is loaded, If not, try to find it,
  284. ;;; and then try to load it.
  285. ;;;
  286. ;;; If it can't be found or it can't be loaded, then abort the
  287. ;;; loading of this file immediately, preserving the (autoload)
  288. ;;; stub function.
  289.  
  290.   (cond
  291.      (  (and ai_dcl (listp ai_dcl)))          ; it's already loaded.
  292.  
  293.      (  (not (findfile "ai_utils.lsp"))                     ; find it
  294.         (ai_abort "MVSETUP"
  295.                   (strcat "ºΣñú¿∞íuAI_UTILS.LSPív└╔«╫;"
  296.                           "\n  ╜╨└╦¼díusupportívÑ╪┐²íC")))
  297.  
  298.      (  (eq "failed" (load "ai_utils" "failed"))            ; load it
  299.         (ai_abort "MVSETUP" "╡L¬k╕ⁿñJíuAI_UTILS.LSPív└╔«╫"))
  300.   )
  301.  
  302.   (if (not (ai_acadapp))               ; defined in AI_UTILS.LSP
  303.       (ai_abort "MVSETUP" nil)         ; a Nil <msg> supresses
  304.   )                                    ; ai_abort's alert box dialog.
  305.  
  306. ;;; ==================== end load-time operations ===========================
  307. ;;;
  308. ;;;   Start routine from menu pick or by typing MVS at the
  309. ;;;   command prompt.
  310. ;;;
  311. (defun mv_sup ( / mv_err s mv_oer mv_oce mv_olu ll_crn need_z mv_orm mv_oln
  312.                   deffi deffo mv_utr mv_oas undo_setting)
  313.  
  314.   ;;
  315.   ;; Internal error handler defined locally
  316.   ;;
  317.  
  318.   (defun mv_err (s)                   ; If an error (such as CTRL-C) occurs
  319.                                       ; while this command is active...
  320.     (if (/= s "Function cancelled")
  321.       (if (= s "quit / exit abort")
  322.         (princ)
  323.         (princ (strcat "\n┐∙╗~: " s))
  324.       )
  325.     )
  326.     (if deffi (close deffi))
  327.     (if deffo (close deffo))
  328.     (command "_.UNDO" "_EN")
  329.     (ai_undo_off)
  330.     (if mv_oer                        ; If an old error routine exists
  331.       (setq *error* mv_oer)           ; then, reset it
  332.     )
  333.     (if mv_olu (setvar "lunits" mv_olu)) ; Restore prev. linear units value
  334.     (setvar "regenmode" mv_orm)       ; Restore prev. Regenmode value
  335.     (setvar "osmode" mv_osm)          ; Restore prev. Object snap mode value
  336.     (setvar "pickfirst" mv_oas)       ; Restore prev. Pickfirst value
  337.     (setvar "cmdecho" mv_oce)         ; Reset command echoing on error
  338.     (princ)
  339.   )
  340.  
  341.   (if (not *DEBUG*)
  342.     (if *error*                       ; If there is an error routine defined
  343.       (setq mv_oer   *error*          ; Store AutoLisp error routine
  344.             *error*  mv_err)          ; Temporarily replace it
  345.     )
  346.   )
  347.   (setq mv_oce (getvar "cmdecho"))
  348.   (setvar "cmdecho" 0)                ; Turn off command echoing
  349.  
  350.   (ai_undo_on)                        ; Turn UNDO on
  351.  
  352.   (setq mv_orm (getvar "regenmode"))
  353.   (setq mv_osm (getvar "osmode"))
  354.   (setq mv_oas (getvar "pickfirst"))
  355.   (setvar "pickfirst" 0)              ; Turn off pickfirst
  356.   (setvar "osmode" 0)                 ; Turn off object snap mode
  357.   (setvar "regenmode" 1)
  358.   (if (mv_ctm)                        ; Is Tile-mode on? T or nil
  359.     (mv_dos)                          ; Do old setup
  360.     ;; else
  361.     (mv_dns)                          ; Do new setup
  362.   )
  363.   (if deffi (setq deffi (close deffi)))
  364.   (if deffo (setq deffo (close deffo)))
  365.   (setvar "regenmode" mv_orm)         ; Restore prev. Regenmode value
  366.   (setvar "osmode" mv_osm)            ; Restore prev. Object snap mode value
  367.   (setvar "pickfirst" mv_oas)         ; Restore prev. Pickfirst value
  368.  
  369.   (ai_undo_off)                       ; Return UNDO to initial state
  370.  
  371.   (setvar "cmdecho" mv_oce)           ; Reset command echoing
  372.   (if mv_oer                          ; If an old error routine exists
  373.     (setq *error* mv_oer)             ; then, reset it
  374.   )
  375.   (princ)
  376. )
  377. ;;;
  378. ;;; Check Tile-mode.  Returns T if ON and nil if not on.
  379. ;;;
  380. ;;; mv_ctm == MView_Check_TileMode
  381. ;;;
  382. (defun mv_ctm ()
  383.   (if (= (getvar "TILEMODE") 1)
  384.     (progn
  385.       (initget "Yes No")
  386.       (setq ans (getkword (strcat
  387.         "\níu╣╧»╚¬┼╢íí■╝╥½¼¬┼╢íívñwºφñε; ░ú½D▒N¿Σíu¡P»αív, º_½h▒Nñ▐Ñ╬"
  388.         "\nR11 ¬⌐ÑH½e¬║ SETUP Ñ\»α;▒Níu╣╧»╚í■╝╥½¼¬┼╢íív¡P»α? <Y>: "))
  389.       )
  390.       (if (= ans "No")
  391.         T
  392.         (progn
  393.           (setvar "TILEMODE" 0)
  394.           nil
  395.         )
  396.       )
  397.     )
  398.     nil
  399.   )
  400. )
  401. ;;;
  402. ;;; Do a new setup relative to a point to be given by the user.
  403. ;;; The default is the current 0,0,0.
  404. ;;;
  405. ;;; mv_dns == MView_Do_New_Setup
  406. ;;;
  407. (defun mv_dns (/ mv_ver mv_xdf mv_xlf o_cvpt ans sset ITEM_LIST fd)
  408.  
  409.   (setq mv_ver "1.15")                ; Reset this local if you make a change.
  410.   (setq mv_xpf (mv_cpf (getvar "acadprefix" )))
  411.  
  412.   (setq mv_xdf (strcat mv_xpf "mvsetup.dfs"))
  413.   (setq mv_xlf "mvsetup.lsp")         ; Reset these locals if you make changes.
  414.  
  415.   (setq uctr 0)
  416.   (setq o_cvpt (getvar "cvport"))
  417.   (if (/= o_cvpt 1)
  418.     (command "_.PSPACE")               ; Change to paperspace
  419.   )
  420.  
  421.   ;; Look for external definitions --  set fd to file descriptor
  422.   (setq fd (mv_lfx mv_xdf "r"))
  423.  
  424.   ;; Close the file, but do not set the handle to nil.
  425.   (if fd (close fd))
  426.  
  427.   (if (null fd)
  428.     ;; then
  429.     (progn
  430.       (princ (strcat "\n\tªb " mv_xpf " Ñ╪┐²ñU½╪Ñ▀"
  431.                      "\n\tíumvsetup.dfsívñ║⌐w└╔«╫íC"))
  432.       (mv_cdf)
  433.       (setq fd (mv_lfx mv_xdf "r"))
  434.  
  435.       ;; Close the file; we were just checking to see if it was there.
  436.       (close fd)
  437.     )
  438.     ;; else
  439.   )
  440.   (princ (strcat
  441.     "\n\tMVSetup, ¬⌐Ñ╗ " mv_ver ", (c) 1990-1992  Autodesk ñ╜ÑqíC"))
  442.   (setq temp T
  443.         mv_utr "in"
  444.   )
  445.   (while temp
  446.     (initget "Align Create Scale Title Undo Options")
  447.     (setq ans (getkword (strcat
  448.       "\n\tA╣∩╗⌠/C½╪Ñ▀/S╡°╡íñ±¿╥/"
  449.       "O┐∩╢╡/T╝╨├D╣╧╕s/U░hª^: ")))
  450.  
  451.     (cond
  452.       ((= ans "Align")
  453.         (mv_vpa)                      ; Viewport alignment
  454.       )
  455.       ((= ans "Create")
  456.         (setq temp1 T)
  457.         (while temp1
  458.           (initget "Create Delete Undo")
  459.           (setq ans (getkword
  460.             "\n\tDºR░ú¬½┼Θ/U░hª^/<C½╪Ñ▀╡°╡í>: "))
  461.           (cond
  462.             ((= ans "Delete")
  463.               (command "_.UNDO" "_GROUP")
  464.               (setq uctr (1+ uctr))
  465.  
  466.               (princ "\n\t┐∩╛▄╣w│╞ºR░ú¬║¬½┼Θ: ")
  467.               (setq sset (ssget))
  468.               (if sset
  469.                 (command "_.ERASE" sset "")
  470.               )
  471.               (command "_.UNDO" "_EN")
  472.             )
  473.             ((= ans "Undo")
  474.               (cond
  475.                 ((= uctr 0) (princ "\n\tñw¿Sª│ñ░╗≥Ñi░hª^íC\n"))
  476.                 ((> uctr 0)
  477.                   (command "_.U")
  478.                   (setq uctr   (- uctr 1)
  479.                         ll_crn nil
  480.                   )
  481.                 )
  482.               )
  483.             )
  484.             (T
  485.               (command "_.UNDO" "_GROUP")
  486.               (setq uctr (1+ uctr))
  487.               (setq temp1 nil)
  488.               (if (setq deffi (mv_lfx mv_xdf "r"))
  489.                 (progn
  490.                   (textpage)
  491.                   (setq str1 "\n\tºG│]íu¬┼╢í╡°╡ííúMviewíñívñ╣Ñ╬¬║┐∩╢╡: \n")
  492.  
  493.                   (setq vp_item_list (mv_pao "MVIEWS" str1))
  494.  
  495.                   (if (and (= (type vp_item_list) 'LIST) (null skip))
  496.                     (mv_mvi)
  497.                   )
  498.                   (setq deffi (close deffi))
  499.                 )
  500.                 (princ (strcat "
  501.                   \n\t╡L¬k╢}▒╥└╔«╫íu" mv_xdf "ívÑH¿╤┼¬¿·íC"))
  502.               )
  503.               (command "_.UNDO" "_EN")
  504.             )
  505.           )
  506.         )
  507.         (command "_.UNDO" "_EN")
  508.       )
  509.       ((= ans "Options")
  510.         (mv_sop)                      ; Set options
  511.       )
  512.       ((= ans "Scale")
  513.         (mv_szs)                      ; Set zoom scale factors
  514.       )
  515.       ((= ans "Title")
  516.         (setq temp1 T)
  517.         (while temp1
  518.           (if (/= (getvar "cvport") 1)
  519.             (command "_.PSPACE")
  520.           )
  521.           (initget "Delete Origin Insert Undo")
  522.           (setq ans (getkword
  523.             "\n\tDºR░ú¬½┼Θ/O¡∞┬I/U░hª^/<I┤íñ▐╝╨├D╣╧╕s>: "))
  524.           (cond
  525.             ((= ans "Delete")
  526.               (command "_.UNDO" "_GROUP")
  527.               (setq uctr (1+ uctr))
  528.  
  529.               (princ "\n\t┐∩╛▄╣w│╞ºR░ú¬║¬½┼Θ: ")
  530.               (setq sset (ssget))
  531.               (if sset
  532.                 (command "_.ERASE" sset "")
  533.               )
  534.               (command "_.UNDO" "_EN")
  535.             )
  536.             ((= ans "Origin")
  537.               (command "_.UNDO" "_GROUP")
  538.               (setq uctr (1+ uctr))
  539.  
  540.               ;; Get an origin point for the new title block.
  541.               (initget 1)
  542.               (setq ans (getpoint '(0 0 0)
  543.                 "\n\tª╣╣╧¡▒¬║íu╖s¡∞┬Iív: "))
  544.               (command "_.UCS" "_O" ans)
  545.               (command "_.UNDO" "_EN")
  546.             )
  547.             ((= ans "Undo")
  548.               (cond
  549.                 ((= uctr 0) (princ "\n\tñw¿Sª│ñ░╗≥Ñi░hª^íC\n"))
  550.                 ((> uctr 0)
  551.                   (command "_.U")
  552.                   (setq uctr   (- uctr 1)
  553.                         ll_crn nil
  554.                   )
  555.                 )
  556.               )
  557.             )
  558.             (T
  559.               (command "_.UNDO" "_GROUP")
  560.               (setq uctr (1+ uctr))
  561.               (setq temp1 nil)
  562.               (if fd
  563.                 (mv_gop)
  564.                 (princ (strcat
  565.                   "\n╡L¬k╢}▒╥└╔«╫íu" mv_xdf "ívÑH¿╤┼¬¿·íC"))
  566.               )
  567.               (command "_.UNDO" "_EN")
  568.             )
  569.           )
  570.         )
  571.         (command "_.UNDO" "_EN")
  572.       )
  573.       ((= ans "Undo")
  574.         (cond
  575.           ((= uctr 0) (princ "\n\tñw¿Sª│ñ░╗≥Ñi░hª^íC\n"))
  576.           ((> uctr 0)
  577.             (command "_.U")
  578.             (setq uctr   (- uctr 1)
  579.                   ll_crn nil
  580.             )
  581.           )
  582.         )
  583.       )
  584.       (T
  585.         (setq temp nil)
  586.       )
  587.     )
  588.   )
  589.   (if (/= o_cvpt 1)
  590.     (progn
  591.       (setq sset (ssget "x" '((0 . "VIEWPORT"))))
  592.       (if sset
  593.         (setq o_cvpt (mv_vvp o_cvpt sset))
  594.         (setq o_cvpt nil)
  595.       )
  596.       (command "_.MSPACE")              ; Change to modelspace
  597.       ;; If the previously current viewport has been deleted,
  598.       ;; this will do nothing.
  599.       (if o_cvpt (setvar "cvport" o_cvpt)) ; Restore previous active viewport
  600.     )
  601.   )
  602. )
  603. ;;;
  604. ;;; Set preference options.
  605. ;;;
  606. ;;; mv_sop == MView_Set_OPtions
  607. ;;;
  608. (defun mv_sop (/ temp lay cont)
  609.   (setq cont T)
  610.   (while cont
  611.     (initget "Layer LImits Units Xref")
  612.     (setq temp (getkword (strcat "\n\tL│]⌐w╣╧╝h/LI╣╧º╬¼╔¡¡/U│µª∞/XÑ~│í░╤ª╥: ")))
  613.     (cond
  614.       ((= temp "Layer")
  615.         (setq mv_oln (getvar "CLAYER"))
  616.         (setq temp (if mv_nln (strcat " <" mv_nln ">: ") ": "))
  617.         (setq temp (getstring (strcat
  618.           "\n\t╝╨├D╣╧╕s╕m⌐±íu╝hªWív⌐╬íu.ív¬φÑ▄╕m⌐≤íuÑ╪½e╝hív" temp))
  619.         )
  620.         (cond
  621.           ((= temp "")
  622.             (setq mv_nln nil)
  623.           )
  624.           ((= temp ".")
  625.             (setq mv_nln nil)
  626.           )
  627.           (T
  628.             (if (setq lay (tblsearch "LAYER" temp))
  629.               (if (= (logand (cdr(assoc 70 lay)) 2) 2)
  630.                 (command "_.LAYER" "_THAW" temp "")
  631.               )
  632.               (command "_.LAYER" "_NEW" temp "")
  633.             )
  634.             (setq mv_nln temp)
  635.           )
  636.         )
  637.       )
  638.       ((= temp "LImits")
  639.         (setq temp (if mv_slr "Y" "N"))
  640.         (initget "Yes No")
  641.         (setq temp (getkword (strcat "\n\t│]⌐wíu╣╧º╬¼╔¡¡ív? <"
  642.                               temp ">: ")))
  643.         (if mv_slr
  644.           (if (= temp "No")
  645.             (setq mv_slr nil)
  646.             (setq mv_slr T)
  647.           )
  648.           (if (= temp "Yes")
  649.             (setq mv_slr T)
  650.             (setq mv_slr nil)
  651.           )
  652.         )
  653.       )
  654.       ((= temp "Units")
  655.         (setq temp (if mv_utr mv_utr "in"))
  656.         (initget "Mm Millimeters Inches MEters Feet")
  657.         (setq temp (getkword (strcat
  658.           "\n\tíu╣╧»╚¬┼╢íív│µª∞▒─ Fº`/IªT/MEñ╜ñ╪/Mñ╜┬τ? <"
  659.           temp ">: "))
  660.         )
  661.         (if temp
  662.           (cond
  663.             ((= temp "Millimeters") (setq mv_utr "mm"))
  664.             ((= temp "Mm")          (setq mv_utr "mm"))
  665.             ((= temp "MEters")      (setq mv_utr "M"))
  666.             ((= temp "Feet")        (setq mv_utr "ft"))
  667.             ((= temp "Inches")      (setq mv_utr "in"))
  668.             (T (princ))
  669.           )
  670.         )
  671.       )
  672.       ((= temp "Xref")
  673.         (setq temp (if mv_uxr "Xref" "Insert"))
  674.         (initget "Xref Insert")
  675.         (setq temp (getkword (strcat
  676.           "\n\tíu╝╨├D╣╧╕sív▒─Ñ╬í@XÑ~│í░╤ª╥í╨│s╡▓/I┤íñ▐? <"
  677.           temp ">: "))
  678.         )
  679.         (if mv_uxr
  680.           (if (= temp "Insert")
  681.             (setq mv_uxr nil)
  682.             (setq mv_uxr T)
  683.           )
  684.           (if (= temp "Xref")
  685.             (setq mv_uxr T)
  686.             (setq mv_uxr nil)
  687.           )
  688.         )
  689.       )
  690.       (T
  691.         (setq cont nil)
  692.       )
  693.     )
  694.   )
  695. )
  696. ;;;
  697. ;;; Return the first path in ACADPREFIX delimited by ";".
  698. ;;;
  699. ;;; mv_cpf == MView_Check_acadPreFix
  700. ;;;
  701. (defun mv_cpf (pf / temp)
  702.   (setq j 1
  703.         l (strlen pf)
  704.   )
  705.   (while (<= j l)
  706.     (if (= (substr pf j 1) ";")
  707.       (progn
  708.         (setq temp (substr pf 1 (1- j)))
  709.         (setq j (1+ l))
  710.       )
  711.       (setq j (1+ j))
  712.     )
  713.   )
  714.   (if temp
  715.     temp
  716.     pf
  717.   )
  718. )
  719. ;;;
  720. ;;; Verify the Mview viewport whose number we have in vp_n.
  721. ;;;
  722. ;;; mv_vvp == MView_Verify_ViewPort
  723. ;;;
  724. (defun mv_vvp (num sset / j vp ss_len cont)
  725.   (setq ss_len (sslength sset)
  726.         j      0
  727.         cont   T
  728.   )
  729.   (while (and cont (< j ss_len))
  730.     (setq temp (entget (ssname sset j)))
  731.     (setq j (1+ j))
  732.     (if (= (cdr(assoc 68 temp)) 2)
  733.       (setq vp temp)
  734.     )
  735.     (if (= (cdr(assoc 69 temp)) num)
  736.       (setq cont nil
  737.             vp   temp
  738.       )
  739.     )
  740.   )
  741.   (cdr(assoc 69 vp))
  742. )
  743. ;;;
  744. ;;; Align viewport geometry
  745. ;;;
  746. ;;; mv_vpa == MView_ViewPort_Align
  747. ;;;
  748. (defun mv_vpa ( / temp temp1 ans p1 pt1 p2 a1 d1)
  749.   (setq temp T)
  750.   (while temp
  751.     (initget "Angled Horizontal Rotate Vertical Undo")
  752.     (setq ans (getkword
  753.       "\n\tA⌐w¿ñ▓╛░╩/Hñ⌠Ñ¡╣∩╗⌠/V½½¬╜╣∩╗⌠/R▒█┬α╡°┤║/U░hª^? "))
  754.     (if (or (= ans "") (= ans "Rotate") (= ans "Undo") (null ans))
  755.       (if (= ans "Rotate")
  756.         (progn
  757.           (princ "\n\t½ⁿ⌐w╣w│╞íu▒█┬α╡°┤║ív¬║╡°╡ííC")
  758.           (command "_.MSPACE")
  759.           (command "_.UCS" "_W")
  760.           (setq p1 (getpoint "\n\t░≥╖╟┬I: "))
  761.           (setq temp (getvar "cvport"))
  762.           (command "_.UCS" "_V")
  763.           (setq a1 (getangle (trans p1 0 1) "\n\t░≥╖╟┬I░_⌐l¿ñ: "))
  764.           (command "_.DVIEW" ""  "_TW" (* a1 (/ 180 pi)) "")
  765.           (command "_.UCS" "_P")
  766.           (command "_.UCS" "_P")
  767.           (command "_.PSPACE")
  768.         )
  769.         (if (= ans "Undo")
  770.           (cond
  771.             ((= uctr 0) (princ "\n\tñw¿Sª│ñ░╗≥Ñi░hª^íC\n") )
  772.             ((> uctr 0)
  773.               (command "_.U")
  774.               (setq uctr   (- uctr 1)
  775.                     ll_crn nil
  776.             )
  777.             )
  778.           )
  779.           (setq temp nil)
  780.         )
  781.       )
  782.       (progn
  783.         (command "_.UNDO" "_GROUP")
  784.         (setq uctr (1+ uctr))
  785.         (command "_.MSPACE")
  786.         (command "_.UCS" "_W")
  787.         (setq p1 (getpoint "\n\t░≥╖╟┬I: "))
  788.         (setq pt1 (trans (trans p1 1 2) 2 3))
  789.         (setq temp (getvar "cvport"))
  790.  
  791.         (setq p2 (getpoint "\n\tÑtñ@┬I: "))
  792.         (setq p2 (trans (trans p2 1 2) 2 3))
  793.         (cond
  794.           ((= ans "Angled")
  795.             (setq temp1 (getvar "cvport"))
  796.             (if (= temp1 temp)
  797.               (princ "\n\t┬Iª∞Ñ▓╢╖ªbñúªP¬║íu╡°╡íív∙╪íC")
  798.               (progn
  799.                 (setvar "cvport" temp)
  800.                 (setvar "orthomode" 0)
  801.                 (princ (strcat
  802.                   "\n\tªbѲ½e│]⌐wíu░≥╖╟┬Iív¬║╡°╡íññ½ⁿÑX╗P"
  803.                   "\n\tíu╖s╣∩╗⌠┬Iív¬║íu╢Z┬≈ívñ╬íu¿ñ½╫ívíC"))
  804.                 (princ (strcat
  805.                   "\n\tin the current viewport where "
  806.                   "you specified the basepoint. "))
  807.                 (setq d1 (getdist "\n\t╗Píu░≥╖╟┬Iív¬║╢Z┬≈: "))
  808.                 (setq a1 (getangle "\n\t╗Píu░≥╖╟┬Iív¬║¿ñ½╫: "))
  809.                 (setq p1 (polar p1 a1 d1))
  810.                 (setq p1 (trans (trans p1 1 2) 2 3))
  811.                 (setvar "cvport" temp1)
  812.                 (command "_.UCS" "_V")
  813.                 (command "_.PAN" (trans p2 3 2) (trans p1 3 2))
  814.               )
  815.             )
  816.           )
  817.           ((= ans "Horizontal")
  818.             (setq temp1 (getvar "cvport"))
  819.             (command "_.UCS" "_V")
  820.             (setq p1 (list (car p2) (cadr pt1) (caddr p2)))
  821.             (if (= temp1 temp)
  822.               (princ "\n\t┬Iª∞Ñ▓╢╖ªbñúªP¬║íu╡°╡íív∙╪íC")
  823.               (command "_.PAN" (trans p2 3 2) (trans p1 3 2))
  824.             )
  825.           )
  826.           ((= ans "Vertical")
  827.             (setq temp1 (getvar "cvport"))
  828.             (command "_.UCS" "_V")
  829.             (setq p1 (list (car pt1) (cadr p2) (caddr p2)))
  830.             (if (= temp1 temp)
  831.               (princ "\n\t┬Iª∞Ñ▓╢╖ªbñúªP¬║íu╡°╡íív∙╪íC")
  832.               (command "_.PAN" (trans p2 3 2) (trans p1 3 2))
  833.             )
  834.           )
  835.           (T
  836.             (setq temp nil)
  837.           )
  838.         )
  839.         (command "_.UCS" "_P")
  840.         (command "_.UNDO" "_EN")
  841.       )
  842.     )
  843.   )
  844. )
  845. ;;;
  846. ;;; Read lines from a file until the argument matches the given sub-string
  847. ;;;
  848. ;;; mv_rux == MView_Read_Until_Xx_found
  849. ;;;
  850. (defun mv_rux (str j k / l cont line)
  851.   (setq cont T l 1)
  852.   (while cont
  853.     (setq line (read-line deffi))
  854.     (setq l (1+ l))
  855.     ;; Seek to the first instance of str at position j - k.
  856.     (if line
  857.       (if (= (substr line j k) str)
  858.         (setq cont nil)
  859.       )
  860.       (progn
  861.         (setq cont nil l nil)
  862.       )
  863.     )
  864.   )
  865.   l                                   ; Return nil or line number where
  866.                                       ; matching string is found
  867. )
  868. ;;;
  869. ;;; Tokenize the line, removing any blanks not within the string.
  870. ;;; Return the tokenized list of strings found.
  871. ;;;
  872. ;;; mv_tok == MView_TOKenize
  873. ;;;
  874. (defun mv_tok (str / sl j str_list)
  875.   (setq s_list (mv_tkw str))
  876.   (setq list_l (length s_list)
  877.         j      0
  878.   )
  879.   (while (< j list_l)
  880.     (setq s_list (subst (mv_tki (nth j s_list)) (nth j s_list) s_list))
  881.     (setq j (1+ j))
  882.   )
  883.   s_list
  884. )
  885. ;;;
  886. ;;; Tokenize the item, removing any leading and trailing blanks.
  887. ;;; Return the string.
  888. ;;;
  889. ;;; mv_tki == MView_ToKenize_Item
  890. ;;;
  891. (defun mv_tki (str / sl j k str_list)
  892.   (setq sl (strlen str)
  893.         j  1
  894.         k  0
  895.   )
  896.   (while (and (< j sl) (= (substr str j 1) " "))
  897.     (setq j (1+ j))
  898.   )
  899.   (while (and (< k sl) (= (substr str (- sl k) 1) " "))
  900.     (setq k (1+ k))
  901.   )
  902.   (substr str j (- sl k))
  903. )
  904. ;;;
  905. ;;; Tokenize a string into a list of strings.
  906. ;;; Return the tokenized string list.
  907. ;;;
  908. ;;; mv_tkw == MView_ToKenize_into_Words
  909. ;;;
  910. (defun mv_tkw (str / sl k)
  911.   (setq sl (strlen str)
  912.         k  0
  913.   )
  914.   (while (and (< k sl) (/= (substr str (1+ k) 1) ","))
  915.     (setq k (1+ k))
  916.   )
  917.   (if str_list
  918.     (setq str_list (append str_list (list (substr str 1 k))))
  919.     (setq str_list (list (substr str 1 k)))
  920.   )
  921.   (setq k (+ k 2))
  922.   (if (< k sl)
  923.     (mv_tkw (substr str k))
  924.   )
  925.   str_list
  926. )
  927. ;;;
  928. ;;; List names on the screen until an end of list marker is found.
  929. ;;; Store the items found into a list, ITEM_LIST, a global
  930. ;;; Ignore blank lines and commented lines. Return number of lines.
  931. ;;;
  932. ;;; mv_lns == MView_List_Names_on_Screen
  933. ;;;
  934. (defun mv_lns (str j k / l cont line)
  935.   (setq cont T l -1)
  936.   (while cont
  937.     (if (setq line (read-line deffi))
  938.       ;; Seek to the end of the section delimited by "str"
  939.       ;; Else print the line to the screen preceded by an integer
  940.       (if (= (substr line j k) str)
  941.         (setq cont nil)
  942.         (progn
  943.           (setq l         (1+ l)
  944.                 new_line  (mv_tok line)
  945.                 item      (car new_line)
  946.                 ITEM_LIST (if ITEM_LIST
  947.                             (append ITEM_LIST (list new_line))
  948.                             (list new_line)
  949.                           )
  950.           )
  951.           (if (and (= (rem l 10) 1) (> l 1))
  952.             (if (= (rem l 20) 1)
  953.               (progn
  954.                 (princ "\n\t<▒╡ñU¡╢> ")
  955.                 (grread)
  956.               )
  957.               (terpri)
  958.             )
  959.           )
  960.           (princ (strcat "\n\t" (itoa l) ":\t " item))
  961.         )
  962.       )
  963.       (setq cont nil)
  964.     )
  965.   )
  966.   l
  967. )
  968. ;;;
  969. ;;; Add an entry to the default file.  Get all inputs.
  970. ;;;
  971. ;;; mv_aef == MView_Add_an_Entry_to_default_File
  972. ;;;
  973. (defun mv_aef ( / str ans deffo p1 p2)
  974.   (setq ans (getstring T "\n\tíu╝╨├D╣╧╕sív┬▓¡z: "))
  975.   (if (not (or (= ans "") (null ans)))
  976.     (progn
  977.       (setq str ans)
  978.       (setq ans (getstring "\n\t╣w│╞íu┤íñ▐ív¬║╣╧└╔ (ñú½ⁿ⌐wíu⌐╡ª∙└╔ªWív): "))
  979.       (if (not (or (= ans "") (null ans)))
  980.         (progn
  981.           (initget "Yes No")
  982.           (setq p1 (getkword "\n\t¼Oº_│]íuñ║⌐wñ╣Ñ╬¡▒┐nív? <Y>: "))
  983.           (if (= p1 "No")
  984.             (setq str (strcat str "," ans ".dwg" "," mv_utr))
  985.             (progn
  986.               (initget 1)
  987.               (setq p1 (getpoint "\n\tLѬñU¿ñ┬I: "))
  988.               (initget 1)
  989.               (setq p2 (getcorner p1 "\n\tUÑkñW¿ñ┬I: "))
  990.               (mv_s2p 'p1 'p2)
  991.               (setq str (strcat str "," ans ".dwg"
  992.                                 ",(" (rtos (car p1))
  993.                                 " " (rtos (cadr p1))
  994.                                 " " (rtos (caddr p1))
  995.                                 ")"
  996.                                 ",(" (rtos (car p2))
  997.                                 " " (rtos (cadr p2))
  998.                                 " " (rtos (caddr p2))
  999.                                 ")"
  1000.                                 "," mv_utr))
  1001.             )
  1002.           )
  1003.           (setq deffi (close deffi))
  1004.           (if (setq deffi (mv_lfx mv_xdf "r"))
  1005.             (if (setq deffo (mv_lfx "temp.tdf" "w"))
  1006.               (progn
  1007.                 (setq cur_ln (+ cur_ln max_l))
  1008.                 (repeat cur_ln (progn
  1009.                   (write-line (read-line deffi) deffo)
  1010.                 ))
  1011.                 (write-line str deffo)
  1012.                 (while (setq line (read-line deffi))
  1013.                   (write-line line deffo)
  1014.                 )
  1015.               )
  1016.             )
  1017.           )
  1018.           (setq deffo (close deffo))
  1019.           (setq deffi (close deffi))
  1020.           (if (setq deffi (mv_lfx "temp.tdf" "r"))
  1021.             (if (setq deffo (mv_lfx mv_xdf "w"))
  1022.               (while (setq line (read-line deffi))
  1023.                 (write-line line deffo)
  1024.               )
  1025.             )
  1026.           )
  1027.           (setq deffo (close deffo))
  1028.           (setq deffi (close deffi))
  1029.           (command "_.FILES" "3" "temp.tdf" "" "")
  1030.           (textpage)
  1031.         )
  1032.       )
  1033.     )
  1034.   )
  1035. )
  1036. ;;;
  1037. ;;; Subtract an entry from the default file.  Get all inputs.
  1038. ;;;
  1039. ;;; mv_sef == MView_Subtract_an_Entry_from_default_File
  1040. ;;;
  1041. (defun mv_sef ( / str ans deffo)
  1042.   (setq str (nth 0 d_item_list))
  1043.   (setq deffi (close deffi))
  1044.   (if (setq deffi (mv_lfx mv_xdf "r"))
  1045.     (if (setq deffo (mv_lfx "temp.tdf" "w"))
  1046.       (progn
  1047.         (setq cur_ln (mv_rux str 1 (strlen str)))
  1048.         (setq cur_ln (- cur_ln 2))
  1049.         (close deffi)
  1050.         (setq deffi (mv_lfx mv_xdf "r"))
  1051.  
  1052.         (repeat cur_ln (progn
  1053.           (write-line (read-line deffi) deffo)
  1054.         ))
  1055.         (read-line deffi)
  1056.         (while (setq line (read-line deffi))
  1057.           (write-line line deffo)
  1058.         )
  1059.       )
  1060.     )
  1061.   )
  1062.   (setq deffo (close deffo))
  1063.   (setq deffi (close deffi))
  1064.   (if (setq deffi (mv_lfx "temp.tdf" "r"))
  1065.     (if (setq deffo (mv_lfx mv_xdf "w"))
  1066.       (while (setq line (read-line deffi))
  1067.         (write-line line deffo)
  1068.       )
  1069.     )
  1070.   )
  1071.   (setq deffo (close deffo))
  1072.   (setq deffi (close deffi))
  1073.   (command "_.FILES" "3" "temp.tdf" "" "")
  1074.   (textpage)
  1075.   (setq deffi (mv_lfx mv_xdf "r"))
  1076.  
  1077.   (princ)
  1078. )
  1079. ;;;
  1080. ;;; Pick from the list by typing an integer, returns the item or zero.
  1081. ;;; cont is global to this routine, local to the calling routine.
  1082. ;;;
  1083. ;;; mv_pfl == MView_Pick_From_List
  1084. ;;;
  1085. (defun mv_pfl (max_l ig_b ig_str prmpt / OK ans return str)
  1086.   (while (null OK)
  1087.     (initget ig_b ig_str)
  1088.     (setq ans (getint prmpt))
  1089.     (cond
  1090.       ((or (= ans "") (null ans))
  1091.         (setq OK T cont nil return 0)
  1092.       )
  1093.       ((= ans "Add")
  1094.         (mv_aef)
  1095.         (setq OK T)
  1096.       )
  1097.       ((= ans "Delete")
  1098.         (setq str "\n\t╣w│╞Ñ╤▓M│µñWºR░ú¬║╕Ω«╞╢╡╝╞: ")
  1099.         (setq d_item_list (mv_pfl max_l 6 "" str))
  1100.         (if d_item_list
  1101.           (progn
  1102.             (princ (strcat "\n\tª█▓M│µñWºR░úíu" (car d_item_list) "ívíC"))
  1103.             (mv_sef)
  1104.           )
  1105.         )
  1106.         (setq OK T cont T return 0)
  1107.       )
  1108.       ((= ans "Redisplay")
  1109.         (setq OK T)
  1110.       )
  1111.       (T
  1112.         (if (and (>= ans 0) (<= ans max_l))
  1113.           (setq return (nth ans ITEM_LIST)
  1114.                 OK     T
  1115.                 cont   nil
  1116.           )
  1117.           (progn
  1118.             (princ (strcat
  1119.               "\n\t╝╞¡╚Ñ▓╢╖ñ╢⌐≤ 0 í╨ " (itoa max_l) "\n"))
  1120.             (setq OK nil)
  1121.           )
  1122.         )
  1123.       )
  1124.     )
  1125.   )
  1126.   return
  1127. )
  1128. ;;;
  1129. ;;; Get the user's options
  1130. ;;;
  1131. ;;; mv_gop == MView_Get_OPtions
  1132. ;;;
  1133. (defun mv_gop (/ deffi d_item_name max_lines ans cont isc fsc mmsc msc li ll)
  1134.   (if (setq deffi (mv_lfx mv_xdf "r"))
  1135.     (progn
  1136.  
  1137.       (textpage)
  1138.       (setq str1 "\n\tñ╣Ñ╬¬║íu╝╨├D╣╧╕sív┐∩╢╡: \n")
  1139.  
  1140.       (setq d_item_list (mv_pao "NAMES" str1))
  1141.  
  1142.       (if (and (= (type d_item_list) 'LIST) (null skip))
  1143.         (progn
  1144.           (mv_tbi)
  1145.           (setq ll (length d_item_list)
  1146.                 li (nth 2 d_item_list)
  1147.           )
  1148.           (if li                      ; ll is > 2
  1149.             (progn
  1150.               (if (= (type (read li)) 'LIST)
  1151.                 (progn
  1152.                   (setq ll_crn li)
  1153.                   (if (> ll 3)
  1154.                     (setq ur_crn (nth 3 d_item_list)
  1155.                           li     (nth 4 d_item_list)
  1156.                     )
  1157.                     (setq ll_crn nil ur_crn nil)
  1158.                   )
  1159.                 )
  1160.               )
  1161.               (if (= (type ur_crn) 'STR)
  1162.                 (setq ll_crn (read ll_crn)
  1163.                       ur_crn (read ur_crn)
  1164.                 )
  1165.               )
  1166.               (cond
  1167.                 ((= (strcase mv_utr T) "mm")
  1168.                   (setq isc   25.4
  1169.                         mmsc  1.0
  1170.                         msc   1000.0
  1171.                         fsc   (* 12 25.4)
  1172.                   )
  1173.                 )
  1174.                 ((= (strcase mv_utr T) "m")
  1175.                   (setq isc   (/ 25.4 1000)
  1176.                         mmsc  (/ 1.0 1000)
  1177.                         msc   1.0
  1178.                         fsc   (/ (* 12 25.4) 1000)
  1179.                   )
  1180.                 )
  1181.                 ((= (strcase mv_utr T) "ft")
  1182.                   (setq isc   (/ 1.0 12)
  1183.                         mmsc  (/ 1.0 (* 12 25.4))
  1184.                         msc   (/ 1000.0 (* 12 25.4))
  1185.                         fsc   1.0
  1186.                   )
  1187.                 )
  1188.                 ((= (strcase mv_utr T) "in")
  1189.                   (setq isc   1.0
  1190.                         mmsc  (/ 1.0 25.4)
  1191.                         msc   (/ 1000.0 25.4)
  1192.                         fsc   12.0
  1193.                   )
  1194.                 )
  1195.                 (T
  1196.                   (princ "\n┐∙╗~:íuñ║⌐w└╔«╫ívÑ╝│]íu│µª∞║╪├■ívíC")
  1197.                   (exit)
  1198.                 )
  1199.               )
  1200.             )
  1201.           )
  1202.           (cond
  1203.             ((= li "in")                 ; And are defined in inches
  1204.               (command "_.SCALE" (entlast) "" "0,0" isc)
  1205.               (setq ll_crn (mapcar '(lambda (x) (* x isc)) ll_crn))
  1206.               (setq ur_crn (mapcar '(lambda (x) (* x isc)) ur_crn))
  1207.             )
  1208.             ((= li "ft")                 ; And are defined in feet
  1209.               (command "_.SCALE" (entlast) "" "0,0" fsc)
  1210.               (setq ll_crn (mapcar '(lambda (x) (* x fsc)) ll_crn))
  1211.               (setq ur_crn (mapcar '(lambda (x) (* x fsc)) ur_crn))
  1212.             )
  1213.             ((= li "mm")                 ; And are defined in millimeters
  1214.               (command "_.SCALE" (entlast) "" "0,0" mmsc)
  1215.               (setq ll_crn (mapcar '(lambda (x) (* x mmsc)) ll_crn))
  1216.               (setq ur_crn (mapcar '(lambda (x) (* x mmsc)) ur_crn))
  1217.             )
  1218.             ((= li "M")                 ; And are defined in meters
  1219.               (command "_.SCALE" (entlast) "" "0,0" msc)
  1220.               (setq ll_crn (mapcar '(lambda (x) (* x msc)) ll_crn))
  1221.               (setq ur_crn (mapcar '(lambda (x) (* x msc)) ur_crn))
  1222.             )
  1223.           )
  1224.           (command "_.ZOOM" "_E")
  1225.           (if mv_slr                      ; Set Limits requested
  1226.             (progn
  1227.               (setq temp (getvar "EXTMIN"))
  1228.               (setvar "LIMMIN" (list (car temp) (cadr temp)))
  1229.               (setq temp (getvar "EXTMAX"))
  1230.               (setvar "LIMMAX" (list (car temp) (cadr temp)))
  1231.             )
  1232.           )
  1233.         )
  1234.       )
  1235.       (setq ITEM_LIST nil)
  1236.  
  1237.       (setq deffi (close deffi))
  1238.  
  1239.     )
  1240.     (princ (strcat "\n\t╡L¬k╢}▒╥└╔«╫íu" mv_xdf "ívÑH¿╤┼¬¿·íC"))
  1241.   )
  1242. )
  1243. ;;;
  1244. ;;; Pick options
  1245. ;;;
  1246. ;;; mv_pao == MView_Pick_An_Option
  1247. ;;;
  1248. (defun mv_pao (str str1 / cont max_lines d_item_list)
  1249.   (setq cont T)
  1250.   (while cont
  1251.     (princ str1)
  1252.     (setq cur_ln (mv_rux str 1 (strlen str)))
  1253.     (setq ITEM_LIST nil)
  1254.     (setq max_lines (mv_lns (strcat "END_" str)
  1255.                                           1 (+ 4 (strlen str))))
  1256.     (if (= str "MVIEWS")
  1257.       (setq d_item_list (mv_pfl max_lines 4 "Redisplay"
  1258.         "\n\n\tR¡½╖s┼πÑ▄/<╕ⁿñJ╕Ω«╞╢╡╝╞>: "))
  1259.       (setq d_item_list (mv_pfl max_lines 4 "Add Redisplay Delete"
  1260.         "\n\n\tAÑ[ñJ/DºR░ú/R¡½╖s┼πÑ▄/<╕ⁿñJ╕Ω«╞╢╡╝╞>: "))
  1261.     )
  1262.     ;;
  1263.     ;; Skip the title block insertion if "None" is selected.
  1264.     ;;
  1265.     (if (and (= (type d_item_list) 'LIST) (= (car d_item_list) "╡L"))
  1266.       (setq skip T)
  1267.       (setq skip nil)
  1268.     )
  1269.     ;;
  1270.     ;; If the Redisplay option is chosen, rewind the file by
  1271.     ;; Closing it, opening it again, and seeking to the start
  1272.     ;; of the NAMES section again.
  1273.     ;;
  1274.     (if cont
  1275.       (progn
  1276.         (if deffi (setq deffi (close deffi)))
  1277.         (if (null (setq deffi (mv_lfx mv_xdf "r")))
  1278.           (progn
  1279.             (princ (strcat "\n\t╡L¬k╢}▒╥└╔«╫íu" mv_xdf "ívÑH¿╤┼¬¿·íC"))
  1280.             (setq cont nil)
  1281.           )
  1282.         )
  1283.       )
  1284.     )
  1285.   )
  1286.   d_item_list
  1287. )
  1288. ;;;
  1289. ;;; Title block insertion
  1290. ;;; Check that the drawing exists and if not, try to create it
  1291. ;;; from the definition, if it can be found.  If not,
  1292. ;;; reject the selection.  If there is a definition, then
  1293. ;;; execute it and perform the WBLOCK command, then
  1294. ;;; insert the resulting block.
  1295. ;;;
  1296. ;;; mv_tbi == MView_Title_Block_Insertion
  1297. ;;;
  1298. (defun mv_tbi ()
  1299.   ;; If an alternate layer has been specified, then set that layer for the
  1300.   ;; subsequent title block insertion or Xref.
  1301.   (if mv_nln
  1302.     (command "_.LAYER" "_SET" mv_nln "")
  1303.   )
  1304.   ;;
  1305.   ;; a definition in the default file.  If that fails, then
  1306.  
  1307.   (if (> (length d_item_list) 1)
  1308.     (if (setq block_name (findfile (nth 1 d_item_list)))
  1309.       (if mv_uxr
  1310.         (mv_xtb block_name)
  1311.         (mv_itb block_name)
  1312.       )
  1313.       ;; Block named not found;  try to create it...
  1314.       (progn
  1315.         (setq block_name (nth 1 d_item_list))
  1316.         (setq e_last (cdr(assoc -1 (entget(entlast)))))
  1317.         (setq item_name (strcat "NAME - " (nth 0 d_item_list)))
  1318.         (if (mv_rux item_name 1 (strlen item_name))
  1319.           (mv_cfd)
  1320.         )
  1321.         (if (not (eq (cdr(assoc -1 (entget(entlast)))) e_last))
  1322.           (progn
  1323.             (setq sset (ssadd))   ; Create a null selection set.
  1324.             (while (setq e_last (if e_last (entnext e_last) (entnext)))
  1325.               (ssadd e_last sset) ; Add new entities to end of database.
  1326.             )
  1327.             (initget "Yes No")
  1328.             (setq ans (getkword (strcat
  1329.               "\n\t½╪Ñ▀¿πªW¼░íu" block_name "ív¬║╣╧└╔? <Y>: ")))
  1330.             (if (/= ans "No")
  1331.               (progn
  1332.                 (command "_.WBLOCK" block_name "" "0,0" sset "")
  1333.                 (if mv_uxr
  1334.                   (mv_xtb block_name)
  1335.                   (mv_itb block_name)
  1336.                 )
  1337.               )
  1338.               ;; Else do nothing...
  1339.             )
  1340.           )
  1341.           (progn
  1342.             (princ (strcat
  1343.               "\n\tºΣñú¿∞íu╣╧╕s " block_name "ív¬║⌐w╕qíC"))
  1344.             ;;(exit)
  1345.           )
  1346.         )
  1347.       )
  1348.     )
  1349.     (progn
  1350.       (setq d_item_list (strcat "NAME - " (nth 0 d_item_list)))
  1351.       (if (mv_rux d_item_list 1 (strlen d_item_list))
  1352.         (mv_cfd)
  1353.       )
  1354.     )
  1355.   )
  1356.   (if mv_nln
  1357.     (command "_.LAYER" "_SET" mv_oln "") ; Reset old layer
  1358.   )
  1359. )
  1360. ;;;
  1361. ;;; Insert title blocks which may have variable attributes.
  1362. ;;;
  1363. ;;; mv_itb == MView_Insert_Title_Block
  1364. ;;;
  1365. (defun mv_itb (block_name / b_def b_nam hasatt temp cont count)
  1366.   ;; Cancel the block command after inserting the block definition.
  1367.   (command "_.INSERT" block_name \03)
  1368.   ;; Strip name of path and extension.
  1369.   (setq b_nam (substr block_name 1 (setq sl (- (strlen block_name) 4))))
  1370.   (setq cont T temp "")
  1371.   (while (and cont (> sl 0) (setq ch (substr b_nam sl 1)))
  1372.     (if (or (= ch "\\") (= ch "/") (= ch ":"))
  1373.       (setq cont nil)
  1374.       (setq temp (strcat ch temp)
  1375.             sl   (1- sl)
  1376.       )
  1377.     )
  1378.   )
  1379.   (setq oarq (getvar "attreq"))
  1380.   (setq otev (getvar "texteval"))
  1381.   (setvar "attreq" 1)
  1382.   (setq b_nam temp)
  1383.   ;; Check for trailing attributes.
  1384.   (setq b_def (tblsearch "block" b_nam))
  1385.   (setq hasatt (if (= (logand (cdr(assoc 70 b_def)) 2) 2) T nil))
  1386.   (if hasatt
  1387.     (progn
  1388.       (setq temp (entget(cdr(assoc -2 b_def)))
  1389.           cont   T
  1390.           count  0
  1391.       )
  1392.       (while (or cont (and temp (/= (cdr(assoc 0 temp)) "SEQEND")))
  1393.         (if (and (= (cdr(assoc 0 temp)) "ATTDEF")
  1394.                  (/= (logand (cdr(assoc 70 temp)) 2) 2)
  1395.                  (/= (logand (cdr(assoc 70 temp)) 8) 8)
  1396.             )
  1397.           (setq count (1+ count)
  1398.                 cont nil
  1399.           )
  1400.         )
  1401.         (setq temp (entnext (cdr(assoc -1 temp))))
  1402.         (if temp (setq temp (entget temp)))
  1403.       )
  1404.       (setq temp "(command")
  1405.       (repeat (1- count)
  1406.         (setq temp (strcat temp " pause"))
  1407.       )
  1408.       (setq temp (strcat temp ")"))
  1409.     )
  1410.   )
  1411.   ;; Insert the block
  1412.   (command "_.INSERT" block_name "0,0" "" "")
  1413.   ;; If there are attributes, insert 'em...
  1414.   (if hasatt
  1415.     (progn
  1416.       (setvar "texteval" 1)
  1417.       (setvar "cmdecho" 1)            ; Turn on command echoing
  1418.     )
  1419.   )
  1420.   ;; Note the peculiar order of "cmdecho" and (command)
  1421.   ;; Finish
  1422.   (command "")
  1423.   (if hasatt
  1424.     (eval(read temp))
  1425.   )
  1426.   (setvar "cmdecho" 0)                ; Turn off command echoing
  1427.   (if hasatt
  1428.     (command pause)
  1429.   )
  1430.   (setvar "attreq" oarq)
  1431.   (setvar "texteval" otev)
  1432. )
  1433. ;;;
  1434. ;;; Xref title blocks; variable attributes are ignored.
  1435. ;;;
  1436. ;;; mv_xtb == MView_Xref_Title_Block
  1437. ;;;
  1438. (defun mv_xtb (block_name / b_def b_nam hasatt temp cont count)
  1439.   ;; Insert the block
  1440.   (command "_.XREF" "_ATTACH" block_name "0,0" "" "" "0")
  1441. )
  1442. ;;;
  1443. ;;; Create the mview viewports.
  1444. ;;;
  1445. ;;; mv_mvi == MView_MView_Insertion
  1446. ;;;
  1447. (defun mv_mvi (/ n_vp_x n_vp_y i_l_len view_n p1 p2 ok_size)
  1448.   (if (> (length vp_item_list) 0)
  1449.     (progn
  1450.       (if (> (length vp_item_list) 2)
  1451.         (setq n_vp_x (nth 1 vp_item_list)
  1452.               n_vp_y (nth 2 vp_item_list)
  1453.         )
  1454.       )
  1455.       (if (> (setq i_l_len (length vp_item_list)) 3)
  1456.         (setq view_n (- i_l_len 3))  ; Number of views defined.
  1457.         (setq view_n 0)
  1458.       )
  1459.       (setq d_item_name (strcat "VPSETNAME  - " (nth 0 vp_item_list)))
  1460.       (if (mv_rux d_item_name 1 (strlen d_item_name))
  1461.         (progn
  1462.           (mv_gba)                    ; Get bounding area
  1463.           (mv_s2p 'mvs_p1 'mvs_p2)
  1464.           (mv_gnv)                    ; Get number of viewport
  1465.           (mv_gid)                    ; Get interstitial distances
  1466.           (mv_cfp)                    ; Calculate first points
  1467.           (mv_cba)                    ; Check area is on-screen
  1468.           (setvar "osmode" 0)
  1469.           (command "_.MVIEW" p1 p2)
  1470.           (if (> (cdr (assoc 68 (entget (entlast)))) 0)
  1471.             (progn
  1472.               (setq ok_size T)
  1473.               (mv_cna)                ; Check number of active viewports
  1474.             )
  1475.           )
  1476.           (setq f_vp_n (mv_gvn))      ; Get viewport number
  1477.           (mv_avp)                    ; Array other Mview viewports
  1478.           (setq l_vp_n (mv_gvn))      ; Get viewport number
  1479.           (if (and (not ok_size) (> i_l_len 3))
  1480.               (princ "\n\t íu╡°╡íñ╪ñoív╣LñpÑH¡P╡L¬kº≤º∩íu╡°┤║ívíC")
  1481.               (mv_cav)                ; Change the view of all viewports
  1482.           )
  1483.         )
  1484.       )
  1485.     )
  1486.   )
  1487. )
  1488. ;;;
  1489. ;;; Set the zoom scale factors for a set of viewports.
  1490. ;;;
  1491. ;;; mv_szs == MView_Set_Zoom_Scales
  1492. ;;;
  1493. (defun mv_szs ( / temp)
  1494.   (command "_.UNDO" "_GROUP")
  1495.   (setq uctr (1+ uctr))
  1496.   (if (/= (getvar "cvport") 1)
  1497.     (command "_.PSPACE")
  1498.   )
  1499.   (princ "\n\t┐∩╛▄╣w│╞íu╜╒╛πñ±¿╥ív¬║╡°╡í: ")
  1500.   (setq sset (ssget))
  1501.   (if sset
  1502.     (progn
  1503.       (if (> (sslength sset) 1)
  1504.         (progn
  1505.           (initget "Interactively Uniform")
  1506.           (setq ans (getkword (strcat
  1507.             "\n\t│]⌐w╡°╡í¬║íu╡°┤║ñ±¿╥íví╨ "
  1508.             "Iѵñ¼/<U╛π┼Θ>: "))
  1509.           )
  1510.           (if (= ans "Interactively")
  1511.             (setq vp_s_i T)
  1512.             (setq vp_s_i nil)
  1513.           )
  1514.         )
  1515.         (setq vp_s_i nil)
  1516.       )
  1517.       (setq temp (sslength sset)
  1518.             j    0
  1519.       )
  1520.       (if (= (getvar "cvport") 1)
  1521.         (command "_.MSPACE")
  1522.       )
  1523.       (while (< j temp)
  1524.         (progn
  1525.           (setq vp_n (cdr(assoc 69 (entget(ssname sset j)))))
  1526.           (setvar "cvport" vp_n)
  1527.           (setq j (1+ j))
  1528.           (if (or vp_s_i (< j 2))
  1529.             (mv_ssi)
  1530.           )
  1531.           (command "_.ZOOM" (strcat (mv_sts vp_scale) "xp"))
  1532.         )
  1533.       )
  1534.       (command "_.PSPACE")
  1535.     )
  1536.     (princ "\n\tÑ╝┐∩¿∞íu╡°╡íívíC")
  1537.   )
  1538.   (command "_.UNDO" "_EN")
  1539. )
  1540. ;;;
  1541. ;;; Interactively set the scale of each viewport.
  1542. ;;;
  1543. ;;; mv_ssi == MView_Setup_Scale_Interactively
  1544. ;;;
  1545. (defun mv_ssi (/ ans)
  1546.   (princ "\n\t┐ΘñJíu╣╧»╚¬┼╢íív╣∩íu╝╥½¼¬┼╢íív│µª∞¬║ñ±▓v... ")
  1547.   (initget 6)
  1548.   (setq ans (getreal
  1549.     "\n\tíu╣╧»╚¬┼╢í│µª∞ív╝╞¡╚ <1.0>: ")
  1550.   )
  1551.   (if (= (type ans) 'REAL)
  1552.     (setq vp_scale ans)
  1553.     (setq vp_scale 1.0)
  1554.   )
  1555.   (initget 6)
  1556.   (setq ans (getreal
  1557.     "\n\tíu╝╥½¼¬┼╢í│µª∞ív╝╞¡╚ <1.0>: ")
  1558.   )
  1559.   (if (= (type ans) 'REAL)
  1560.     (setq vp_scale (/ vp_scale ans))
  1561.     (setq vp_scale (/ vp_scale 1.0))
  1562.   )
  1563.   vp_scale
  1564. )
  1565. ;;;
  1566. ;;; Set up the scale either interactively or uniformly.
  1567. ;;;
  1568. ;;; mv_sus == MView_Set_Up_Scale
  1569. ;;;
  1570. (defun mv_sus ()
  1571.   (if vp_s_i
  1572.     (mv_ssi)
  1573.   )
  1574.     (setq vp (mv_gvp (+ n vp_n) sset))
  1575.   (command "_.ZOOM" (strcat (mv_sts vp_scale) "xp"))
  1576. )
  1577. ;;;
  1578. ;;; Convert a real number to its shortest value; no trailing zeros.
  1579. ;;;
  1580. ;;; mv_sts == MView_Scale_To_String
  1581. ;;;
  1582. (defun mv_sts (num / scale j return)
  1583.   (setq scale (rtos num 2 15)
  1584.         j     0
  1585.   )
  1586.   (while (< j (strlen scale))
  1587.     (if (= (setq return (substr scale (- (strlen scale) j) 1)) "0")
  1588.       (setq j (1+ j))
  1589.       (if (= return ".")
  1590.         (progn
  1591.           (setq return (substr scale 1 (- (strlen scale) (1- j))))
  1592.           (setq j (strlen scale))
  1593.         )
  1594.         (progn
  1595.           (setq return (substr scale 1 (- (strlen scale) j)))
  1596.           (setq j (strlen scale))
  1597.         )
  1598.       )
  1599.     )
  1600.   )
  1601.   return
  1602. )
  1603. ;;;
  1604. ;;; Change to a new plan view and restore.
  1605. ;;;
  1606. ;;; mv_npv == MView_set_New_Plan_View
  1607. ;;;
  1608. (defun mv_npv (ord_1 amnt_1 ord_2 amnt_2)
  1609.   (command "_.UCS" ord_1 amnt_1)
  1610.   (command "_.UCS" ord_2 amnt_2)
  1611.   (command "_.PLAN" "" )
  1612.   (command "_.UCS" "_P")
  1613.   (command "_.UCS" "_P")
  1614.   (princ)
  1615. )
  1616. ;;;
  1617. ;;;Get the Mview viewport whose number we have in vp_n.
  1618. ;;;
  1619. ;;; mv_gvp == MView_Get_ViewPort
  1620. ;;;
  1621. (defun mv_gvp (num sset / j vp ss_len cont)
  1622.   (setq ss_len (sslength sset)
  1623.         j      0
  1624.         cont   T
  1625.   )
  1626.   (while (and cont (< j ss_len))
  1627.     (if (= (cdr(assoc 69 (setq vp (entget (ssname sset j))))) num)
  1628.       (setq cont nil)
  1629.     )
  1630.     (setq j (1+ j))
  1631.   )
  1632.   vp
  1633. )
  1634. ;;;
  1635. ;;; Change the view into all Mview viewports.
  1636. ;;;
  1637. ;;; mv_cav == MView_Change_All_Views
  1638. ;;;
  1639. (defun mv_cav (/ n sset vp_n vp m_4_iso)
  1640.   (if need_z
  1641.     (command "_.ZOOM" "_E")
  1642.   )
  1643.   (setq n    0
  1644.         sset (ssget "x" '((0 . "VIEWPORT")))
  1645.         vp_n f_vp_n
  1646.   )
  1647.   (command "_.MSPACE")
  1648.   ;;(setvar "cvport" vp_n)
  1649.   ;; While we still have both viewports and view definitions for them...
  1650.   (while (and (< n view_n) (<= (+ n vp_n) l_vp_n))
  1651.     (setq vp (mv_gvp (+ n vp_n) sset))
  1652.     (if m_4_iso
  1653.       (command "_.MVIEW" "_on" (cdr (assoc -1 vp)) "")
  1654.     )
  1655.     (setvar "cvport" (+ n vp_n))
  1656.     (cond
  1657.       ((= (nth (+ 3 n) vp_item_list) "PLAN")
  1658.         (command "_.PLAN" "")
  1659.         ;;(mv_sus)
  1660.       )
  1661.       ((= (nth (+ 3 n) vp_item_list) "FRONT")
  1662.         (mv_npv "x"  "90" "x"  "0")
  1663.         ;;(mv_sus)
  1664.       )
  1665.       ((= (nth (+ 3 n) vp_item_list) "RIGHT")
  1666.         (mv_npv "z"  "90" "x" "90")
  1667.         ;;Test for case when all 4 viewports can't be on.  We
  1668.         ;;turn this one off so we can continue to the iso view.
  1669.         (if (= maxact 4)
  1670.           (progn
  1671.             (command "_.MVIEW" "_OFF" (cdr (assoc -1 vp)) "")
  1672.             (setq m_4_iso T)
  1673.           )
  1674.         )
  1675.         ;;(mv_sus)
  1676.       )
  1677.       ((= (nth (+ 3 n) vp_item_list) "LEFT")
  1678.         (mv_npv "z" "-90" "x" "90")
  1679.         ;;(mv_sus)
  1680.       )
  1681.       ((= (nth (+ 3 n) vp_item_list) "ISO")
  1682.         (command "_.VPOINT" "_R" "-45" "30")
  1683.         ;;(mv_sus)
  1684.       )
  1685.       (T
  1686.         (princ "\n\tñ║⌐w└╔«╫ññÑ╝⌐w╕qíu╡°┤║ívíC")
  1687.         (exit)
  1688.       )
  1689.     )
  1690.     (setq n (1+ n))
  1691.   )
  1692.   (command "_.PSPACE")
  1693. )
  1694. ;;;
  1695. ;;; Array other Mview viewports.
  1696. ;;;
  1697. ;;; mv_avp == MView_Array_ViewPorts
  1698. ;;;
  1699. (defun mv_avp ( / dx dy)
  1700.   (if (and (> (car mvs_p4) 1) (> (cadr mvs_p4) 1))
  1701.     (progn
  1702.       (setq dx (+ (car mvs_p5)  (car mvs_p3)))
  1703.       (setq dy (+ (cadr mvs_p5)  (cadr mvs_p3)))
  1704.       (command "_.ARRAY"
  1705.                (entlast) ""
  1706.                "_r"
  1707.                (cadr mvs_p4)
  1708.                (car mvs_p4)
  1709.                (+ (cadr mvs_p5) (cadr mvs_p3))
  1710.                (+ (car mvs_p5)  (car mvs_p3))
  1711.       )
  1712.     )
  1713.     (if (> (car mvs_p4) 1)
  1714.       (progn
  1715.         (setq dx (+ (car mvs_p5)  (car mvs_p3)))
  1716.         (command "_.ARRAY"
  1717.                  (entlast) ""
  1718.                  "_r"
  1719.                  (cadr mvs_p4)
  1720.                  (car mvs_p4)
  1721.                  (+ (car mvs_p5)  (car mvs_p3))
  1722.         )
  1723.       )
  1724.       (if (> (cadr mvs_p4) 1)
  1725.         (progn
  1726.           (setq dy (+ (cadr mvs_p5)  (cadr mvs_p3)))
  1727.           (command "_.ARRAY"
  1728.                    (entlast) ""
  1729.                    "_R"
  1730.                    (cadr mvs_p4)
  1731.                    (car mvs_p4)
  1732.                    (+ (cadr mvs_p5) (cadr mvs_p3))
  1733.           )
  1734.         )
  1735.       )
  1736.     )
  1737.   )
  1738. )
  1739. ;;;
  1740. ;;; Check the number of active viewports plus the number of new
  1741. ;;; viewports to be created to determine whether the allowable
  1742. ;;; number of active viewports will be exceeded.  If so, noff
  1743. ;;; holds the number of viewports to turn off before creating
  1744. ;;; the rest of the new ones.
  1745. ;;;
  1746. ;;; mv_cna == MView_Check_Number_of_Active_viewports
  1747. ;;;
  1748. (defun mv_cna (/ sset ssl nsset nssl n temp total noff)
  1749.   (setq sset (ssget "x" '((0 . "viewport")))
  1750.         ssl (sslength sset)
  1751.         nsset (ssadd)
  1752.         n 0
  1753.   )
  1754.   (while (< n ssl)
  1755.     (setq temp (ssname sset n))
  1756.     (if (> (cdr (assoc 68 (entget temp))) 0)
  1757.         (ssadd temp nsset)
  1758.     )
  1759.     (setq n (1+ n))
  1760.   )
  1761.   (if (> (setq total (+ (setq nssl (sslength nsset))
  1762.                         (1- (* (car mvs_p4) (cadr mvs_p4)))
  1763.                      )
  1764.          )
  1765.          (setq maxact (getvar "maxactvp"))
  1766.       )
  1767.       (progn
  1768.         (setq noff (- total maxact)
  1769.               n 1
  1770.         )
  1771.         (if (> maxact 4)
  1772.             (while (and (<= n noff) (< n (1- nssl)))
  1773.               (setq temp (ssname nsset n))
  1774.               (command "_.MVIEW" "_OFF" temp "")
  1775.               (setq n (1+ n))
  1776.             )
  1777.             (while (< n (1- ssl))
  1778.               (setq temp (ssname sset n))
  1779.               (command "_.MVIEW" "_OFF" temp "")
  1780.               (setq n (1+ n))
  1781.             )
  1782.         )
  1783.       )
  1784.   )
  1785. )
  1786. ;;;
  1787. ;;; Get the name of a Mview viewport.
  1788. ;;;
  1789. ;;; mv_gvn == MView_Get_Viewport_Name
  1790. ;;;
  1791. (defun mv_gvn ()
  1792.   (cdr(assoc 69 (entget(entlast))))
  1793. )
  1794. ;;;
  1795. ;;; Calculate the size of the individual viewports from the two
  1796. ;;; corner points, mvs_p1 and mvs_p2, the interstitial distances
  1797. ;;; held in mvs_p3, and the number of viewports held in mvs_p4.
  1798. ;;;
  1799. ;;; mv_cfp == MView_Calculate_First_Points
  1800. ;;;
  1801. (defun mv_cfp (/ x y dx dy )
  1802.   (mv_s2p 'mvs_p1 'mvs_p2)
  1803.   ;; Points are now sorted so that mvs_p1 IS lower left....
  1804.   (setq x  (- (car  mvs_p2) (car  mvs_p1))
  1805.         y  (- (cadr mvs_p2) (cadr mvs_p1))
  1806.         dx (/ (- x (* (1- (car  mvs_p4)) (car  mvs_p3))) (car  mvs_p4))
  1807.         dy (/ (- y (* (1- (cadr mvs_p4)) (cadr mvs_p3))) (cadr mvs_p4))
  1808.         p1 mvs_p1
  1809.         p2 (mapcar '+ p1 (setq mvs_p5  (list dx dy 0)))
  1810.   )
  1811. )
  1812. ;;;
  1813. ;;; Sort two points into lower-left to upper-right order.
  1814. ;;;
  1815. ;;; mv_s2p == MView_Sort_2_Points
  1816. ;;;
  1817. (defun mv_s2p (_p1 _p2 / x y pt1 pt2 )
  1818.   (setq pt1 (eval _p1)
  1819.         pt2 (eval _p2)
  1820.   )
  1821.   (if (> (car pt1) (car pt2))
  1822.     (setq x (car pt1)
  1823.           pt1 (list (car pt2) (cadr pt1) 0.0)
  1824.           pt2 (list x (cadr pt2) 0.0)
  1825.     )
  1826.   )
  1827.   (if (> (cadr pt1) (cadr pt2))
  1828.     (setq x (cadr pt1)
  1829.           pt1 (list (car pt1) (cadr pt2) 0.0)
  1830.           pt2 (list (car pt2) x 0.0)
  1831.     )
  1832.   )
  1833.   (set _p1 pt1)
  1834.   (set _p2 pt2)
  1835. )
  1836. ;;;
  1837. ;;; Get the number of viewports in X and Y.
  1838. ;;; Sets the global mvs_p4 which is a point containing the X and Y
  1839. ;;; amounts as the (car) and (cadr) of mvs_p4.
  1840. ;;;
  1841. ;;; mv_gnv == MView_Get_Number_of_Viewports_in_x_and_y
  1842. ;;;
  1843. (defun mv_gnv (/ )
  1844.   (if n_vp_x
  1845.     (progn
  1846.       (setq mvs_p4 (list (read n_vp_x) (read n_vp_y) 0))
  1847.     )
  1848.     (progn
  1849.       (setq ans (getint "\n\tX ╢bªVíu╡°╡í╝╞╢qívíC<1>: "))
  1850.       (if (= (type ans) 'INT)
  1851.         (setq mvs_p4 (list ans))
  1852.         (setq mvs_p4 (list 1))
  1853.       )
  1854.       (setq ans (getint "\n\tY ╢bªVíu╡°╡í╝╞╢qívíC<1>: "))
  1855.       (if (= (type ans) 'INT)
  1856.         (setq mvs_p4 (append mvs_p4 (list ans 0)))
  1857.         (setq mvs_p4 (append mvs_p4 (list 1   0)))
  1858.       )
  1859.     )
  1860.   )
  1861. )
  1862. ;;;
  1863. ;;; Get the horizontal and vertical distances between the viewports.
  1864. ;;; Sets the global mvs_p3 which is a point containing the X and Y
  1865. ;;; interstitial distances as the (car) and (cadr) of mvs_p3.
  1866. ;;;
  1867. ;;; mv_gid == MView_Get_Interstitial_Distances
  1868. ;;;
  1869. (defun mv_gid (/ )
  1870.   (setq mvs_p3 (list 0.0 0.0 0.0))
  1871.   (if (> (car mvs_p4) 1)
  1872.     (progn
  1873.       (setq ans (getdist (strcat
  1874.         "\n\tX ╢bªVíu╡°╡í╢í╢Zív<"
  1875.         (mv_sts (car mvs_p3))
  1876.         ">: ")))
  1877.       (if (= (type ans) 'REAL)
  1878.         (setq mvs_p3 (list ans ans ans))
  1879.       )
  1880.     )
  1881.   )
  1882.   (if (> (cadr mvs_p4) 1)
  1883.     (progn
  1884.       (setq ans (getdist (strcat
  1885.         "\n\tY ╢bªVíu╡°╡í╢í╢Zív<"
  1886.         (mv_sts (cadr mvs_p3))
  1887.         ">: ")))
  1888.       (if (= (type ans) 'REAL)
  1889.         (setq mvs_p3 (list (car mvs_p3) ans (caddr mvs_p3)))
  1890.       )
  1891.     )
  1892.   )
  1893.   mvs_p3
  1894. )
  1895. ;;;
  1896. ;;; Get set up for creating viewports.
  1897. ;;; Sets the globals mvs_p1 and mvs_p2 which are the corners of the
  1898. ;;; allowable area for viewports in paperspace coordinates.
  1899. ;;;
  1900. ;;; mv_gba == MView_Get_Bounding_Area
  1901. ;;;
  1902. (defun mv_gba (/ )
  1903.   (if ll_crn
  1904.     (initget 1 "Default")
  1905.     (initget 1)
  1906.   )
  1907.   (graphscr)
  1908.   (setq ans (getpoint
  1909.     (if ll_crn
  1910.       "\n\t╣║⌐w╡°╡í¼╔░∞ í╨ Dñ║⌐w/<▓─ñ@┬I>: "
  1911.       "\n\t╣║⌐w╡°╡í¼╔░∞ í╨ ▓─ñ@┬I: "
  1912.     )
  1913.   ))
  1914.   (if (= ans "Default")
  1915.     (progn
  1916.       (if ll_crn
  1917.         (setq mvs_p1 ll_crn
  1918.               mvs_p2 ur_crn
  1919.         )
  1920.         (progn
  1921.           (princ "\n\tÑ╝ªs│]íuñ║⌐w┬IívíC")
  1922.           (exit)
  1923.         )
  1924.       )
  1925.     )
  1926.     (progn
  1927.       (initget 1)
  1928.       (setq mvs_p1 ans
  1929.             mvs_p2 (getcorner mvs_p1 "\n\t╣∩¿ñ┬I: ")
  1930.       )
  1931.     )
  1932.   )
  1933. )
  1934. ;;;
  1935. ;;; Check that the corners given are on-screen.  If not, zoom so they are.
  1936. ;;;
  1937. ;;; mv_cba == MView_Check_Bounding_Area
  1938. ;;;
  1939. (defun mv_cba (/ vs vc ss dx dy)
  1940.   (setq vs (getvar "viewsize")
  1941.         vc (getvar "viewctr")
  1942.         ss (getvar "screensize")
  1943.         dx (* vs (/ (car ss) (cadr ss)))
  1944.   )
  1945.   (if (or (< (car  mvs_p1) (- (car vc) (/ dx 2.0)))
  1946.           (< (cadr mvs_p1) (- (cadr vc) (/ vs 2.0)))
  1947.           (> (car  mvs_p2) (+ (car vc) (/ dx 2.0)))
  1948.           (> (cadr mvs_p2) (+ (cadr vc) (/ vs 2.0)))
  1949.       )
  1950.     (setq need_z T)
  1951.   )
  1952. )
  1953. ;;;
  1954. ;;; Create a title block or Mview viewport layout from the code in the
  1955. ;;; default file.  This may be anything from inserting a block to actually
  1956. ;;; drawing every  component of the title block from scratch.  Any
  1957. ;;; single-line valid Lisp expression may be written in the default file
  1958. ;;; after the DATA name.
  1959. ;;;
  1960. ;;; mv_cfd == MView_Create_From_Defaults
  1961. ;;;
  1962. (defun mv_cfd (/ cont theCmd)
  1963.   (setq cont T)
  1964.   (while cont
  1965.     (setq theCmd (mv_rpl))
  1966.     (if (= (substr theCmd 1 8) "END_ITEM")
  1967.       (progn
  1968.         (setq cont nil)
  1969.       )
  1970.       (mv_etl theCmd)
  1971.     )
  1972.   )
  1973. )
  1974. ;;;
  1975. ;;; Evaluate the line or string passed in.
  1976. ;;;
  1977. ;;; mv_etl == MView_Evaluate_The_Line
  1978. ;;;
  1979. (defun mv_etl (str / )
  1980.   ;(princ str)(terpri)
  1981.   (if (eval(read str)) T nil)
  1982. )
  1983. ;;;
  1984. ;;; Read and parse out a line of the Lisp code found in the defaults
  1985. ;;; file.  This must be done so that literal strings may be written
  1986. ;;; directly in the defaults file, without having to escape all of them.
  1987. ;;; We will do the escaping here, if necessary.
  1988. ;;;
  1989. ;;; Return the escaped string
  1990. ;;;
  1991. ;;; mv_rpl == MView_Read_and_Parse_a_Line
  1992. ;;;
  1993. (defun mv_rpl ( / line j k sl str)
  1994.   (if (setq line (read-line deffi))
  1995.     (progn
  1996.       (setq j 1 k 1 sl (strlen line) str "")
  1997.       (while (<= j sl)
  1998.         (if (= (setq sb_str (substr line j k)) "\"")
  1999.           (setq str (strcat str "\""))
  2000.           (setq str (strcat str sb_str))
  2001.         )
  2002.         (setq j (1+ j))
  2003.       )
  2004.     )
  2005.     (progn
  2006.       (princ "\n\tñw╡LíuªC (line)ívÑi┼¬íC. ")
  2007.       (exit)
  2008.     )
  2009.   )
  2010.   str
  2011. )
  2012. ;;;
  2013. ;;; Create a default definitions file in the current directory
  2014. ;;; Read it out of this file (mvsetup.lsp) at the end of the file.
  2015. ;;;
  2016. ;;; mv_cdf == MView_Create_Defaults_File
  2017. ;;;
  2018. (defun mv_cdf (/ deffi deffo cont line)
  2019.   ;; The default file name for mvsetup is "mvsetup.dfs".
  2020.   ;; Look for it in AutoCAD's search paths
  2021.   ;;
  2022.   (if (setq deffi (mv_lfx "mvsetup.lsp" "r"))
  2023.     (if (setq deffo (mv_lfx mv_xdf "w"))
  2024.       (progn
  2025.         (setq cont T)
  2026.         (while cont
  2027.           (setq line (read-line deffi))
  2028.           ;; Seek to the start of the default file definition
  2029.           (if (= (substr line 1 13) ";;; Start DDF")
  2030.             (setq cont nil)
  2031.           )
  2032.         )
  2033.         ;; Start writing the file
  2034.         ;; Throw away the first four characters of each line to the EOF.
  2035.  
  2036.         (while (setq line (read-line deffi))
  2037.           ;; Seek to the start of the default file definition
  2038.           (write-line (substr line 5) deffo)
  2039.         )
  2040.         (setq deffi (close deffi))
  2041.         (setq deffo (close deffo))
  2042.       )
  2043.       (princ (strcat "\n╝gÑXíu" mv_xdf "ív┤┴╢í, ╡oÑ═íu└╔«╫╢}▒╥ív┐∙╗~íC"))
  2044.     )
  2045.     (princ (strcat "\n┼¬¿·íu" mv_xlf "ív┤┴╢í, ╡oÑ═íu└╔«╫╢}▒╥ív┐∙╗~íC"))
  2046.   )
  2047. )
  2048. ;;;
  2049. ;;; Look for an external definitions file in AutoCAD's search path
  2050. ;;;
  2051. ;;; mv_lfx == MView_Look_For_eXternal_file
  2052. ;;;
  2053. (defun mv_lfx (f_name r_or_w / lfile)
  2054.   ;; Look for f_name in AutoCAD's search paths.
  2055.   (if (= r_or_w "w")
  2056.     (if (setq temp (open f_name r_or_w))
  2057.       temp                            ; Return file descriptor
  2058.       (progn
  2059.         (princ (strcat "\n\t╡L¬k╢}▒╥└╔«╫íu" f_name "ívÑH¿╤╝gÑXíC"))
  2060.         (exit)
  2061.       )
  2062.     )
  2063.     (if (setq lfile (findfile f_name))
  2064.       (if (setq temp (open lfile r_or_w))
  2065.         temp                          ; Return file descriptor
  2066.         (progn
  2067.           (princ (strcat "\n\t╡L¬k╢}▒╥└╔«╫íu" f_name "ívÑH¿╤┼¬¿·íC"))
  2068.           (exit)
  2069.         )
  2070.       )
  2071.       nil                             ; or nil
  2072.     )
  2073.   )
  2074. )
  2075. ;;;
  2076. ;;; Change an existing setup, including the titleblock and/or viewports
  2077. ;;;
  2078. ;;; mv_coc == MView_Change_Or_Create?
  2079. ;;;
  2080. (defun mv_coc ()
  2081.   (initget "Create Update")
  2082.   (setq ans (getkword "\n\tUº≤╖sÑ╪½e½╪╕m/<C½╪Ñ▀>: "))
  2083.   (if (= ans "Update")
  2084.     -1                                ; Return -1
  2085.      1                                ; Return  1
  2086.   )
  2087. )
  2088. ;;;
  2089. ;;; Tilemode setup.
  2090. ;;;
  2091. ;;; mv_ == MView_
  2092. ;;;
  2093. (defun mv_dos (/ temp xl yl)
  2094.  
  2095.   (princ "\n\tíu┐j¼M╝╥ªíívíúTILEMODEíñ¼░ 1; ░ú½D▒Níu┐j¼M╝╥ªíív│]¼░ 0 ,")
  2096.   (princ "\n\tº_½h╡L¬k½╪╕míu╣╧»╚í■╝╥½¼¬┼╢íí╨╡°╡íívíC▒╥Ñ╬ R10¬⌐½╪╕m: \n")
  2097.  
  2098.   (menucmd "S=UNITS0")
  2099.  
  2100.   (initget 7)                         ; No null input, negative or zero values
  2101.  
  2102.   (setq temp (getint "\n\tÑ╤íu┐├╣⌡Ñ\»α¬φívñW┐∩╛▄íu│µª∞ív: "))
  2103.   (menucmd (strcat "S=U" (itoa temp)))
  2104.  
  2105.   (setq mv_olu (getvar "lunits"))     ; Store current linear units setting
  2106.   (if (= temp 5)                      ; Set linear units to new value
  2107.     (setvar "lunits" 2)               ; If metric
  2108.     (setvar "lunits" temp)            ; otherwise
  2109.   )
  2110.  
  2111.   (initget 5)                         ; 0 ok, but no null or negative values
  2112.  
  2113.   (setq mv_sc (getreal "\n\tÑ╤íu┐├╣⌡Ñ\»α¬φívñW┐∩╛▄íuñ±¿╥ív: "))
  2114.   (cond
  2115.     ((= mv_sc 0)
  2116.       (progn
  2117.        (initget 7)
  2118.        (setq mv_sc (getreal "\n\t┐ΘñJíuñ±¿╥ív: "))
  2119.        (setq mv_sc (float mv_sc))
  2120.       )
  2121.     )
  2122.   )
  2123.   (cond
  2124.     ((= temp 5)
  2125.       (menucmd "S=METRIC")
  2126.     )
  2127.     (T
  2128.       (menucmd "S=ENGLISH")
  2129.     )
  2130.   )
  2131.   (initget 5)                         ; 0 ok, but no null or negative values
  2132.   (setq xl (getdist "\n\tÑ╤íu┐├╣⌡Ñ\»α¬φívñW┐∩╛▄íu╣╧»╚½¼╕╣ív: "))
  2133.   (initget 5)                         ; 0 ok, but no null or negative values
  2134.   (setq yl (getdist))
  2135.   (cond
  2136.     ((= xl 0)
  2137.       (progn
  2138.        (initget 7)                    ; No null, negative or zero values
  2139.        (setq xl (getdist "\n\t╣╧»╚íuñ⌠Ñ¡ñ╪ñoív: "))
  2140.        (initget 7)                    ; No null, negative or zero values
  2141.        (setq yl (getdist "\n\t╣╧»╚íu½½¬╜ñ╪ñoív: "))
  2142.       )
  2143.     )
  2144.   )
  2145.   (setq xl (* mv_sc xl)
  2146.         yl (* mv_sc yl)
  2147.   )
  2148.   (command
  2149.     "_.LIMITS" "0,0" (list xl yl)
  2150.     "_.PLINE" "0,0" (list 0 yl) (list xl yl) (list xl 0) "0,0" "_C"
  2151.     "_.ZOOM" "a"
  2152.   )
  2153.   (menucmd "S=")
  2154.   (menucmd "S=")
  2155.   (menucmd "S=")
  2156. )
  2157. ;;;
  2158. ;;; C: function definition.
  2159. ;;;
  2160. (defun c:mvs () (mv_sup))
  2161. (defun c:mvsetup () (mv_sup))
  2162.  
  2163. ;;;
  2164. ;;; The rest of this file in source form is the default file.  When creating
  2165. ;;; a default file, each line following the line which contains "Start DDF"
  2166. ;;; is read and written to the default file minus its first four characters.
  2167. ;;;
  2168. ;;; This file contains definitions for ANSI A through E size title block
  2169. ;;; sheets and several viewport setup options.  If this file is ever
  2170. ;;; Kelvinated or protected, then this section should be stripped out and
  2171. ;;; shipped separately.  Some code changes would also be required.
  2172. ;;;
  2173.  
  2174. ;;; Start DDF
  2175. ;;; ;;; Do NOT erase or change the first three lines
  2176. ;;; ;;; Version 1.15 -- Copyright (c) Autodesk, Inc.  1990 - 1992
  2177. ;;; ;;; MView Setup Defaults
  2178. ;;; ;;; This file contains sets of defaults for setting up multiple viewport
  2179. ;;; ;;; configurations in Paperspace in Release 12 of AutoCAD.  It is intended
  2180. ;;; ;;; that you modify the entries given here to create your own customized
  2181. ;;; ;;; versions.  The format of the file is as follows:
  2182. ;;; ;;;
  2183. ;;; ;;; The first part of the file is a list of the NAME's of the entries
  2184. ;;; ;;; followed by an END_NAMES delimiter.
  2185. ;;; ;;;
  2186. ;;; ;;; Each of the names may have optional, comma delimited fields in the
  2187. ;;; ;;; following order:  the first optional field is the file/path name of
  2188. ;;; ;;; an AutoCAD drawing which is to be inserted at the local UCS origin
  2189. ;;; ;;; when the name is selected, followed by a window in paperspace units
  2190. ;;; ;;; which represents the extents (in paperspace) of the usable paper
  2191. ;;; ;;; area.  This is the area which may be automatically filled with
  2192. ;;; ;;; viewports.  Last is either mm or in which specifies whether the units
  2193. ;;; ;;; used to construct the title block are specified in millimeters or
  2194. ;;; ;;; inches.  If the area points are not specified this filed may follow
  2195. ;;; ;;; the drawing name immediately.
  2196. ;;; ;;;
  2197. ;;; ;;; The data portion of the file for any NAME entry is of arbitrary
  2198. ;;; ;;; length, and contains lines of AutoLISP code with all coordinates
  2199. ;;; ;;; in Paperspace units.  It is terminated with END_DATA.
  2200. ;;; ;;;
  2201. ;;; ;;; Lines of AutoLisp code cannot be split across multiple lines.
  2202. ;;; ;;;
  2203. ;;; ;;; Lines may be commented out with ";".
  2204. ;;;
  2205. ;;; NAMES
  2206. ;;; ╡L
  2207. ;;; ISO A4 ½¼╕╣ (mm),iso_a4.dwg,(22.0 48.0 0.0),(198.0 278.0 0.0),mm
  2208. ;;; ISO A3 ½¼╕╣ (mm),iso_a3.dwg,(27.0 48.0 0.0),(408.0 285.0 0.0),mm
  2209. ;;; ISO A2 ½¼╕╣ (mm),iso_a2.dwg,(27.0 48.0 0.0),(582.0 408.0 0.0),mm
  2210. ;;; ISO A1 ½¼╕╣ (mm),iso_a1.dwg,(27.0 58.0 0.0),(819.0 572.0 0.0),mm
  2211. ;;; ISO A0 ½¼╕╣ (mm),iso_a0.dwg,(27.0 58.0 0.0),(1167.0 819.0 0.0),mm
  2212. ;;; ANSI-V ½¼╕╣ (in),ansi-v.dwg,(0.505 2.125 0.0),(7.995 9.5777 0.0),in
  2213. ;;; ANSI-A ½¼╕╣ (in),ansi-a.dwg,(0.375 2.255 0.0),(10.625 6.9477 0.0),in
  2214. ;;; ANSI-B ½¼╕╣ (in),ansi-b.dwg,(0.745 0.505 0.0),(10.005 10.495 0.0),in
  2215. ;;; ANSI-C ½¼╕╣ (in),ansi-c.dwg,(0.625 0.875 0.0),(15.125 16.125 0.0),in
  2216. ;;; ANSI-D ½¼╕╣ (in),ansi-d.dwg,(1.125 0.625 0.0),(25.255 21.375 0.0),in
  2217. ;;; ANSI-E ½¼╕╣ (in),ansi-e.dwg,(0.625 1.125 0.0),(35.755 32.875 0.0),in
  2218. ;;; ½╪┐v/ñu╡{ (24 x 36in) ,arch-a.dwg,(1.0 1.0 0.0),(30.5 23.0 0.0),in
  2219. ;;; ñ@»δ D ½¼╕╣╣╧»╚ (24 x 36in),gs24x36.dwg,(1.625 1.375 0.0),(33.625 22.625 0.0),in
  2220. ;;; END_NAMES
  2221. ;;;
  2222. ;;; DATA
  2223. ;;;
  2224. ;;; NAME - ╡L
  2225. ;;; (princ)
  2226. ;;; END_ITEM
  2227. ;;;
  2228. ;;; An ISO - A4 size sheet with Title block and revision bar.
  2229. ;;; All points are in paperspace units at a scale of 1 mm.
  2230. ;;;
  2231. ;;; NAME - ISO A4 ½¼╕╣ (mm)
  2232. ;;; (command "_.ZOOM" "_W" "-80,-5" "330,300")
  2233. ;;; ;;;
  2234. ;;; ;;; Trimming marks
  2235. ;;; (command "_.LINE" "0,5" "0,0" "5,0" "")
  2236. ;;; (command "_.LINE" "205,0" "210,0" "210,5" "")
  2237. ;;; (command "_.LINE" "210,292" "210,297" "205,297" "")
  2238. ;;; (command "_.LINE" "5,297" "0,297" "0,292" "")
  2239. ;;; ;;;
  2240. ;;; ;;; Drawing sheet frame
  2241. ;;; (command "_.LINE" "20,10" "200,10" "200,287" "20,287" "_C")
  2242. ;;; ;;;
  2243. ;;; ;;; Title block
  2244. ;;; ;;;
  2245. ;;; ;;; Horizontals
  2246. ;;; (command "_.LINE" "95,20" "200,20" "")
  2247. ;;; (command "_.LINE" "20,30" "200,30" "")
  2248. ;;; (command "_.LINE" "20,40" "200,40" "")
  2249. ;;; (command "_.LINE" "20,46" "200,46" "")
  2250. ;;; ;;;
  2251. ;;; ;;; Verticals
  2252. ;;; (command "_.LINE" "33,40" "33,46" "")
  2253. ;;; (command "_.LINE" "50,30" "50,46" "")
  2254. ;;; (command "_.LINE" "75,30" "75,40" "")
  2255. ;;; (command "_.LINE" "95,10" "95,30" "")
  2256. ;;; (command "_.LINE" "125,30" "125,40" "")
  2257. ;;; (command "_.LINE" "150,30" "150,46" "")
  2258. ;;; (command "_.LINE" "165,10" "165,20" "")
  2259. ;;; (command "_.LINE" "180,10" "180,20" "")
  2260. ;;; (command "_.LINE" "180,30" "180,40" "")
  2261. ;;; ;;;
  2262. ;;; ;;; Text
  2263. ;;; (command "_.STYLE" "ADESK2" "iso" "0" "1.0" "0" "" "")
  2264. ;;; (command "_.TEXT" "21,42" "2.5" "0" "Itemref")
  2265. ;;; (command "_.TEXT" "34,42" "2.5" "0" "Quantity")
  2266. ;;; (command "_.TEXT" "51,42" "2.5" "0" "Title/Name, designation, material, dimension etc")
  2267. ;;; (command "_.TEXT" "151,42" "2.5" "0" "Article No./Reference")
  2268. ;;; (command "_.TEXT" "21,36" "2.5" "0" "Designed by")
  2269. ;;; (command "_.TEXT" "51,36" "2.5" "0" "Checked by")
  2270. ;;; (command "_.TEXT" "76,36" "2.5" "0" "Approved by - date")
  2271. ;;; (command "_.TEXT" "126,36" "2.5" "0" "Filename")
  2272. ;;; (command "_.TEXT" "152,36" "2.5" "0" "Date")
  2273. ;;; (command "_.TEXT" "181,36" "2.5" "0" "Scale")
  2274. ;;; (command "_.TEXT" "21,26" "2.5" "0" "Owner")
  2275. ;;; (command "_.TEXT" "96,26" "2.5" "0" "Title/Name")
  2276. ;;; (command "_.TEXT" "96,16" "2.5" "0" "Drawing number")
  2277. ;;; (command "_.TEXT" "166,16" "2.5" "0" "Edition")
  2278. ;;; (command "_.TEXT" "181,16" "2.5" "0" "Sheet")
  2279. ;;; ;;;
  2280. ;;; ;;; Revision bar
  2281. ;;; ;;;
  2282. ;;; ;;; Horizontal
  2283. ;;; (command "_.LINE" "20,280" "200,280" "")
  2284. ;;; ;;;
  2285. ;;; ;;; Verticals
  2286. ;;; (command "_.LINE" "30,280" "30,287" "")
  2287. ;;; (command "_.LINE" "151,280" "151,287" "")
  2288. ;;; (command "_.LINE" "171,280" "171,287" "")
  2289. ;;; (command "_.LINE" "186,280" "186,287" "")
  2290. ;;; ;;;
  2291. ;;; ;;; Text
  2292. ;;; (command "_.TEXT" "21,282.5" "2.5" "0" "RevNo")
  2293. ;;; (command "_.TEXT" "31,282.5" "2.5" "0" "Revision note")
  2294. ;;; (command "_.TEXT" "152,282.5" "2.5" "0" "Date")
  2295. ;;; (command "_.TEXT" "172,282.5" "2.5" "0" "Signature")
  2296. ;;; (command "_.TEXT" "187,282.5" "2.5" "0" "Checked")
  2297. ;;; END_ITEM
  2298. ;;;
  2299. ;;; An ISO - A3 size sheet with Title block and revision bar.
  2300. ;;; All points are in paperspace units at a scale of 1 mm.
  2301. ;;;
  2302. ;;; NAME - ISO A3 ½¼╕╣ (mm)
  2303. ;;; (command "_.ZOOM" "_W" "-5,-5" "425,302")
  2304. ;;; ;;;
  2305. ;;; ;;; Trimming marks
  2306. ;;; (command "_.LINE" "0,5" "0,0" "5,0" "")
  2307. ;;; (command "_.LINE" "415,0" "420,0" "420,5" "")
  2308. ;;; (command "_.LINE" "420,292" "420,297" "415,297" "")
  2309. ;;; (command "_.LINE" "5,297" "0,297" "0,292" "")
  2310. ;;; ;;;
  2311. ;;; ;;; Drawing sheet frame
  2312. ;;; (command "_.LINE" "25,10" "410,10" "410,287" "25,287" "_C")
  2313. ;;; ;;;
  2314. ;;; ;;; Title block
  2315. ;;; ;;;
  2316. ;;; ;;; Horizontals
  2317. ;;; (command "_.LINE" "310,20" "410,20" "")
  2318. ;;; (command "_.LINE" "240,30" "410,30" "")
  2319. ;;; (command "_.LINE" "240,40" "410,40" "")
  2320. ;;; (command "_.LINE" "240,46" "410,46" "")
  2321. ;;; ;;;
  2322. ;;; ;;; Verticals
  2323. ;;; (command "_.LINE" "240,10" "240,46" "")
  2324. ;;; (command "_.LINE" "250,40" "250,46" "")
  2325. ;;; (command "_.LINE" "265,30" "265,46" "")
  2326. ;;; (command "_.LINE" "290,30" "290,40" "")
  2327. ;;; (command "_.LINE" "310,10" "310,30" "")
  2328. ;;; (command "_.LINE" "340,30" "340,40" "")
  2329. ;;; (command "_.LINE" "365,30" "365,46" "")
  2330. ;;; (command "_.LINE" "380,10" "380,20" "")
  2331. ;;; (command "_.LINE" "395,10" "395,20" "")
  2332. ;;; (command "_.LINE" "395,30" "395,40" "")
  2333. ;;; ;;;
  2334. ;;; ;;; Text
  2335. ;;; (command "_.STYLE" "ADESK2" "iso" "0" "1.0" "0" "" "")
  2336. ;;; (command "_.TEXT" "240.7,42" "2.5" "0" "Itemref")
  2337. ;;; (command "_.TEXT" "251,42" "2.5" "0" "Quantity")
  2338. ;;; (command "_.TEXT" "266,42" "2.5" "0" "Title/Name, designation, material, dimension etc")
  2339. ;;; (command "_.TEXT" "366,42" "2.5" "0" "Article No./Reference")
  2340. ;;; (command "_.TEXT" "241,36" "2.5" "0" "Designed by")
  2341. ;;; (command "_.TEXT" "266,36" "2.5" "0" "Checked by")
  2342. ;;; (command "_.TEXT" "291,36" "2.5" "0" "Approved by - date")
  2343. ;;; (command "_.TEXT" "341,36" "2.5" "0" "Filename")
  2344. ;;; (command "_.TEXT" "366,36" "2.5" "0" "Date")
  2345. ;;; (command "_.TEXT" "396,36" "2.5" "0" "Scale")
  2346. ;;; (command "_.TEXT" "241,26" "2.5" "0" "Owner")
  2347. ;;; (command "_.TEXT" "311,26" "2.5" "0" "Title/Name")
  2348. ;;; (command "_.TEXT" "311,16" "2.5" "0" "Drawing number")
  2349. ;;; (command "_.TEXT" "381,16" "2.5" "0" "Edition")
  2350. ;;; (command "_.TEXT" "396,16" "2.5" "0" "Sheet")
  2351. ;;; ;;;
  2352. ;;; ;;; Revision bar
  2353. ;;; ;;;
  2354. ;;; ;;; Horizontal
  2355. ;;; (command "_.LINE" "25,17" "205,17" "")
  2356. ;;; ;;;
  2357. ;;; ;;; Verticals
  2358. ;;; (command "_.LINE" "35,10" "35,17" "")
  2359. ;;; (command "_.LINE" "156,10" "156,17" "")
  2360. ;;; (command "_.LINE" "176,10" "176,17" "")
  2361. ;;; (command "_.LINE" "191,10" "191,17" "")
  2362. ;;; (command "_.LINE" "205,10" "205,17" "")
  2363. ;;; ;;;
  2364. ;;; ;;; Text
  2365. ;;; (command "_.TEXT" "26,12.5" "2.5" "0" "RevNo")
  2366. ;;; (command "_.TEXT" "36,12.5" "2.5" "0" "Revision note")
  2367. ;;; (command "_.TEXT" "157,12.5" "2.5" "0" "Date")
  2368. ;;; (command "_.TEXT" "177,12.5" "2.5" "0" "Signature")
  2369. ;;; (command "_.TEXT" "192,12.5" "2.5" "0" "Checked")
  2370. ;;; END_ITEM
  2371. ;;;
  2372. ;;; An ISO - A2 size sheet with Title block and revision bar.
  2373. ;;; All points are in paperspace units at a scale of 1 mm.
  2374. ;;;
  2375. ;;; NAME - ISO A2 ½¼╕╣ (mm)
  2376. ;;; (command "_.ZOOM" "_W" "-5,-5" "600,425")
  2377. ;;; ;;;
  2378. ;;; ;;; Trimming marks
  2379. ;;; (command "_.LINE" "0,5" "0,0" "5,0" "")
  2380. ;;; (command "_.LINE" "589,0" "594,0" "594,5" "")
  2381. ;;; (command "_.LINE" "594,415" "594,420" "589,420" "")
  2382. ;;; (command "_.LINE" "5,420" "0,420" "0,415" "")
  2383. ;;; ;;;
  2384. ;;; ;;; Drawing sheet frame
  2385. ;;; (command "_.LINE" "25,10" "584,10" "584,410" "25,410" "_C")
  2386. ;;; ;;;
  2387. ;;; ;;; Horizontals
  2388. ;;; (command "_.LINE" "484,20" "584,20" "")
  2389. ;;; (command "_.LINE" "414,30" "584,30" "")
  2390. ;;; (command "_.LINE" "414,40" "584,40" "")
  2391. ;;; (command "_.LINE" "414,46" "584,46" "")
  2392. ;;; ;;;
  2393. ;;; ;;; Verticals
  2394. ;;; (command "_.LINE" "414,10" "414,46" "")
  2395. ;;; (command "_.LINE" "424,40" "424,46" "")
  2396. ;;; (command "_.LINE" "439,30" "439,46" "")
  2397. ;;; (command "_.LINE" "464,30" "464,40" "")
  2398. ;;; (command "_.LINE" "484,10" "484,30" "")
  2399. ;;; (command "_.LINE" "514,30" "514,40" "")
  2400. ;;; (command "_.LINE" "539,30" "539,46" "")
  2401. ;;; (command "_.LINE" "554,10" "554,20" "")
  2402. ;;; (command "_.LINE" "569,10" "569,20" "")
  2403. ;;; (command "_.LINE" "569,30" "569,40" "")
  2404. ;;; ;;;
  2405. ;;; ;;; Text
  2406. ;;; (command "_.STYLE" "ADESK2" "iso" "0" "1.0" "0" "" "")
  2407. ;;; (command "_.TEXT" "414.7,42" "2.5" "0" "Itemref")
  2408. ;;; (command "_.TEXT" "425,42" "2.5" "0" "Quantity")
  2409. ;;; (command "_.TEXT" "440,42" "2.5" "0" "Title/Name, designation, material, dimension etc")
  2410. ;;; (command "_.TEXT" "540,42" "2.5" "0" "Article No./Reference")
  2411. ;;; (command "_.TEXT" "415,36" "2.5" "0" "Designed by")
  2412. ;;; (command "_.TEXT" "440,36" "2.5" "0" "Checked by")
  2413. ;;; (command "_.TEXT" "465,36" "2.5" "0" "Approved by - date")
  2414. ;;; (command "_.TEXT" "515,36" "2.5" "0" "Filename")
  2415. ;;; (command "_.TEXT" "540,36" "2.5" "0" "Date")
  2416. ;;; (command "_.TEXT" "570,36" "2.5" "0" "Scale")
  2417. ;;; (command "_.TEXT" "415,26" "2.5" "0" "Owner")
  2418. ;;; (command "_.TEXT" "485,26" "2.5" "0" "Title/Name")
  2419. ;;; (command "_.TEXT" "485,16" "2.5" "0" "Drawing number")
  2420. ;;; (command "_.TEXT" "555,16" "2.5" "0" "Edition")
  2421. ;;; (command "_.TEXT" "570,16" "2.5" "0" "Sheet")
  2422. ;;; ;;;
  2423. ;;; ;;; Revision bar
  2424. ;;; ;;;
  2425. ;;; ;;; Horizontal
  2426. ;;; (command "_.LINE" "25,17" "205,17" "")
  2427. ;;; ;;;
  2428. ;;; ;;; Verticals
  2429. ;;; (command "_.LINE" "35,10" "35,17" "")
  2430. ;;; (command "_.LINE" "156,10" "156,17" "")
  2431. ;;; (command "_.LINE" "176,10" "176,17" "")
  2432. ;;; (command "_.LINE" "191,10" "191,17" "")
  2433. ;;; (command "_.LINE" "205,10" "205,17" "")
  2434. ;;; ;;;
  2435. ;;; ;;; Text
  2436. ;;; (command "_.TEXT" "26,12.5" "2.5" "0" "RevNo")
  2437. ;;; (command "_.TEXT" "36,12.5" "2.5" "0" "Revision note")
  2438. ;;; (command "_.TEXT" "157,12.5" "2.5" "0" "Date")
  2439. ;;; (command "_.TEXT" "177,12.5" "2.5" "0" "Signature")
  2440. ;;; (command "_.TEXT" "192,12.5" "2.5" "0" "Checked")
  2441. ;;; END_ITEM
  2442. ;;;
  2443. ;;; An ISO - A1 size sheet with Title block and revision bar.
  2444. ;;; All points are in paperspace units at a scale of 1 mm.
  2445. ;;;
  2446. ;;; NAME - ISO A1 ½¼╕╣ (mm)
  2447. ;;; (command "_.ZOOM" "_W" "-5,-5" "846,599")
  2448. ;;; ;;;
  2449. ;;; ;;; Trimming marks
  2450. ;;; (command "_.LINE" "0,5" "0,0" "5,0" "")
  2451. ;;; (command "_.LINE" "836,0" "841,0" "841,5" "")
  2452. ;;; (command "_.LINE" "841,589" "841,594" "836,594" "")
  2453. ;;; (command "_.LINE" "5,594" "0,594" "0,589" "")
  2454. ;;; ;;;
  2455. ;;; ;;; Drawing sheet frame
  2456. ;;; (command "_.LINE" "25,20" "821,20" "821,574" "25,574" "_C")
  2457. ;;; ;;;
  2458. ;;; ;;; Horizontals
  2459. ;;; (command "_.LINE" "721,30" "821,30" "")
  2460. ;;; (command "_.LINE" "651,40" "821,40" "")
  2461. ;;; (command "_.LINE" "651,50" "821,50" "")
  2462. ;;; (command "_.LINE" "651,56" "821,56" "")
  2463. ;;; ;;;
  2464. ;;; ;;; Verticals
  2465. ;;; (command "_.LINE" "651,20" "651,56" "")
  2466. ;;; (command "_.LINE" "661,50" "661,56" "")
  2467. ;;; (command "_.LINE" "676,40" "676,56" "")
  2468. ;;; (command "_.LINE" "701,40" "701,50" "")
  2469. ;;; (command "_.LINE" "721,20" "721,40" "")
  2470. ;;; (command "_.LINE" "751,40" "751,50" "")
  2471. ;;; (command "_.LINE" "776,40" "776,56" "")
  2472. ;;; (command "_.LINE" "791,20" "791,30" "")
  2473. ;;; (command "_.LINE" "806,20" "806,30" "")
  2474. ;;; (command "_.LINE" "806,40" "806,50" "")
  2475. ;;; ;;;
  2476. ;;; ;;; Text
  2477. ;;; (command "_.STYLE" "ADESK2" "iso" "0" "1.0" "0" "" "")
  2478. ;;; (command "_.TEXT" "651.7,52" "2.5" "0" "Itemref")
  2479. ;;; (command "_.TEXT" "662,52" "2.5" "0" "Quantity")
  2480. ;;; (command "_.TEXT" "677,52" "2.5" "0" "Title/Name, designation, material, dimension etc")
  2481. ;;; (command "_.TEXT" "777,52" "2.5" "0" "Article No./Reference")
  2482. ;;; (command "_.TEXT" "652,46" "2.5" "0" "Designed by")
  2483. ;;; (command "_.TEXT" "677,46" "2.5" "0" "Checked by")
  2484. ;;; (command "_.TEXT" "702,46" "2.5" "0" "Approved by - date")
  2485. ;;; (command "_.TEXT" "752,46" "2.5" "0" "Filename")
  2486. ;;; (command "_.TEXT" "777,46" "2.5" "0" "Date")
  2487. ;;; (command "_.TEXT" "807,46" "2.5" "0" "Scale")
  2488. ;;; (command "_.TEXT" "652,36" "2.5" "0" "Owner")
  2489. ;;; (command "_.TEXT" "722,36" "2.5" "0" "Title/Name")
  2490. ;;; (command "_.TEXT" "722,26" "2.5" "0" "Drawing number")
  2491. ;;; (command "_.TEXT" "792,26" "2.5" "0" "Edition")
  2492. ;;; (command "_.TEXT" "807,26" "2.5" "0" "Sheet")
  2493. ;;; ;;;
  2494. ;;; ;;; Revision bar
  2495. ;;; ;;;
  2496. ;;; ;;; Horizontal
  2497. ;;; (command "_.LINE" "25,27" "205,27" "")
  2498. ;;; ;;;
  2499. ;;; ;;; Verticals
  2500. ;;; (command "_.LINE" "35,20" "35,27" "")
  2501. ;;; (command "_.LINE" "156,20" "156,27" "")
  2502. ;;; (command "_.LINE" "176,20" "176,27" "")
  2503. ;;; (command "_.LINE" "191,20" "191,27" "")
  2504. ;;; (command "_.LINE" "205,20" "205,27" "")
  2505. ;;; ;;;
  2506. ;;; ;;; Text
  2507. ;;; (command "_.TEXT" "26,22.5" "2.5" "0" "RevNo")
  2508. ;;; (command "_.TEXT" "36,22.5" "2.5" "0" "Revision note")
  2509. ;;; (command "_.TEXT" "157,22.5" "2.5" "0" "Date")
  2510. ;;; (command "_.TEXT" "177,22.5" "2.5" "0" "Signature")
  2511. ;;; (command "_.TEXT" "192,22.5" "2.5" "0" "Checked")
  2512. ;;; END_ITEM
  2513. ;;;
  2514. ;;; An ISO - A0 size sheet with Title block and revision bar.
  2515. ;;; All points are in paperspace units at a scale of 1 mm.
  2516. ;;;
  2517. ;;; NAME - ISO A0 ½¼╕╣ (mm)
  2518. ;;; (command "_.ZOOM" "_W" "-5,-5" "1194,846")
  2519. ;;; ;;;
  2520. ;;; ;;; Trimming marks
  2521. ;;; (command "_.LINE" "0,5" "0,0" "5,0" "")
  2522. ;;; (command "_.LINE" "1184,0" "1189,0" "1189,5" "")
  2523. ;;; (command "_.LINE" "1189,836" "1189,841" "1184,841" "")
  2524. ;;; (command "_.LINE" "5,841" "0,841" "0,836" "")
  2525. ;;; ;;;
  2526. ;;; ;;; Drawing sheet frame
  2527. ;;; (command "_.LINE" "25,20" "1169,20" "1169,821" "25,821" "_C")
  2528. ;;; ;;;
  2529. ;;; ;;; Horizontals
  2530. ;;; (command "_.LINE" "1069,30" "1169,30" "")
  2531. ;;; (command "_.LINE" "999,40" "1169,40" "")
  2532. ;;; (command "_.LINE" "999,50" "1169,50" "")
  2533. ;;; (command "_.LINE" "999,56" "1169,56" "")
  2534. ;;; ;;;
  2535. ;;; ;;; Verticals
  2536. ;;; (command "_.LINE" "999,20" "999,56" "")
  2537. ;;; (command "_.LINE" "1009,50" "1009,56" "")
  2538. ;;; (command "_.LINE" "1024,40" "1024,56" "")
  2539. ;;; (command "_.LINE" "1049,40" "1049,50" "")
  2540. ;;; (command "_.LINE" "1069,20" "1069,40" "")
  2541. ;;; (command "_.LINE" "1099,40" "1099,50" "")
  2542. ;;; (command "_.LINE" "1124,40" "1124,56" "")
  2543. ;;; (command "_.LINE" "1139,20" "1139,30" "")
  2544. ;;; (command "_.LINE" "1154,20" "1154,30" "")
  2545. ;;; (command "_.LINE" "1154,40" "1154,50" "")
  2546. ;;; ;;;
  2547. ;;; ;;; Text
  2548. ;;; (command "_.STYLE" "ADESK2" "iso" "0" "1.0" "0" "" "")
  2549. ;;; (command "_.TEXT" "999.7,52" "2.5" "0" "Itemref")
  2550. ;;; (command "_.TEXT" "1010,52" "2.5" "0" "Quantity")
  2551. ;;; (command "_.TEXT" "1025,52" "2.5" "0" "Title/Name, designation, material, dimension etc")
  2552. ;;; (command "_.TEXT" "1125,52" "2.5" "0" "Article No./Reference")
  2553. ;;; (command "_.TEXT" "1000,46" "2.5" "0" "Designed by")
  2554. ;;; (command "_.TEXT" "1025,46" "2.5" "0" "Checked by")
  2555. ;;; (command "_.TEXT" "1050,46" "2.5" "0" "Approved by - date")
  2556. ;;; (command "_.TEXT" "1100,46" "2.5" "0" "Filename")
  2557. ;;; (command "_.TEXT" "1125,46" "2.5" "0" "Date")
  2558. ;;; (command "_.TEXT" "1155,46" "2.5" "0" "Scale")
  2559. ;;; (command "_.TEXT" "1000,36" "2.5" "0" "Owner")
  2560. ;;; (command "_.TEXT" "1070,36" "2.5" "0" "Title/Name")
  2561. ;;; (command "_.TEXT" "1070,26" "2.5" "0" "Drawing number")
  2562. ;;; (command "_.TEXT" "1140,26" "2.5" "0" "Edition")
  2563. ;;; (command "_.TEXT" "1155,26" "2.5" "0" "Sheet")
  2564. ;;; ;;;
  2565. ;;; ;;; Revision bar
  2566. ;;; ;;;
  2567. ;;; ;;; Horizontal
  2568. ;;; (command "_.LINE" "25,27" "205,27" "")
  2569. ;;; ;;;
  2570. ;;; ;;; Verticals
  2571. ;;; (command "_.LINE" "35,20" "35,27" "")
  2572. ;;; (command "_.LINE" "156,20" "156,27" "")
  2573. ;;; (command "_.LINE" "176,20" "176,27" "")
  2574. ;;; (command "_.LINE" "191,20" "191,27" "")
  2575. ;;; (command "_.LINE" "205,20" "205,27" "")
  2576. ;;; ;;;
  2577. ;;; ;;; Text
  2578. ;;; (command "_.TEXT" "26,22.5" "2.5" "0" "RevNo")
  2579. ;;; (command "_.TEXT" "36,22.5" "2.5" "0" "Revision note")
  2580. ;;; (command "_.TEXT" "157,22.5" "2.5" "0" "Date")
  2581. ;;; (command "_.TEXT" "177,22.5" "2.5" "0" "Signature")
  2582. ;;; (command "_.TEXT" "192,22.5" "2.5" "0" "Checked")
  2583. ;;; END_ITEM
  2584. ;;;
  2585. ;;;
  2586. ;;; An ANSI - A size Vertical sheet with Title block and revision bar.
  2587. ;;; All points are in paperspace units at a scale of 1 inch.
  2588. ;;;
  2589. ;;; NAME - ANSI-V ½¼╕╣ (in)
  2590. ;;; (command "_.ZOOM" "_W" "-0.5,-0.5" "9.0,11.5")
  2591. ;;; (command "_.LINE" "0,0" "8.5,0" "8.5,11" "0,11" "_C")
  2592. ;;; (command "_.LINE" ".38,.25" "8.12,.25" "8.12,10.75" ".38,10.75" "_C")
  2593. ;;; ;;; Bottom microfilm alignment arrow
  2594. ;;; (command "_.PLINE" "4.25,0" "_W" "0.02" "" "4.25,.1" "")
  2595. ;;; (command "_.SOLID" "4.1,.1" "4.4,.1" "4.25,.25" "" "")
  2596. ;;; ;;; Right microfilm alignment arrow
  2597. ;;; (command "_.PLINE" "8.37,5.5" "_W" "0.02" "" "8.27,5.5" "")
  2598. ;;; (command "_.SOLID" "8.27,5.35" "8.27,5.65" "8.12,5.5" "" "")
  2599. ;;; ;;; Top microfilm alignment arrow
  2600. ;;; (command "_.PLINE" "4.25,11" "_W" "0.02" "" "4.25,10.9" "")
  2601. ;;; (command "_.SOLID" "4.1,10.9" "4.4,10.9" "4.25,10.75" "" "")
  2602. ;;; ;;; Left microfilm alignment arrow
  2603. ;;; (command "_.PLINE" ".13,5.5" "_W" "0.02" "" ".23,5.5" "")
  2604. ;;; (command "_.SOLID" ".23,5.35" ".23,5.65" ".38,5.5" "" "")
  2605. ;;; ;;;
  2606. ;;; ;;; Title block
  2607. ;;; ;;;
  2608. ;;; ;;; Horizontals
  2609. ;;; (command "_.LINE" "1.87,0.25" "1.87,2"    "8.12,2" "")
  2610. ;;; (command "_.LINE" "1.87,.565" "3.87,.565" "")
  2611. ;;; (command "_.LINE" "1.87,.88"  "8.12,.88"  "")
  2612. ;;; (command "_.LINE" "3.87,.5"   "8.12,.5"   "")
  2613. ;;; (command "_.LINE" "3.87,1.5"  "8.12,1.5"  "")
  2614. ;;; ;;;
  2615. ;;; ;;; Verticals
  2616. ;;; (command "_.LINE" "3.87,0.25" "3.87,2"  "")
  2617. ;;; (command "_.LINE" "4.87,.25"  "4.87,.5"  "")
  2618. ;;; (command "_.LINE" "6.37,.25"  "6.37,.5"  "")
  2619. ;;; (command "_.LINE" "4.25,.5"   "4.25,.88" "")
  2620. ;;; (command "_.LINE" "5.37,.5"   "5.37,.88" "")
  2621. ;;; (command "_.LINE" "7.74,.5"   "7.74,.88" "")
  2622. ;;; ;;;
  2623. ;;; ;;; Text
  2624. ;;; (command "_.STYLE" "ADESK1" "romans" "0" "1.0" "0" "" "" "")
  2625. ;;; (command "_.TEXT" "3.9223,.3425" "0.065" "0" "SCALE")
  2626. ;;; (command "_.TEXT" "6.4228,.3425" "0.065" "0" "SHEET")
  2627. ;;; (command "_.TEXT" "3.9579,.7659" "0.065" "0" "SIZE")
  2628. ;;; (command "_.TEXT" "4.3189,.7659" "0.065" "0" "FSCM NO.")
  2629. ;;; (command "_.TEXT" "5.4410,.7659" "0.065" "0" "DWG NO.")
  2630. ;;; (command "_.TEXT" "7.8205,.7659" "0.065" "0" "REV")
  2631. ;;; ;;;
  2632. ;;; ;;; Revision bar
  2633. ;;; ;;;
  2634. ;;; ;;; Horizontals
  2635. ;;; (command "_.LINE" "2.62,10.5" "8.12,10.5" "")
  2636. ;;; (command "_.LINE" "2.62,10.25" "8.12,10.25" "")
  2637. ;;; ;;;
  2638. ;;; ;;; Verticals
  2639. ;;; (command "_.LINE" "2.62,10.75" "2.62,9.7027" "")
  2640. ;;; (command "_.LINE" "3.12,10.25" "3.12,10.5" "")
  2641. ;;; (command "_.LINE" "3.50,10.25" "3.50,10.5" "")
  2642. ;;; (command "_.LINE" "6.24,10.25" "6.24,10.5" "")
  2643. ;;; (command "_.LINE" "7.12,10.25" "7.12,10.5" "")
  2644. ;;; ;;;
  2645. ;;; ;;; Revision bar text
  2646. ;;; ;;;
  2647. ;;; (command "_.TEXT" "5.3302,10.5825" "0.065" "0" "REVISIONS")
  2648. ;;; (command "_.TEXT" "2.7287,10.3403" "0.065" "0" "ZONE")
  2649. ;;; (command "_.TEXT" "3.2001,10.3403" "0.065" "0" "REV")
  2650. ;;; (command "_.TEXT" "4.5020,10.3403" "0.065" "0" "DESCRIPTION")
  2651. ;;; (command "_.TEXT" "6.5677,10.3403" "0.065" "0" "DATE")
  2652. ;;; (command "_.TEXT" "7.3614,10.3403" "0.065" "0" "APPROVED")
  2653. ;;; END_ITEM
  2654. ;;;
  2655. ;;; An ANSI - A size sheet with Title block and revision bar.
  2656. ;;; All points are in paperspace units at a scale of 1 inch.
  2657. ;;;
  2658. ;;; NAME - ANSI-A ½¼╕╣ (in)
  2659. ;;; (command "_.ZOOM" "_W" "-0.5,-0.5" "11.5,9.0")
  2660. ;;; (command "_.LINE" "0,0" "11,0" "11,8.5" "0,8.5" "_C")
  2661. ;;; (command "_.LINE" ".25,.38" "10.75,.38" "10.75,8.12" ".25,8.12" "_C")
  2662. ;;; ;;; Bottom microfilm alignment arrow
  2663. ;;; (command "_.PLINE" "5.5,.13" "_W" "0.02" "" "5.5,.23" "")
  2664. ;;; (command "_.SOLID" "5.35,.23" "5.65,.23" "5.5,.38" "" "")
  2665. ;;; ;;; Right microfilm alignment arrow
  2666. ;;; (command "_.PLINE" "11,4.25" "_W" "0.02" "" "10.9,4.25" "")
  2667. ;;; (command "_.SOLID" "10.9,4.1" "10.9,4.4" "10.75,4.25" "" "")
  2668. ;;; ;;; Top microfilm alignment arrow
  2669. ;;; (command "_.PLINE" "5.5,8.37" "_W" "0.02" "" "5.5,8.27" "")
  2670. ;;; (command "_.SOLID" "5.35,8.27" "5.65,8.27" "5.5,8.12" "" "")
  2671. ;;; ;;; Left microfilm alignment arrow
  2672. ;;; (command "_.PLINE" "0,4.25" "_W" "0.02" "" ".1,4.25" "")
  2673. ;;; (command "_.SOLID" ".1,4.1" ".1,4.4" ".25,4.25" "" "")
  2674. ;;; ;;;
  2675. ;;; ;;; Title block
  2676. ;;; ;;;
  2677. ;;; ;;; Horizontals
  2678. ;;; (command "_.LINE" "4.5,.38"   "4.5,2.13"   "10.75,2.13" "")
  2679. ;;; (command "_.LINE" "4.5,.695"  "6.5,.695"   "")
  2680. ;;; (command "_.LINE" "4.5,1.01"  "10.75,1.01" "")
  2681. ;;; (command "_.LINE" "6.5,.63"   "10.75,.63"  "")
  2682. ;;; (command "_.LINE" "6.5,1.63"  "10.75,1.63" "")
  2683. ;;; ;;;
  2684. ;;; ;;; Verticals
  2685. ;;; (command "_.LINE" "6.5,0.38" "6.5,2.13"  "")
  2686. ;;; (command "_.LINE" "7.5,.38"   "7.5,.63"    "")
  2687. ;;; (command "_.LINE" "9.0,.38"   "9.0,.63"    "")
  2688. ;;; (command "_.LINE" "6.88,.63"  "6.88,1.01"  "")
  2689. ;;; (command "_.LINE" "8,.63"     "8,1.01"     "")
  2690. ;;; (command "_.LINE" "10.37,.63" "10.37,1.01" "")
  2691. ;;; ;;;
  2692. ;;; ;;; Text
  2693. ;;; (command "_.STYLE" "ADESK1" "romans" "0" "1.0" "0" "" "" "")
  2694. ;;; (command "_.TEXT" "6.5523,0.4725" "0.065" "0" "SCALE")
  2695. ;;; (command "_.TEXT" "9.0528,0.4725" "0.065" "0" "SHEET")
  2696. ;;; (command "_.TEXT" "6.5879,0.8959" "0.065" "0" "SIZE")
  2697. ;;; (command "_.TEXT" "6.9489,0.8959" "0.065" "0" "FSCM NO.")
  2698. ;;; (command "_.TEXT" "8.0710,0.8959" "0.065" "0" "DWG NO.")
  2699. ;;; (command "_.TEXT" "10.4505,0.8959" "0.065" "0" "REV")
  2700. ;;; ;;;
  2701. ;;; ;;; Revision bar
  2702. ;;; ;;;
  2703. ;;; ;;; Horizontals
  2704. ;;; (command "_.LINE" "5.25,7.87" "10.75,7.87" "")
  2705. ;;; (command "_.LINE" "5.25,7.62" "10.75,7.62" "")
  2706. ;;; ;;;
  2707. ;;; ;;; Verticals
  2708. ;;; (command "_.LINE" "5.25,8.12" "5.25,7.0727" "")
  2709. ;;; (command "_.LINE" "5.75,7.62" "5.75,7.87" "")
  2710. ;;; (command "_.LINE" "6.13,7.62" "6.13,7.87" "")
  2711. ;;; (command "_.LINE" "8.87,7.62" "8.87,7.87" "")
  2712. ;;; (command "_.LINE" "9.75,7.62" "9.75,7.87" "")
  2713. ;;; ;;;
  2714. ;;; ;;; Revision bar text
  2715. ;;; ;;;
  2716. ;;; (command "_.TEXT" "7.9602,7.9525" "0.065" "0" "REVISIONS")
  2717. ;;; (command "_.TEXT" "5.3587,7.7103" "0.065" "0" "ZONE")
  2718. ;;; (command "_.TEXT" "5.8301,7.7103" "0.065" "0" "REV")
  2719. ;;; (command "_.TEXT" "7.1320,7.7103" "0.065" "0" "DESCRIPTION")
  2720. ;;; (command "_.TEXT" "9.1977,7.7103" "0.065" "0" "DATE")
  2721. ;;; (command "_.TEXT" "9.9914,7.7103" "0.065" "0" "APPROVED")
  2722. ;;; END_ITEM
  2723. ;;;
  2724. ;;; An ANSI - B size sheet with Title block and revision bar.
  2725. ;;; All points are in paperspace units at a scale of 1 inch.
  2726. ;;;
  2727. ;;; NAME - ANSI-B ½¼╕╣ (in)
  2728. ;;; (command "_.ZOOM" "_W" "-0.5,-0.5" "17.5,11.5")
  2729. ;;; (command "_.LINE" "0,0" "17,0" "17,11" "0,11" "_C")
  2730. ;;; (command "_.LINE" ".62,.38" "16.38,.38" "16.38,10.62" ".62,10.62" "_C")
  2731. ;;; ;;; Bottom microfilm alignment arrow
  2732. ;;; (command "_.PLINE" "8.5,.13" "_W" "0.02" "" "8.5,.23" "")
  2733. ;;; (command "_.SOLID" "8.35,.23" "8.65,.23" "8.5,.38" "" "")
  2734. ;;; ;;; Right microfilm alignment arrow
  2735. ;;; (command "_.PLINE" "16.62,5.5" "_W" "0.02" "" "16.52,5.5" "")
  2736. ;;; (command "_.SOLID" "16.52,5.35" "16.52,5.65" "16.38,5.5" "" "")
  2737. ;;; ;;; Top microfilm alignment arrow
  2738. ;;; (command "_.PLINE" "8.5,10.87" "_W" "0.02" "" "8.5,10.77" "")
  2739. ;;; (command "_.SOLID" "8.35,10.77" "8.65,10.77" "8.5,10.62" "" "")
  2740. ;;; ;;; Left microfilm alignment arrow
  2741. ;;; (command "_.PLINE" ".38,5.5" "_W" "0.02" "" ".48,5.5" "")
  2742. ;;; (command "_.SOLID" ".48,5.35" ".48,5.65" ".62,5.5" "" "")
  2743. ;;; ;;;
  2744. ;;; ;;; Title block
  2745. ;;; ;;;
  2746. ;;; ;;; Horizontals
  2747. ;;; (command "_.LINE" "10.13,.38"   "10.13,2.13"   "16.38,2.13" "")
  2748. ;;; (command "_.LINE" "10.13,.695"  "12.13,.695"   "")
  2749. ;;; (command "_.LINE" "10.13,1.01"  "16.38,1.01" "")
  2750. ;;; (command "_.LINE" "12.13,.63"   "16.38,.63"  "")
  2751. ;;; (command "_.LINE" "12.13,1.63"  "16.38,1.63" "")
  2752. ;;; ;;;
  2753. ;;; ;;; Verticals
  2754. ;;; (command "_.LINE" "12.13,0.38" "12.13,2.13"  "")
  2755. ;;; (command "_.LINE" "13.13,.38" "13.13,.63"   "")
  2756. ;;; (command "_.LINE" "14.63,.38" "14.63,.63"   "")
  2757. ;;; (command "_.LINE" "12.51,.63" "12.51,1.01"  "")
  2758. ;;; (command "_.LINE" "13.63,.63" "13.63,1.01"  "")
  2759. ;;; (command "_.LINE" "16,.63"    "16,1.01"     "")
  2760. ;;; ;;;
  2761. ;;; ;;; Text
  2762. ;;; (command "_.STYLE" "ADESK1" "romans" "0" "1.0" "0" "" "" "")
  2763. ;;; (command "_.TEXT" "12.1823,0.4725" "0.065" "0" "SCALE")
  2764. ;;; (command "_.TEXT" "14.6828,0.4725" "0.065" "0" "SHEET")
  2765. ;;; (command "_.TEXT" "12.2179,0.8959" "0.065" "0" "SIZE")
  2766. ;;; (command "_.TEXT" "12.5789,0.8959" "0.065" "0" "FSCM NO.")
  2767. ;;; (command "_.TEXT" "13.7010,0.8959" "0.065" "0" "DWG NO.")
  2768. ;;; (command "_.TEXT" "16.0805,0.8959" "0.065" "0" "REV")
  2769. ;;; ;;;
  2770. ;;; ;;; Revision bar
  2771. ;;; ;;;
  2772. ;;; ;;; Horizontals
  2773. ;;; (command "_.LINE" "10.88,10.37" "16.38,10.37" "")
  2774. ;;; (command "_.LINE" "10.88,10.12" "16.38,10.12" "")
  2775. ;;; ;;;
  2776. ;;; ;;; Verticals
  2777. ;;; (command "_.LINE" "10.88,10.62" "10.88,9.5727" "")
  2778. ;;; (command "_.LINE" "11.38,10.12" "11.38,10.37" "")
  2779. ;;; (command "_.LINE" "11.76,10.12" "11.76,10.37" "")
  2780. ;;; (command "_.LINE" "14.5,10.12" "14.5,10.37" "")
  2781. ;;; (command "_.LINE" "15.38,10.12" "15.38,10.37" "")
  2782. ;;; ;;;
  2783. ;;; ;;; Revision bar text
  2784. ;;; ;;;
  2785. ;;; (command "_.TEXT" "13.5902,10.4525" "0.065" "0" "REVISIONS")
  2786. ;;; (command "_.TEXT" "10.9887,10.2103" "0.065" "0" "ZONE")
  2787. ;;; (command "_.TEXT" "11.4601,10.2103" "0.065" "0" "REV")
  2788. ;;; (command "_.TEXT" "12.7620,10.2103" "0.065" "0" "DESCRIPTION")
  2789. ;;; (command "_.TEXT" "14.8277,10.2103" "0.065" "0" "DATE")
  2790. ;;; (command "_.TEXT" "15.6214,10.2103" "0.065" "0" "APPROVED")
  2791. ;;; END_ITEM
  2792. ;;;
  2793. ;;; An ANSI - C size sheet with Title block and revision bar.
  2794. ;;; All points are in paperspace units at a scale of 1 inch.
  2795. ;;;
  2796. ;;; NAME - ANSI-C ½¼╕╣ (in)
  2797. ;;; (command "_.ZOOM" "_W" "-0.5,-0.5" "22.5,17.5")
  2798. ;;; (command "_.LINE" "0,0" "22,0" "22,17" "0,17" "_C")
  2799. ;;; (command "_.LINE" ".5,.75" "21.5,.75" "21.5,16.25" ".5,16.25" "_C")
  2800. ;;; (command "_.LINE" "5.5,0.375" "5.5,0.75" "")
  2801. ;;; (command "_.ARRAY" (entlast) "" "_R" "2" "2" "15.875" "11")
  2802. ;;; (command "_.LINE" "0.125,4.25" "0.5,4.25" "")
  2803. ;;; (command "_.ARRAY" (entlast) "" "_R" "2" "2" "8.5" "21.375")
  2804. ;;; ;;;
  2805. ;;; ;;; Bottom microfilm alignment arrow
  2806. ;;; (command "_.PLINE" "11,.5" "_W" "0.02" "" "11,.6" "")
  2807. ;;; (command "_.SOLID" "10.85,.6" "11.15,.6" "11,.75" "" "")
  2808. ;;; ;;; Right microfilm alignment arrow
  2809. ;;; (command "_.PLINE" "21.75,8.5" "_W" "0.02" "" "21.65,8.5" "")
  2810. ;;; (command "_.SOLID" "21.65,8.35" "21.65,8.65" "21.5,8.5" "" "")
  2811. ;;; ;;; Top microfilm alignment arrow
  2812. ;;; (command "_.PLINE" "11,16.5" "_W" "0.02" "" "11,16.4" "")
  2813. ;;; (command "_.SOLID" "10.85,16.4" "11.15,16.4" "11,16.25" "" "")
  2814. ;;; ;;; Left microfilm alignment arrow
  2815. ;;; (command "_.PLINE" ".25,8.5" "_W" "0.02" "" ".35,8.5" "")
  2816. ;;; (command "_.SOLID" ".35,8.35" ".35,8.65" ".5,8.5" "" "")
  2817. ;;; ;;;
  2818. ;;; ;;; Title block
  2819. ;;; ;;;
  2820. ;;; ;;; Horizontals
  2821. ;;; (command "_.LINE" "15.25,0.75"   "15.25,2.5"   "21.50,2.5" "")
  2822. ;;; (command "_.LINE" "15.25,1.065"  "17.25,1.065"   "")
  2823. ;;; (command "_.LINE" "15.25,1.38"  "21.5,1.38" "")
  2824. ;;; (command "_.LINE" "17.25,1"   "21.5,1"  "")
  2825. ;;; (command "_.LINE" "17.25,2"  "21.5,2" "")
  2826. ;;; ;;;
  2827. ;;; ;;; Verticals
  2828. ;;; (command "_.LINE" "17.25,0.75" "17.25,2.5"  "")
  2829. ;;; (command "_.LINE" "18.25,0.75" "18.25,1"    "")
  2830. ;;; (command "_.LINE" "19.75,0.75" "19.75,1"    "")
  2831. ;;; (command "_.LINE" "17.63,1"    "17.63,1.38" "")
  2832. ;;; (command "_.LINE" "18.75,1"    "18.75,1.38" "")
  2833. ;;; (command "_.LINE" "21.12,1"    "21.12,1.38" "")
  2834. ;;; ;;;
  2835. ;;; ;;; Text
  2836. ;;; (command "_.STYLE" "ADESK1" "romans" "0" "1.0" "0" "" "" "")
  2837. ;;; (command "_.TEXT" "17.3023,0.8425" "0.065" "0" "SCALE")
  2838. ;;; (command "_.TEXT" "19.8028,0.8425" "0.065" "0" "SHEET")
  2839. ;;; (command "_.TEXT" "17.3379,1.2659" "0.065" "0" "SIZE")
  2840. ;;; (command "_.TEXT" "17.6989,1.2659" "0.065" "0" "FSCM NO.")
  2841. ;;; (command "_.TEXT" "18.8210,1.2659" "0.065" "0" "DWG NO.")
  2842. ;;; (command "_.TEXT" "21.2005,1.2659" "0.065" "0" "REV")
  2843. ;;; ;;;
  2844. ;;; ;;; Revision bar
  2845. ;;; ;;;
  2846. ;;; ;;; Horizontals
  2847. ;;; (command "_.LINE" "16,16" "21.5,16" "")
  2848. ;;; (command "_.LINE" "16,15.75" "21.5,15.75" "")
  2849. ;;; ;;;
  2850. ;;; ;;; Verticals
  2851. ;;; (command "_.LINE" "16,16.25" "16,15.2027" "")
  2852. ;;; (command "_.LINE" "16.5,15.75" "16.5,16" "")
  2853. ;;; (command "_.LINE" "16.88,15.75" "16.88,16" "")
  2854. ;;; (command "_.LINE" "19.62,15.75" "19.62,16" "")
  2855. ;;; (command "_.LINE" "20.5,15.75" "20.5,16" "")
  2856. ;;; ;;;
  2857. ;;; ;;; Revision bar text
  2858. ;;; ;;;
  2859. ;;; (command "_.TEXT" "18.7102,16.0825" "0.065" "0" "REVISIONS")
  2860. ;;; (command "_.TEXT" "16.1087,15.8403" "0.065" "0" "ZONE")
  2861. ;;; (command "_.TEXT" "16.5801,15.8403" "0.065" "0" "REV")
  2862. ;;; (command "_.TEXT" "17.8820,15.8403" "0.065" "0" "DESCRIPTION")
  2863. ;;; (command "_.TEXT" "19.9477,15.8403" "0.065" "0" "DATE")
  2864. ;;; (command "_.TEXT" "20.7414,15.8403" "0.065" "0" "APPROVED")
  2865. ;;; ;;;
  2866. ;;; (command "_.TEXT" "_MC"  "0.25,2.125"  "0.25" "0" "A")
  2867. ;;; (command "_.TEXT" "_MC"  "0.25,6.375"  "0.25" "0" "B")
  2868. ;;; (command "_.TEXT" "_MC"  "0.25,10.625" "0.25" "0" "C")
  2869. ;;; (command "_.TEXT" "_MC"  "0.25,14.875" "0.25" "0" "D")
  2870. ;;; (command "_.TEXT" "_MC" "21.75,2.125"  "0.25" "0" "A")
  2871. ;;; (command "_.TEXT" "_MC" "21.75,6.375"  "0.25" "0" "B")
  2872. ;;; (command "_.TEXT" "_MC" "21.75,10.625" "0.25" "0" "C")
  2873. ;;; (command "_.TEXT" "_MC" "21.75,14.875" "0.25" "0" "D")
  2874. ;;; ;;;
  2875. ;;; (command "_.TEXT" "_MC" "19.25,0.5"    "0.25" "0" "1")
  2876. ;;; (command "_.TEXT" "_MC" "13.75,0.5"    "0.25" "0" "2")
  2877. ;;; (command "_.TEXT" "_MC"  "8.25,0.5"    "0.25" "0" "3")
  2878. ;;; (command "_.TEXT" "_MC"  "2.75,0.5"    "0.25" "0" "4")
  2879. ;;; ;;;
  2880. ;;; (command "_.TEXT" "_MC" "19.25,16.5"   "0.25" "0" "1")
  2881. ;;; (command "_.TEXT" "_MC" "13.75,16.5"   "0.25" "0" "2")
  2882. ;;; (command "_.TEXT" "_MC"  "8.25,16.5"   "0.25" "0" "3")
  2883. ;;; (command "_.TEXT" "_MC"  "2.75,16.5"   "0.25" "0" "4")
  2884. ;;; END_ITEM
  2885. ;;;
  2886. ;;; An ANSI - D size sheet with Title block and revision bar.
  2887. ;;; All points are in paperspace units at a scale of 1 inch.
  2888. ;;;
  2889. ;;; NAME - ANSI-D ½¼╕╣ (in)
  2890. ;;; (command "_.ZOOM" "_W" "-0.5,-0.5" "34.5,22.5")
  2891. ;;; (command "_.LINE" "0,0" "34,0" "34,22" "0,22" "_C")
  2892. ;;; (command "_.LINE" "1,.5" "33,.5" "33,21.5" "1,21.5" "_C")
  2893. ;;; (command "_.LINE" "4.25,.125" "4.25,.5" "")
  2894. ;;; (command "_.ARRAY" (entlast) "" "_R" "2" "8" "21.375" "4.25")
  2895. ;;; (command "_.LINE" ".5,5.5" "1,5.5" "")
  2896. ;;; (command "_.ARRAY" (entlast) "" "_R" "3" "2" "5.5" "32.5")
  2897. ;;; ;;;
  2898. ;;; ;;; Bottom microfilm alignment arrow
  2899. ;;; (command "_.PLINE" "17,.1" "_W" "0.02" "" "17,.3" "")
  2900. ;;; (command "_.SOLID" "16.8,.3" "17.2,.3" "17,.5" "" "")
  2901. ;;; ;;; Right microfilm alignment arrow
  2902. ;;; (command "_.PLINE" "33.4,11" "_W" "0.02" "" "33.4,11" "")
  2903. ;;; (command "_.SOLID" "33.2,10.8" "33.2,11.2" "33,11" "" "")
  2904. ;;; ;;; Top microfilm alignment arrow
  2905. ;;; (command "_.PLINE" "17,21.9" "_W" "0.02" "" "17,21.7" "")
  2906. ;;; (command "_.SOLID" "16.8,21.7" "17.2,21.7" "17,21.5" "" "")
  2907. ;;; ;;; Left microfilm alignment arrow
  2908. ;;; (command "_.PLINE" ".6,11" "_W" "0.02" "" ".8,11" "")
  2909. ;;; (command "_.SOLID" ".8,10.8" ".8,11.2" "1,11" "" "")
  2910. ;;; ;;;
  2911. ;;; ;;;
  2912. ;;; ;;; Title block
  2913. ;;; ;;;
  2914. ;;; (command "_.LINE" "25.38,.5" "25.38,3" "33,3" "")
  2915. ;;; (command "_.LINE" "27.88,.5" "27.88,3" "")
  2916. ;;; (command "_.LINE" "27.88,.75" "33,.75" "")
  2917. ;;; (command "_.LINE" "25.38,1.25" "33,1.25" "")
  2918. ;;; (command "_.LINE" "27.88,2.37" "33,2.37" "")
  2919. ;;; (command "_.LINE" "25.38,.875" "27.88,.875" "")
  2920. ;;; ;;;
  2921. ;;; (command "_.LINE" "28.87,.5" "28.87,.75" "")
  2922. ;;; (command "_.LINE" "31.25,.5" "31.25,.75" "")
  2923. ;;; (command "_.LINE" "28.26,.75" "28.26,1.25" "")
  2924. ;;; (command "_.LINE" "29.51,.75" "29.51,1.25" "")
  2925. ;;; (command "_.LINE" "32.5,.75" "32.5,1.25" "")
  2926. ;;; ;;;
  2927. ;;; (command "_.STYLE" "ADESK1" "romans" "0" "1.0" "0" "" "" "")
  2928. ;;; (command "_.TEXT" "27.9323,0.5925" "0.065" "0" "SCALE")
  2929. ;;; (command "_.TEXT" "31.3028,0.5925" "0.065" "0" "SHEET")
  2930. ;;; (command "_.TEXT" "27.9679,1.1359" "0.065" "0" "SIZE")
  2931. ;;; (command "_.TEXT" "28.3289,1.1359" "0.065" "0" "FSCM NO.")
  2932. ;;; (command "_.TEXT" "29.5810,1.1359" "0.065" "0" "DWG NO.")
  2933. ;;; (command "_.TEXT" "32.6405,1.1359" "0.065" "0" "REV")
  2934. ;;; ;;;
  2935. ;;; ;;; Revision bar
  2936. ;;; ;;;
  2937. ;;; ;;; Horizontals
  2938. ;;; (command "_.LINE" "26,21.25" "33,21.25" "")
  2939. ;;; (command "_.LINE" "26,21" "33,21" "")
  2940. ;;; ;;;
  2941. ;;; ;;; Verticals
  2942. ;;; (command "_.LINE" "26,20.4527" "26,21.5" "")
  2943. ;;; (command "_.LINE" "26.5,21"  "26.5,21.25" "")
  2944. ;;; (command "_.LINE" "26.88,21" "26.88,21.25" "")
  2945. ;;; (command "_.LINE" "31.12,21" "31.12,21.25" "")
  2946. ;;; (command "_.LINE" "32,21"    "32,21.25" "")
  2947. ;;; ;;;
  2948. ;;; ;;; Revision bar text
  2949. ;;; ;;;
  2950. ;;; (command "_.TEXT" "29.5746,21.3325" "0.065" "0" "REVISIONS")
  2951. ;;; (command "_.TEXT" "26.1087,21.0903" "0.065" "0" "ZONE")
  2952. ;;; (command "_.TEXT" "26.5801,21.0903" "0.065" "0" "REV")
  2953. ;;; (command "_.TEXT" "28.7464,21.0903" "0.065" "0" "DESCRIPTION")
  2954. ;;; (command "_.TEXT" "31.4477,21.0903" "0.065" "0" "DATE")
  2955. ;;; (command "_.TEXT" "32.2477,21.0903" "0.065" "0" "APPROVED")
  2956. ;;; ;;;
  2957. ;;; (command "_.TEXT" "_MC"  "0.5,2.75" "0.25" "0" "A")
  2958. ;;; (command "_.TEXT" "_MC"  "0.5,8.25" "0.25" "0" "B")
  2959. ;;; (command "_.TEXT" "_MC"  "0.5,13.75" "0.25" "0" "C")
  2960. ;;; (command "_.TEXT" "_MC"  "0.5,19.25" "0.25" "0" "D")
  2961. ;;; (command "_.TEXT" "_MC" "33.5,2.75" "0.25" "0" "A")
  2962. ;;; (command "_.TEXT" "_MC" "33.5,8.25" "0.25" "0" "B")
  2963. ;;; (command "_.TEXT" "_MC" "33.5,13.75" "0.25" "0" "C")
  2964. ;;; (command "_.TEXT" "_MC" "33.5,19.25" "0.25" "0" "D")
  2965. ;;; ;;;
  2966. ;;; (command "_.TEXT" "_MC" "2.125,0.25"  "0.25" "0" "8")
  2967. ;;; (command "_.TEXT" "_MC" "6.375,0.25"  "0.25" "0" "7")
  2968. ;;; (command "_.TEXT" "_MC" "10.625,0.25"  "0.25" "0" "6")
  2969. ;;; (command "_.TEXT" "_MC" "14.875,0.25"  "0.25" "0" "5")
  2970. ;;; (command "_.TEXT" "_MC" "19.125,0.25"  "0.25" "0" "4")
  2971. ;;; (command "_.TEXT" "_MC" "23.375,0.25"  "0.25" "0" "3")
  2972. ;;; (command "_.TEXT" "_MC" "27.625,0.25"  "0.25" "0" "2")
  2973. ;;; (command "_.TEXT" "_MC" "31.875,0.25"  "0.25" "0" "1")
  2974. ;;; ;;;
  2975. ;;; (command "_.TEXT" "_MC" "2.125,21.75"  "0.25" "0" "8")
  2976. ;;; (command "_.TEXT" "_MC" "6.375,21.75"  "0.25" "0" "7")
  2977. ;;; (command "_.TEXT" "_MC" "10.625,21.75"  "0.25" "0" "6")
  2978. ;;; (command "_.TEXT" "_MC" "14.875,21.75"  "0.25" "0" "5")
  2979. ;;; (command "_.TEXT" "_MC" "19.125,21.75"  "0.25" "0" "4")
  2980. ;;; (command "_.TEXT" "_MC" "23.375,21.75"  "0.25" "0" "3")
  2981. ;;; (command "_.TEXT" "_MC" "27.625,21.75"  "0.25" "0" "2")
  2982. ;;; (command "_.TEXT" "_MC" "31.875,21.75"  "0.25" "0" "1")
  2983. ;;; END_ITEM
  2984. ;;;
  2985. ;;; An ANSI - E size sheet with Title block and revision bar.
  2986. ;;; All points are in paperspace units at a scale of 1 inch.
  2987. ;;;
  2988. ;;; NAME - ANSI-E ½¼╕╣ (in)
  2989. ;;; (command "_.ZOOM" "_W" "-0.5,-0.5" "44.5,34.5")
  2990. ;;; (command "_.LINE" "0,0" "44,0" "44,34" "0,34" "_C")
  2991. ;;; (command "_.LINE" ".5,1" "43.5,1" "43.5,33" ".5,33" "_C")
  2992. ;;; (command "_.LINE" "5.5,.5" "5.5,1" "")
  2993. ;;; (command "_.ARRAY" (entlast) "" "_R" "2" "8" "32.5" "5.5")
  2994. ;;; (command "_.LINE" ".125,4.25" ".5,4.25" "")
  2995. ;;; (command "_.ARRAY" (entlast) "" "_R" "7" "2" "4.25" "43.375")
  2996. ;;; ;;;
  2997. ;;; ;;; Bottom microfilm alignment arrow
  2998. ;;; (command "_.PLINE" "22,.6" "_W" "0.02" "" "22,.8" "")
  2999. ;;; (command "_.SOLID" "21.8,.8" "22.2,.8" "22,1" "" "")
  3000. ;;; ;;; Right microfilm alignment arrow
  3001. ;;; (command "_.PLINE" "43.9,17" "_W" "0.02" "" "43.7,17" "")
  3002. ;;; (command "_.SOLID" "43.7,16.8" "43.7,17.2" "43.5,17" "" "")
  3003. ;;; ;;; Top microfilm alignment arrow
  3004. ;;; (command "_.PLINE" "22,33.4" "_W" "0.02" "" "22,33.2" "")
  3005. ;;; (command "_.SOLID" "21.8,33.2" "22.2,33.2" "22,33" "" "")
  3006. ;;; ;;; Left microfilm alignment arrow
  3007. ;;; (command "_.PLINE" ".1,17" "_W" "0.02" "" ".3,17" "")
  3008. ;;; (command "_.SOLID" ".3,16.8" ".3,17.2" ".5,17" "" "")
  3009. ;;; ;;;
  3010. ;;; ;;;
  3011. ;;; ;;; Title block
  3012. ;;; ;;;
  3013. ;;; (command "_.LINE" "35.88,1" "35.88,3.5" "43.5,3.5" "")
  3014. ;;; (command "_.LINE" "35.88,1.375" "38.38,1.375" "")
  3015. ;;; (command "_.LINE" "35.88,1.75" "43.5,1.75" "")
  3016. ;;; (command "_.LINE" "38.38,1.25" "43.5,1.25" "")
  3017. ;;; (command "_.LINE" "38.38,2.87" "43.5,2.87" "")
  3018. ;;; ;;;
  3019. ;;; (command "_.LINE" "38.38,1" "38.38,3.5" "")
  3020. ;;; (command "_.LINE" "39.37,1" "39.37,1.25" "")
  3021. ;;; (command "_.LINE" "41.75,1" "41.75,1.25" "")
  3022. ;;; (command "_.LINE" "38.76,1.25" "38.76,1.75" "")
  3023. ;;; (command "_.LINE" "40.01,1.25" "40.01,1.75" "")
  3024. ;;; (command "_.LINE" "43,1.25" "43,1.75" "")
  3025. ;;; ;;;
  3026. ;;; (command "_.STYLE" "ADESK1" "romans" "0" "1.0" "0" "" "" "")
  3027. ;;; (command "_.TEXT" "38.4323,1.0925" "0.065" "0" "SCALE")
  3028. ;;; (command "_.TEXT" "41.8028,1.0925" "0.065" "0" "SHEET")
  3029. ;;; (command "_.TEXT" "38.4679,1.6359" "0.065" "0" "SIZE")
  3030. ;;; (command "_.TEXT" "38.8289,1.6359" "0.065" "0" "FSCM NO.")
  3031. ;;; (command "_.TEXT" "40.0810,1.6359" "0.065" "0" "DWG NO.")
  3032. ;;; (command "_.TEXT" "43.1405,1.6359" "0.065" "0" "REV")
  3033. ;;; ;;;
  3034. ;;; ;;; Revision bar
  3035. ;;; ;;;
  3036. ;;; ;;; Horizontals
  3037. ;;; (command "_.LINE" "36.5,32.75" "43.5,32.75" "")
  3038. ;;; (command "_.LINE" "36.5,32.5" "43.5,32.5" "")
  3039. ;;; ;;;
  3040. ;;; ;;; Verticals
  3041. ;;; (command "_.LINE" "36.5,31.9527" "36.5,33" "")
  3042. ;;; (command "_.LINE" "37,32.5"    "37,32.75" "")
  3043. ;;; (command "_.LINE" "37.38,32.5" "37.38,32.75" "")
  3044. ;;; (command "_.LINE" "41.62,32.5" "41.62,32.75" "")
  3045. ;;; (command "_.LINE" "42.5,32.5"  "42.5,32.75" "")
  3046. ;;; ;;;
  3047. ;;; ;;; Revision bar text
  3048. ;;; ;;;
  3049. ;;; (command "_.TEXT" "40.0746,32.8325" "0.065" "0" "REVISIONS")
  3050. ;;; (command "_.TEXT" "36.6087,32.5903" "0.065" "0" "ZONE")
  3051. ;;; (command "_.TEXT" "37.0801,32.5903" "0.065" "0" "REV")
  3052. ;;; (command "_.TEXT" "39.2464,32.5903" "0.065" "0" "DESCRIPTION")
  3053. ;;; (command "_.TEXT" "41.9477,32.5903" "0.065" "0" "DATE")
  3054. ;;; (command "_.TEXT" "42.7477,32.5903" "0.065" "0" "APPROVED")
  3055. ;;; ;;;
  3056. ;;; (command "_.TEXT" "_MC" "0.25,2.125"  "0.25" "0" "A")
  3057. ;;; (command "_.TEXT" "_MC" "0.25,6.375"  "0.25" "0" "B")
  3058. ;;; (command "_.TEXT" "_MC" "0.25,10.625" "0.25" "0" "C")
  3059. ;;; (command "_.TEXT" "_MC" "0.25,14.875" "0.25" "0" "D")
  3060. ;;; (command "_.TEXT" "_MC" "0.25,19.125" "0.25" "0" "E")
  3061. ;;; (command "_.TEXT" "_MC" "0.25,23.375" "0.25" "0" "F")
  3062. ;;; (command "_.TEXT" "_MC" "0.25,27.625" "0.25" "0" "G")
  3063. ;;; (command "_.TEXT" "_MC" "0.25,31.875" "0.25" "0" "H")
  3064. ;;; ;;;
  3065. ;;; (command "_.TEXT" "_MC" "43.75,2.125"  "0.25" "0" "A")
  3066. ;;; (command "_.TEXT" "_MC" "43.75,6.375"  "0.25" "0" "B")
  3067. ;;; (command "_.TEXT" "_MC" "43.75,10.625" "0.25" "0" "C")
  3068. ;;; (command "_.TEXT" "_MC" "43.75,14.875" "0.25" "0" "D")
  3069. ;;; (command "_.TEXT" "_MC" "43.75,19.125" "0.25" "0" "E")
  3070. ;;; (command "_.TEXT" "_MC" "43.75,23.375" "0.25" "0" "F")
  3071. ;;; (command "_.TEXT" "_MC" "43.75,27.625" "0.25" "0" "G")
  3072. ;;; (command "_.TEXT" "_MC" "43.75,31.875" "0.25" "0" "H")
  3073. ;;; ;;;
  3074. ;;; (command "_.TEXT" "_MC" "2.75,0.5"  "0.25" "0" "8")
  3075. ;;; (command "_.TEXT" "_MC" "8.25,0.5"  "0.25" "0" "7")
  3076. ;;; (command "_.TEXT" "_MC" "13.75,0.5"  "0.25" "0" "6")
  3077. ;;; (command "_.TEXT" "_MC" "19.25,0.5"  "0.25" "0" "5")
  3078. ;;; (command "_.TEXT" "_MC" "24.75,0.5"  "0.25" "0" "4")
  3079. ;;; (command "_.TEXT" "_MC" "30.25,0.5"  "0.25" "0" "3")
  3080. ;;; (command "_.TEXT" "_MC" "35.75,0.5"  "0.25" "0" "2")
  3081. ;;; (command "_.TEXT" "_MC" "41.25,0.5"  "0.25" "0" "1")
  3082. ;;; ;;;
  3083. ;;; (command "_.TEXT" "_MC" "2.75,33.5"  "0.25" "0" "8")
  3084. ;;; (command "_.TEXT" "_MC" "8.25,33.5"  "0.25" "0" "7")
  3085. ;;; (command "_.TEXT" "_MC" "13.75,33.5"  "0.25" "0" "6")
  3086. ;;; (command "_.TEXT" "_MC" "19.25,33.5"  "0.25" "0" "5")
  3087. ;;; (command "_.TEXT" "_MC" "24.75,33.5"  "0.25" "0" "4")
  3088. ;;; (command "_.TEXT" "_MC" "30.25,33.5"  "0.25" "0" "3")
  3089. ;;; (command "_.TEXT" "_MC" "35.75,33.5"  "0.25" "0" "2")
  3090. ;;; (command "_.TEXT" "_MC" "41.25,33.5"  "0.25" "0" "1")
  3091. ;;; END_ITEM
  3092. ;;;
  3093. ;;; A sample Architectural 24 x 36 sheet with Title block and revision bar.
  3094. ;;; All points are in paperspace units at a scale of 1 inch.
  3095. ;;;
  3096. ;;; NAME - ½╪┐v/ñu╡{ (24 x 36)
  3097. ;;; (command "_.ZOOM" "_W" "-0.5,-0.5" "36.5,24.5")
  3098. ;;; (command "_.LINE" "0,0" "36,0" "36,24" "0,24" "_C")
  3099. ;;; ;;; Outer border line
  3100. ;;; (command "_.PLINE" ".5,.5" "_W" "0.1" "" "35.5,.5" "35.5,23.5" ".5,23.5" "_C")
  3101. ;;; (command "_.FILLET" "_R" "1")
  3102. ;;; (command "_.FILLET" "_P" "l")
  3103. ;;; ;;;
  3104. ;;; ;;; Title block
  3105. ;;; ;;;
  3106. ;;; ;;; Outer border line
  3107. ;;; (command "_.PLINE" "31,1" "_W" "0.05" "" "35,1" "35,23" "31,23" "_C")
  3108. ;;; (command "_.FILLET" "_R" ".5")
  3109. ;;; (command "_.FILLET" "_P" "l")
  3110. ;;; ;;;
  3111. ;;; ;;; Sheet No. border line
  3112. ;;; (command "_.PLINE" "31.25,1.25" "34.75,1.25" "34.75,2.75" "31.25,2.75" "_C")
  3113. ;;; (command "_.FILLET" "_R" ".25")
  3114. ;;; (command "_.FILLET" "_P" "l")
  3115. ;;; ;;;
  3116. ;;; ;;; Project border line
  3117. ;;; (command "_.PLINE" "31.25,3" "34.75,3" "34.75,5" "31.25,5" "_C")
  3118. ;;; (command "_.FILLET" "_P" "l")
  3119. ;;; ;;;
  3120. ;;; ;;; Firm border line
  3121. ;;; (command "_.PLINE" "31.25,5.25" "34.75,5.25" "34.75,7.25" "31.25,7.25" "_C")
  3122. ;;; (command "_.FILLET" "_P" "l")
  3123. ;;; ;;;
  3124. ;;; ;;; Notes/Revisions border line
  3125. ;;; (command "_.PLINE" "31.25,7.5" "34.75,7.5" "34.75,22.75" "31.25,22.75" "_C")
  3126. ;;; (command "_.FILLET" "_P" "l")
  3127. ;;; ;;;
  3128. ;;; ;;; Sheet No. lines
  3129. ;;; (command "_.PLINE" "33.25,1.25" "_W" "0.025" "" "33.25,2.75" "")
  3130. ;;; (command "_.PLINE" "31.25,2.25" "33.25,2.25" "")
  3131. ;;; (command "_.PLINE" "31.25,1.75" "33.25,1.75" "")
  3132. ;;; ;;;
  3133. ;;; ;;; Notes/Revisions lines
  3134. ;;; (command "_.PLINE" "31.75,7.5"   "31.75,8.625" "")
  3135. ;;; (command "_.PLINE" "34.125,7.5"  "34.125,8.625" "")
  3136. ;;; (command "_.PLINE" "31.25,7.875" "34.75,7.875" "")
  3137. ;;; (command "_.PLINE" "31.25,8.25"  "34.75,8.25" "")
  3138. ;;; (command "_.PLINE" "31.25,8.625" "34.75,8.625" "")
  3139. ;;; ;;;
  3140. ;;; (command "_.PLINE" "31.25,22.375" "34.75,22.375" "")
  3141. ;;; ;;;
  3142. ;;; ;;; Sheet text
  3143. ;;; (command "_.STYLE" "ADESK1" "romans" "0" "1.0" "0" "" "" "")
  3144. ;;; (command "_.TEXT" "31.4054,7.0711" "0.065" "0" "Firm Name and Address")
  3145. ;;; (command "_.TEXT" "31.4054,4.8211" "0.065" "0" "Project Name and Address")
  3146. ;;; (command "_.TEXT" "31.4054,2.5846" "0.065" "0" "Project")
  3147. ;;; (command "_.TEXT" "33.3899,2.5846" "0.065" "0" "Sheet")
  3148. ;;; (command "_.TEXT" "31.4054,2.0989" "0.065" "0" "Date")
  3149. ;;; (command "_.TEXT" "31.4054,1.6132" "0.065" "0" "Scale")
  3150. ;;; ;;;
  3151. ;;; ;;; Revision bar text
  3152. ;;; ;;;
  3153. ;;; (command "_.TEXT" "_MC" "32.9983,22.5578" "0.1" "0" "General Notes")
  3154. ;;; (command "_.TEXT" "_MC" "31.5136,7.7034" "0.1" "0" "No.")
  3155. ;;; (command "_.TEXT" "_MC" "32.9983,7.7034" "0.1" "0" "Revision/Issue")
  3156. ;;; (command "_.TEXT" "_MC" "34.4338,7.7034" "0.1" "0" "Date")
  3157. ;;; ;;;
  3158. ;;; END_ITEM
  3159. ;;;
  3160. ;;; A generic 24 x 36 sheet with Title block and revision bar.
  3161. ;;; All points are in paperspace units at a scale of 1 inch.
  3162. ;;;
  3163. ;;; NAME - ñ@»δ D ½¼╕╣╣╧»╚ (24 x 36in)
  3164. ;;; (command "_.ZOOM" "_W" "-0.5,-0.5" "36.5,24.5")
  3165. ;;; (command "_.PLINE" "0,2" "0,0" "2,0" "")
  3166. ;;; (command "_.PLINE" "0,22" "0,24" "2,24" "")
  3167. ;;; (command "_.PLINE" "34,24" "36,24" "36,22" "")
  3168. ;;; (command "_.PLINE" "34,0" "36,0" "36,2" "")
  3169. ;;; ;;; Outer border line
  3170. ;;; (command "_.PLINE" "1.5,1.25" "33.75,1.25" "33.75,22.75" "1.5,22.75" "_C")
  3171. ;;; ;;;
  3172. ;;; ;;; Title block
  3173. ;;; ;;;
  3174. ;;; ;;; Outer border line
  3175. ;;; (command "_.PLINE" "33.875,1.25" "35.5,1.25" "35.5,22.75" "33.875,22.75" "_C")
  3176. ;;; ;;;
  3177. ;;; (command "_.LINE" "33.875,2.5693" "35.5,2.5693" "")
  3178. ;;; (command "_.LINE" "33.875,2.9443" "35.5,2.9443" "")
  3179. ;;; (command "_.LINE" "33.875,3.3193" "35.5,3.3193" "")
  3180. ;;; (command "_.LINE" "33.875,3.6943" "35.5,3.6943" "")
  3181. ;;; (command "_.LINE" "33.875,4.0693" "35.5,4.0693" "")
  3182. ;;; (command "_.LINE" "33.875,20.5" "35.5,20.5" "")
  3183. ;;; (command "_.LINE" "33.875,20.75" "35.5,20.75" "")
  3184. ;;; (command "_.LINE" "33.875,21" "35.5,21" "")
  3185. ;;; (command "_.LINE" "33.875,21.25" "35.5,21.25" "")
  3186. ;;; (command "_.LINE" "33.875,21.5" "35.5,21.5" "")
  3187. ;;; (command "_.LINE" "33.875,21.75" "35.5,21.75" "")
  3188. ;;; (command "_.LINE" "33.875,22" "35.5,22" "")
  3189. ;;; (command "_.LINE" "33.875,22.375" "35.5,22.375" "")
  3190. ;;; ;;;
  3191. ;;; (command "_.LINE" "35.125,20.5" "35.125,22.375" "")
  3192. ;;; ;;;
  3193. ;;; END_ITEM
  3194. ;;; END_DATA
  3195. ;;;
  3196. ;;; MVIEWS
  3197. ;;; ╡L, 0, 0
  3198. ;;; │µñ@, 1, 1, PLAN
  3199. ;;; ╝╨╖╟¬║íuñu╡{Ñ╬│~ív«µªí, 2, 2, FRONT, PLAN, RIGHT, ISO
  3200. ;;; ╡°╡í░}ªC
  3201. ;;; END_MVIEWS
  3202. ;;;
  3203. ;;; VPSETNAME  - │µñ@
  3204. ;;; (command ".mview" ll_crn ur_crn)
  3205. ;;; END_ITEM
  3206. ;;; VPSETNAME  - ╝╨╖╟¬║íuñu╡{Ñ╬│~ív«µªí
  3207. ;;; END_ITEM
  3208. ;;; VPSETNAME  - ╡°╡í░}ªC
  3209. ;;; END_ITEM
  3210. ;;;
  3211. ;;; END_DATA
  3212. ;;;
  3213. (princ "  íuMVSETUPívñw╕ⁿñJíC")
  3214. (princ)
  3215.