Hallo!
Mich würde mal interessieren, wie man es mit Lisp bewerkstelligt, Layer mit einem definierten Namen und Beschreibung anzulegen.
In .net habe ich das Verhalten mal nachprogrammiert und funktioniert soweit.
Mit Autolisp bin ich soweit
Code:
(tblsearch "layer" "ADM_ADR") ; Layer gefunden
(cdr (assoc 4 (entget (tblobjname "layer" "ADM_ADR")))) ; Description ???
Mit Visual Lisp
Code:
(setq acadDocument (vla-get-activedocument (vlax-get-acad-object)))
(setq theLayers (vla-get-layers acadDocument))
(setq layObj (vla-item theLayers AA))
(setq descriptString (vla-get-description layObj)) ; error: Automation Error. Description was not provided.
Was ist daran falsch bzw. wie kann man einmal die Beschreibung (Description-property) abfragen oder eintragen
Aufgabe:
1- Die Abfrage nach dem Layer "ADM_ADR" sollte "11052060 Adressnummer" ergeben
2- Es soll ein Layer mit der Bezeichnung "ADM_ADR" und der Beschreibung "11052060 Adressnummer" angelegt werden
Beilage. dll-Datei mit netload laden und Befehl: xlayer starten, dann csv-Datei wie typ-Bespiel wählen (1.Spalte Layernamen 2.Spalte Layerbeschreibung)
Danke!
------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed | ÅF AB
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP