| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Text versetzt einfügen (1282 mal gelesen)
|
Bauvermesser Mitglied Vermesser
Beiträge: 460 Registriert: 18.03.2006 AMD 2600, 2024RAM ,WIN XP PROF-SP3, ACAD 2005, Firmenrechner,
|
erstellt am: 15. Aug. 2013 11:18 <-- editieren / zitieren --> Unities abgeben:
ich bitte um Hinweise zu folgender Frage: beim Auslesen von KOO wird der Punkt über (setq NR (strcat XA (itoa A) )) (Command "Text" Pkt "" NR) beschriftet. Wie kann ich erreichen das diese Beschriftung etwas seitlich versetzt (konstanter Wert) angeschrieben wird? Eventuell ist im Forum eine Beispiellösung bereits vorhanden? ------------------ Gruß vom Bauvermesser; Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 Alles
|
erstellt am: 15. Aug. 2013 11:22 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009
|
erstellt am: 15. Aug. 2013 13:16 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
|
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 Alles
|
erstellt am: 15. Aug. 2013 13:34 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
Du würdest vermutlich ein Posting auf CAD.de aufmachen und nachfragen wie es weitergeht ? PS: Wer klar formuliert bekommt auch gezielt Antwort, die Frage nach dem 'seitlich versetzt' ist in jedem Fall beantwortet, jetzt warte ich nur noch auf die 10U´s und den grünen Haken ;D ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009
|
erstellt am: 15. Aug. 2013 16:12 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
|
Meldin Mitglied
Beiträge: 381 Registriert: 15.07.2011 ACA2020 Windows10
|
erstellt am: 15. Aug. 2013 18:07 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009
|
erstellt am: 16. Aug. 2013 08:20 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
Code: (defun c:foo ( / pkt rot) (princ "\n Funktion zum versetzten Beschriften von Punkten") (setvar "AUPREC" 0) (setq NR "Punktnummer" Pkt (list 1 1 1)) ; visible POINT MODE (if (= 0 (getvar "PDMODE")) (progn (initget "Yes No") (setq swMod (getkword "\nChange points style to good visible? [Yes/No] <Yes>: ")) (if(null swMod)(setq swMod "Yes")) (if (= swMod "Yes") (progn (princ "\nPlease wait... \n") (setvar "PDMODE" 35) (setvar "PDSIZE" -2) ) ) ) )
; setze Text versetzt an einen Punkt (if (null (setq a (getreal (strcat "\n Rotation of text? <" (if (null rot) (rtos (setq rot 0) 2 1) (rtos rot 2 1))">")))) (setq a rot) (setq rot a) ) (command "_point" pkt) (command "text" (polar Pkt (* rot (/ pi 180)) 0.25) "" rot NR) (princ) )
------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Meldin Mitglied
Beiträge: 381 Registriert: 15.07.2011 ACA2020 Windows10
|
erstellt am: 16. Aug. 2013 10:33 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
Boah! da hast du einen aus dem Hut gezaubert. Das hätte ich auch wie cadffm in einer Zeile gelöst. Da ja laut Bauvermesser alles konstant ist. ------------------ Gruß Wolfgang Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009
|
erstellt am: 16. Aug. 2013 10:40 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
Naja vllt etwas hypothetisch, aber meine Funktion sollte nur veranschaulichen, was wäre wenn die Texte gedreht generiert werden sollen. Aber haste natürlich recht, es war nicht gefodert und mir war ein wenig langweilig (nur zu Trainingszwecken in LispDizo). ------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 Alles
|
erstellt am: 16. Aug. 2013 11:07 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
Die Quintessenz von den vielen Zeilen ist ja aber die passende Antwort gewesen: statt mit Mapcar würde man einfach mit Polar arbeiten: (polar Pkt (* rot (/ pi 180)) 0.25) Das bringt dann auch den einen oder anderen Mitleser weniger durcheinander ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Meldin Mitglied
Beiträge: 381 Registriert: 15.07.2011 ACA2020 Windows10
|
erstellt am: 16. Aug. 2013 11:22 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
Zur Drehung könnte man auch den Winkel des Punktes ermitteln und dem Text mit auf den Weg geben so wären der Text und Punkt gleich ausgerichtet oder man wendet nochmal ein simples _rotate auf den Text an. ------------------ Gruß Wolfgang Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 16. Aug. 2013 11:48 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
|
| Bauingenieur / Architekt (m/w/d) als Bauleitung | Im Auftrag unserer Mandantin suchen wir zum nächstmöglichen Zeitpunkt eine erfahrene Bauleitung Bestands- und Neubauprojekte (w/m/d). Unsere Mandantin ist ein inhabergeführtes, sehr erfolgreiches Investmentunternehmen mit mehr als 25 Jahren Erfahrung in der Inwertsetzung von sanierungsbedürftigen Altbaubeständen und der wirtschaftlichen Optimierung von Neubauten - in Deutschland und europaweit.... | Anzeige ansehen | Architektur |
|
Bauvermesser Mitglied Vermesser
Beiträge: 460 Registriert: 18.03.2006 AMD 2600, 2024RAM ,WIN XP PROF-SP3, ACAD 2005, Firmenrechner,
|
erstellt am: 20. Aug. 2013 11:55 <-- editieren / zitieren --> Unities abgeben:
Ich bedanke ich bei de umfangreichen Hilfe. Das mir der Textdrehung (polar Pkt (* rot (/ pi xxx)) 0.25) werde ich aufnehmen um dadurch einen markanten Unterschied zu den anderen Texten um den Punkt zu erreichen. ------------------ Gruß vom Bauvermesser; Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |