auto lisp to insert a block, a distance from the middle point of all selected lines?
The letters located about midpoint, but offset into the inside portion of the box. I need a lisp that I can easily manipulate what (block file name) it is importing and how far the offset is, as that might change based on the size of the block. As far as isolating that layer to apply the LISP, I can do that in a macro up front. In my macro I will isolate the red layer, then the lisp will apply said "block" at said "distance" from the "midpoint" of "selected line segments". Then I can tweak it for the different blocks and offsets. The part I see that is going to be hard is, how does it know what side of the line to put it on?
@mkroll9in5in wrote:
.... all line segments in the drawing at one time would be better, but again how do you control the side it puts it on automatically? ....
Are "all line segments" the only line segments in the drawing? That is, is the shape you want to know the inside of the entire drawing? If so, and if shapes are not too convoluted, something could probably be determined based on the middle of the drawing's extents.
A drawing could have 1-20 2D parts, each of the parts have up to 4 layers of line segments.
With a macro I can shut off all layers, then turn on one of those layers isolating that layer and its segments in question.
I imagine at this point running a LISP within the macro to label those isolated line segments with a
preset (block) in this case the 2 LISP's could be PLABEL and MLABEL at the (midpoint) with a preset (offset) on all (selected line segments), the LISP would prompt me to manually select the segments in question,
then continuing back into the macro to turn off all layers once again, to isolate the next layer running a similar LISP,
but it calls for a different block with a different offset for a different set of line segments.
The first image was the results of (aliatt).
I was able to start the lisp, select everything, hit enter, and this is what I got.
unfortunately some of the labels were on the outside and it reset font size to 0.3.
I work more around 2.0. I'm sure that is an easy fix.
I added something a little more of what I'm looking for in the second image.
I would much prefer to use blocks rather than attributes in the case I wish to insert a geometry based blocks that looks like text, but are lines and arcs. (for laser projector on a cnc machine that can not project text).
I have to number each part in a particular order, so that must be done manually. I currently have a macro set up to import consecutive blocks files of numbers 1-100 (this was before AutoCAD LT added LISP) where I start the macro and it inserts block 1, you place it in the middle of the part, then it inserts block 2...
(^C^C_-layer;s;0;;_-insert;1A;\;;;_x;l;_-insert;2A;\;;;_x;l;)
maybe a lisp for the labeling can be tide into this macro?
(^C^C_-layer;s;0;;_-insert;1A;\;;;_x;l;_LISP;_-insert;2A;\;;;_x;l;_LISP;)
The other guys answer was interesting with the use of bpoly and selecting the inner area of each part. Maybe this can be teamed up with numbering each part including areas with seams.
So think of this, start the lisp, i select the inside of each part. as i do it places block1 where I click in that area then "magically" it labels all of the edges in that area based on its layer, then it moves to insert block2... repeat for each part.
The first image was the results of (wow).
I was able to start the lisp, was prompted to select the area of each part. It proceeded to label each line segment by its payer name. Very cool, but not quite there. There also seem to be an issue with what side of the line it put things on
I added something a little more of what I'm looking for in the second image.
I would much prefer to use blocks rather than attributes in the case I wish to insert a geometry based blocks that looks like text, but are lines and arcs. (for laser projector on a cnc machine that can not project text).
I have to number each part in a particular order, so that must be done manually. I currently have a macro set up to import consecutive blocks files of numbers 1-100 (this was before AutoCAD LT added LISP) where I start the macros and it inserts block 1, you place it in the middle of the part, then it inserts block 2...
(^C^C_-layer;s;0;;_-insert;1A;\;;;_x;l;_-insert;2A;\;;;_x;l;)
maybe a lisp for the labeling can be tide into this macro?
(^C^C_-layer;s;0;;_-insert;1A;\;;;_x;l;_LISP;_-insert;2A;\;;;_x;l;_LISP;)
I found your answer interesting with the use of bpoly and selecting the inner area of each part. Maybe this can be teamed up with numbering each part including areas with seams.
So think of this, start the lisp, i select the inside of each part. As I do it places block1 where I click in that area then "magically" it labels all of the edges in that area based on its layer, then it moves to insert block2... repeat for each part.
