Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Bemassungstex nach X oder Y Achse verschieben

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:  Bemassungstex nach X oder Y Achse verschieben (1177 mal gelesen)
metallch
Mitglied



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

Beiträge: 12
Registriert: 17.07.2007

erstellt am: 06. Sep. 2007 19:58    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 Leute

Ich suche einen Lisp welche man durch anwählen der Bemassung den Bemassungtext in x oder y Richtung auf die gewählte Koordinate verschieben kann.

Ich wäre für jede Unterstützung dankbar.

Danke!!!

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

CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer



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

Beiträge: 9732
Registriert: 01.12.2003

One AutoCAD 2.5 - 2023, Civil 3D, Win10/win11

erstellt am: 06. Sep. 2007 21:48    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 metallch 10 Unities + Antwort hilfreich

Willkommen bei CAD.de

Deine Frage hab nich nocht nicht ganz verstanden.
Griffpunkt des Textes des Bemaßungsobjektes anfassen und schieben oder AIDIMTEXTMOVE 2 führen nicht zum gewünschten Ergebnis?

Kannst du mal ein Vorher/Nachher-Bild einstellen oder eine Beispiel-Dwg?

------------------
Mit freundlichem Gruß

Udo Hübner

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

metallch
Mitglied



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

Beiträge: 12
Registriert: 17.07.2007

erstellt am: 07. Sep. 2007 20:55    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


Bemassungtxt.JPG

 
Hallo CAD-Huebner

Erstmals danke für die Nachfrage.

Also eigentlich will ich den folgendes erreichen:
1. Mehrere Bemassungen welche untereinander oder nebeneinander sind anwählen.
2. Eine Position per Mausclick definieren.
3. Den Wert der Position in die Eigenschaft von den Bemassungen "Textposition X" oder "Textposition Y" durch eine Variable zurückgeben. (Ich kenne aber die Variable für Textposition X/Y nicht).

Am Schluss sollten bei der Horizontalen Bemassungen die Texte alle untereinander in einer Senkrechten bzw. bei der Vertikal Bemassungen Wagrecht nebeneinander sein. Die gewählten Bemassungen haben alle den gleichen Wert in der Eigenschaft Textposition X oder Y.

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

metallch
Mitglied



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

Beiträge: 12
Registriert: 17.07.2007

Autocad 2008
Windows XP

erstellt am: 09. Sep. 2007 16:37    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

Kennt den keiner eine Lösung?
Schade...

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

CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer



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

Beiträge: 9732
Registriert: 01.12.2003

One AutoCAD 2.5 - 2023, Civil 3D, Win10/win11

erstellt am: 09. Sep. 2007 20: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 Nur für metallch 10 Unities + Antwort hilfreich

Wo hakt es denn jetzt, vielleicht kannst du mal posten was du schon versucht hast, da bekommst du sicher hilfreiche Tipps.

Geht es denn nur ums Anordnen von Maßen - das kann z.B. AutoCAD Mechnanical von Haus aus.
Oder ist die Aufgabe speziell die Texte außermittig aber untereinander anzuordnen, der Versatzabstand ist aber bereits eingestellt?
Kannst du noch mal ein Bild machen Vorher -> Nachher.
Ich habs immer noch nicht ganz verstanden.

------------------
Mit freundlichem Gruß

Udo Hübner

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: 10. Sep. 2007 07:59    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 metallch 10 Unities + Antwort hilfreich

mal was für die X-koordinate .. für Y sollte dananch auch kein Problem darstellen:

(defun c:_DIMX( / AWS)
  (if(and(Setq AWS(ssget '((0 . "DIMENSION"))))
         (setq P(getpoint "\nX-Koordinate: "))
     )
    (progn
      (setq INDEX -1)
      (repeat(sslength AWS)
        (setq OBJ(ssname AWS(setq INDEX(1+ INDEX))))
        (setq OBJ(vlax-ename->vla-object OBJ))
        (setq POS(vlax-safearray->list
                   (vlax-variant-value
                     (vla-get-TextPosition OBJ)
                   )
                 )
        )     
        (vla-put-TextPosition OBJ(vlax-3d-point(list(car P)(cadr POS)(caddr POS))))    
      ) 
    )
  )
)

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

wronzky
Ehrenmitglied V.I.P. h.c.
CAD-Dienstleistungen für Architekten



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

Beiträge: 2154
Registriert: 02.05.2005

CAD:
AutoCAD 2.6 bis 2014
ADT 2005 - 2014
Arcibem
System:
Windows 2000, XP, NO VISTA
Internet-Startseite:
http://www.archi.de

erstellt am: 10. Sep. 2007 10:32    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 metallch 10 Unities + Antwort hilfreich

Hallo ???,
welche AutoCAD-Versionhast Du denn? In 2008 gibt es den Befehl BEMPLATZ, der alle Bemassungen aufeinander ausrichten kann.

Grüsse, Henning

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

metallch
Mitglied



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

Beiträge: 12
Registriert: 17.07.2007

erstellt am: 10. Sep. 2007 21:14    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 Zusammen

Danke für eure Beiträge.

Ich habe arbeite mit Ver. ACAD 2008.

CADHuebner; Es geht lediglich um die Positionierung von Bemassungstexten.

CADmium; lsp kann ich in Autocad einlesen, jedoch wird das Programm mit dem Befehl '_dimx' nicht gestartet.   Bin dankbar für weitere Unterstützung.

Gruss metallch


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

CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer



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

Beiträge: 9732
Registriert: 01.12.2003

One AutoCAD 2.5 - 2023, Civil 3D, Win10/win11

erstellt am: 10. Sep. 2007 21:54    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 metallch 10 Unities + Antwort hilfreich

Das Programm von CADmium (Thomas) erwartet, dass die Visual LISP Umgebung bereits initialisiert wurde.
Gebe (vl-load-com) auf der AutoCAD Befehlszeile ein, oder besser füge es am Anfang der Lisp Routine ein, dann wirds auch laufen.

Code:

(vl-load-com)
(defun c:_DIMX( / AWS)
  (if(and(Setq AWS(ssget...

Wichtig: den Unterstrich vor _DIMX unbedingt entfernen, sonst läuft das Programm nicht richtig, da eine automatische Übersetzung ausgeführt wird, die dann DIMX aufruft. Den Unterstrich hat CADmium da nur reingemacht, damit kein Smilie aus : und D =>   entsteht.

Es geht auch (c:_dimx) aber dann braucht man ja keine als Kommando verwendbare Routine davon zu machen.


------------------
Mit freundlichem Gruß

Udo Hübner

[Diese Nachricht wurde von CAD-Huebner am 10. Sep. 2007 editiert.]

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

metallch
Mitglied



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

Beiträge: 12
Registriert: 17.07.2007

erstellt am: 11. Sep. 2007 19:59    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 CAD-Huebner

Ich habe es versucht, versucht, versucht und versucht....
                  leider ohne ERFOLG.

Fehlt echt da noch was?

AutoCAD Meldungen:

Befehl: _appload dimx.lsp erfolgreich geladen.
Befehl: _dimlinear
Anfangspunkt der ersten Hilfslinie angeben oder <objekt Wählen>:
Anfangspunkt der zweiten Hilfslinie angeben:
Nicht-assoziative Bemaßung erstellt.
Position der Bemaßungslinie angeben oder
[Mtext/Text/Winkel/Horizontal/Vertikal/Drehen]:
Maßtext = 81.62
Befehl: dimx
Unbekannter Befehl "DIMX". Drücken Sie F1-Taste für Hilfe.
Befehl: _dimx
Unbekannter Befehl "DIMX". Drücken Sie F1-Taste für Hilfe.

Gruss
metallch

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

CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer



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

Beiträge: 9732
Registriert: 01.12.2003

One AutoCAD 2.5 - 2023, Civil 3D, Win10/win11

erstellt am: 11. Sep. 2007 21:37    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 metallch 10 Unities + Antwort hilfreich


dimx.LSP.txt

 
Ich vermute ja, du hast meine Infos zum Unterstrich im oben stehenden Beitrag nicht gelesen. Bei mir funktioniert das Programm jedenfalls einwandfrei.
Ich hänge es aber noch mal an.

------------------
Mit freundlichem Gruß

Udo Hübner

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

metallch
Mitglied



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

Beiträge: 12
Registriert: 17.07.2007

erstellt am: 12. Sep. 2007 08:15    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 es funktioniert einwandfrei.    

Welche variable muss ich den für die Y Achse ändern??

Gruss metallch

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: 12. Sep. 2007 08:43    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 metallch 10 Unities + Antwort hilfreich

... die Y-Koordinate hatte ich mit absicht ausgespart, da ich möchte, das hier nicht nur Tools ect. abgegriffen werden, sondern sich die Fragesteller auch etwas mit Lisp beschäftigen.
ein Einstieg hierzu bietet Tutorial von Mapcar, welches mitlerweile auch in Buchform vorliegt

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

metallch
Mitglied



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

Beiträge: 12
Registriert: 17.07.2007

erstellt am: 12. Sep. 2007 20:08    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 für die Tipps!

Hier noch der Code für die Y-Achse.

(vl-load-com)
(defun c IMY( / AWS)
  (if(and(Setq AWS(ssget '((0 . "DIMENSION"))))
        (setq P(getpoint "\nY-Koordinate: "))
    )
    (progn
      (setq INDEX -1)
      (repeat(sslength AWS)
        (setq OBJ(ssname AWS(setq INDEX(1+ INDEX))))
        (setq OBJ(vlax-ename->vla-object OBJ))
        (setq POS(vlax-safearray->list
                  (vlax-variant-value
                    (vla-get-TextPosition OBJ)
                  )
                )
        )     
        (vla-put-TextPosition OBJ(vlax-3d-point(list(car Pos)(cadr P)(caddr POS))))   
      ) 
    )
  )
)
(prompt "\ndimy.lsp geladen. Start mit DIMY")
(princ)

  Gruss metallch   

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: 12. Sep. 2007 20:28    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 metallch 10 Unities + Antwort hilfreich

.. na geht doch ... 

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

metallch
Mitglied



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

Beiträge: 12
Registriert: 17.07.2007

erstellt am: 13. Sep. 2007 09:03    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

Gute Morgen zusammen

Ich habe die Lisps bei allen Stationen eingerichtet. Es läuft bis auf eine Station. Folgende Meldung wird gemeldet bei Ausführung der Befehle.

X-Koordinate: error: ActiveX-Server hat einen Fehler zurückgegeben: Fehler beim
Laden der Typbibliothek/DLL

Weis jemand eine Lösung dafür?? Was ist überhaupt eine Typbibliothek/DLL??


Gruss metallch

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

Brischke
Moderator
CAD on demand GmbH




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

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools (d-tools.eu)

erstellt am: 13. Sep. 2007 09: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 metallch 10 Unities + Antwort hilfreich

... auch wenn es Blöd klingt: Eine Reparaturinstallation könnte helfen. Irgendeine DLL wird nicht korrekt initialisiert - warum auch immer.

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

metallch
Mitglied



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

Beiträge: 12
Registriert: 17.07.2007

erstellt am: 13. Sep. 2007 09:24    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

Gibt es den keine andere Möglichkeit?

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