topic Re: Merging functions from 2 LISPs in Visual LISP, AutoLISP and General Customization Forum

Merging functions from 2 LISPs

jr_olmos23 — Wed, 11 Sep 2024 21:54:00 GMT

So, I found (in this forum from 2015 ) a nice working lisp that edits block attributes in sequence with prefix and suffix, etc. See attached "attribute_sequential_increment_NEW.lsp". However, the lisp updates the first attribute tag it finds, so is it possible to incorporate the "get attribute function.lsp" code into it to make it work on custom blocks. See attached "Get attribute list code". I thought it would be as easy as copying the attribute code into the sequence lisp, but it did't do anything on my end. So I don't know if Im doing something wrong here or what needs to be updated.

Thanks in advance.

Re: Merging functions from 2 LISPs

paullimapa — Thu, 12 Sep 2024 03:16:38 GMT

Try this modified AttInc.lsp that incorporates the GetTags & PickTag functions.

Limitations/Requirements:

1. Currently code does not support dynamic Blocks with Attributes

2. Need to first select a Block with Attributes to retrieve Tag name

3. Only Blocks with matching names are supported in the subsequent selections

FYI: Missing from your original posted code is function: INDEX_ADD which may run under function: SORT_FUN

Re: Merging functions from 2 LISPs

Sea-Haven — Thu, 12 Sep 2024 03:14:33 GMT

If you use Nentsel rather than entsel, you can pick an attribute in a block it returns the properties of the attribute, so Tagname is an obvious one. In a second pass you can get block name of actual block so you could then do an update of the blocks by name and Attribute tag name.

If you could post a dwg with before and after, show before blocks copy them and edit for show after.

(setq att (entget (car (nentsel "\nPick an attribute ")))) ((-1 . <Entity name: 8c27e060>) (0 . "ATTRIB") (5 . "D999") (330 . <Entity name: 8c27d620>) (100 . "AcDbEntity") (67 . 1) (410 . "D01") (8 . "DRGTEXT") (62 . 5) (100 . "AcDbText") (10 693.8875 56.125 0.0) (40 . 7.0) (1 . "PRELIMINARY DRAWING") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "Standard") (71 . 0) (72 . 4) (11 742.1875 59.625 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "DRAWING_STATUS") (70 . 0) (73 . 0) (74 . 0) (280 . 0))

"DRAWING_STATUS" is tag name.

Re: Merging functions from 2 LISPs

jr_olmos23 — Thu, 12 Sep 2024 16:12:35 GMT

This works great, but apparently it gets the name of the blocks as in *U2 and so on, so when I then go on to select the rest of the block to apply the sequence to, it says it didn't find any blocks with the name *U2 I've attached the file in which I tried it. This is the sequence of commands:

Command: ATTINCR

ENTER PREFIX (Ex: A...; if none, press Enter)

ENTER SUFFIX (Ex: ...Z; if none, press Enter)

ENTER STARTING NUMBER OF THE SEQUENCE (ANY INTEGER)1

Select Block Attribute Template to Retrieve Tag Name...
Select objects:

Select One [ITEM/SHEET/DWG.REF/ITEMNAME/*ITEMNAME/MAT'L/PART#/C/F/PR]: ITEM

Select Blocks Matching Name: *U2 To Change Tag: ITEM...
Select objects: Specify opposite corner: 0 found

Select objects:

No Blocks Selected Matching Name: *U2

Re: Merging functions from 2 LISPs

paullimapa — Thu, 12 Sep 2024 17:09:51 GMT

The *U# in the Block name means it's a dynamic block which my original revisions did not accommodate (one of the limitations I posted). Try this updated AttInc.lsp version.

Re: Merging functions from 2 LISPs

jr_olmos23 — Thu, 12 Sep 2024 17:43:28 GMT

Thanks, no it works as intended. Thanks man!

Re: Merging functions from 2 LISPs

paullimapa — Thu, 12 Sep 2024 17:44:52 GMT

glad to have helped...cheers!!!

Re: Merging functions from 2 LISPs

jr_olmos23 — Thu, 12 Sep 2024 18:03:58 GMT

Actually, would it be possible to make the LISP not start the sequence with the last block copied? I don't know if I can just remove the (REVERSE LIST 1) function and make the sequence follow the actual order in which the blocks were copied.

Re: Merging functions from 2 LISPs

paullimapa — Thu, 12 Sep 2024 18:14:56 GMT

Go ahead and see what happens when you remove that. If that still doesn’t work then we may have to include more code to sort by insertion from either left to right or right to left. You let me know

Re: Merging functions from 2 LISPs

jr_olmos23 — Thu, 12 Sep 2024 21:15:24 GMT

Yeah, I don't think removing it changes it. I get this error:

; error: bad argument type: listp 11

I'm assuming 11 has to do something with the 11 blocks selected. I don't know if I'd want to go from L to R. I like that it orders the sequence in the order that they were copied (but backwards, unfortunately). The thing is I have a weird floor plan in which I'm trying to tag about 250 trellises, so not all are from L to R, that's why I liked that it renamed the sequence in order of being copied.

Re: Merging functions from 2 LISPs

paullimapa — Thu, 12 Sep 2024 21:25:27 GMT

I actually don't mean to remove the entire line but just the reverse part.

So the last line before the final parenthesis:

; FORM_SSSET (DEFUN FORM_SSSET (SSSET BLOCKNAME / I TEMP_ELE LIST1) (SETQ I 0) (SETQ TEMP_ELE NIL) (SETQ LIST1 NIL_) (WHILE (< I (SSLENGTH SSSET)) (SETQ TEMP_ELE (SSNAME SSSET I)) (if (eq (strcase BLOCKNAME) (strcase (vla-get-effectivename (vlax-ename->vla-object TEMP_ELE)))) ; chk if blockname matches (SETQ LIST1 (CONS TEMP_ELE LIST1)) ) (SETQ I (+ I 1)) ) (REVERSE LIST1) ; line of code in question )

Should now look like this line:

Re: Merging functions from 2 LISPs

jr_olmos23 — Thu, 12 Sep 2024 21:31:32 GMT

Yup, that did it. Sorry I'm not very savvy with LISPs. Thanks again.

Re: Merging functions from 2 LISPs

paullimapa — Thu, 12 Sep 2024 21:33:56 GMT

You are welcome… cheers!!!