LDIM APPLICATION

[Julien]

copy paste the code on .txt file then

$m/pathname

in the command line.

- TOOLBAR :



Explication:

button PLI : align projection line with 2D cursor ( call the fonction : CALLDRS MTPOS AT )
button DLI : align dimension line with 2D cursor
button DLI : align dimension line with 2D cursor
first button GAP : create a 2mm gap following 2D cursor
second button GAP : delete all gap for CE
DTANGLE : modify DTangle for CE
DMTXT : a lot of possibility that i have to need for dimension text modify
PLTXT : a lot of possibility that i have to need for projection line text modify
IDDNAME@ : reattach rapidly a dimension or label by element picked

Code:

--WRITTEN BY JULIEN GAL
[You must be registered and logged in to see this link.]

VAR !NOMPROJ proj code
VAR !UTILI user
!!lastSaveDateTime = object DATETIME()
kill !!TOOLBARLDIM
setup form !!TOOLBARLDIM     
title 'TOOLBARLDIM@ - $!UTILI - $!NOMPROJ- $!!lastSaveDateTime '
!iconSize = !!comSysOpt.iconSize()         
path down 
hdist 0.5
frame .TAB52  'LDIM APPL'
BUTTON .PLCL    'PLI' TOOLTIP 'CE: LDIM - RACCOURCI LA PROJECTION LINE SVT CURSOR'    CALLBACK |PLCL @|
!this.PLCL.Background  = 'GOLD'
PATH RIGHT
BUTTON .PLSP    'DLI' TOOLTIP 'CE: LDIM - ALIGNE LA DIMENSION LINE SVT CURSOR'      CALLBACK |DIM @|
!this.PLSP.Background  = 'GOLD'
BUTTON .gagap  'GAP'    TOOLTIP 'CE: LDIM - CREE UN GAP SUR LA PROJECT.LINE '    CALLBACK |GAP AT @ L 3|
!this.gagap.Background  = 'GOLD'
button .DELGAP  'GAP' TOOLTIP 'CE: LDIM - DELETE LES GAP SUR LA PROJECT.LINE'  callback |GAP DEL ALL|
!this.DELGAP.Background  = 'RED'
OPTION _dttangl ||  call |$$_dttangl|  WIDTH 7
VAR LIST _dttangl pairs |DTANGLE|      |Dtangle Default| 
                        |STANDARD|    |Dtangle STANDARD|                 
                        |HORIZONTAL|  |Dtangle HORIZONTAL|                 
                        |VERTICAL|    |Dtangle VERTICAL|                 
                        |EXTERNAL|    |Dtangle EXTERNAL|               
                        |PARALLEL|    |Dtangle PARALLEL|               
                         
                                                                                                                     
EXIT
PATH DOWN
HDIST 0.000001
paragraph _CCTYPEIS AT XMIN  .PLCL  text ''
PATH RIGHT
OPTION _DDIML ||  call |$$_DDIML|  WIDTH 7
VAR LIST _DDIML pairs  |DMTXT|        |Dmtxt '#DIM'|
                        |-TYP.|        |Dmtxt '#DIM TYP.'| 
                        |=DIM= |        |Dmtxt '= #DIM ='|                 
                        |(DIM)|          |Dmtxt '( #DIM )'|                 
                        |DIMº|          |Dmtxt ' #DIM º'|                 
                        |ØDIM|          |Dmtxt 'Ø #DIM '|               
                        |HOLE ØDIM|    |Dmtxt 'HOLE Ø #DIM '|               
                        | = |          |Dmtxt ' = '|
EXIT
paragraph _PLTXXXT  text ''
OPTION _DDIMT ||  call |$$_DDIMT|  WIDTH 7
VAR LIST _DDIMT pairs  |PLTXT|        |PLtxt ''|
|__ INT|        |PLtxt '__'
PTOFFSET -2 -1.3|                          |__ EXT |        |PLtxt '__'
PTOFFSET -2 0.5|                                          |= INT-EXT|          |PLtxt '__#/__'
PTOFFSET -2 1.5|                 
EXIT
BUTTON .DDNAM      'IDDNAME@'    TOOLTIP 'REATTACH GLAB SLAB ... TO ID@'    CALLBACK |DDNAME ID@|
EXIT
SHOW !!TOOLBARLDIM