Leaderboard

Top down is usually how things flow. I guess you got an undo lisp now. 2Poly.mp4 2Poly.lsp

Using layouts is the way to go you can automate their creation in many ways, as it sounds like you have multiple objects in MODEL that need to be plotted on a single sheet. A simple approach using a single company title block of fixed size, the obvious is getting the mview to match an area of model at correct scale. So why not enter desired scale then pick approx center point, hey all done. Its not that hard to show that to others, the next part of this is plot layouts setup for your company standards.

Do you use Autoload function ? (autoload "COPY0" '("COPY0")) (autoload "COPYCOMMAND" '("ZZZ")) (autoload "COVER" '("COVER")) (autoload "DIMFLIP" '("DIMFLIP")) (autoload "DRAWXFALL" '("DRAWXFALL"))

Hi Steven P., I appreciate your wealth of comments. Perhaps the following points may better illustrate the constraints that I face and why this path has been chosen. CURRENT USER AUDIENCE Starting at a company where most users are very experienced within the industry. Some have worked since the board drafting era. The advantages in the tools of DWG-based applications that I have set up at other companies in other industries have never been utilized. This includes layout usage. LAYOUT ADVANTAGES CONFIRMED I set up and leveraged the advantages of the layout (formerly paper space) in AutoCAD that were adopted into my past employer's design department workflow since its inception. I believe that was in or around 2000 - if I am not mistaken. I am a fan of layouts! DRAWING ORGANIZATION - CURRENT SITUATION With all the above in mind, I turn to our typical multi-drawing, model space-based CAD file. So, for storing our detail drawing collections, we utilize a single CAD file for each collection. Each collection contains detail drawings that are arranged by topic and grouped into rows with as many as fifty detail drawings in each row. INTENDED DRAWING USE Ultimately, these detail drawings are used by another specialized design software only. These drawings are not intended for use outside of this design software. The software has specific file format and content limitations. Limitations include: Each detail drawing is saved as an ASCII DXF file. All elements are migrated to layer zero while maintaining object-specific properties (automation was applied here as developed by a CAD forum member ). AUTOMATION GOALS To streamline the exporting of each detail drawing into an individual file in either DXF, DWG , or PDF file format. INITIAL OBJECTIVE To determine what type of data such as layer-based and/or polygonal drawing frame sizes that can be leveraged in order for the program to select each of the detail drawings by row. Thanks, Clint

Thanks so much Mr. PDuMont, this is exactly what i want... this is working fine for me

Hi hibba, See if this works for you. Use it just like the standard dimcontinue: ;; DimAlignedContinue ;; (defun c:DAC ( / *error* doc point1 point2 ) (defun *error* (msg) (if (and msg (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*")) ) (princ (strcat "\nError: " msg)) ) (if doc (vla-endundomark doc) ) (princ) ) ;_ end of defun (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (setq point1 (getpoint "\nSpecify first extension line origin:")) (while (setq point2 (getpoint "\nSpecify second extension line origin:")) (command "_.dimaligned" point1 point2 pause) (setq point1 point2) ) ;_ end of while (vla-endundomark doc) (princ) ) ;_ end of defun (vl-load-com)