topic Re: using VBA to rotate 3d object in VBA Forum

using VBA to rotate 3d object

Anonymous — Sun, 13 Nov 2005 03:32:50 GMT

Dear sir,
I have a drawing of AutoCAD it contains some objects.I want to use rotade3d in VBA. First I want to select the object from the drawing and then rotate it.
I wrote the code as follows
Sub Example_rotate()
' This example creates a selection set and several objects.
' It then adds the objects to the selection set, and then
' rote the objects of selection set.
ThisDrawing.Application.Documents.Open ("d:\cad\test")
' Create the selection set
Dim ssetObj As AcadSelectionSet
Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")

' Add all object to the selection set that lie within a crossing of (0,-1,0) and
' (14, 1,0)
Dim mode As Integer
Dim corner1(0 To 2) As Double
Dim corner2(0 To 2) As Double

mode = acSelectionSetCrossing
corner1(0) = 0: corner1(1) = -1: corner1(2) = 0
corner2(0) = 14: corner2(1) = 1: corner2(2) = 0
ssetObj.Select mode, corner1, corner2

' Define the rotation axis with two points
Dim rotatePt1(0 To 2) As Double
Dim rotatePt2(0 To 2) As Double
Dim rotateAngle As Double

rotatePt1(0) = 0: rotatePt1(1) = 0: rotatePt1(2) = 0
rotatePt2(0) = 0: rotatePt2(1) = 0: rotatePt2(2) = 3
rotateAngle = 90
rotateAngle = rotateAngle * 3.141592 / 180#

ssetObj.Rotate3D rotatePt1, rotatePt2, rotateAngle

End Sub
Note>>>>>>> when I change the last code line
From ssetObj.Rotate3D rotatePt1, rotatePt2, rotateAngle
To ssetObj.Erase . the erase is done.
But in rotation case I have response tells error in the following code line
ssetObj.Rotate3D rotatePt1, rotatePt2, rotateAngle
Looking forward to your help
Yours
Qudeiri

Re: using VBA to rotate 3d object

Anonymous — Sun, 13 Nov 2005 04:26:30 GMT

I dont think a selectionset has the rotate property. Try ssetObj(0).Rotate3D or for i=0 to ssetObj.count-1 set Ent=ssetOb(i)

Re: using VBA to rotate 3d object

Anonymous — Mon, 14 Nov 2005 03:42:36 GMT

Deae Bryco
Please give me some details about how can I select more then one object from existing drawing. then how I can rotate it.
I have error with this for i=0 to ssetObj.count-1 set Ent=ssetOb(i)

Re: using VBA to rotate 3d object

Anonymous — Mon, 14 Nov 2005 03:43:10 GMT

Deae Bryco
Please give me some details about how can I select more then one object from existing drawing. then how I can rotate it.
I have error with this for i=0 to ssetObj.count-1 set Ent=ssetOb(i)

looking forwared to hearing from you
yours
qudeiri

Re: using VBA to rotate 3d object

Anonymous — Mon, 14 Nov 2005 06:01:19 GMT

To cycle through all entities in a selectionset.

For Each objEnt in objSSet

Next objEnt

Regards - Nathan

Re: using VBA to rotate 3d object

Anonymous — Mon, 14 Nov 2005 13:51:41 GMT

Either Nathan's or my why will work. You should always have option explicit at the top of the module if your using vba and that will tell you if you forget to dim i as integer. If you have an on error next statement, get rid of it until you have your code running or just get rid of it. Rotating every ent in your selection set is the same as rotating the whole set so you'll get there.