How to loop this routine

[fcfcadd]

It works great but this is what I'm getting

 

Command: bom

 

Make Number Increment : 301

 

Specify insertion point: _endp of Duplicate definition of block AME_NIL

ignored.

Duplicate definition of block AME_SOL ignored.

 

Value for attribute "NOTE" :

 

Value for attribute "QTY" :

 

Value for attribute "MATERIAL" :

 

Value for attribute "SERVICE" :

 

Value for attribute "DESCRIPTION" :

 

Specify insertion point or [Exit] :

Duplicate definition of block AME_NIL ignored.

Duplicate definition of block AME_SOL ignored.

[alanjt]

Aww, come on man, you don't want to see those prompts?

 

Updated in original post.

[fcfcadd]

Lol. I didn't know that's what those were. I've never seen lisp wrote this way. Is this a form of vba code

[alanjt]

Lol. I didn't know that's what those were. I've never seen lisp wrote this way. Is this a form of vba code

 

You would see the same prompts if using INSERT.

 

It's Visual LISP. Uses ActiveX COM (similar to VBA, but not the same). Autodesk first released it with AutoCAD in r2000 (pretty sure).

 

So, is it working?

[fcfcadd]

Ah that's cool. Yes it is working perfectly, thank you so much.

[alanjt]

Ah that's cool. Yes it is working perfectly, thank you so much.

You're welcome.

[fcfcadd]

Got another idea for that program. It would be a seperate program that would start the bom. It would be a BOMS start routine that would insert this header block in the top right corner of the page then would insert the bom block in the lower left corner of the header and then proceed on with the bom program. That way we could create the entire bom from scratch and then be able to come back and add more lines to the bom with the bom program. Would that be to much to ask?

 

BOM HEADER.dwg

BOM HEADER.dwg

[alanjt]

Remember, I'm doing this on my time and without compensation.

 

If I have some free time tonight, I'll give it a go.

[fcfcadd]

That sounds good. Thank you so much for all your help.

[fcfcadd]

Well I have been struggling to find out how to get this to work since I have no experience with Visual Lisp. But here is what I'd like for this program to do:

 

(defun c:BOMS (/ BlockName LayerName pt lst)

;; Insert "BOMH" block (required)

;; Then Continuously insert "BOM" block (required) and label attributes

;; Block will be placed on "BORDER01" layer (created if doesn't exist)

;; User also has option to place next block 1/4" below previously placed block

;; Alan J. Thomspon, 05.18.10

 

I have tried to figure out what each line is doing but with no luck.