Leaderboard

@saunambon654 Please give it a try Please report any error strip-poly.LSP

Hi Bigal, That is exactly what I did and the lisp below works great for me. I tested it on a 128 sheet document and it took less than 2 min to zoom in place the background, and capture the map. (defun c:go ( / ) (vl-load-com) (( / app ctb doc ) (setq app (vlax-get-acad-object) doc (vla-get-activedocument app) ctb (getvar 'ctab) ) (foreach tab (layoutlist) (setvar 'ctab tab) (vla-put-mspace doc :vlax-false) (vla-zoomextents app) (vl-cmdf "_mspace") (vl-cmdf "_geomap" "_H") (vl-cmdf "_geomapimage" "_v") (vl-cmdf "_geomap" "_Off") ;remove the ; at the very start of this line and this line will turn off the map, leaving only the captured image. ) ) (setvar 'ctab ctb) (princ) ) (vl-load-com) (princ)

Wilda no need to change directories, just add to the support paths list then programs will be found automatically. Config Files Support path.

Code working on at moment is 1100 lines and getting bigger, would be interested in how AI would work in that case writing the defuns with lots of if's and buts required.

You'll have to check this but comment out these ( use a ; at the beginning of the line) and it should create a line on top of the original ;; (vl-catch-all-apply 'vla-offset (list o d)) ;; (vl-catch-all-apply 'vla-offset (list o (- d))) ;; (vla-delete o)

I have a really old routine that will add & subtract object values, but I was inspired by this thread to write a new one. Allows user to combine [Add, Divide, Multiply, Subtract] values of selected objects. User can also change mode (Add, Divide, Multiply, Subtract) at any time. When finished, user is prompted for placement point of MText with final value. If only Add option used, user has option to average values. Accepted: Attribute, Civil 3D Point, Land Desktop Point, MText, MultiLeader, Text or typed value. Call with CombineValues or AV. Your comments/criticism are greatly appreciated. Enjoy. ;;; ------------------------------------------------------------------------ ;;; CombineValues.lsp v1.2 ;;; ;;; Copyright© 04.09.10 ;;; Alan J. Thompson (alanjt) ;;; ;;; Contact: alanjt @ TheSwamp.org, CADTutor.net ;;; ;;; Permission to use, copy, modify, and distribute this software ;;; for any purpose and without fee is hereby granted, provided ;;; that the above copyright notice appears in all copies and ;;; that both that copyright notice and the limited warranty and ;;; restricted rights notice below appear in all supporting ;;; documentation. ;;; ;;; The following program(s) are provided "as is" and with all faults. ;;; Alan J. Thompson DOES NOT warrant that the operation of the program(s) ;;; will be uninterrupted and/or error free. ;;; ;;; Allows user to combine extracted numerical values of selected Attribute, ;;; Civil 3D Point, Land Desktop Point, MText, MultiLeader, Text or typed value. ;;; ;;; Combine options include: Add, Divide, Multiply, Subtract (can be changed at any time). ;;; If user only adds values, an option to average is available. ;;; Upon completion, user is prompted to specify placement point MText with final value. ;;; ;;; Revision History: ;;; ;;; v1.1 (04.11.10) 1. Updated subroutine: AT:ExtractNumbers ;;; ;;; v1.2 (04.13.10) 1. Reworked AT:ExtractNumbers subroutine. ;;; 2. Added subroutine AT:ListSelect to select numbers when multiple exist in string. ;;; 3. If multiple numbers exist in string, user is prompted with list box ;;; to select each desired number. If multiple numbers are selected, they are ;;; combined and added to display. ;;; 4. Added CV:StripFormat subroutine, as taken from StripMText 5.0b, ;;; Copyright© Steve Doman and Joe Burke 2010 (with permission), to avoid any ;;; issues with extracting numbers out text formatting. (Thank you Joe & Steve) ;;; ;;; ------------------------------------------------------------------------ CombineValues.LSP