marin_andrei
2004-06-21, 12:27 PM
I want to create from a procedure some points in the ModelSpace that should respond to events.
I created a class "eventpoints" and the "eventpoints_Modified" procedure
I want to write a function that creates a new AcadPoint object passing the coordinates and that retuns the handle to the newly created point
dim new evpoint as new eventpoints
function eventpoints_initialize_events(x as double, y as double, z as double) as string
dim point as acadpoint
dim coo(2) as double
coo(0)=x
coo(1)=y
coo(2)=z
set point = thisdrawing.modelspace.addpoint(coo)
set evpoint.object = point
eventpoints_initialize_events = point.Handle
end function
Where should I put the "dim new evpoint as new eventpoints"?
I created a class "eventpoints" and the "eventpoints_Modified" procedure
I want to write a function that creates a new AcadPoint object passing the coordinates and that retuns the handle to the newly created point
dim new evpoint as new eventpoints
function eventpoints_initialize_events(x as double, y as double, z as double) as string
dim point as acadpoint
dim coo(2) as double
coo(0)=x
coo(1)=y
coo(2)=z
set point = thisdrawing.modelspace.addpoint(coo)
set evpoint.object = point
eventpoints_initialize_events = point.Handle
end function
Where should I put the "dim new evpoint as new eventpoints"?