topic Re: Setting ArcSmoothness in VBA Forum

Setting ArcSmoothness

Anonymous — Tue, 02 May 2006 11:34:54 GMT

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.

Re: Setting ArcSmoothness

Anonymous — Tue, 02 May 2006 12:15:34 GMT

The value displayed in the Preferences dialog is the VIEWRES system variable
not the arc smoothness. Try this example to see what I mean.

Joe
--

Public Sub Test()
MsgBox ThisDrawing.ActiveViewport.ArcSmoothness
ThisDrawing.ActiveViewport.ArcSmoothness = 1234
MsgBox ThisDrawing.ActiveViewport.ArcSmoothness
End Sub

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.

Re: Setting ArcSmoothness

Anonymous — Wed, 03 May 2006 01:56:46 GMT

Joe,

Then perhaps my question should be, "How do I change the ViewRes system variable using VBA?"

The point is that I want to have the effect that changing "ArcSmoothness" within the Tools-->Options-->Display--> menu.

When I change this value to, say, 1000 in a drawing, I get the effect that I want. But I cannot get this effect using
VBA.

Why would they name something
ThisDrawing.ActiveViewport.ArcSmoothness
if it doesn't change the preference item with the exact same name?

-Tony.

Re: Setting ArcSmoothness

Anonymous — Wed, 03 May 2006 05:46:06 GMT

VIEWRES is a command not a system variable.

Regards - Nathan

Re: Setting ArcSmoothness

Anonymous — Wed, 03 May 2006 08:26:46 GMT

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.

Re: Setting ArcSmoothness

Anonymous — Wed, 03 May 2006 08:47:06 GMT

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.

Re: Setting ArcSmoothness

Anonymous — Wed, 03 May 2006 09:41:32 GMT

His code works fine, it's just not changing what he thinks it's changing.

Joe
--

"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.

Re: Setting ArcSmoothness

Anonymous — Wed, 03 May 2006 15:54:43 GMT

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.

Re: Setting ArcSmoothness

Anonymous — Wed, 03 May 2006 17:01:27 GMT

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.

Re: Setting ArcSmoothness

Anonymous — Wed, 03 May 2006 17:47:18 GMT

Yes, it's changing what he thinks it should be changing.

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

"Joe Sutphin" wrote in message
news:5161921@discussion.autodesk.com...
His code works fine, it's just not changing what he thinks it's changing.

Joe
--

"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.

Re: Setting ArcSmoothness

Anonymous — Wed, 03 May 2006 20:04:30 GMT

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.

Re: Setting ArcSmoothness

Anonymous — Wed, 03 May 2006 20:14:19 GMT

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.

Re: Setting ArcSmoothness

Anonymous — Wed, 03 May 2006 21:03:01 GMT

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.

Re: Setting ArcSmoothness

Anonymous — Wed, 03 May 2006 22:25:01 GMT

What did you think his code was changing?

Regards - Nathan

Re: Setting ArcSmoothness

Anonymous — Fri, 05 May 2006 11:51:34 GMT

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.

Re: Setting ArcSmoothness

Anonymous — Fri, 05 May 2006 17:18:42 GMT

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.

Re: Setting ArcSmoothness

Anonymous — Fri, 05 May 2006 18:03:07 GMT

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.

Re: Setting ArcSmoothness

Anonymous — Fri, 05 May 2006 20:24:54 GMT

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.

Re: Setting ArcSmoothness

Anonymous — Fri, 05 May 2006 23:46:59 GMT

From the looks of your command of the English language I can see why you did
not!

At least I've not sunk to name calling. Also, it's amazing how the last week
or so has turned into months. Hmm, I must not be able to count either.

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.
--
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.

Re: Setting ArcSmoothness

Anonymous — Fri, 05 May 2006 23:48:04 GMT

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.