60000534 Sketch command with minimun step as polyline object when moving the mouse.

Summary

Sketch command with minimun step as polyline object when moving the mouse.

Solution

In version 6019 a new command cvdSketch has been added

Starts a Sketch command.
param name="Distance">A double value representing the Sketch Record Increment distance or "USER",null so the user picks this distance to the screen.
param name="RubberLineColor">The Color that will be used as rubberLine.
returns>True if the command was succesfull.
bool CmdSketch(object Distance, Color RubberLineColor);

Additional information for the command :

The sketch command is a helpfull command that by moving the cursor points are being added. This command can be used over added imagesto a Document to draw polylines easily simply by moving the cursor over these lines.The command starts by asking a distance. This distance is going to be used as a reference distance between the points.So if a user provides a distance of 0.5 this means that every 0.5 drawing units a point is going to be added.The command starts after providing a distance and a start point is being asked. By Left mouse clicking that command starts. Left mouse means Pen Down and points are being added as the mouse moves.

Other Keyboard commands during the Sketch command

P : Pen Up / Pen Down : By pressing the P key is the same as Left mouse click. While Pen Down points are being added and while Pen up no points are being added and the user can move to a different section of the Document and start a new polyline.

E : Erase mode On/Off : By pressing the E button the erase mode is activated and the user can correct a previous point by simply moving the cusros over the previously added points and automatically these points arte going to be erased.

C : Closes the current polyline

Right Click : Ends the command and returns/adds the polylines that where created from the userr to the document.

Esc : Cancels the command and no polylines are being added.

This command in the wrapper can be used as following :
Dim doc As vdDocument
Set doc = VDraw1.ActiveDocument.WrapperObject
doc.CommandAction.CmdSketch 0.5, &HFF

Send comments on this topic.