topic Re: create viewport from rectangle or block in VBA Forum

create viewport from rectangle or block

angelinabrown0123 — Thu, 04 Nov 2021 05:48:46 GMT

Hi All

I want to make viewport from rectangle or block, have to keep the scale of viewport 0.5, I don't know if it is possible with VBA code. If it is possible with VBA code then help me to provide the code.

Thank in advance

Re: create viewport from rectangle or block

MakCADD — Thu, 18 Nov 2021 07:06:47 GMT

consider viewport from block

assuming the block inserted in paperspace is in scale= 1 & roation =0 in paperspace

getboundingbox

addviewport with center,width and height from getboundingbox

change space to mspace

get midpoint of block in the modelspace using getboundingbox

set veiwctr systemvariable with midpoint

rotate view according to angle of block in modelspace

scale the viewport relative to block in modelspace.

i didnt try this,

i will try to code if i get time

another option

insert block with same rotation as in the modelspace

then explode and clip the viewport with pline inside the exploded block

then rotate the viewport using sendcommand to the -angle

Re: create viewport from rectangle or block

angelinabrown0123 — Thu, 18 Nov 2021 13:05:08 GMT

@MakCADD ,

You have given very good logic but it is impossible for me to do it, however I am learning VBA right now if you can help me I will be very grateful to you please do it in your spare time I have no hurry

Re: create viewport from rectangle or block

grobnik — Thu, 18 Nov 2021 14:58:21 GMT

Hi @angelinabrown0123 , @MakCADD

here below a link to a post made by EdJobe on the same topic

Solved: Re: GET THE COORDINATES OF A VIEWPORT - Autodesk Community - AutoCAD

Re: create viewport from rectangle or block

Ed__Jobe — Thu, 18 Nov 2021 15:31:09 GMT

While you can certainly write your own code, the MVIEW command has this feature.

Re: create viewport from rectangle or block

Ed__Jobe — Thu, 18 Nov 2021 15:33:22 GMT

It didn't add the screencast.

Re: create viewport from rectangle or block

maratovich — Sat, 20 Nov 2021 13:05:26 GMT

Wouldn't it be better to use a ready-made solution?
Use the forum search, there are several options.
For example this - AutoViewport

Re: create viewport from rectangle or block

angelinabrown0123 — Sat, 20 Nov 2021 14:30:54 GMT

@maratovich

But I am looking for VBA code, if I need software in future I will contact you.

Re: create viewport from rectangle or block

Norman_Yuan — Sun, 21 Nov 2021 16:54:53 GMT

@angelinabrown0123 ,

I heard your call for a code sample, but did not have time due to busy work until now. I wrote sample VBA code that works exactly as you expected, hopefully. Just for better readability, I post the code in my blog instead of here:

https://drive-cad-with-code.blogspot.com/2021/11/use-com-apivba-to-open-viewport-on.html

HTH

Re: create viewport from rectangle or block

angelinabrown0123 — Sun, 21 Nov 2021 23:23:49 GMT

@Norman_Yuan

I saw the video and the code, I really liked it a lot but I'm having a little trouble calling it, although I don't know much VBA, can you please provide the calling code as well.

Thank you

Re: create viewport from rectangle or block

grobnik — Mon, 22 Nov 2021 07:17:30 GMT

@angelinabrown0123

You have two code versions, you have just look at link.

On 18th November I shared a link from EdJobe see:

https://forums.autodesk.com/t5/vba/get-the-coordinates-of-a-viewport/m-p/10731081#M105655

And yesterday Norman shared the link where code and video has been shared see

Drive AutoCAD with Code: Use COM API/VBA to Open Viewport on Layout to Show Given Content in ModelSpace (drive-cad-with-code.blogspot.com)

I didn't tested both but for sure both will works fine for your application I guess.

If you will have some difficulties let us know in some way you will have the forum support.

Bye

Re: create viewport from rectangle or block

angelinabrown0123 — Mon, 22 Nov 2021 15:02:07 GMT

@grobnik

The first link code you provided places the viewport's frame into the model. and the second link code that @Norman_Yuan gave is correct but this code is divide into small functions that I don't fully understand, you know how to trigger it so you can make me "SUB()" that able to run the code.

@Norman_Yuan

Or I request @Norman_Yuan to give me the complete code as shown in the video.

I hope you will give me the code.

Thank in advanced

Re: create viewport from rectangle or block

Norman_Yuan — Mon, 22 Nov 2021 16:18:03 GMT

@angelinabrown0123

I am sorry that I do not fully understand your request: my code posted in my blog is complete code. It is meant to show how to get the job of opening a viewport on layer based on a specified area in modelspace. But it is not specifically coded to work against your drawing attached in your original post. If you do have basic AutoCAD VBA knowledge, you can adapt the code with just minor changes for your use. To run the VBA code I wrote, you copy the code into a VBA project's module/class and off you go, as simple as that.

Re: create viewport from rectangle or block

angelinabrown0123 — Mon, 22 Nov 2021 18:16:19 GMT

@Norman_Yuan

You have called "Sub OpenPVport()" in the video, also took a screenshot of the video as shown in the image below.

Video Screenshot

And the "OpenPVport()" code in the second image is not visible anywhere on your site.

Re: create viewport from rectangle or block

Norman_Yuan — Mon, 22 Nov 2021 18:57:24 GMT

Oops, I am terribly sorry that I posted duplicated class "BorderBlock" and missed the macro "OpenPVport". Thank you @angelinabrown0123 pointed it out.

The the code in my article has been updated.

Re: create viewport from rectangle or block

grobnik — Mon, 22 Nov 2021 20:12:38 GMT

@angelinabrown0123

I guess this can help you more see attached zip containing dvb file project already separated the class definition section and VBA section.

As second issue the Viewport border on ModelSpace shall be a block called as "VPORT_BOUNDARY", if not you have to change the block name into the proceudere.

And the active layout name is defined into procedure as "Layout1" if not you have to change the name into procedure.

ThisDrawing.ActiveLayout = ThisDrawing.Layouts("Layout1")

I tested and seems to work even if I have some other issue with the scale, I'll investigate more, in case I'll ask to @Norman_Yuan

Re: create viewport from rectangle or block

grobnik — Mon, 22 Nov 2021 20:52:56 GMT

@Norman_Yuan

Hi Norman, I would like to thank you very much for useful code. It's working perfectly.

If you can help us a litte bit more:

I have some issue with centering the ModelSpace border selected into viewport on Layout. Both has the same size A3.

I saw a section in the code concerning the position (angle, corner, etc.), but I have some difficulties to understand.

I already have a drawing title block the same on several layout, a company form A3 size with logo, and i have some issue with centering the bored block with drawing title block. Could you spent some additional time to help me fixing this issue ?.

I already fixed the scale setting to 1 instead 0,05 as your code indicated I'll prepare an example and I'll share with you for better understanding.

Thank you.

Re: create viewport from rectangle or block

angelinabrown0123 — Mon, 22 Nov 2021 23:22:51 GMT

@Norman_Yuan

Now it's perfect, actually you made great code, it will be very helpful for me, @Norman_Yuan thank you very much for giving the code and updating it🙂.
And many thanks to everyone involved in this forum, I'll try it for the rectangle as well.

Bye

Re: create viewport from rectangle or block

angelinabrown0123 — Tue, 23 Nov 2021 00:43:35 GMT

@Norman_Yuan

I tested your code with attached drawing of Post No.1 it generates viewport but does not take selected block in center you can check in gif.Videoshoot

Re: create viewport from rectangle or block

Norman_Yuan — Tue, 23 Nov 2021 14:35:20 GMT

It is difficult to say without having the drawing to play and without knowing what code change you have made (or not made). It seems to me, though, the corners' coordinates used for ZoomWindow() call may not be correct. Have you tried to verify the coordinates of the corners in debugging?

You can add following 2 lines of code right before ZoomWindow [llcorner], [urcorner]:

debug.Print border.LLCorner(0) & ", " & borderLLCorner(1)

debug.Print border.URCorner(0) & ", " & borderURCorner(1)

Seeing what the coordinates are, then go to ModelSpace to verify the corner positions of the selected border block.