[Delete Record Field]

Anyone know if there is a way to delete or replace a record field from an existing record using VS?

 

Thanks!

[Create a List of Symbols in Resources]

Untested, but something like this should work...

 

Procedure CheckSymbolExists;

VAR

    gsSymNameCurrent : STRING;

 

Function DoIt(h1 : HANDLE) : BOOLEAN;
VAR
    sSymNameExist : STRING;
BEGIN
    IF (h1 <> Nil) & (GetType(h1) = 16) THEN BEGIN
        sSymNameExist := GetSDName(h1);
        IF sSymNameExist = gsSymNameCurrent THEN SysBeep;
    END;
END;

 

BEGIN

    gsSymNameCurrent := StrDialog('Symbol name to search for:', '');
    ForEachObjectInList(DoIt, 0, 2, FSymDef);
END;
Run(CheckSymbolExists);

[PIO Parameter Problem]

It sometimes behaves like this Pat but I just tolerate the quirkiness and restart VW, Edit/Exit the WS Editor, etc. until it works. Typical of VS though. You steam along making great progress then something like this of another odd result stops you in your tracks. 

[Select PIO's on Sheet Layers]

Draw a rectangle on any sheet layer, that is just a bit bigger than the page size. Give it a unique name like 'Custom-Select-Rect'. Run the script below and substitute your PIO name for My PIO Name. 

 

ForEachObject(SetSelect, ((LOC='Custom-Select-Rect') & (PON='My PIO Name')));

 

This will select the objects on ALL sheet layers.

[duplicate objects created]

Yes once a PIO is event enabled, then everything must be dealt with in the correct event. I'm pretty sure there are some sample event based PIOs floating around or in the SDK.

[duplicate objects created]

The duplicates are likely being placed relative to the internal origin.. Try making sure the symbols are being inserted in Event = 3. Otherwise they can be outside the PIO container.

[changing symbol name]

I think you would need to use GetSymbolOptionsN() then SetSymbolOptionsN(), loading the latter with the values from the former, except for the symbol name.

[Layer order function?]

A1. Layer stacking order.

A2. Don't know.

[Newbie Repeat Dialog Value ForEachObject inquiry]

Try this slight variation (untested):

 

Procedure SomeCalloutMrgnDialog;
Var    
    H1:Handle;
    B1:Boolean;
    MrgnCall, MrgnValue,LyrScale:Real;
    MrgnValueStrng,default,request:String;

Procedure GetValues;
Begin
    
    request:='CallOut PIO Page Unit Margin';
    default:='0.0625';
    
    MrgnCall:=DistDialog(request,default);
    
    LyrScale:=GetLScale(ActLayer);
    MrgnValue:=LyrScale*MrgnCall;
    
    MrgnValueStrng:=Concat(MrgnValue);
End;

Procedure SetObj_Value(H1:Handle);
Begin
    
    SetRField(H1,'Callout','Margin',MrgnValueStrng);
    
    ResetObject(H1);
    
    SetDSelect(H1);
    
End;
    

Begin
    GetValues;
    ForEachObject(SetObj_Value,(((VSEL=TRUE) & (PON='Callout'))));
    DoMenuTextByName('Previous Selection',0);
    
End;
Run(SomeCalloutMrgnDialog);

[OIP indenting not working in 2020]

Sorry, I meant to say this is where it needs to be if you are using collapsing widget separators. Otherwise, it can be used in different places.

[OIP indenting not working in 2020]

I'm not seeing any issues either, but it might depend on where in the code you are calling it. Should be in kObjOnInitXProperties (event 5).

[CreateLineWeightPopop]

CreateLineWeightPopup() doesn't give the option to use class thickness Andy. 

[CreateLineWeightPopop]

Try GetLineWeightChoice() Andy. At least that's what I use.

[Custom “Assign to [class name]” script.]

Set the above script to be Vectorscript, not Python. If you can't do that, in python it will be something like this:

 

vs.SetClassN(vs.FSActLayer(), 'my class name', True)

 

but I know nothing about python.

[Custom “Assign to [class name]” script.]

You could try this:

 

SetClassN(FSActLayer, 'my class name', True);

 

I likely won't work in groups or symbols though. If used on a group (not in a group), the last argument (true or false) will determine if all the objects in the group also get the class assignment.

[Pre-Select a choice in CreatePullDownMenu]

You need to use SelectChoice(). The index is zero based so make sure you load the menu from zero.

[Script vs GUI]

Wild guess. Try adding this:

 

ResetObject(CounterTopH);

 

at the end of the create floor section.

[Dimension Trailer Text]

Try changing the criteria in ForEachObject() to:

(INSYMBOL & INOBJECT & INVIEWPORT & (T=DIMENSION) & (SEL=TRUE))

[List object style in a worksheet]

Actually I did know Pat and have used it in a worksheet previously. I just forgot. It's there in the insert function list.

[List object style in a worksheet]

I agree Pat. Some invisible characters in the code I suspect.

[List object style in a worksheet]

This script works for me. Pat's one doesn't. You have to call the script name not the procedure name however, in RunScript().

 

Procedure T;
BEGIN
    WSScript_SetResStr(GetPluginStyle(WSScript_GetObject));
END;
Run(T);

[Dimension Trailer Text]

It's possible you have picked up an invisible character by copying from the browser. Try deleting the last line and everything below it then retyping it manually. Or copy the script to a text editor and turn on invisible characters to see if you can spot something.

[Dimension Trailer Text]

It works for me. What is the error?

[Dimension Trailer Text]

You can do this using the single most powerful procedure in VS: ForEachObject. It also filters out other object so will only affect dimensions in this case.

 

PROCEDURE DimTypical;

PROCEDURE DoIt(h1 : HANDLE);
BEGIN
    SetObjectVariableString(h1, 10, ' Typ.');
    ResetObject(h1);
END;
BEGIN
    ForEachObject(DoIt, (T=DIMENSION) & Sel);
END;
Run(DimTypical);

[Dimension Trailer Text]

Yep ResetObject(Selection); will do it. Also note there is a missing semi colon on line 6.