Community

Setting ArcSmoothness

Setting ArcSmoothness

Anonymous
Not applicable
1,110 Views
24 Replies
Message 1 of 25

Setting ArcSmoothness

Anonymous
Not applicable
‎05-02-2006 04:34 AM
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.
0 Likes
Like
Report
1,111 Views
24 Replies
Replies (24)
Message 2 of 25

Anonymous
Not applicable
‎05-02-2006 05:15 AM
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.
0 Likes
Like
Report
Message 3 of 25

Anonymous
Not applicable
‎05-02-2006 06:56 PM
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.
0 Likes
Like
Report
Message 4 of 25

Anonymous
Not applicable
‎05-02-2006 10:46 PM
VIEWRES is a command not a system variable.

Regards - Nathan
0 Likes
Like
Report
Message 5 of 25

Anonymous
Not applicable
‎05-03-2006 01:26 AM
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.
0 Likes
Like
Report
Message 6 of 25

Anonymous
Not applicable
‎05-03-2006 01:47 AM
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.
0 Likes
Like
Report
Message 7 of 25

Anonymous
Not applicable
‎05-03-2006 02:41 AM
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.
0 Likes
Like
Report
Message 8 of 25

Anonymous
Not applicable
‎05-03-2006 08:54 AM
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.
0 Likes
Like
Report
Message 9 of 25

Anonymous
Not applicable
‎05-03-2006 10:01 AM
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.
0 Likes
Like
Report
Message 10 of 25

Anonymous
Not applicable
‎05-03-2006 10:47 AM
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.
0 Likes
Like
Report
Message 11 of 25

Anonymous
Not applicable
‎05-03-2006 01:04 PM
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.
0 Likes
Like
Report
Message 12 of 25

Anonymous
Not applicable
‎05-03-2006 01:14 PM
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.
0 Likes
Like
Report
Message 13 of 25

Anonymous
Not applicable
‎05-03-2006 02:03 PM
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.
0 Likes
Like
Report
Message 14 of 25

Anonymous
Not applicable
‎05-03-2006 03:25 PM
What did you think his code was changing?

Regards - Nathan
0 Likes
Like
Report
Message 15 of 25

Anonymous
Not applicable
‎05-05-2006 04:51 AM
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.
0 Likes
Like
Report
Message 16 of 25

Anonymous
Not applicable
‎05-05-2006 10:18 AM
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.
0 Likes
Like
Report
Message 17 of 25

Anonymous
Not applicable
‎05-05-2006 11:03 AM
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.
0 Likes
Like
Report
Message 18 of 25

Anonymous
Not applicable
‎05-05-2006 01:24 PM
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.
0 Likes
Like
Report
Message 19 of 25

Anonymous
Not applicable
‎05-05-2006 04:46 PM
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.
0 Likes
Like
Report
Message 20 of 25

Anonymous
Not applicable
‎05-05-2006 04:48 PM
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.
0 Likes
Like
Report
Report a website issue