| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Bemassungstex nach X oder Y Achse verschieben (1235 mal gelesen)
|
metallch Mitglied
Beiträge: 12 Registriert: 17.07.2007 Autocad 2008 Windows XP
|
erstellt am: 06. Sep. 2007 19:58 <-- editieren / zitieren --> Unities abgeben:
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
Beiträge: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 06. Sep. 2007 21:48 <-- editieren / zitieren --> Unities abgeben: Nur für metallch
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
Beiträge: 12 Registriert: 17.07.2007
|
erstellt am: 07. Sep. 2007 20:55 <-- editieren / zitieren --> Unities abgeben:
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
Beiträge: 12 Registriert: 17.07.2007 Autocad 2008 Windows XP
|
erstellt am: 09. Sep. 2007 16:37 <-- editieren / zitieren --> Unities abgeben:
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 09. Sep. 2007 20:49 <-- editieren / zitieren --> Unities abgeben: Nur für metallch
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
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 10. Sep. 2007 07:59 <-- editieren / zitieren --> Unities abgeben: Nur für metallch
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
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 / zitieren --> Unities abgeben: Nur für metallch
|
metallch Mitglied
Beiträge: 12 Registriert: 17.07.2007
|
erstellt am: 10. Sep. 2007 21:14 <-- editieren / zitieren --> Unities abgeben:
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
Beiträge: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 10. Sep. 2007 21:54 <-- editieren / zitieren --> Unities abgeben: Nur für metallch
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
Beiträge: 12 Registriert: 17.07.2007
|
erstellt am: 11. Sep. 2007 19:59 <-- editieren / zitieren --> Unities abgeben:
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
Beiträge: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 11. Sep. 2007 21:37 <-- editieren / zitieren --> Unities abgeben: Nur für metallch
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
Beiträge: 12 Registriert: 17.07.2007
|
erstellt am: 12. Sep. 2007 08:15 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 12. Sep. 2007 08:43 <-- editieren / zitieren --> Unities abgeben: Nur für metallch
... 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
Beiträge: 12 Registriert: 17.07.2007
|
erstellt am: 12. Sep. 2007 20:08 <-- editieren / zitieren --> Unities abgeben:
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
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 12. Sep. 2007 20:28 <-- editieren / zitieren --> Unities abgeben: Nur für metallch
|
metallch Mitglied
Beiträge: 12 Registriert: 17.07.2007
|
erstellt am: 13. Sep. 2007 09:03 <-- editieren / zitieren --> Unities abgeben:
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
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 13. Sep. 2007 09:10 <-- editieren / zitieren --> Unities abgeben: Nur für metallch
|
metallch Mitglied
Beiträge: 12 Registriert: 17.07.2007
|
erstellt am: 13. Sep. 2007 09:24 <-- editieren / zitieren --> Unities abgeben:
|