---

Hallo zusammen

Habe festgestellt das bei AutoCAD 2002
der Befehl (setvar "clayer" h_vl)
mir ein Fehler raus gibt.
{Fehler: Einstellung für AutoCAD-Variable zurückgewiesen: "CLAYER" "H_VL"}

Bei AutoCAD 2006 hingegen {nil}.

(SETQ mb001layerkbem (SETVAR "clayer" h_vl))
(IF (= mb001layerkaaa NIL)
(COMMAND "_LAYER" "M" "h_vl" "FA" "7" "h_vl" "L" "continuous" "h_vl" "LS" "0.5" "h_vl" \r))

Brauche eine Lösung für festzustellen ob dieser Layer existiert,
um Layer erstellen oder nicht.

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

---

(command "_layer" "_m" "hvl" "")
setzt den Layer aktuell, wenn er nicht existiert, wird er angelegt

alternativ

(if(tblsearch "LAYER" "hvl")(setvar "CLAYER" "HVL"))

der Layername muß ein String sein.
------------------
    - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 17. Aug. 2005 editiert.]

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

---

Hi,
das (setvar "clayer" ... hat seit irgendeiner Version 'ne tierische Macke. Ich tippe mal auf irgendein Timing-Problem von Acad.
Auf jeden Fall konnte ich den Fehler nicht zuverlässig eingrenzen.
Auch ein vorheriges 'Update der Acad-Application bzw. des ActiveDocuments half da nix.
Deswegen habe ich als Lösung 'ne eigene ActiveX Funktion geschrieben mit der ich solche Probleme nicht mehr hatte:

Code:

---

(vl-load-com)
(defun CREATE-LAYER-IF-NOT (STRNAME / RETVAL)
  (if (not (tblsearch "LAYER" STRNAME))
    (vla-add (vla-get-layers
              (vla-get-activedocument
                (vlax-get-acad-object)
              )
            )
            STRNAME
    )
  )
  (vla-put-activelayer
    (vla-get-activedocument
      (vlax-get-acad-object)
    )
    (setq RETVAL (vla-item (vla-get-layers
                            (vla-get-activedocument
                              (vlax-get-acad-object)
                            )
                          )
                          STRNAME
                )
    )
  )
  RETVAL
)

---

Mein Original-Code ist natürlich deutlich modularisierter.
Zudem übergebe ich im Original noch die Layer-Eigenschaften des Layers als Liste, aber das würde dann hier den Rahmen sprengen ;-).
Aber mit ActiveX gibt es hier keine Probleme mehr. Und ich erzeuge mit der Funktion ohne Probleme auch 600 Layer am Stück...

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

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