Topic: Block Box

[jlandreville]

Is it  possible to find the box made by a block just by picking it? I want to do something similar to TEXTBOX.

[deegeecees]

Do you mean the outer edges of a block? Please elaborate.

[jlandreville]

The goal is to find the limits of a titleblock just by clicking it. I want to use the lower left and the upper right coordinates for plotting. In fact, I have the lower left point (insert of the block) but I want to find the upper right corner.

[deegeecees]

Here are some questions to answer so I can get a better idea of what is going on:

1. Will you be using multiple Titleblocks?

2. Will you be inserting them in PS or MS?

3. Will you be scaling them?

[jlandreville]

1- Yes I have multiple titleblock but I use only one type per drawing

2- Titleblocks are in Paper Space

3- Scale is always 1:1

[Keith™]

You may be able to use the BoundingBox in VBA

[jlandreville]

Thanks Keith!

Do you think they have similar command in Lisp? Right now I began in AutoLisp and I'm too lazy to convert it in VBA  

[deegeecees]

You could use the distance command and get the upper right coords, then use it in your box routine, as it will be constant.

I'm still not sure what you are trying to do.

[whdjr]

yes they have a vla-getbounding box function:

object.GetBoundingBox MinPoint, MaxPoint

Object

All Drawing Objects, AttributeReference
The object or objects this method applies to.

MinPoint

Variant (three-element array of doubles); output-only
The 3D WCS coordinates specifying the minimum point of the object's bounding box.

MaxPoint

Variant (three-element array of doubles); output-only
The 3D WCS coordinates specifying the maximum point of the object's bounding box.

Remarks

The corners are returned in WCS coordinates with the box edges parallel to the WCS X, Y, and Z axes.

[jlandreville]

Thanks all for your replies. I think that my problem is resolved now.

[deegeecees]

The goal is to find the limits of a titleblock just by clicking it. I want to use the lower left and the upper right coordinates for plotting. In fact, I have the lower left point (insert of the block) but I want to find the upper right corner.

Boy is my face red. Use something like this to get the name of the titleblock:

(SETQ EN1 (ENTSEL"\nSelect entity to display its data: "))
(SETQ EN2 (ENTGET (CAR (ASSOC 2 EN1))))

Then, use boolean to set the already stored values:

(IF (= EN2 "TITLE1")
    (SETQ CORD1 "0,0 12,12")
)

Rudimentary, but I hope this helps.

[CAB]

The coordinates can be found with this

Code: [Select]

(setq ent (car (entsel)))
(setq obj (vlax-ename->vla-object ent)) ; correction made
(vla-getboundingbox obj 'minpoint 'maxpoint)
(setq minpoint (vlax-safearray->list minpoint))
(setq maxpoint (vlax-safearray->list maxpoint))

[LE]

The coordinates can be found with this

Code: [Select]


(setq obj (vlax-ename->vlax-vla-object ent))


Just a minor typo.....

(vlax-ename->vla-object ent)

Also, there still available the function from vital lisp:

(safearray-value minpoint)

[CAB]

Thanks for the fix...