| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: In Textfeld Variablen ausgeben (1516 mal gelesen)
|
wechsel
Mitglied
   Beiträge: 2
Registriert: 12.01.2006
|
erstellt am: 12. Jan. 2006 09:52  <-- editieren / zitieren -->   Unities abgeben:          
Hallo, ich ein Lispprogram geschreiben und möchte nun mit hilfe des "_text" Befehls einen Text und eine Variable in die Zeichnung schreiben (z.b. Bauteilbreite b=x cm) wobei x meine Variable ist. Habe nichts in der Hilfe gefunden Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium
Moderator
Maschinenbaukonstrukteur
    
Beiträge: 13508
Registriert: 30.11.2003 .
|
erstellt am: 12. Jan. 2006 10:16 <-- editieren / zitieren --> Unities abgeben: Nur für wechsel 
z.B: so? (setq a 34) (if(zerop(cdr(assoc 40(entget(tblobjname "STYLE" (getvar "TEXTSTYLE")))))) (command "_text" pause pause pause (vl-princ-to-string a)) (command "_text" pause pause (vl-princ-to-string a)) ) ------------------
 - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wechsel
Mitglied
Beiträge: 2
Registriert: 12.01.2006
|
erstellt am: 12. Jan. 2006 11:12 <-- editieren / zitieren --> Unities abgeben:
|
ralficad
Mitglied
Konstrukteur
Beiträge: 330
Registriert: 25.11.2005 AMD Athlon XP 2800+
2,08 GHz 1,0 GB RAM
WIN XP Prof., SP2<P>ACAD 2005 - nackig, EPT
|
erstellt am: 12. Jan. 2006 11:15 <-- editieren / zitieren --> Unities abgeben: Nur für wechsel
... einlesen von x aus dialog (action_tile "x" ...) oder Befehlszeile: (setq x(getreal "Bauteilbreite b:" )) Dann mit strcat Zeichenkette kreieren: (setq text(strcat "Bauteilbreite b=" x " cm")) jetzt: (command "text" tp "" "" text) evtl. vorher x in string umwandeln (itoa...) HIH ------------------
ralfi
 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium
Moderator
Maschinenbaukonstrukteur
Beiträge: 13508
Registriert: 30.11.2003 .
|
erstellt am: 12. Jan. 2006 11:26 <-- editieren / zitieren --> Unities abgeben: Nur für wechsel
Zitat:
Original erstellt von ralficad:
...
(command "text" tp "" "" text)
klappt nur, wenn im aktuellen Textstil die Zeichenhöhe vordefiniert <>0 ist. Deshalb
(if(zerop(cdr(assoc 40(entget(tblobjname "STYLE" (getvar "TEXTSTYLE")))))).... TP haste auch vergessen zu definieren  ------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ralficad
Mitglied
Konstrukteur
Beiträge: 330
Registriert: 25.11.2005 AMD Athlon XP 2800+
2,08 GHz 1,0 GB RAM
WIN XP Prof., SP2<P>ACAD 2005 - nackig, EPT
|
erstellt am: 12. Jan. 2006 11:48 <-- editieren / zitieren --> Unities abgeben: Nur für wechsel
|
CADmium
Moderator
Maschinenbaukonstrukteur
Beiträge: 13508
Registriert: 30.11.2003 .
|
erstellt am: 12. Jan. 2006 12:28 <-- editieren / zitieren --> Unities abgeben: Nur für wechsel
Zitat:
Original erstellt von ralficad:
war'n ja nur Tipps gefragt, oder??
genau .. und so solltest du auch meinen interpretieren ------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ralficad
Mitglied
Konstrukteur
Beiträge: 330
Registriert: 25.11.2005 AMD Athlon XP 2800+
2,08 GHz 1,0 GB RAM
WIN XP Prof., SP2<P>ACAD 2005 - nackig, EPT
|
erstellt am: 12. Jan. 2006 13:36 <-- editieren / zitieren --> Unities abgeben: Nur für wechsel
|
Foren auf CAD.de (alle Foren)
| 
