SHARE
TWEET

Gio PEt

a guest Jun 29th, 2010 82 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. {Set Active Class_Command to set as Active the Class of the selected object.
  2. Copyright (C) 2010  Giovanni Petrolito}
  3.  
  4.  
  5. PROCEDURE SetObjectClass;
  6. VAR
  7.         h : HANDLE;
  8.         Active_class : STRING;
  9.    x, y :REAL;
  10.  
  11. BEGIN
  12.        
  13.        
  14.         GetPt(x, y);
  15.    h := PickObject(x, y);
  16.                
  17.                 IF h<>NIL THEN BEGIN
  18.        
  19.                         Active_class:= GetClass(h);
  20.                         NameClass(Active_Class);
  21.                         SetTool(-240);
  22.                 END;
  23. END;
  24. Run(SetObjectClass);
  25.  
  26.  
  27.  
  28.  
  29. {This program is free software: you can redistribute it and/or modify
  30.     it under the terms of the GNU General Public License as published by
  31.     the Free Software Foundation, either version 3 of the License, or
  32.     (at your option) any later version.
  33.  
  34.     This program is distributed in the hope that it will be useful,
  35.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  36.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  37.     GNU General Public License for more details.
  38.  
  39.     You should have received a copy of the GNU General Public License
  40.     along with this program.  If not, see <http://www.gnu.org/licenses/>.}
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top