topic Re: AutoCAD LT 2024 LISP similar to ATTOUT in Visual LISP, AutoLISP and General Customization Forum

AutoCAD LT 2024 LISP similar to ATTOUT

roberto_ortizKVL98 — Thu, 26 Sep 2024 20:20:58 GMT

Hi,

Attached is a LISP to extract block attributes to a CSV file. The issue is that the handler does not have a prefix single quote when exported to the CSV file, unlike when we use ATTOUT in AutoCAD. Perhaps someone can help with this and create a LISP similar to ATTIN.

Re: AutoCAD LT 2024 LISP similar to ATTOUT

LDShaw — Mon, 30 Sep 2024 15:41:31 GMT

This thread had similar issues. Perhaps it can help you out. I have full autocad so my help is limited.

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/an-automation-that-requires-excellent-knowledge-of-the-language/td-p/13009184

Re: AutoCAD LT 2024 LISP similar to ATTOUT

ec-cad — Mon, 30 Sep 2024 17:55:23 GMT

Try this little change. Adds a ' character to Handle.

;; Get the handle and block name (setq handle (cdr (assoc 5 ent))) (setq handle (strcat "'" handle)); <------------ add this line (setq blockName (cdr (assoc 2 ent)))

ECCAD

Re: AutoCAD LT 2024 LISP similar to ATTOUT

roberto_ortizKVL98 — Mon, 30 Sep 2024 21:28:09 GMT

Thanks for the help. Now it shows in the CSV file.

Re: AutoCAD LT 2024 LISP similar to ATTOUT

roberto_ortizKVL98 — Mon, 30 Sep 2024 21:35:28 GMT

Thanks for all your responses. The last responder resolved the issue, but now I'm facing a new challenge. I have a code similar to ATTIN, and it appears it can't locate the handler, with or without the 'single quote' prefix. Can anyone help identify the issue with the Lisp?

The exact error

Block with handle CBC6 not found.
Block with handle CBC6 not found.
Block attributes updated successfully.

2 blocks were selected on this example.

Re: AutoCAD LT 2024 LISP similar to ATTOUT

ec-cad — Tue, 01 Oct 2024 16:46:59 GMT

In this snipit of code: you did not 'increment' the index variable "i".

(repeat (setq i (length headers)) (setq attrTag (nth i headers)) ;; Get the attribute tag from header (setq attrVal (nth i attrList)) ;; Get the corresponding attribute value from CSV ;; If the attribute exists, update its value (setq ent (entget (entnext block))) (while (and ent (= (cdr (assoc 0 ent)) "ATTRIB")) (if (equal (cdr (assoc 2 ent)) attrTag) (entmod (subst (cons 1 attrVal) (assoc 1 ent) ent)) ;; Update the attribute value ) (setq ent (entget (entnext block))) ;; Move to the next attribute ) )

Unless for each line in the .csv, there is only (1) Attribute Tag and Value.

If the (setq block (handent handle)) line doesn't get the 'entity', maybe try

(setq block (ssget "x" (list (cons 5 handle))))

ECCAD

Re: AutoCAD LT 2024 LISP similar to ATTOUT

roberto_ortizKVL98 — Tue, 01 Oct 2024 16:43:54 GMT

Thanks, ec-cad But what about the "Block with handle CBC6 not found?" This CBC6 was the first block on the list.

Re: AutoCAD LT 2024 LISP similar to ATTOUT

ec-cad — Tue, 01 Oct 2024 16:58:47 GMT

I would need to look at the 'data' and the drawing to determine that.

Either (handent or (ssget .. with the correct Handle string (should) work.

Looks like it's not 'finding' that particular block insert.

Also, why did it echo that not found twice ?

Could you upload the .csv and sample drawing ?

ECCAD

Re: AutoCAD LT 2024 LISP similar to ATTOUT

roberto_ortizKVL98 — Tue, 01 Oct 2024 17:36:24 GMT

Here you go

Re: AutoCAD LT 2024 LISP similar to ATTOUT

ec-cad — Tue, 01 Oct 2024 18:02:59 GMT

I made up a small drawing for testing attin.lsp.

This is the 1st line of the .csv (saved as a text file, so characters show)
Handle,Block Name,ROOMAREA,ROOM#

And, after function: (readDelimitedLine ..
This is what it returns:
(HANDL BLOCK NAM ROOMARE ROOM#)
('AE ROO 444)

Looks like it is clipping off 'last' character of delimited variables.

Trying to find out why that function does that... looks good, but doesn't work.

I'll be back later.

ECCAD

Re: AutoCAD LT 2024 LISP similar to ATTOUT

ec-cad — Tue, 01 Oct 2024 18:11:26 GMT

And, at command prompt line, this happens.

Command: (setq line "Handle,Block Name,ROOMAREA,ROOM#")
"Handle,Block Name,ROOMAREA,ROOM#"

Command: (setq delimiter ",")
","

Command: (setq start 1)
1

Command: (setq end (vl-string-search delimiter line start))
6

Command: (setq ch (substr line start (- end start)))
"Handl"

Re: AutoCAD LT 2024 LISP similar to ATTOUT

ec-cad — Tue, 01 Oct 2024 18:17:49 GMT

Try this change in the function readDelimitedLine:

;; Helper function to split a CSV line into a list of values (defun readDelimitedLine (line delimiter / start end valList) (setq start 1) (while (setq end (vl-string-search delimiter line start)) (if (> end 0)(setq valList (append valList (list (substr line start (- (+ end 1) start)))))) (setq start (+ end 2)) ;; Move start position to after delimiter ) ;; Add the last value (after the last delimiter) (setq valList (append valList (list (substr line start)))) valList )

ECCAD

Re: AutoCAD LT 2024 LISP similar to ATTOUT

ec-cad — Tue, 01 Oct 2024 18:23:13 GMT

Now its hanging up in the while loop, checking block attributes.

Did this one 'ever' run ??

ECCAD

Re: AutoCAD LT 2024 LISP similar to ATTOUT

ec-cad — Tue, 01 Oct 2024 20:28:30 GMT

OK, I think I got it working.

Attached.

Cheers

ECCAD

Re: AutoCAD LT 2024 LISP similar to ATTOUT

roberto_ortizKVL98 — Tue, 01 Oct 2024 21:08:21 GMT

Thank you, ECCAD! It is indeed working. Apologize for not responding in a timely manner. Anyway, your alias fits you. Now in AutoCAD LT we have a similar function as ATTOUT and ATTIN.

Re: AutoCAD LT 2024 LISP similar to ATTOUT

vladimir_michl — Thu, 02 Jan 2025 15:23:37 GMT

You can also try the extended ATTOUT/ATTIN tool (processes also dynamic blocks and their properties) supported in AutoCAD LT. See (free download):

https://www.cadforum.cz/en/extended-attout-attin-for-block-attribute-management-in-excel-tip14361

Vladimir Michl, www.arkance.world - www.cadforum.cz