Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  neuen Text hinter bestehnden in Attribut schreiben

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  neuen Text hinter bestehnden in Attribut schreiben (890 mal gelesen)
Robin H.
Mitglied
Bauzeichner


Sehen Sie sich das Profil von Robin H. an!   Senden Sie eine Private Message an Robin H.  Schreiben Sie einen Gästebucheintrag für Robin H.

Beiträge: 59
Registriert: 07.09.2004

Transtec 1300, P2.40GHz, 2GB RAM, Matrox Millennium G550<P>AutoCAD 2004/2006, Soficad, Stratbau, VPHybridCAD

erstellt am: 30. Apr. 2007 15:27    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo miteinander.

Ich hab n Problem:

Und zwar kann ich mit Folgendem Code:
-------------------------------------------------------
(defun c:bk( / road house mailbox milestone)
  (vl-load-com)
  (setq road(car(entsel "Strasse wählen: ")))
  (setq house(getpoint "Haus wählen: "))

  (setq mailbox
    (vlax-curve-getClosestPointTo
      (vlax-ename->vla-object road)
        house
    )
  )
  (entmake
    (list'(0 . "LINE")
      (cons 10 house)
      (cons 11 mailbox)
    '(62 . 1)
    )
  )
  (setq milestone
    (vlax-curve-getDistAtPoint
      (vlax-ename->vla-object road)
      mailbox
    )
  )
  (princ(strcat"Briefkasten bei Kilometer: "(rtos milestone 2 3)))
  (princ)
)
-----------------------------------------------------------------

schön die Kilometrierung von Schächten zu meiner Achse bestimmen, nur leider möchte ich den Text nich einfach ausgegeben haben sondern in einen Block reingeschrieben haben (attributname ist definiert) und zwar hinter den bestehnenden Text und dann auch noch mit hochkommas...

also ich klicke die achse an dann den schacht (macht der code oben) dann  würde ich gerne den Beschriftungsblock anklicken und schwupps drinn ist der Text.

Meine lispfäigkeiten beschränken sich leider auf runterladen und vieleicht gerade noch so knapp anpassen, aber hab nix gefunden wo ich schlau draus geworden wäre...
n codefetzen der mir das in nen best. text schreibt hätt ich...

hat wer gerade sowas auf lager oder kann mir nen tip geben danke!

Grüsse
Robin

------------------
Kommt die Kraft von dem Stoff oder der Stoff von der Kraft.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 30. Apr. 2007 21:10    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Robin H. 10 Unities + Antwort hilfreich

quick&dirty

(setq ATT(car(nentsel"\nAttribut wählen:")))
(setq TEXT "-HINTENDRAN")
(setq TEXT(strcat(cdr(assoc 1 (entget ATT)))TEXT))
(entmod(subst (cons 1 TEXT)(assoc 1 (entget ATT))(entget ATT)))
(command "_regen")

------------------
  - 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

Robin H.
Mitglied
Bauzeichner


Sehen Sie sich das Profil von Robin H. an!   Senden Sie eine Private Message an Robin H.  Schreiben Sie einen Gästebucheintrag für Robin H.

Beiträge: 59
Registriert: 07.09.2004

Transtec 1300, P2.40GHz, 2GB RAM, Matrox Millennium G550<P>AutoCAD 2004/2006, Soficad, Stratbau, VPHybridCAD

erstellt am: 01. Mai. 2007 13:49    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke Thomas

Ich hab das soweit dass es mir den Text reinschreibt.
(setq ATT(car(nentsel"\nAttribut wählen:")))
(setq TEXT (rtos milestone 2 2))
(setq TEXT(strcat(cdr(assoc 1 (entget ATT)))TEXT))
(entmod(subst (cons 1 TEXT)(assoc 1 (entget ATT))(entget ATT)))
(command "_regen")

Schön wäre wäre wenn ich da irgendwie hochkommas in die Zahl bringen könnte 152'256.15 und n leerschlag vorne rein.
und wenn ich den block anklicken kann nicht das Atribut, das Atribut heisst immer Schacht Nr.

hetste dazu auch noch n quick n durty? :-)

Grüsse Robin

------------------
Kommt die Kraft von dem Stoff oder der Stoff von der Kraft.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 01. Mai. 2007 19:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Robin H. 10 Unities + Antwort hilfreich

zu den Hochkommas :
(setq TEXT (strcat " \""(rtos 34534.55 2 2)"\""))

------------------
  - 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

Robin H.
Mitglied
Bauzeichner


Sehen Sie sich das Profil von Robin H. an!   Senden Sie eine Private Message an Robin H.  Schreiben Sie einen Gästebucheintrag für Robin H.

Beiträge: 59
Registriert: 07.09.2004

Transtec 1300, P2.40GHz, 2GB RAM, Matrox Millennium G550<P>AutoCAD 2004/2006, Soficad, Stratbau, VPHybridCAD

erstellt am: 02. Mai. 2007 15:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Thomas

ja ja bei 99% wärs schon die hälfte...
ich kann jetzt nen abstand reintun das is schomal gut aber mit hochkomma hab ich eigentlich ' das gemeint und das ganze auch noch in der zahl... also 1'205'250.21
Ich habs sogar noch so ge-while-t damit ich nich jedesma die "strasse" neu wählen muss!
Schön wenn man sich noch über solche kinkerlitzchen freuen kann :-)

Ich versuche gerade das per attout und attin noch über exel zu lösen, aber auch exel will auch noch nicht so...

Aber vielen Dank für die Unterstützung!!

Gruss Robin

------------------
Kommt die Kraft von dem Stoff oder der Stoff von der Kraft.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz