GD&T CAD from Dimension to TABLE output

 This is a routine using Dimension entities in the drawing to place the GD&T information, Number of Checks, and component name to the object.

The result is, the user can later export this information to a CSV file or link back to AutoCAD drawing in TABLE form.

The program must be located in C:\GDNTCAD folder only.

Functions:

• XDT2CSVT
• Export Dimensions to CSV file. And AUTOX-automatically update table and link files
• PutD 
• Assign a Part name and GD&T information to Dimensions.
• GetD 
• Read Part name information from Dimension.
• P2M 
• Match the properties part name to other Dimensions
•  MoDD
• Modify the property part name of Dimensions

 Some functions image for reference:

Download link: GD&T CAD, the link comes with a video file on how to install and use it.

Enjoy....

Sim

For AutoCAD info https://acad.my 

or

ACAD.MY Malaysia

How to Flatten? Here the script program file for AutoCAD

There is a Flatten script file for AutoCAD.

Users of AutoCAD who are working with entities that are not on the same Z plane axis will have trouble TRIMMING and EXTENDING them.

The script file to FLATTEN all of the entities' Z coordinates to zero is attached.

Type SCRIPT <enter> at the command line in AutoCAD, look for FLAT.SCR file and load it.

To download just click this FLAT.SCR  filed.

All of the entities' Z values will be reset to 0.00 by the systems.

Enjoy.

For AutoCAD info https://acad.my 

or

ACAD.MY Malaysia

ACAD SYSTEMS Add-on Bonus Tools for 2025 AutoCAD and AutoCAD LT 2024-5 only version 2025.96 (06-8-2024)

This is the add-on AutoLISP routine for  AutoCAD 2024 and above, a collection of design tools can be found here. Enjoy.

ACADSYS Bonus Tools are a collection of AutoLISP commands that help design, manage, and edit drawings and layout them easily. A total of about 130 AutoLISPs.

Those tools are:

• -New PT and PT1(DPP) all-in-one for Text Numbering and Editing tools.
• -Calculate Text number and Mtext and text manipulation. 
• -PTTC and PTTC1  new Sequence text numbering, block with the attribute data sequence number, and any sequence auto-numbering
• - Auto-position text to the centroid of the plot/closed boundary with area and parameter details.(MT2CPL)
• - Auto Calculation of the Area boundary.
• -Auto finds the nearest distance inside AutoCAD and Dimension for 2 objects(MMDT).
• -Simple Block and XRef editing and management tool command.
• - Flexible Hole Chart and EntitiesReporting.
• - Report of layers and utilities.
• -Convert Pline Arc segments to Line segments by Deflection angle- GIS purpose- command PLA2L 
• -Quickdraw utilities, hidden and unhide utilities.- exp: chamfer (CFD) by Slot Distance Angle(S2D), Contour outside(ECO).
• Isometric Design command -Iso offset(IOO) and ISOMAKER

Full Youtube Video playlist and know how to use the command Click the link below or Here  :

https://www.youtube.com/watch?v=qTbK-G8Jsgg

Menu file of AutoLISP add-on: ACADSYS_2025.MNU 

Please read the installation file first HOW TO INSTALL ACADSYS-2024-V10.docx

Download the installer here:
Installer zip file
Must place all the files in C:\ACADFULLC folder drive C.

For LT2024 version only:  Additional step: Add the C:\ACADFULLC path manually,  type OPTIONS goto Files at Support File Search Path and Trusted Locations.

Note: 

Improve PT and PT1 command 2025.96

Changes on PT and PT1 command options key T for Trim and Z for Text version 2025.90, 23-07-2024.

From version 2025.850 onward, the file desktop.dcl was no longer required. 

New DPP command 24-06-2024 for Text, Dimension, Area, Perimeter, and auto numbering. YOUTUBE DPP command video.

update -PT and PT1 command 2-07-2024

Free for use on a personal basis.

Enjoy.
 Sim
sim@acadsystems.com
ACAD Systems Sdn Bhd

https://acadsystems.com 

+6019-4125950

ACADSYSTEMS Bonus Tools movie files

Below is ACAD Systems Bonus tools movie files on how to use the command.

MOVIE PART1

MOVIE PART2

MOVIE PART 3

ADD-ON LISP MOVIE


Enjoy....
Sim


sim@acadsystems.com
ACAD Systems Sdn Bhd
https://acadsystems.com
+6019-4125950

CUI -How to add pulldown menu to Shorcut Menu on the mouse Right Click button.

CUI customization  

 Placing pulldown menu command to Shortcut Menu=Cursor right click area in AutoCAD.

1.        Type CUI in Autocad command line. Goto Customize tab, then Partial Customization Files, Where the custom pulldown menu located. 

2.        Goto the pulldown Menus that want to copy and transfer. Select and Right click to Copy.

 

3.        Then goto current  Menus on top, then subfolder Shortcut Menus, then Default Menu and inside Default menu -just right click to Paste at that location.

          

4.        Click Apply and OK.  Done.

More details in this WORD files

        

Enjoy


 Sim
sim@acadsystems.com
ACAD Systems Sdn Bhd
https://acadsystems.com
+6019-4125950

ACAD SYSTEMS LT ADDON UTILITY for 2020 and below

New ACAD SYSTEMS  LT ADDON UTILITY -for AutoCAD LT 2020


Just type MENULOAD in AutoCAD LT command and load the
LTACADSYSTEMS_BONUS_2021.MNU for AutoCAD LT 2019 or AutoCAD LT 2020.  More stable version.
Fixed issue on an Auto numbering or Text Sequence numbering. (2nd July 2019).

The improved new version will more pre-text auto numbering format.

Download here :
LT ADDON BONUS UTILITIES FROM ACAD SYSTEMS


Enjoy.....

 Sim
sim@acadsystems.com
ACAD Systems Sdn Bhd
https://acadsystems.com
+6019-4125950

New ACAD SYSTEMS Bonus Tools for 2020 AutoCAD and below

This is addon Autolisp routine for  AutoCAD 2016 and above, also partially support LT version.
Many collections of shortcut command can be found inside here. Enjoy..

Please remember to turn on the Menubar inside AutoCAD.
and add the support path of C:\ACADFULLLISP3 to AutoCAD plus add a Trusted location path to C:\ACADFULLLISP3\PROGRAM folder to AutoCAD using options command.

Try using a new menu file of ACADFAN-P2020ADD.MNU.


Read the readme first file first for version 2019.

Latest version updated on 2nd July 2019.

Download here :
Installer-ZIP_files.

Enjoy.

 Sim
sim@acadsystems.com
ACAD Systems Sdn Bhd
https://acadsystems.com
+6019-4125950

How to Convert Toolbars to Ribbon Panels

1. On the ribbon, click Manage tab -> Customization panel> User Interface.  CUI  - Find
2. In the Customize User Interface editor, Customize tab, in the Customizations In  pane, open the Toolbars list.
3. Right-click the toolbar you want to convert and select Copy to Ribbon Panels.
   A copy of the toolbar is added to the list of ribbon panels.

or Type CUI command to active the  command


Enjoy

 Sim
sim@acadsystems.com
ACAD Systems Sdn Bhd
https://acadsystems.com
+6019-4125950

Quick Access Toolbar customization - 2018

The basic trick for user dun likes the ribbon toolbar, but cannot avoid it and still prefer keyboard typing and using the icon toolbar.  Solutions:

§Quick Access Toolbar – “just right click” using the most common command – this only works in Ribbon toolbar then select add to Quick Access toolbar.

If you want to copy the toolbar icon, to the Quick access toolbar - Type CUI at the command line, go to the quick access toolbar:

Just drag and drop the icon at "Red Arrow"  to the Quick Access toolbar "RED BOX".

And click apply. 

Enjoy

        Sim 

sim@acadsystems.com

ACAD Systems Sdn Bhd

https://acadsystems.com

+6019-4125950

§

AutoCAD Addon for ACAD Systems for version 2018

This update included some entities export to table or Excel file. Finding shortest distance of 2 objects and ECO tracing outer line of objects.


Look for ACADFULLLISP3menu-loading-step2018.docx on how to install.

Download Link below :
ACAD_Full-Addon-2018


Enjoy.

 Sim
sim@acadsystems.com
ACAD Systems Sdn Bhd
https://acadsystems.com
+6019-4125950

For Advance version LT Simple menu customization - Building area, Wall and Land information - please contact sales@acadsystems.com

For Advance LT simple menu customization, this version including auto area boundary -selecting the profile (just by one click) and the system will place the boundary information  into a block "AutoCAD entity", the block contains of area, lot no, perimeter of the boundary and can be exported to excel file, The system also provided an excel file which contains the conversion of the area details, predefined formula was created inside these excel file, easy for user to do conversion of area from mm to feet, cm to feet, wall height, cost per square feet and can be customized for difference purpose.

sample movie :   Area boundary movie


For more details - contact : sales@acadsystems.com
or Tel :04-3992708

Sim

LT simple menu - for lt2014-2016

This classic menu only support pulldown menu.



Come with - auto numbering, Align with line, Flatten, offset half distance , or quater distance,
Area and attribute block update.

Program as below :
 copy and paste to simple.mnu file and load the file in AutoCAD or AutoCAD LT

 Sim
sim@acadsystems.com
ACAD Systems Sdn Bhd
https://acadsystems.com
+6019-4125950


////////////////////////////////////////////////////////////////////////////
//
//
//   ACADSYSTEMS (PENANG) SDN BHD  tel:604-3992708  fax:604-3990708
//
//   or email sim@acadsystems.com for details HP +6019-412-5950
//
///////////////////////////////////////////////////////////////////////////
//
//   ;  = enter in autocad
//   \  = pick in autocad
//   @  = alias or last pick point in autocad
//   *  = multiple in autocad
//   ^C   CANCEL
//
//   $M=         = convert to string
//   $(*,34,5)   = 34 * 5
//   $(+,34,5)   = 34 + 5
//   $(-,34,5)   = 34 - 5
//   $(/,34,5)   = 34 / 5
//   $(getvar,distance)  = get variable value of setvar distance from autocad

***menugroup=LT-SIMPLE1-menu

***pop1
[DT-sim-LTMENUr1]
[align-ref]^C^C_SELECT;AUTO;\_MOVE;P;;\\_ROTATE;P;;@;r;\
[align-dl]^C^Cline;\\;erase;l;;_SELECT;AUTO;\_MOVE;P;;\\_ROTATE;P;;@;$M=$(*,$(getvar,lastangle),57.272727);Redraw
[Offset 1/2 dist]^C^C_offset;'_dist;\\$m=$(/,$(getvar,distance),2);
[Offset 1/4 dist]^C^C_offset;'_dist;\\$m=$(/,$(getvar,distance),4);
[--]
[Transfer dist]'_dist;\\$m=$(eval,$(getvar,distance))^Z
[2012 - DELETE DUPLICATE ]^C^COVERKILL
[2012 - NCOPY -Copy objects in block]^c^cNCOPY
[2011 - CHSPACE convert inside viewport to layout object]^C^CCHSPACE
[--]
[Area -Bpoly- With text Area ]^C^C-BOUNDARY;\;CHANGE;L;;P;C;3;;m;L;;@;\LIST;L;;graphscr;+
Text;\0;$M=$(rtos,$(GETVAR,area),2,3);
[Area - Bpoly- With text Perimeter and Area ]^C^C-BOUNDARY;\;CHANGE;L;;P;C;3;;m;L;;@;\LIST;L;;graphscr;+
Text;\0;$M=$(rtos,$(GETVAR,perimeter),2,2);Text;\0;$M=$(rtos,$(GETVAR,AREA),2,3);
[FLATTEN -CONVERT TO 2D Z=0]^C^CUCS;;MOVE;ALL;;0,0,1E99;;MOVE;P;;0,0,-1E99;;
[--]
[CONTINUE PRE-TEXT NO FROM 1]^C^CSETVAR;MTJIGSTRING;\+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"1";+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"2";+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"3";+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"4";+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"5";+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"6";+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"7";+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"8";+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"9";+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)"10";
[CONTINUE PRE-TEXT FROM GIVEN NO WITH INCREMENT OF 1]^C^CSETVAR;MTJIGSTRING;\SETVAR;USERR1;\+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$(RTOS,$(+,$(GETVAR,USERR1),0),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),1),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),2),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),3),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),4),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),5),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),6),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),7),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),8),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),9),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),10),2,0);
[--]
[CONTINUE PRE-TEXT, START NO, AND INCREMENT]^C^CSETVAR;MTJIGSTRING;\SETVAR;USERR1;\SETVAR;USERR2;\+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$(RTOS,$(GETVAR,USERR1),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),1)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),2)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),3)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),4)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),5)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),6)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),7)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),8)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),9)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),10)),2,0);
[--]
[ ERASE OLD-TEXT, REPLACE PTR ERASE TEXT LOCATION]^C^CSETVAR;MTJIGSTRING;\SETVAR;USERR1;\SETVAR;USERR2;\+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$(RTOS,$(GETVAR,USERR1),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),1)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),2)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),3)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),4)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),5)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),6)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),7)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),8)),2,0);
[--]
[CONTINUE SUFFIX-TEXT START FROM NO 1]^C^CSETVAR;MTJIGSTRING;\+
TEXT;\0;1$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;2$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;"3"$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;"4"$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;"5"$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;"6"$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;"7"$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;"8"$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;"9"$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;"10"$M=$(GETVAR,MTJIGSTRING);
[CONTINUE SUFFIX-TEXT AND FROM GIVEN NO WITH INCREMENT OF 1]^C^CSETVAR;MTJIGSTRING;\SETVAR;USERR1;\+
TEXT;\0;$M=$(RTOS,$(GETVAR,USERR1),2,0)$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),1),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),2),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),3),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),4),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),5),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),6),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),7),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),8),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),9),2,0)$M=$(GETVAR,MTJIGSTRING);
[--]
[CONTINUE SUFFIX-TEXT,START NO, INCREMENT]^C^CSETVAR;MTJIGSTRING;\SETVAR;USERR1;\SETVAR;USERR2;\+
TEXT;\0;$M=$(RTOS,$(GETVAR,USERR1),2,0)$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),1)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),2)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),3)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),4)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),5)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),6)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),7)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),8)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),9)),2,0)$M=$(GETVAR,MTJIGSTRING);
[--]
[TEXT Continue for - a b c d e f g]^c^C+
TEXT;\0;a;TEXT;\0;b;TEXT;\0;c;TEXT;\0;d;TEXT;\0;e;TEXT;\0;f;TEXT;\0;g;TEXT;\0;h;+
TEXT;\0;i;TEXT;\0;j;TEXT;\0;k;TEXT;\0;l;TEXT;\0;m;TEXT;\0;n;TEXT;\0;o;TEXT;\0;p;+
TEXT;\0;q;TEXT;\0;r;TEXT;\0;s;TEXT;\0;t;TEXT;\0;u;TEXT;\0;v;TEXT;\0;w;TEXT;\0;x;+
TEXT;\0;y;TEXT;\0;z;TEXT;\0;A;TEXT;\0;B;TEXT;\0;C;
[TEXT Continue for - A B C D E F G]^c^C+
TEXT;\0;A;TEXT;\0;B;TEXT;\0;C;TEXT;\0;D;TEXT;\0;E;TEXT;\0;F;TEXT;\0;G;TEXT;\0;H;+
TEXT;\0;I;TEXT;\0;J;TEXT;\0;K;TEXT;\0;L;TEXT;\0;M;TEXT;\0;N;TEXT;\0;O;TEXT;\0;P;+
TEXT;\0;Q;TEXT;\0;R;TEXT;\0;A;TEXT;\0;T;TEXT;\0;U;TEXT;\0;V;TEXT;\0;W;TEXT;\0;X;+
TEXT;\0;Y;TEXT;\0;Z;TEXT;\0;A;TEXT;\0;B;TEXT;\0;C;
[--]
[TEXT PREFIX AND  A B C -exp 22A 22B 22C 22D]^c^CSETVAR;MTJIGSTRING;\+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)A;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)B;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)C;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)D;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)E;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)F;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)G;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)H;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)I;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)J;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)K;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)L;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)M;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)N;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)O;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)P;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)Q;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)R;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)S;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)T;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)U;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)V;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)W;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)X;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)Y;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)Z;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)A;
[TEXT SUFFIX AND  A B C -exp A22 B22 C22 D22]^c^CSETVAR;MTJIGSTRING;\+
TEXT;\0;A$M=$(GETVAR,MTJIGSTRING);TEXT;\0;B$M=$(GETVAR,MTJIGSTRING);TEXT;\0;C$(GETVAR,MTJIGSTRING);+
TEXT;\0;D$(GETVAR,MTJIGSTRING);TEXT;\0;E$(GETVAR,MTJIGSTRING);TEXT;\0;F$(GETVAR,MTJIGSTRING);+
TEXT;\0;G$(GETVAR,MTJIGSTRING);TEXT;\0;H$(GETVAR,MTJIGSTRING);TEXT;\0;I$(GETVAR,MTJIGSTRING);+
TEXT;\0;J$(GETVAR,MTJIGSTRING);TEXT;\0;K$(GETVAR,MTJIGSTRING);TEXT;\0;L$(GETVAR,MTJIGSTRING);+
TEXT;\0;M$(GETVAR,MTJIGSTRING);TEXT;\0;N$(GETVAR,MTJIGSTRING);TEXT;\0;O$(GETVAR,MTJIGSTRING);+
TEXT;\0;P$(GETVAR,MTJIGSTRING);TEXT;\0;Q$(GETVAR,MTJIGSTRING);TEXT;\0;R$(GETVAR,MTJIGSTRING);+
TEXT;\0;S$(GETVAR,MTJIGSTRING);TEXT;\0;T$(GETVAR,MTJIGSTRING);TEXT;\0;U$(GETVAR,MTJIGSTRING);+
TEXT;\0;V$(GETVAR,MTJIGSTRING);TEXT;\0;W$(GETVAR,MTJIGSTRING);TEXT;\0;X$(GETVAR,MTJIGSTRING);+
TEXT;\0;Y$(GETVAR,MTJIGSTRING);TEXT;\0;Z$(GETVAR,MTJIGSTRING);TEXT;\0;A$(GETVAR,MTJIGSTRING);
[--]
[CHANGE BLOCK DATA -TAG +SEL_BLOCK +OLD_VALUE +NEW_VALUE]^C^CATTE;N;Y;*;\*;
[CHANGE BLOCK DATA -BLOCKNAME +TAG +SEL_BLOCK +OLD_VALUE +NEW_VALUE]^C^CATTE;N;Y;\\*;


***pop501
[DT-simx501]
[align-dl]^C^Cline;\\;erase;l;;_SELECT;AUTO;\_MOVE;P;;\\_ROTATE;P;;@;$M=$(*,$(getvar,lastangle),57.272727);Redraw
[Offset 1/2 dist]^C^C_offset;'_dist;\\$m=$(/,$(getvar,distance),2);
[Offset 1/4 dist]^C^C_offset;'_dist;\\$m=$(/,$(getvar,distance),4);
[Transfer dist]'_dist;\\$m=$(eval,$(getvar,distance))^Z
[2012 - DELETE DUPLICATE ]^C^COVERKILL
[2012 - NCOPY -Copy objects in block]^c^cNCOPY
[Area -Bpoly- With text Area ]^C^C-BOUNDARY;\;CHANGE;L;;P;C;3;;m;L;;@;\LIST;L;;graphscr;Text;\0;$M=$(rtos,$(GETVAR,area),2,3);
[Area - Bpoly- With text Perimeter and Area ]^C^C-BOUNDARY;\;CHANGE;L;;P;C;3;;m;L;;@;\LIST;L;;graphscr;+
Text;\0;$M=$(rtos,$(GETVAR,perimeter),2,2);Text;\0;$M=$(rtos,$(GETVAR,AREA),2,3);
[--]
[FLATTEN -CONVERT TO 2D Z=0]^C^CUCS;;MOVE;ALL;;0,0,1E99;;MOVE;P;;0,0,-1E99;;


***pop502
[DT-simx502]
[CONTINUE PRE-TEXT, START NO, AND INCREMENT]^C^CSETVAR;MTJIGSTRING;\SETVAR;USERR1;\SETVAR;USERR2;\+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$(RTOS,$(GETVAR,USERR1),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),1)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),2)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),3)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),4)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),5)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),6)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),7)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),8)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),9)),2,0);+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),10)),2,0);
[--]
[ ERASE OLD-TEXT, REPLACE PTR ERASE TEXT LOCATION]^C^CSETVAR;MTJIGSTRING;\SETVAR;USERR1;\SETVAR;USERR2;\+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$(RTOS,$(GETVAR,USERR1),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),1)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),2)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),3)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),4)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),5)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),6)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),7)),2,0);+
ERASE;\;TEXT;@;0;$M=$(GETVAR,MTJIGSTRING)$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),8)),2,0);
[--]
[CONTINUE SUFFIX-TEXT,START NO, INCREMENT]^C^CSETVAR;MTJIGSTRING;\SETVAR;USERR1;\SETVAR;USERR2;\+
TEXT;\0;$M=$(RTOS,$(GETVAR,USERR1),2,0)$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),1)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),2)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),3)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),4)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),5)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),6)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),7)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),8)),2,0)$M=$(GETVAR,MTJIGSTRING);+
TEXT;\0;$M=$(RTOS,$(+,$(GETVAR,USERR1),$(*,$(GETVAR,USERR2),9)),2,0)$M=$(GETVAR,MTJIGSTRING);
[--]
[TEXT PREFIX AND  A B C -exp 22A 22B 22C 22D]^c^CSETVAR;MTJIGSTRING;\+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)A;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)B;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)C;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)D;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)E;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)F;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)G;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)H;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)I;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)J;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)K;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)L;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)M;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)N;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)O;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)P;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)Q;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)R;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)S;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)T;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)U;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)V;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)W;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)X;+
TEXT;\0;$M=$(GETVAR,MTJIGSTRING)Y;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)Z;TEXT;\0;$M=$(GETVAR,MTJIGSTRING)A;
[TEXT SUFFIX AND  A B C -exp A22 B22 C22 D22]^c^CSETVAR;MTJIGSTRING;\+
TEXT;\0;A$M=$(GETVAR,MTJIGSTRING);TEXT;\0;B$M=$(GETVAR,MTJIGSTRING);TEXT;\0;C$(GETVAR,MTJIGSTRING);+
TEXT;\0;D$(GETVAR,MTJIGSTRING);TEXT;\0;E$(GETVAR,MTJIGSTRING);TEXT;\0;F$(GETVAR,MTJIGSTRING);+
TEXT;\0;G$(GETVAR,MTJIGSTRING);TEXT;\0;H$(GETVAR,MTJIGSTRING);TEXT;\0;I$(GETVAR,MTJIGSTRING);+
TEXT;\0;J$(GETVAR,MTJIGSTRING);TEXT;\0;K$(GETVAR,MTJIGSTRING);TEXT;\0;L$(GETVAR,MTJIGSTRING);+
TEXT;\0;M$(GETVAR,MTJIGSTRING);TEXT;\0;N$(GETVAR,MTJIGSTRING);TEXT;\0;O$(GETVAR,MTJIGSTRING);+
TEXT;\0;P$(GETVAR,MTJIGSTRING);TEXT;\0;Q$(GETVAR,MTJIGSTRING);TEXT;\0;R$(GETVAR,MTJIGSTRING);+
TEXT;\0;S$(GETVAR,MTJIGSTRING);TEXT;\0;T$(GETVAR,MTJIGSTRING);TEXT;\0;U$(GETVAR,MTJIGSTRING);+
TEXT;\0;V$(GETVAR,MTJIGSTRING);TEXT;\0;W$(GETVAR,MTJIGSTRING);TEXT;\0;X$(GETVAR,MTJIGSTRING);+
TEXT;\0;Y$(GETVAR,MTJIGSTRING);TEXT;\0;Z$(GETVAR,MTJIGSTRING);TEXT;\0;A$(GETVAR,MTJIGSTRING);