topic Re: LISP to fill custom drawing properties from textfile in Visual LISP, AutoLISP and General Customization Forum

LISP to fill custom drawing properties from textfile

geraldbossink — Thu, 17 Feb 2022 09:46:17 GMT

I'm looking for a LISP that reads a txt-file in the same directory as the drawing. In the txt-file are two lines with text. First line is the client name, second line is the project name. In the drawing properties I want them filled in in the Custom Tab (as shown in the attached image). Is there some kind of LISP available for this?

Re: LISP to fill custom drawing properties from textfile

pbejse — Thu, 17 Feb 2022 13:48:30 GMT

@geraldbossink wrote:

I'm looking for a LISP that reads a txt-file in the same directory as the drawing. In the txt-file are two lines with text. First line is the client name, second line is the project name. In the drawing properties I want them filled in in the Custom Tab ..

The name of the text file is the same as the drawing name with a .TXT extension?

The Custom Opdrachtgever and Project already exists or sometimes not?

(defun c:demo ( / aDoc DwgProps availableData source inc opf) (setq aDoc (vla-Get-ActiveDocument (vlax-Get-Acad-Object)) DwgProps (vla-Get-SummaryInfo aDoc) ) (if (and (findfile (setq Source (Strcat (getvar 'dwgprefix) "projectgegevens.txt"))) (repeat (setq inc (vla-numcustominfo DwgProps)) (vla-GetCustomByIndex DwgProps (setq inc (1- inc)) 'key 'value) (setq availableData (cons (list key value inc) availableData)) ) (Vl-every '(lambda (cn) (assoc cn availableData)) (setq CustomNames '("Opdrachtgever" "Project"))) ) (progn (setq opf (open Source "r")) (foreach itm CustomNames (setq a (read-line opf)) (vla-SetCustomByKey DwgProps itm a) ) (close opf) ) )(princ) )

HTH

Re: LISP to fill custom drawing properties from textfile

geraldbossink — Thu, 17 Feb 2022 12:14:55 GMT

@pbejse: The dir will contain multiple drawings, so the txt-file will have a general name, let's say 'projectgegevens'. The idea is:

1. txt-file is created

2. new drawing is created, LISP runs and fills the custom properties

3. Drawing header contails fields for client and project, that are automatically filled when the custom properties are filled

4. When adding a new layout to the drawing, a new header is inserted and automatically filled.

At the start of the project the txt-file is created, so for every new drawing the txt-file exists.

Hope this helps

Re: LISP to fill custom drawing properties from textfile

pbejse — Thu, 17 Feb 2022 13:49:21 GMT

@geraldbossink wrote:

The dir will contain multiple drawings, so the txt-file will have a general name, let's say 'projectgegevens'.

Updated the code at post # 2

Hope that helps

Re: LISP to fill custom drawing properties from textfile

geraldbossink — Thu, 17 Feb 2022 14:48:51 GMT

I'm sorry to inform you, but it doesn't. Saved the code as LISP and ran it, but custom drawing properties remain empty. I tried adding/prefixing 'opdrachtgever' en 'project' in de txt-file, but that didn't work either. Changed 'defun c:demo' to 'defun c:pg', without the requested result.

Re: LISP to fill custom drawing properties from textfile

pbejse — Thu, 17 Feb 2022 14:53:49 GMT

This is key

(setq CustomNames '("Opdrachtgever" "Project")))

If those names does not match the custom property on your drawing the program will not continue.

Have a go with that and let me know

Otherwise attached your drawing here

Re: LISP to fill custom drawing properties from textfile

geraldbossink — Thu, 17 Feb 2022 15:16:40 GMT

Hmmm... Yes, that works. But now I have to fill in "opdrachtgever' and 'project' in the custom properties or have these standard in my template. Isn't it possible to make the LISP do that?

Re: LISP to fill custom drawing properties from textfile

pbejse — Thu, 17 Feb 2022 15:50:41 GMT

@geraldbossink wrote:

Hmmm... Yes, that works. But now I have to fill in "opdrachtgever' and 'project' in the custom properties or have these standard in my template. Isn't it possible to make the LISP do that?

That was my question early on.

e Custom Opdrachtgever and Project already exists or sometimes not?

Better have those on the template files
Or

(defun c:demo (/ aDoc DwgProps availableData source inc opf data) (setq aDoc (vla-Get-ActiveDocument (vlax-Get-Acad-Object)) DwgProps (vla-Get-SummaryInfo aDoc) ) (if (findfile (setq Source (Strcat (getvar 'dwgprefix) "projectgegevens.txt")) ) (progn (setq opf (open Source "r")) (While (setq a (read-line opf)) (if (/= a "") (setq data (cons a data)) ) ) (close opf) (repeat (setq inc (vla-numcustominfo DwgProps)) (vla-GetCustomByIndex DwgProps (setq inc (1- inc)) 'key 'value ) (setq availableData (cons (list key value inc) availableData)) ) (mapcar '(lambda (a b) (if (assoc a availableData) (vla-SetCustomByKey DwgProps a b) (vla-AddCustomInfo DwgProps a b) ) ) '("Opdrachtgever" "Project") (reverse data) ) (vlax-release-object DwgProps) ) ) (princ) )

HTH

Re: LISP to fill custom drawing properties from textfile

geraldbossink — Thu, 17 Feb 2022 16:05:33 GMT

Thnx, works like it should!!! I'm sorry I didn't understand your question in the first place, as English is not my native language.

Why would it be better to have the texts in the template already, instead of the LISP filling them?

Re: LISP to fill custom drawing properties from textfile

pbejse — Thu, 17 Feb 2022 16:18:59 GMT

@geraldbossink wrote:

Thnx, works like it should!!!

Good to know it helps.

@geraldbossink wrote:
Why would it be better to have the texts in the template already, instead of the LISP filling them?

It's just good practice really IMO 🙂

Cheers @geraldbossink 🙂

Re: LISP to fill custom drawing properties from textfile

Cudal — Thu, 01 Aug 2024 22:10:58 GMT

@pbejse Hi Patrick. Thank you it works for me. what if two text file. One file for Custom Names and the other for values. The CAD file has no custom properties yet. Thank you!!! hope you can help

Re: LISP to fill custom drawing properties from textfile

pbejse — Sun, 04 Aug 2024 05:30:10 GMT

@Cudal wrote:

...what if two text file. One file for Custom Names and the other for values. The CAD file has no custom properties yet. Thank you!!! hope you can help

That can be arranged

@Cudal
can you check if this works on you AutoCAD

(setq sourceFolder( acet-ui-pickdir "Select Value source fodler" (getvar 'dwgprefix)))

Copy and paste that on the command line