Lisp for auto labelling the CAD block
@aaditya.desai wrote:
I have various labels. I want the "NAME_LOCAL" description to be displayed.
Won't it be displayed as a matter of course unless you have that Attribute defined to be Invisible? If it is, you can change that in REFEDIT or BEDIT [select it and change the Invisible option in the Properties palette to "No"], and follow with ATTSYNC to make it appear.
@aaditya.desai wrote:
.... when I select the block, it should show me "NAME_LOCAL" directly.
If you just want to see it reported at the Command line, and not necessarily have it become visible in the drawing, for testing paste this in at the Command line:
(getpropertyvalue (car (entsel "\nSelect Block: ")) "NAME_LOCAL")
[followed by Enter to register it] and pick a Block.
If that gives you what you want, it can be defined into a command name that you can type in or set into a Tool Palette button, or.... It could report it in an (alert) box up in the screen if you prefer, or write it as Text into the drawing, or....
Hello,
See the image below for reference on what I want to do.
When I give leader note to a block. It should pick the description from the Attribute section "NAME_LOCAL" and it should directly show the note. I typed this manually. This might help you with my query.
@aaditya.desai wrote:
Can you explain this in a simple manner? Which steps do I need to take? I am new to this.
Enter the command name REFEDIT and pick an insertion of the Block, and confirm that's the Block name you want to Edit. Type PROPERTIES if you don't already have the Properties palette showing. Select the Attribute-Definition object. In Properties, there's a Misc category of entries at the bottom, one of which is Invisible. Set that to No. REFCLOSE, Save, check OK. ATTSYNC, give it the Block name or choose the <Select> option and pick one, Yes.
The procedure would be very similar with the BEDIT command rather than REFEDIT. You can try both and see which you prefer. Read about them in Help [always the first step].
@aaditya.desai wrote:
.... When I give leader note to a block. It should pick the description from the Attribute section "NAME_LOCAL" and it should directly show the note. ....
That's certainly possible, but: Using the point at which you picked the Block for the tip of the arrow, or some location calculated relative to the Block? Always just using the current Layer and Dimension Style for the Leader and Text Style and size for the Text, or should those be built into the routine? Automatic Leader route and number of points and Text positioning, or up to the User? Mleader instead of Leader, perhaps? Etc.
If you're willing to be limited to a two-point Leader only, in extremely simplest terms, this seems to work:
(defun C:BNALT (/ sel blk) ; = Block Name-Attribute Leader Tag
(if
(and
(setq sel (entsel "\nSelect Block to label with its NAME_LOCAL Attribute: "))
(member '(0 . "INSERT") (entget (setq blk (car sel))))
); and
(command "_.leader" "_non" (cadr sel) pause "" (getpropertyvalue blk "NAME_LOCAL") "")
); if
(prin1)
)
It will throw an error if the selected Block does not have an Attribute with that Tag -- there's probably some way to account for that. It will just do nothing if you select something other than a Block [part of the "extremely simplest terms"], but could be made to scold you instead, and/or ask you again to select.
[EDIT: Added the None Osnap call for the start of the Leader.]
@aaditya.desai wrote:
.... I select the block by typing BNALT command and it said I need to write. ....
It works for me. In white are the parts of the Block [Circle and NAME_LOCAL tagged Attribute Definition], in green is an insertion of the Block with a value for that Attribute [set to be visible here, but it still works if it's invisible], and in yellow the result of the BNALT command, using that Attribute's value for the Text, which did not ask for anything except to pick the Block and to place the second point of the Leader.
Run it again and show us the Command-line history of prompts. For me it looks like just this:
Command: BNALT
Select Block to label with its NAME_LOCAL Attribute: {I picked it} _.leader
Specify leader start point: {it supplied this}
Specify next point: {I picked a location}
Specify next point or [Annotation/Format/Undo] <Annotation>: {it supplied Enter for the default}
Enter first line of annotation text or <options>: Test Name Enter next line of annotation text: {it supplied the content and concluding Enter}
Command:
@aaditya.desai wrote:
.... I want the value of the attribute automatically typed in. I just want to place the leader.
And that's the way it works for me. Does it not for you? If not, tell us what happens instead, in detail.
