Leaderboard

A tin can take into account stuff like breaklines where as a grid normally does not. A grid misses true survey points.

See also: http://cadpanacea.com/wp/?p=1003

Sorry should have made that clearer. I agreed! There are no absolutes though. For a fancy N for a North Arrow block without adding another Text Style to any drawing it's inserted in is one. Thanks again for all the code like Steal from Drawings I use every day. Being able to quickly add whatever size layout I need with title block and Plot Styles for both plotting and sending to PDF. ^C^C^P(Steal (strcat (vl-filename-directory (getenv "QnewTemplate")) (chr 92) "AutoCAD Template" (chr 92) "TemplateBlks.dwt") (list (list "Page Setups" (list "11×17" "11×17 PDF"))(list "Layouts" (list "11×17"))))(load "Glblattchg.lsp")(Glblattchg "11×17" "#P" "Layouts") .regen With code from you and others whenever I add or move layouts around page numbers and number of pages automatically update. With a few clicks I select whoever's signature is required and fill in most of the attributes. Like to think I've contributed online as well but am forever grateful for all the help and code I've gotten from forums like this.

YES! just what i need! thank you sir! this is a big help

Try this, note you will need to change the name of the output file to a directory that exists, it can be changed to say save to same location as dwg. (vl-load-com) ;;-------------------=={ UnFormat String }==------------------;; ;; ;; ;; Returns a string with all MText formatting codes removed. ;; ;;------------------------------------------------------------;; ;; Author: Lee Mac, Copyright © 2011 - www.lee-mac.com ;; ;;------------------------------------------------------------;; ;; Arguments: ;; ;; str - String to Process ;; ;; mtx - MText Flag (T if string is for use in MText) ;; ;;------------------------------------------------------------;; ;; Returns: String with formatting codes removed ;; ;;------------------------------------------------------------;; (defun LM:UnFormat ( str mtx / _replace rx ) (defun _replace ( new old str ) (vlax-put-property rx 'pattern old) (vlax-invoke rx 'replace str new) ) (if (setq rx (vlax-get-or-create-object "VBScript.RegExp")) (progn (setq str (vl-catch-all-apply (function (lambda ( ) (vlax-put-property rx 'global actrue) (vlax-put-property rx 'multiline actrue) (vlax-put-property rx 'ignorecase acfalse) (foreach pair '( ("\032" . "\\\\\\\\") (" " . "\\\\P|\\n|\\t") ("$1" . "\\\\(\\\\[ACcFfHLlOopQTW])|\\\\[ACcFfHLlOopQTW][^\\\\;]*;|\\\\[ACcFfHLlOopQTW]") ("$1$2/$3" . "([^\\\\])\\\\S([^;]*)[/#\\^]([^;]*);") ("$1$2" . "\\\\(\\\\S)|[\\\\](})|}") ("$1" . "[\\\\]({)|{") ) (setq str (_replace (car pair) (cdr pair) str)) ) (if mtx (_replace "\\\\" "\032" (_replace "\\$1$2$3" "(\\\\[ACcFfHLlOoPpQSTW])|({)|(})" str)) (_replace "\\" "\032" str) ) ) ) ) ) (vlax-release-object rx) (if (null (vl-catch-all-error-p str)) str ) ) ) ) (defun c:t2csv ( / ss fname obj objstr txtins x ) (setq ss (ssget '((0 . "*TEXT")))) (if (/= ss nil) (progn (setq fname (open "D:\\acadtemp\\text2csv.txt" "W")) (repeat (setq x (sslength ss)) (setq obj (vlax-ename->vla-object (ssname ss (setq x (- x 1))))) (setq objstr (vla-get-textstring obj)) (setq txtins (vlax-get obj 'InsertionPoint)) (if (= (vla-get-objectname obj) "AcDbMText") (setq objstr (LM:UnFormat objstr nil)) ) (setq objstr (strcat (rtos (car txtins) 2 3) "," (rtos (cadr txtins) 2 3) "," (rtos (caddr txtins) 2 3) "," objstr)) (write-line objstr fname) (princ (strcat "\n" (rtos x 2 0))) ) (close fname) ) (alert "No text selected try again") ) (princ) )

There are a few options. You could just turn off the XREF's temporarily (unload) Then isolate the layers you want. when done with your work, reload the XREF. Another method is in the layer properties manager. On the left hand side you will see layers associated with the XREF in its own sub-tier. You can turn all of those off at once by right clicking that tier and "visibility - off" or freeze those XREF layers if the XREF is sizable (clears up more active memory space) -ChriS

Thanks RK, that's good to know. My view is that great content deserves a great platform, and this community certainly delivers on the content side.

CADTutor.net is the fastest CAD forum I am aware of. The blasted Autodesk forums are so bloated and slow, and there is always something going on where you can't load photos, or the pages time out, or something. It is a pleasure to come here and read or respond to a post and know that it just works, super fast on top of that. Cheers to David and all of the members who make this place what it is.

Thank you for all your continued work in keeping this place online David, it is tremendously appreciated - the forum feels far more responsive following the upgrade!