topic Seek a lisp to automatically update the drawing version of current layout in Visual LISP, AutoLISP and General Customization Forum

Seek a lisp to automatically update the drawing version of current layout

skchui6159 — Wed, 11 Dec 2024 08:24:24 GMT

I want to seek a lisp for automatically to add a version of the specific layout.

Before:

After update version:

if the A version was existed, I want the version was updated like that below:

ORIGINAL SIGNED AND VERSION B WAS ADDED INTO THE DRAWING.

ALL MATERIAL ARE COPYED BY OTHER FILE and BY PASTING by basepoint THE REFERENCE BY OTHER AUTOCAD FILE .

2. ANOTHER LISP NEED TO ADD THE ORIGINAL SIGNED BY PASTING THE REFERENCE BY OTHER AUTOCAD FILE

BEFORE:

AFTER:

Is it possible? Anybody can help?

Re: Seek a lisp to automatically update the drawing version of current layout

ec-cad — Wed, 11 Dec 2024 22:08:05 GMT

Instead of Lines & MText, make your images from Blocks.

See Blocks REVA & REVB in your sample drawing, uploaded to this Message.

Once you insert either, a Lisp can find the insertion point of either block,

In the case of 'none' found, insert REVA at your picked point. You fill in the details.

Then, when adding your REVB block, can change the A to a B, etc. Again, filling in

the rest of the details. RevB can also be inserted (below) REVA automatically.

ECCAD

Re: Seek a lisp to automatically update the drawing version of current layout

Sea-Haven — Thu, 12 Dec 2024 02:29:43 GMT

Like @ec-cad there is numerous examples of adding revisions either letter or numbers or can be auto detected as we used A, B etc for Prelim then 1,2,3 for Issued. The simplest is make a block with multiple attributes just don't have any text in the attributes I often use "." as the default. I have a title block with 25 attributes, so its not a problem.

Once you make the block post it and then people can make suggestions about rev updates.

Re: Seek a lisp to automatically update the drawing version of current layout

skchui6159 — Fri, 13 Dec 2024 01:06:54 GMT

Sir, Thank you for your help! Could you also provide the lisp to find the insert point of the layout? Thank.

Re: Seek a lisp to automatically update the drawing version of current layout

ec-cad — Fri, 13 Dec 2024 18:12:51 GMT

OK, a question. Does your version support Lisp ? Some LT versions do not. Latest do.

If you mean the insertion point of the 'block' named "a1titleblock", yes, you can
find that - in the current Layout Tab.
Here's a sample code to extract that point in paperspace and add REVA to that titleblock.

You just drag / drop the GIP.lsp into your drawing, at current layout.

If it finds 'a1titlteblock', it will add REVA. Same can be done with REVB, automated later.

;; Get Insertion Point of 'a1titleblock' (defun get_insertion_point (blockname) (if blockname (progn (setq ip nil) (setq ss (ssget "X" (list (cons 410 (getvar "ctab"))(cons 0 "INSERT")(cons 2 blockname)))) (if ss (progn (setq blkent (ssname ss 0)) (setq ip (cdr (assoc 10 (entget blkent)))) ); progn ); if ); progn ); if ip ); function (setq block "a1titleblock"); put your blockname here (setq INS_PT (get_insertion_point block)); now, go get the insertion point (if INS_PT (progn (princ (strcat "\nInsertion Point of " block " = \n")) (princ INS_PT) (princ) ); progn (princ "Insertion Point not found") ); if ;; If INS_PT is found.. ;; Insert REVA at top intersection of the Titleblock in 1st location. (if INS_PT (progn (setq X (car INS_PT) Y (cadr INS_PT)); get the X and Y coordinates (setq OFFX 821.0 OFFY 320.0); offset values for 1st position (setq X1 (+ X OFFX) Y1 (+ Y OFFY)) (setq INS_PTA (list X1 Y1 0.0)); Insertion point for REVA block (setvar "ATTREQ" 0); Insert command won't ask for Attributes (command "_-insert" "REVA" INS_PTA "1" "1" "0"); Insert REVA block (command "_DDATTE" "l") ); progn ); if (princ)

ECCAD

Re: Seek a lisp to automatically update the drawing version of current layout

Sea-Haven — Fri, 13 Dec 2024 22:16:02 GMT

One of the fixes for our company standard was that the title block was at 0,0 so this will go through all layouts and move all the title blocks to correct 0,0.

; moves all objects in pspace to 0,0 alignment ; By AlanH (defun movelayouts ( / doc ed k k len maxy minxy oldsnapen plotabs ss xy) (PROMPT ".....now moving dwgs....") (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vlax-for lay (vla-get-Layouts doc) (setq plotabs (cons (vla-get-name lay) plotabs)) ) (setq plottablist (acad_strlsort plotabs)) (setq len (length plottablist)) (setq oldsnap (getvar "osmode")) (setvar "osmode" 0) (setq en (entsel "Pick Title Block:")) (setq ed (entget (car en))) (setq K 0) (repeat len (setq name (nth K plottablist)) (princ name) (if (/= name "Model") (progn (setvar "ctab" name) (setq minxy (getvar "extmin")) (setq maxxy (getvar "extmax")) ; (setq ss (ssget "_X" (list (cons 0 "INSERT") (cons 410 name) (cons 2 (cdr (assoc 2 ed))) ) )) (setq ss (ssget "_X" (list (cons 0 "INSERT") (cons 2 (cdr (assoc 2 ed))) ) )) (setq n (sslength ss)) (setq en (ssname ss 0)) (setq xy (assoc 10 (entget en))) ; insertion pt (setq xy (assoc 10 el)) (setq xy (list (cadr xy)(caddr xy))) (command "move" "w" minxy maxxy "" xy "0,0") (command "zoom" "E") ) ;end progn ) ; end if (setq K (+ K 1)) (princ k) (setq ss nil) (setq xy nil) ) ; end repeat (setvar "osmode" oldsnap) (princ) ) (movelayouts)

Re: Seek a lisp to automatically update the drawing version of current layout

ec-cad — Fri, 13 Dec 2024 23:44:11 GMT

Skchui6159, (what a handle..)

Here's a lisp to find any previous Revision blocks, and inserts either REVA if none found,

or REVB if any REV* block was found. It checks for previous blocks, if found, increments

the Revision Letter, and inserts the next Rev block just below the previous.

How to use this lisp:

With Notepad, edit or create a file "acaddoc.lsp" and place it in your Acad\support folder.

Inside that .lsp, add:

(load "REVME.lsp")

For each drawing open, the acaddoc.lsp is read-in and holds the functions in memory.

IF the functions have 'command' type defun's e.g. (defun C:REVME ().. then all you do

is at the Command Line, type in REVME<Enter key> to run that function.

Copy the attached .lsp and the blocks REVA and REVB to the Acad\support folder.

Then, open your test drawing, type in REVME and see what happens.

🙂

ECCAD

Re: Seek a lisp to automatically update the drawing version of current layout

Sea-Haven — Sat, 14 Dec 2024 22:48:46 GMT

@skchui6159 if your going to start using lots of lisp programs than add to a menu, a toolbar or the Ribbon. There is 130+ lisps behind this. One of 4 custom menu's. I never add to acaddoc.lsp.

Re: Seek a lisp to automatically update the drawing version of current layout

ec-cad — Sun, 15 Dec 2024 17:12:49 GMT

If you have more than (1) ISO size for your titleblocks (your sample has 'a1titleblock', so I would

assume there's an 'a2titleblock' and maybe 'a0titleblock'), you will need a modification to

revme.lsp that gets the drawing extents (getvar 'extmax'), then figures out which titleblock you have,

then calculates the Insertion point(s) from 0,0 so the insert falls in the correct spot.

Another way is to check which titleblock is present, and set the insertion point(s).

Just let us know if that's an issue.

ECCAD

Re: Seek a lisp to automatically update the drawing version of current layout

Sea-Haven — Sun, 15 Dec 2024 22:43:21 GMT

Something like this will work. You then look inside the ss for the name of the title. It should only return 1 entity as you should only have 1 title block per layout. The titles were set to 0,0 insert so no need to worry about insertion.

(setq ss (ssget "X" (list (cons 0 "INSERT")(cons 2 "TITLE*,A0_Landscape_XXX,A1_Landscape_XXX,A1_Portrait_XXX,A2_Portrait_XXX,A2_Landscape_XXX,A3_TITLEBLOCK_XXX")(cons 410 (getvar 'ctab)))))

(cond ((= blkname "A0_Landscape_XXX" )(setq sc "1=1" psize "ISO full bleed A1 (841.00 x 1189.00 MM)" ll "-5,-5" ur "1175,837" orien "Landscape")) ... )

Re: Seek a lisp to automatically update the drawing version of current layout

skchui6159 — Mon, 16 Dec 2024 01:04:17 GMT

How to add the lisp to library?

Re: Seek a lisp to automatically update the drawing version of current layout

skchui6159 — Mon, 16 Dec 2024 01:05:33 GMT

OK, I try to make the block.

Re: Seek a lisp to automatically update the drawing version of current layout

skchui6159 — Mon, 16 Dec 2024 01:07:47 GMT

Thank you very much! It is helpful. Can the block also add current day automatically with lisp?

Re: Seek a lisp to automatically update the drawing version of current layout

skchui6159 — Mon, 16 Dec 2024 01:12:20 GMT

Thanks for your sharing. However, It show the error: misplaced dot on input. How can be solve?

Re: Seek a lisp to automatically update the drawing version of current layout

Hassan_MohammadARCYT — Mon, 16 Dec 2024 12:31:10 GMT

I believe it is better to arrange by category.

Re: Seek a lisp to automatically update the drawing version of current layout

ec-cad — Mon, 16 Dec 2024 16:56:10 GMT

You say: "Can the block also add current day automatically with lisp?"

Sure. I thought you would have MM / YY format, so I built those blocks for

tagnames 'MM and 'YY. I see your sample has MM/DD Month and Day.

Here's an update revme.lsp that does that.

ECCAD

Re: Seek a lisp to automatically update the drawing version of current layout

skchui6159 — Wed, 18 Dec 2024 00:56:32 GMT

Thank you very much! The lisp very helpful!