| |
| 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, eine Pressemitteilung
|
Autor
|
Thema: Stempelattribute (818 mal gelesen)
|
MaxWachtl Mitglied
Beiträge: 3 Registriert: 08.12.2003
|
erstellt am: 18. Feb. 2005 11:32 <-- editieren / zitieren --> Unities abgeben:
Hallo Fangemeinde, ich suche ein Lisptool welches mir nach Anwahl zweier Punkte im Layout (max. Papierausdehnung) die Abstände in ein Attribut meines Stempelfeldes einträgt. (z.B.: 1189 x 841 mm) Könnt Ihr mir da weiterhelfen ? Vielen Dank ! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 18. Feb. 2005 12:32 <-- editieren / zitieren --> Unities abgeben: Nur für MaxWachtl
Zitat: Original erstellt von MaxWachtl: ich suche .. Könnt Ihr mir da weiterhelfen ?
Ja sicher : zum Suchen versuchs mal mit www.google.de .. wo hast du eigentlich schon geguckt, ob du was findest ?? Im Ernst: klar ist sowas per Lisp lösbar: Das Papierformat des Layouts liefert dir z.B. folgende Funktion: (defun LAYOUT-GET-PAPERSIZE ( / WIDTH HEIGHT) (vla-GetPaperSize (vla-get-activelayout (vla-get-activeDOCUMENT (vlax-get-acad-object) ) ) 'WIDTH 'HEIGHT ) (strcat (rtos WIDTH 2 0)"x"(rtos HEIGHT 2 0)) ) Aufruf mit (LAYOUT-GET-PAPERSIZE) .. und wie man einem Attribut eine Wert zuweist, ist u.a. hier demonstriert. Du siehst, eine wichtige Information wäre noch Block und Attributname..
------------------ - 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 |
CAD-Tötti Mitglied
Beiträge: 116 Registriert: 27.09.2003 ACAD 2009
|
erstellt am: 18. Feb. 2005 13:33 <-- editieren / zitieren --> Unities abgeben: Nur für MaxWachtl
|
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: 18. Feb. 2005 14:24 <-- editieren / zitieren --> Unities abgeben: Nur für MaxWachtl
Zitat: Original erstellt von CAD-Tötti: ......und wie geht das im Modellbereich mit der Abfrage "extmin" und "extmax" !!! :-)Grüße aus Bremen
Gut.
------------------ Mit freundlichem Gruß Udo Hübner ---------- Der versteckte Fehler bleibt nie unentdeckt. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Tötti Mitglied
Beiträge: 116 Registriert: 27.09.2003 ACAD 2009
|
erstellt am: 18. Feb. 2005 16:04 <-- editieren / zitieren --> Unities abgeben: Nur für MaxWachtl
|
StephanJP Mitglied CAD-Admin
Beiträge: 834 Registriert: 09.11.2000
|
erstellt am: 10. Mrz. 2005 12:22 <-- editieren / zitieren --> Unities abgeben: Nur für MaxWachtl
nur mal ein Ansatz: (defun get-model-space () (setq ad (mapcar '- (getvar "extmax") (getvar "extmin"))) (setq zbereich (strcat (rtos (nth 0 ad) 2 0) "mmx" (rtos (nth 1 ad) 2 0) "mm")) ) ------------------ gruß Stephan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |