| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | | PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: Übertragen Eiganschaften Polylinie (282 mal gelesen)
|
TLieske Mitglied Bauingenieur
Beiträge: 247 Registriert: 12.07.2002 18xAutoCAD, SofiCAD, Vestra, AutoTURN, WinXP_Prof(SP3), PIV-3, 4GBRAM, 2xHP1050C, CARD1, Microstation, AutoVUE ...
|
erstellt am: 08. Jul. 2004 20:11 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich suche ein Tool für das Format-Übertragen von Polylinien-Eigenschaften, die mit dem normalen Befehl nicht ausgeführt werden: - globale Breite - Linientyp erstellen (Deaktiviert/Aktiviert) Der Kollege zeichnet also eine Polylinie und möchte von einem Quellobjekt die o.a. Eigenschaften übertragen, was ja nicht geht. So fummelt er das manuell mit dem Eigenschaften-Fenster nach, was auf die Dauer nervig sein kann. Entsprechende Suchbegriffe haben mir in diesem Forum leider nicht weiterhelfen können. Links sieht man ja die Ausstattung unserer PC's. Any help/idea? Ich frage hier erstmal, bevor ich mich mit Lisp befasse. ------------------ Thomas Lieske Schüßler-Plan Ing.-GmbH Frankfurt-Sachsenhausen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 08. Jul. 2004 22:26 <-- editieren / zitieren --> Unities abgeben: Nur für TLieske
Denke mal, da wirst du um eine Proggilösung nicht herumkommen : In Lisp wäre dies ne Möglichkeit (mal in eine Funktion zusammengepfercht): (vl-load-com) (defun C:POLYPROPS (/ OBJEKT GB LTG AUSWAHL ) (if (setq AUSWAHL(ssget "_:S" '((0 . "*POLYLINE")))) (progn (setq OBJEKT (ssname AUSWAHL 0)) (redraw OBJEKT 3) (if(and (not(vl-catch-all-error-p (setq GB (vl-catch-all-apply 'vlax-get-property (list (vlax-ename->vla-object OBJEKT) 'ConstantWidth ) ) ) ) ) (not(vl-catch-all-error-p (setq LTG (vl-catch-all-apply 'vlax-get-property (list (vlax-ename->vla-object OBJEKT) 'LinetypeGeneration ) ) ) ) ) ) (progn (princ "\n Globale Breite : " )(prin1 GB) (princ "\n Linientyperstellung : " )(prin1 LTG) (while (setq AUSWAHL(ssget "_:S" '((0 . "*POLYLINE")))) (vl-catch-all-error-p (vl-catch-all-apply 'vlax-put-property (list (vlax-ename->vla-object (ssname AUSWAHL 0)) 'ConstantWidth GB ) ) ) (vl-catch-all-error-p (vl-catch-all-apply 'vlax-put-property (list (vlax-ename->vla-object (ssname AUSWAHL 0)) 'LinetypeGeneration LTG ) ) ) ) ) ) (redraw OBJEKT 4) ) (princ "\n Keine Polylinie ausgewählt :" ) ) (princ) )
------------------ - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 09. Jul. 2004 07:42 <-- editieren / zitieren --> Unities abgeben: Nur für TLieske
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 09. Jul. 2004 08:03 <-- editieren / zitieren --> Unities abgeben: Nur für TLieske
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 09. Jul. 2004 08:14 <-- editieren / zitieren --> Unities abgeben: Nur für TLieske
|
TLieske Mitglied Bauingenieur
Beiträge: 247 Registriert: 12.07.2002 18xAutoCAD, SofiCAD, Vestra, AutoTURN, WinXP_Prof(SP3), PIV-3, 4GBRAM, 2xHP1050C, CARD1, Microstation, AutoVUE ...
|
erstellt am: 09. Jul. 2004 09:41 <-- editieren / zitieren --> Unities abgeben:
Hallo Thomas (cadmium), LISP funzt wunderbar. So was hab ich gebraucht. Da ich nicht so viel programmiere, hätte das Ganze bei mir 10mal so lange gedauert, hätte ich aber auch hinbekommen. Danke für die LISP-Zeilen! @Bernd: Matchprop bei Polylinien funktioniert erst ab ACAD2004. ------------------ Thomas Lieske Schüßler-Plan Ing.-GmbH Frankfurt-Sachsenhausen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|