Latest topics
» PIPING 1 - MOOVING & CONNECT
Wed 8 Jul - 10:25 by nurkholis

» DATAL TOOLBAR
Wed 22 Oct - 19:15 by Luft

» COLOR FOLLOWING
Fri 22 Aug - 5:39 by etudiant

» Regarding Draft Auto Drawing Production
Fri 13 Jun - 15:18 by yeshwant83

» CODE FOR TRANSFORM PANE TO EXTR OR EXTR TO PANE
Mon 12 May - 19:55 by nurkholis

» code for apply the layer att to his members
Thu 10 Apr - 12:11 by nurkholis

» CODE FOR REVERSE START & END OF SCTN
Mon 7 Apr - 12:13 by nurkholis

» Available soon
Sat 8 Feb - 20:58 by Julien

» CREATE NEG. OF PANEL WITHIN THE SCTN
Wed 4 Dec - 14:53 by Julien

October 2017
MonTueWedThuFriSatSun
      1
2345678
9101112131415
16171819202122
23242526272829
3031     

Calendar Calendar

Who is online?
In total there is 1 user online :: 0 Registered, 0 Hidden and 1 Guest

None

[ View the whole list ]


Most users ever online was 25 on Fri 27 Dec - 14:00

LDIM APPLICATION

View previous topic View next topic Go down

LDIM APPLICATION

Post by Julien on Fri 9 Aug - 3:42

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
avatar
Julien
Admin

Messages : 34
Date d'inscription : 2013-08-08

View user profile http://macrojgl.forumactif.org

Back to top Go down

View previous topic View next topic Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum