Jump to content

HansWurst

Member
  • Posts

    4
  • Joined

  • Last visited

Posts posted by HansWurst

  1. @Pat Stanford Thanks for your input.

     

    I don't understand why this works with the polyline tool:

     

    Quote

    Procedure CustTool;
    VAR 
    Name:STRING;
    Result:BOOLEAN;
    BEGIN 
    PushAttrs;
    NameClass('060-Beschriftung');
    TextFont(130);
    TextSize(10);
    TextFace([]);
    CallTool(-204);
    PopAttrs;
    END;
    Run(CustTool);

     

    This script allows me to draw a polyline on the class 060-Beschriftung and returns to the original active class after finishing the polyline.

    When I modify the script with the 'callout tool' it puts the new created  Callout in the active class... 

  2. @michaelk thanks for your reply but no, I want to creat a new callout with a specific class (060-Beschriftung) without changing the class by hand.

     

    The right question ist probably: How do i get the script to wait until I created a new callout and restore the original class afterwards?

  3. Hi There!

    I'm new in this forum and new to scripting. I've found Pat Stanfords script very useful but I'would like to rstore the ActiveClass and modified the script like that:

     

    Quote

     

    Procedure ClassedCallout;

    Const    MyClass='060-Beschriftung';
            MyFont=130;
            MyFontSize=10;

    Var    S1: String;
        B1: Boolean;
        
    Begin
        S1:=ActiveClass;
        NameClass(MyClass);
        TextFont(MyFont);
        TextSize(MyFontSize);
        TextFace([]);
        B1:=CallToolByName('Callout Tool');
        DSelectAll;    
        NameClass(S1);
    End;

    Run(ClassedCallout);

     

     

    but it doesn't work - the callout is still selected and the former active class is asigned. As Jesse Cogswell allready mentioned it looks like the script doesn't know when the tool is finished. I also tried PushAttrs/PopAttrs with the same solution...

    Can Anybody help? 

×
×
  • Create New...