---

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

---

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

---

Servus

Äh _matchprop macht genau das was du willst, habs getestet 

------------------
Bitte Supportangaben eintragen, warum siehst du hier und noch schöne Grüsse aus der Steiermark  Bernd P.

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

---

@Bernd : Ja, aber ich glaube erst ab ACAD2004, bei 2000 sind die beschriebenen Eigenschaften leider noch außen vor.

------------------
- Thomas -

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

---

Jau möglich

------------------
Bitte Supportangaben eintragen, warum siehst du hier und noch schöne Grüsse aus der Steiermark  Bernd P.

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

---

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