Hallo!
starten Sie mal das Makro mit STRG+8
REM HICAD-Next VN:1211
REM HiCAD
START 59
HNEXT
REM HiCAD 2 = 2-D ZTL
OPTION 2 59
REM ALT1
OPTION 21 0
REM NEUZEICHNUNG S4= Farbdarstlg
OPTION 14 51
REM FARBDARST. 2 = Aktives Teil
OPTION 2 57
OPTION ESC
OPTION ESC
REM HiCAD 2 = 2-D ZTL
OPTION 2 59
REM ZEICHENTEILE S10=ZTL-TOOLS
OPTION 20 1
REM ZTL-TOOLS S2= Konst.BT E/A
OPTION 12 12
REM EIN
INTEGER 2
OPTION ESC
OPTION ESC
END
Nun können Sie die Bauteile des Rahmens sehen und ändern!
Wenn sie das "Ausfüllmakro" des Schriftfeldes ändern wollen schauen Sie sich das srife2.mac im Pfad makro2d wie folgt abgebildet an:
REM {#814#}
REM HiCAD-Rev.12
START 59
rem
rem Schriftfeldteil aus SCHFRFELD.DAT ermitteln
rem
call 0:SchriftfeldFIG_ermitteln
rem
SAUS
WEIN
REM HiCAD-Rev.12 2 = 2-D ZTL
OPTION 2 59
REM ZEICHENTEILE 3 = ZTL bearbeit.
OPTION 3 1
REM BAUTEILE S10=BT.-TOOLS
OPTION 20 2
REM BT.-TOOLS 1 = Akt.Bt.indiz.
OPTION 1 13
REM BAUTEILE 10= Bt. auswählen
OPTION 10 2
REM 15.06.04/kas STRING tsch
STRING $tsch
IF NOT VORHD THEN
WAIT $10085
GOTO 99
IFEND
%MST:=ZF
$SF4:=1
10: VAR $SF1 $10607
IF INT GOTO 99
IF ESC GOTO 10
VAR $SF2 $10608
IF INT GOTO 99
IF ESC GOTO 10
VAR $SF12 $10609
IF INT GOTO 99
IF ESC GOTO 10
13:VAR %MST $10610
IF INT GOTO 99
IF ESC GOTO 10
IF MST=0 GOTO 13
IF MST<1 THEN
%MST:=1/MST
$SF7:=%MST
$SF3:=:1
$SF3:=$SF7+$SF3
ELSE
$SF7:=%MST
$SF3:="1:"+$SF7
IFEND
VAR $SF4 $10611
IF INT GOTO 99
IF ESC GOTO 10
VAR $SF5 $10612
IF INT GOTO 99
IF ESC GOTO 10
$SF6:=DAT$
CALL 0:KUNDO_01
REM BAUTEILE 9 = Sub-Teil neu
OPTION 9 2
REM NEUES TEIL 1 = Teil anlegen
OPTION 1 3
STRING SCHRITXT
REM BAUTEILE S6= Texte
OPTION 16 2
REM TEXT S5= Par. sichern
OPTION 15 25
REM TEXT S7= Art Texteing.
OPTION 17 25
REM - Ausrichten (2) - Textfolgen (9) :
INTEGER 0
REM TEXT 3 = Textparameter
OPTION 3 25
REM PARAMETER 3 = Schrifthöhe
OPTION 3 26
REM Schrifthöhe (mm):
REAL 3.5
REM PARAMETER 4 = Farbe
OPTION 4 26
REM Farbe
INTEGER 5
remh(06.05.1999) Schriftart 4 und Breitenfaktor 1 vorgeben
REM PARAMETER 2 = Schriftart
OPTION 2 26
REM Schriftart:
INTEGER 4
REM PARAMETER S3= Breitenfaktor
OPTION 13 26
REM Breitenfaktor:
REAL 1
OPTION ESC
REM TEXT 1 = Texte einfüg.
OPTION 1 25
REM 24.10.03/kas
WERT $SF1
IF VORH THEN
POINT R
POINT 100
REM X Distanz:
DISTANZ 105*@2
REM Y Distanz:
DISTANZ -47*@2
REM Beschriftungswinkel:
IF NOT VORHD THEN
WINKEL 0.
IFEND
REM Text:
STRING $SF1
IFEND
WERT $SF2
IF VORH THEN
POINT R
POINT 100
REM X Distanz:
DISTANZ 105*@2
REM Y Distanz:
DISTANZ -25*@2
REM Beschriftungswinkel:
IF NOT VORHD THEN
WINKEL 0.
IFEND
REM Text:
STRING $SF2
WERT $SF12
IF VORH THEN
POINT R 0 -8*@2
IFEND
ELSE
WERT $SF12
IF VORH THEN
POINT R
POINT 100
REM X Distanz:
DISTANZ 105*@2
REM Y Distanz:
DISTANZ -25*@2-8*@2
IFEND
IFEND
WERT $SF12
IF VORH THEN
REM Beschriftungswinkel:
IF NOT VORHD THEN
WINKEL 0.
IFEND
STRING $SF12
IFEND
POINT ESC
REM TEXT 3 = Textparameter
OPTION 3 25
REM PARAMETER 3 = Schrifthöhe
OPTION 3 26
REM Schrifthöhe (mm):
REAL 2.5
REM PARAMETER 4 = Farbe
OPTION 4 26
REM Farbe
INTEGER 3
OPTION ESC
REM TEXT 1 = Texte einfüg.
OPTION 1 25
WERT $SF3
IF VORH THEN
POINT R
POINT 100
REM X Distanz:
DISTANZ 120*@2
REM Y Distanz:
DISTANZ -5*@2
REM Beschriftungswinkel:
IF NOT VORHD THEN
WINKEL 0.
IFEND
REM Text:
STRING $SF3
IFEND
WERT $SF4
IF VORH THEN
POINT R
POINT 100
REM X Distanz:
DISTANZ 180*@2
REM Y Distanz:
DISTANZ -46*@2
REM Beschriftungswinkel:
IF NOT VORHD THEN
WINKEL 0.
IFEND
REM Text:
STRING $SF4
IFEND
POINT ESC
REM TEXT 3 = Textparameter
OPTION 3 25
REM PARAMETER 3 = Schrifthöhe
OPTION 3 26
REM Schrifthöhe (mm):
REAL 2.0
OPTION ESC
REM TEXT 1 = Texte einfüg.
OPTION 1 25
WERT $SF5
IF VORH THEN
POINT R
POINT 100
REM X Distanz:
DISTANZ 82*@2
REM Y Distanz:
DISTANZ -24.5*@2
REM Beschriftungswinkel:
IF NOT VORHD THEN
WINKEL 0.
IFEND
REM Text:
STRING $SF5
IFEND
WERT $SF6
IF VORH THEN
POINT R
POINT 100
REM X Distanz:
DISTANZ 66.5*@2
REM Y Distanz:
DISTANZ -24.5*@2
REM Beschriftungswinkel:
IF NOT VORHD THEN
WINKEL 0.
IFEND
REM Text:
STRING $SF6
IFEND
POINT ESC
REM TEXT S6= Par. zurück
OPTION 16 25
OPTION ESC
REM BAUTEILE S10=BT.-TOOLS
99 
PTION 20 2
REM BT.-TOOLS 2 = Ind.Bt.ausw.
OPTION 2 13
OPTION ESC
OPTION ESC
OPTION ESC
$VNAM:=Z:RAHMEN.DAT
CALL 1:VARWRITE
SEIN
END
------------------
K. Christ
Fachschule für Technik - Technikerschule
Heilbronn
http://home.wms-hn.de/~christ/christ1.html
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de (alle Foren)
| 
kann man das Schriftfeld erneut ausfüllen. Jetzt werden an die alten Stellen im Zeichnungsrahmen andere Attributinhalte aus den Konstruktionsattributen übertragen. 
