VBA
Discuss AutoCAD ActiveX and VBA (Visual Basic for Applications) questions here.
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

Setting ArcSmoothness

24 REPLIES 24
Reply
Message 1 of 25
Tony.
338 Views, 24 Replies

Setting ArcSmoothness

I can't get VBA to set the Arc Smoothness preference which is located at:
Tools-->Options-->Display-->Arc Smoothness

My code is below, but it doesn't work. The Arc Smoothness remains at the default (100) and seems to ignore this code.

Dim acadApp As AcadApplication
Dim ThisDwg As AcadDocument
Set ThisDwg = acadApp.ActiveDocument
ThisDwg.ActiveViewport.ArcSmoothness = 1000

Thanks for your help,
-Tony.
24 REPLIES 24
Message 21 of 25
Anonymous
in reply to: Tony.

was just kidding...

--
gl - Paul
"Joe Sutphin" wrote in message
news:5166173@discussion.autodesk.com...
For professional programmers who know what they are doing, nothing.

"Paul Richardson" wrote in message
news:5166030@discussion.autodesk.com...
what does the # sign do? 🙂 sorry couldn't help it...

--
gl - Paul
"Jorge Jimenez" wrote in message
news:5165800@discussion.autodesk.com...
I Double# that.

--
Saludos, Ing. Jorge Jimenez, SICAD S.A., Costa Rica


"Dave F." wrote in message
news:5165702@discussion.autodesk.com...
Joe

Have you been indoctrinated by aliens?

You sure are not the person I remember you used to be.

Now you're rude, arrogant, but even worse...

....your repeatedly wrong.

Over the previous months you've done a fantastic hatchet job on yourself,
destroying your reputation bit by bit, to the point I would not even
consider looking at your book in my local bookshop let alone purchasing it.

It amazes me how you got a puplishing deal

You're a sad twat.

Dave F.



"Joe Sutphin" wrote in message
news:5165054@discussion.autodesk.com...
Ah, you're a quick study, grasshopper! Not quite quick enough for my taste,
but quick nonetheless.

"Jorge Jimenez" wrote in message
news:5163026@discussion.autodesk.com...
Ah, the art of the written word !
I'm sure you are a master of the trade

This sounds good:
please accept my apology..

This sounds cynical:
Oh please accept my apology...

But you'll get the benefit of the doubt.
--
Saludos, Ing. Jorge Jimenez, SICAD S.A., Costa Rica


"Joe Sutphin" wrote in message
news:5162934@discussion.autodesk.com...
Oh please accept my apology ...

"Jorge Jimenez" wrote in message
news:5162924@discussion.autodesk.com...
That is definitely not good PR

--
Saludos, Ing. Jorge Jimenez, SICAD S.A., Costa Rica


"Joe Sutphin" wrote in message
news:5162636@discussion.autodesk.com...
Whatever you say ...

"R. Robert Bell" wrote in message
news:5162466@discussion.autodesk.com...
Jorge, you are correct. The key is to reset the Active(P)Viewport to the
modified (P)Viewport object.

Joe, if you run Jorge's code and then run ViewRes, you will see you are
incorrect.

Sub Test()
Dim myVPort As AcadViewport
Set myVPort = ThisDrawing.ActiveViewport
myVPort.ArcSmoothness = 1000 '<- change here
ThisDrawing.ActiveViewport = myVPort
SendCommand "._ViewRes " '<- note command line
End Sub


--
R. Robert Bell


"Jorge Jimenez" wrote in message
news:5161918@discussion.autodesk.com...
Oops, I think I'm wrong about this.

Your code should work but need to set the active viewport again.
For example, this code works

Dim myvport As AcadViewport

Set myvport = ThisDrawing.ActiveViewport
myvport.ArcSmoothness = 3000
ThisDrawing.ActiveViewport = myvport


--
Saludos, Ing. Jorge Jimenez, SICAD S.A., Costa Rica


"Jorge Jimenez" wrote in message
news:5161896@discussion.autodesk.com...
Tony, I believe the only way to set this
is using the viewres command.


--
Saludos, Ing. Jorge Jimenez, SICAD S.A., Costa Rica


wrote in message news:5160646@discussion.autodesk.com...
I can't get VBA to set the Arc Smoothness preference which is located at:
Tools-->Options-->Display-->Arc Smoothness

My code is below, but it doesn't work. The Arc Smoothness remains at the
default (100) and seems to ignore this code.

Dim acadApp As AcadApplication
Dim ThisDwg As AcadDocument
Set ThisDwg = acadApp.ActiveDocument
ThisDwg.ActiveViewport.ArcSmoothness = 1000

Thanks for your help,
-Tony.
Message 22 of 25
Anonymous
in reply to: Tony.

Joe if you keep posting rude and even border line racist comments like this we may have to award you the "Tony Tanzillo" award.

I would guess several us who post here have a command of more than one language. Remember this is an international Discussion group.

I hope you understand my english if not I can post this in Spanish, French or Portugese so your pea brain can understand. Is there a refund policy on your book ?

How is my english ?

Maximo
Message 23 of 25
Anonymous
in reply to: Tony.

Joe Sutphin wrote:
> From the looks of your command of the English language I can see why you did
> not!

One spelling mistake - as you Americans might hear said in some of your
truly awful sitcoms - bite me!

> At least I've not sunk to name calling.
No, just sarcasm.

Also, it's amazing how the last week
> or so has turned into months. Hmm, I must not be able to count either.

What? You think this is the only thread you've been rude in?
Your memory must be worse than that of a goldfish.




>
> Joe
> --
>
> "Dave F." wrote in message
> news:5165702@discussion.autodesk.com...
> Joe
>
> Have you been indoctrinated by aliens?
>
> You sure are not the person I remember you used to be.
>
> Now you're rude, arrogant, but even worse...
>
> ....your repeatedly wrong.
>
> Over the previous months you've done a fantastic hatchet job on yourself,
> destroying your reputation bit by bit, to the point I would not even
> consider looking at your book in my local bookshop let alone purchasing it.
>
> It amazes me how you got a puplishing deal
>
> You're a sad twat.
>
> Dave F.
>
>
>
> "Joe Sutphin" wrote in message
> news:5165054@discussion.autodesk.com...
> Ah, you're a quick study, grasshopper! Not quite quick enough for my taste,
> but quick nonetheless.
>
> "Jorge Jimenez" wrote in message
> news:5163026@discussion.autodesk.com...
> Ah, the art of the written word !
> I'm sure you are a master of the trade
>
> This sounds good:
> please accept my apology..
>
> This sounds cynical:
> Oh please accept my apology...
>
> But you'll get the benefit of the doubt.
Message 24 of 25
Anonymous
in reply to: Tony.

T.T. is constantly here helping us out. To link his name to a sentence where
you use the term "racist" seems out of bounds!

--
gl - Paul
wrote in message news:5166665@discussion.autodesk.com...
Joe if you keep posting rude and even border line racist comments like this
we may have to award you the "Tony Tanzillo" award.

I would guess several us who post here have a command of more than one
language. Remember this is an international Discussion group.

I hope you understand my english if not I can post this in Spanish, French
or Portugese so your pea brain can understand. Is there a refund policy on
your book ?

How is my english ?

Maximo
Message 25 of 25
Anonymous
in reply to: Tony.

Paul ,

Well I guess my english is not perfect and needs more clarification. I did not mean to give the T.T. award to a racist but to a rude and pompous person who insults others and boasts about his superior knowledge.


Saludos de Espana,
Maximo

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk Design & Make Report

”Boost