How do I insert a block using AutoLISP

[vladimir.karatsupa982899]

I envision the routine asking the user 7 digits (ex. 1234567) and by using those 7 digits I want to compile a string of the full address path.

(setq drive "J:\\")
(setq job (getstring "\nWhat is the job number (enter with no dashes)? "))
(setq job1 (substr job 1 3))
(setq job2 (substr job 4 4))
;;;(setq suffix (substr job2 ????? this is where I would need the function that would look up the suffix by using job2 (4567) variable
(setq addresspath (strcat drive job1"\\"job2"-"suffix)

...then I would use the addresspath to insert the datum

How do you envision this routine to operate? Do you want to request a project number combination? Or have the user browse for the necessary folder?

[Opie]

Once you have the first part of the path, use the vl-directory-files function with the with the second part as a pattern to look for and filter for directories only.

(setq drive   "J:\\"
      job     (getstring "\nSpecify job number (without dashes): ")
      prefix1 (substr job 1 3)
      prefix2 (substr job 4 4)
      project (vl-directory-files
		(strcat drive prefix1)
		(strcat prefix2 "*.")
		-1
	      )
)

You may have to adjust this code regarding the vl-directory-files function as I haven't tested it. My folder structure is completely different.

[vladimir.karatsupa982899]

This code works perfectly

I do have a question though...my project variable gives me the result in a ("text_text_text") format how do I remove the ()'s and make this line a piece of text?

Once you have the first part of the path, use the vl-directory-files function with the with the second part as a pattern to look for and filter for directories only.

(setq drive   "J:\\"
      job     (getstring "\nSpecify job number (without dashes): ")
      prefix1 (substr job 1 3)
      prefix2 (substr job 4 4)
      project (vl-directory-files
		(strcat drive prefix1)
		(strcat prefix2 "*.")
		-1
	      )
)

You may have to adjust this code regarding the vl-directory-files function as I haven't tested it. My folder structure is completely different.

[Opie]

the car function will give you the first element of that list.

[vladimir.karatsupa982899]

The code works perfectly!!!

I wanted to thank everyone who has helped me get this task accomplished.
I have learned a lot...ironically this is what this user group is all about

[albourns25107]

This post is old; however, the answer to your question is:
1. set support file search path to the location of the block:
2. open note pad. copy and paste the information (replace "ENTER BLOCK NAME HERE" with the name of the file you want to insert)

(command "attdia" "0")
(command "attreq" "0")
(command "-insert" "ENTER BLOCK NAME HERE" "0,0" "1" "1" "0")
(command "attdia" "1")
(command "attreq" "1")