QCAD.org Forum

Code: Select all

// Full Arcs to Circles script by CVH
var doc = getDocument();
var di = getDocumentInterface();
var arcsCollected = [];

// Retrieve the selection:
var ids = doc.querySelectedEntities();

// Terminate without selection:
if (ids.length === 0) {
    EAction.handleUserWarning("Nothing Selected! Script terminated.");
    return;
}

// Filter full Arcs from selection:
for (var i=0; i<ids.length; i++) {
    // Get entity from the document:
    var entity = doc.queryEntity(ids[i]);

    // Collect when exist and is full Arc:
    if (!isNull(entity)){
        if (isArcEntity(entity)) {
            var arcSweep = Math.abs(entity.getSweep());
            if (RMath.fuzzyAngleCompare(arcSweep, Math.PI*2.0)) {
                arcsCollected.push(ids[i]);
            }
        }
    }
}

// Terminate without full Arcs in selection:
if (arcsCollected.length === 0) {
    EAction.handleUserWarning("No full Arc entities selected! Script terminated.");
    return;
}

// Setup an operation:
var operation = new RModifyObjectsOperation();
operation.setText("Full Arcs to circles");

// Process collected Arcs
for (var i=0; i<arcsCollected.length; i++) {    //Cycle collected Arcs
    // Get full Arc from the document:
    var fullArc = doc.queryEntity(arcsCollected[i]);

    // Create a new Circle entity:
    var newCircle = new RCircleEntity(
                    doc,
                    new RCircleData(
                        fullArc.getCenter(),
                        fullArc.getRadius()
                    )
    );

    // Add the new Circle to the operation:
    operation.addObject(newCircle, false, true);    // NOTuseCurrentAttributes, DOforceNew

    // Mark the full Arc to delete:
    operation.deleteObject(fullArc);
} // Loop Arcs

// Apply all modifications:
di.applyOperation(operation);

// Finished:
var msg = "Created " + arcsCollected.length + " Circle entity/ies."
EAction.handleUserInfo(msg);
EAction.handleUserMessage("Script ended.");
return;