Lisp, insert block

[Anonymous]

Good Day, I'm fairly experienced in autoCAD but extremely new to lisp so please bare with me on this, and if possible explain some of the answer steps. I'm creating a simple lisp to calculate invert levels at a point, automatically insert a level arrow block with scale and attribute automatically added and loop it so that it repeats the process at any point I click on until I nil the point. Most of that is simple so I won't bother you with it but I'm having problems inserting the block, is there a command to insert the block and include the following variables? Block scale: pt1 Attribute: ptlevel Insertion base point: pt5 Block name: "Level_Arrow" Block found on another drawing deep in the company server files, I may need to add the link as well. Thank you.

[dbroad · Accepted solution]

If the system variable, attdia is set to 0, then an insert command including attribute entry is just:

(command "_.-insert" "yourblocknameincludingpath" <insertionpoint> <xscale> <yscale> <rotation angle> <attribute 1>...<attribute n>)

Of course whether 2 scale factors are required depends on the block's setting for uniform scale.

Paths are best entered with slashes instead of backslashes since the backslash is an escape character in lisp.

[scot-65]

As dbroad pointed out - the insert command with attdia turned off will keep prompting until all attributes are presented.

[Anonymous]

Ah thank you, very useful. As an extension to this same question, I now have it adding the level except it gives the number 101.7250000000000 as the response, is it possible to limit it to three decimals? Also it appears to be using the drawing scale (pt1) as the rotation, inserting everything at 100 degrees to flat in this instance, could you please have a look at my command line and see why that would be? pt6 is the insertion point, pt1 the scale and ptdisp the attribute. ...(command "_.-insert" "Level Arrow" pt6 pt1 pt1 0 ptdisp)

[Anonymous]

Update: rotation issue resolved, Although as another issue I would like to add to the macro setting attdia to 0. Am I on the right track with (command "_.-attdia" 0) as this does not seem to work.

[hmsilva · Accepted solution]

Perhaps something like this

(setq old_attdia (getvar 'ATTDIA));; stores the actual ATTDIA
(setvar 'ATTDIA 0);; sets ATTDIA to zero
("Your INSERT command")
(setvar 'ATTDIA old_attdia);; restore the original ATTDIA

HTH
Henrique