problem with boundingbox

[RepCad]

Hi all, I use Bounding box to create box around text but it doesn't create exactly around rotated text , my code : 

 

  (setq s (car (entsel)))
  (setq obj (vlax-ename->vla-object s))
  (vla-getboundingbox obj 'bl 'tr)
  (setq p1 (vlax-safearray->list bl))
  (setq p2 (vlax-safearray->list tr))

  (command "rectangle" p1 p2)

 

Thanks in advanced.

[rlx]

minimal bounding box master Lee

 

 

 

 

 

 

 

DBBox.lsp

Edited August 10, 2019 by rlx

[RepCad]

1 hour ago, rlx said:

minimal bounding box master Lee

Thanks, Can we also do it for dimension text?? (it means create bounding box around text of dimension)

[marko_ribar]

1 hour ago, amir0914 said:

Thanks, Can we also do it for dimension text?? (it means create bounding box around text of dimension)

 

You can set up that through dimension style dialog box, just experiment a little on your own...

[RepCad]

On 8/10/2019 at 5:46 PM, marko_ribar said:

 

You can set up that through dimension style dialog box, just experiment a little on your own...

Thanks a lot.

Edited August 30, 2019 by amir0914