---

Hallo,

Dank Mapcars Seite kann ich erfolgreich Layer über ActiveX erzeugen: z.B. (create-layer "Bohrung_-CNC-" '((Color . 205))). Nun soll dieser Layer aber noch nicht plotbar sein, welches Punktepaar muss ich hier angeben, dass dieser Layer entsprechend erzeigt wird? Ich habe bei Visuallisp keine Angaben gefunden, welche Eigenschaft und welchen Wert ich für nicht plotbar übergeben muss.

Danke für euere Hilfe,

Gruß Christoph

------------------
Gruss aus LA
Christoph

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

---

Ohne zu testen, aber das wirds wohl sein

Auszug aus der AutoCAD Hilfedatei Acadauto.chm

Code:

---

Plottable Property

Specifies if the layer is plottable.
See Also | Example
Signature
object.Plottable
object
Layer
The object or objects this property applies to.
Plottable
Boolean; read-write
TRUE: The layer is plottable.
FALSE: The layer is not plottable.

---

------------------
Mit freundlichem Gruß

Udo Hübner
----------
Der versteckte Fehler bleibt nie unentdeckt.

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

---

Danke,

die Eigenschaft ist jetzt schon richtig, nur sagt mir oben aufgeführte Zeile dann, wenn ich bei Wert 1 oder 0 eintrage: ; Fehler: Keine Umwandlung des lisp-Wertes in VARIANT mit folgendem Typ:  (1). Ich habe schon t oder true versucht, dies alles funktioniert nicht. Veileicht gibt es hier noch einen kurzen Tipp!

Danke!

------------------
Gruss aus LA
Christoph

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

---

Hi,
an diesen Beispielen:

Code:

---

(vla-put-Plottable (vla-get-ActiveLayer (vla-get-ActiveDocument (vlax-get-acad-object))) :vlax-false)

und

(vla-put-Plottable (vla-get-ActiveLayer (vla-get-ActiveDocument (vlax-get-acad-object))) :vlax-true)

---

kannst Du sehen, was von den ActiveX Funktionen als 0 oder 1 erwartet wird...

------------------
Ciao,
Marc

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

---

Hi,

hier mein Code:

;Eerzeugt einen neuen Layer
(defun create-layer (name props / newlayer)
  (setq newlayer
(vla-add (document-layers) name)
  )
  (foreach prop props
    (vlax-put-property
      newlayer
      (car prop)
      (cdr prop)
    )
  )
  newlayer
)

; Gibt die Layer-Collection zurück
(defun document-layers (/)
  (vla-get-layers
    (current-document)
  )
)
; gibt die aktuelle Zeichnung zurück
(defun current-document (/)
  (vla-get-activedocument
    (vlax-get-acad-object)
  )
)

Geht dies mit dieser Befehlsfolge vielleicht nicht die Plotbarkeit eines Layers einzustellen? Ich bin scheinbar zu doof dazu.

------------------
Gruss aus LA
Christoph

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

---

Null Problemo:

Code:

---

(CREATE-LAYER
  "HaselDasel"
  '(
    (COLOR . 7) ;_ Farbe
    (DESCRIPTION . "Dies ist ein Testlayer") ;_ Beschreibung
    (FREEZE . :vlax-false) ;_ Gefroren?
    (LAYERON . :vlax-true) ;_ AN / AUS?
    (LINETYPE . "Continuous") ;_ Linientyp
    (LINEWEIGHT . -3) ;_ Linienstärke
    (LOCK . :vlax-false) ;_ gesperrt?
    (PLOTTABLE . :vlax-false) ;_ Plotbar?
  )
)

---

...

------------------
Ciao,
Marc

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

---

Hallo Marc,

ich danke dir. Du hast mir meinen Denkfehler aufgezeigt. Jetzt funktioniert es so, wie ich es mir vorstelle!

------------------
Gruss aus LA
Christoph

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

---

Hallo Marc,

Gibt es hier bei der Layererstellung nicht die Möglichkeit den Plotstilnamen anzugeben? Wie nennt man das dann?
Die Plotstildatei braucht nicht angegeben werden die ist schon aktuell.

Danke.

------------------
  Martin 

Viele Grüße aus dem schönen Münsterland!

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

---

Klaro:

Code:

---

(CREATE-LAYER
  "HaselDasel2"
  '(
    (COLOR . 7) ;_ Farbe
    (DESCRIPTION . "Dies ist ein Testlayer") ;_ Beschreibung
    (FREEZE . :vlax-false) ;_ Gefroren?
    (LAYERON . :vlax-true) ;_ AN / AUS?
    (LINETYPE . "Continuous") ;_ Linientyp
    (LINEWEIGHT . -3) ;_ Linienstärke
    (LOCK . :vlax-false) ;_ gesperrt?
    (PLOTTABLE . :vlax-false) ;_ Plotbar?

    ;; Plotstil hier > AAAABER: Der muß bereits existieren!!!
    ;; sonst > ; Fehler: Automatisierungsfehler Schlüssel nicht gefunden
    (PLOTSTYLENAME . "WuscheligesWiesel")
  )
)

---

...

------------------
Ciao,
Marc
       

[Diese Nachricht wurde von marc.scherer am 19. Nov. 2005 editiert.]

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

---

Hallo, könnt Ihr mir nochmal helfen.

Wie muß ich vorgehen wenn ich das gleiche umgekehrt haben möchte. Soll heißen eine Liste mit allen Layereigenschaften. Habe zwar schon Teillösungen gefunden ohne Reaktoren aber die liefern nicht alles.

Danke

------------------
  Martin 

Viele Grüße aus dem schönen Münsterland!

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

---

z.B. so (ohne Fehlerabfangroutinen ect.)
(defun get-layer-props (name props / layer LISTE) 
(setq LAYER(vla-item (vla-get-layers(vla-get-activedocument(vlax-get-acad-object)))NAME)) 
(foreach prop props
  (setq Liste
      (cons   
        (list (vl-princ-to-string PROP)
              (vlax-get-property
                layer
                prop
              )
        )
        LISTE
      )
    )   
  )
  (reverse LISTE)
)

Aufruf z.B:
(get-layer-props "0" '("Color" "Linetype" "Name"))
die Liste der Props kannste dir erweitern, die Props bekommst du aus der Onlinehilfe bzw. mittels vlax-dump-object ...

------------------
- 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

---

DANKE War prima hab nur noch einen kleinen Fehler gefunden. So währe es richtig:

(defun get-layer-props (name props / layer LISTE) 
(setq LAYER(vla-item (vla-get-layers(vla-get-activedocument(vlax-get-acad-object)))NAME)) 
(foreach prop props
  (setq Liste
      (cons   
        (cons (vl-princ-to-string PROP)
              (vlax-get-property
                layer
                prop
              )
        )
        LISTE
      )
    )   
  )
  (reverse LISTE)
)

OK?

------------------
  Martin 

Viele Grüße aus dem schönen Münsterland!

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

---

jo ... alles ne Frage des gewollten AusgabeFormats  ( aber so wollte ich 's eigentlich )

------------------
- 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

---

Echt vielen Dank. Super Forum hier. Und vor allem immer so schnell!

------------------
  Martin 

Viele Grüße aus dem schönen Münsterland!

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