---

Hallo,
hier erstmal direkt das Sorgenkind

Code:

---

;setzt Befehlsnamen
(defun c:ezfl ()
;
;
;setzt Variablen auf Wert 0
;
(setq A nil)
(setq B nil)
(setq C nil)
(setq D 0)
(setq E 0)
;
;
;fragt Objekt ab und setzt A auf Textwert des gew. Objektes
;
(while (= A nil)
  (setq A (entsel "\nStraßenname wählen: "))
)
(setq A (car A))
(setq A (entget A))
(setq A (cdr (assoc 1 A)))
;
;
;fragt Objekt ab und setzt B auf Textwert des gew. Objektes
;
(while (= B nil)
  (setq B (entsel "\nHausnummer wählen: "))
)
(setq B (car B))
(setq B (entget B))
(setq B (cdr (assoc 1 B)))
;
;
;fragt Objekt ab und setzt C auf Textwert des gew. Objektes
;
(while (= C nil)
  (setq C (entsel "\nHaltungsbezeichnung wählen: "))
)
(setq C (car C))
(setq C (entget C))
(setq C (cdr (assoc 1 C)))
;
;
;fragt Objekt ab, setzt DT auf Fläche des gew. Objektes
;addiert alle Werte zu D bis ENTER gedrückt wird
;
(setq DI 0)
(setq DT nil)
(while (= DI 0)
  (progn
   (setq DO (entsel "\nGrundstücksumgrenzung anklicken (oder ENTER für keine): "))
   (command "fläche" "o" DO)
   (setq DT (rtos (getvar "area") 2 2))
   (if (/= DO nil)
    (progn
     (setq DT (distof DT 2))
     (setq D (+ D DT))
     (command "ändern" DO "" "ei" "f" "t" "255,191,127" "")
     (command "ändern" DO "" "ei" "lty" "continuous" "")
    )
    (setq DI 1)
   )
  )
)
;
;
;
;fragt Objekt ab, setzt ET auf Fläche des gew. Objektes
;addiert alle Werte zu D bis ENTER gedrückt wird
;
(setq EI 0)
(setq ET nil)
(while (= EI 0)
  (progn
   (setq EO (entsel "\nGebäudeumgrenzung anklicken (oder ENTER für keine): "))
   (command "fläche" "o" EO)
   (setq ET (rtos (getvar "area") 2 2))
   (if (/= EO nil)
    (progn
     (setq ET (distof ET 2))
     (setq E (+ E ET))
     (command "ändern" EO "" "ei" "f" "t" "255,127,127" "")
     (command "ändern" EO "" "ei" "lty" "continuous" "")
    )
    (setq EI 1)
   )
  )
)
;
;rundet alle Werte auf 2 Nachkommastellen
;
(setq D (rtos D 2 2))
(setq E (rtos E 2 2))
;
;
(setq DO nil)
(setq EO nil)
;
;
;fügt Block _ezfl (muß in Zeichnung vorhanden sein) ein
;
(command "_insert" "_ezfl" pause 1 1 0 A B C D E )
)

---

Nun bin ich gerade in der Ausbildung zum Bauzeichner und habe von LISP leider (noch) gar keine Ahnung   Mein Vorgänger hat jedoch dieses Exemplar hinterlassen. Es soll die Straße, die Hausnummer und die Haltung als Text abfragen, so wie die Grundstücksgröße und die Dachfläche. Das alles soll mir dann später in dem bereits vorhandenen Block _ezfl ausgegeben werden.

Unter Auto CAD Map 3D 2013 funktioniert das auch wunderbar, nur leider unter meinem neuen AutoCAD 2017 nicht mehr. Hier wird mir der Block zwar noch erstellt, aber die Werte nicht mehr eingetragen. Es öffnet sich ein Fenster um die Attribute zu bearbeiten, was ich ja aber eigentlich nicht möchte, da ich sie vorher schon ausgewählt habe.

Über Hilfe würde ich mich sehr freuen (:
Jenny

[Diese Nachricht wurde von Grashalm am 10. Aug. 2016 editiert.]

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

---

servus attdia auf 0

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier.
Wünsche:
Tabllen (XLS,ODS) FDO nativ einbinden,  FDO-WMTS, richtige Ebenen für Layer, Erweiterter Attribut-Editor "auffrischen", dyn. Xrefs, mehrere modell Bereiche, Halo4Texte, verschränkte Attribute, Linientypen überarbeiten (doppellinien) , XREF>VISRETAIN pro XREF
Fehler:
FDORasterdaten im Layout Richtigen Maßstab verwenden, funktionierende updates u. erweiterungen inkl. installationsroutinen, Fehler zwischen Normal MAP Civil beheben

Schöne Grüsse aus der Steiermark  Bernd P.

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

---

Das hat leider nicht geholfen

Code:

---

Befehl: EZFL
Straßenname wählen:
Hausnummer wählen:
Haltungsbezeichnung wählen:
Grundstücksumgrenzung anklicken (oder ENTER für keine): fläche
Ersten Eckpunkt angeben oder [Objekt/fläche Hinzufügen/fläche Abziehen] <Objekt>: o
Objekte auswählen:
Fläche = 651017.9494, Umfang = 3343.1291
Befehl: ändern
Objekte wählen:  1 gefunden
Objekte wählen: Modifikationspunkt angeben oder [EIgenschaften]: ei
Zu ändernde Eigenschaft eingeben [Farbe/ERhebung/LAyer/LTYp/LTFaktor/LStärke/Objekthöhe/TRansparenz/Material/Beschriftung]: f
Neue Farbe [Truecolor/Farbbuch] <VONLAYER>: t Rot,Grün,Blau: 255,191,127
Zu ändernde Eigenschaft eingeben [Farbe/ERhebung/LAyer/LTYp/LTFaktor/LStärke/Objekthöhe/TRansparenz/Material/Beschriftung]:
Befehl: ändern
Objekte wählen:  1 gefunden
Objekte wählen: Modifikationspunkt angeben oder [EIgenschaften]: ei
Zu ändernde Eigenschaft eingeben [Farbe/ERhebung/LAyer/LTYp/LTFaktor/LStärke/Objekthöhe/TRansparenz/Material/Beschriftung]: lty
Neuen Linientypnamen eingeben <VonLayer>: continuous
Zu ändernde Eigenschaft eingeben [Farbe/ERhebung/LAyer/LTYp/LTFaktor/LStärke/Objekthöhe/TRansparenz/Material/Beschriftung]:
Befehl:
Grundstücksumgrenzung anklicken (oder ENTER für keine):
fläche
Ersten Eckpunkt angeben oder [Objekt/fläche Hinzufügen/fläche Abziehen] <Objekt>: o
Objekte auswählen:
Befehl:
Gebäudeumgrenzung anklicken (oder ENTER für keine): fläche
Ersten Eckpunkt angeben oder [Objekt/fläche Hinzufügen/fläche Abziehen] <Objekt>: o
Objekte auswählen:
Fläche = 59641.4696, Umfang = 1006.6400
Befehl: ändern
Objekte wählen:  1 gefunden
Objekte wählen: Modifikationspunkt angeben oder [EIgenschaften]: ei
Zu ändernde Eigenschaft eingeben [Farbe/ERhebung/LAyer/LTYp/LTFaktor/LStärke/Objekthöhe/TRansparenz/Material/Beschriftung]: f
Neue Farbe [Truecolor/Farbbuch] <VONLAYER>: t Rot,Grün,Blau: 255,127,127
Zu ändernde Eigenschaft eingeben [Farbe/ERhebung/LAyer/LTYp/LTFaktor/LStärke/Objekthöhe/TRansparenz/Material/Beschriftung]:
Befehl: ändern
Objekte wählen:  1 gefunden
Objekte wählen: Modifikationspunkt angeben oder [EIgenschaften]: ei
Zu ändernde Eigenschaft eingeben [Farbe/ERhebung/LAyer/LTYp/LTFaktor/LStärke/Objekthöhe/TRansparenz/Material/Beschriftung]: lty
Neuen Linientypnamen eingeben <VonLayer>: continuous
Zu ändernde Eigenschaft eingeben [Farbe/ERhebung/LAyer/LTYp/LTFaktor/LStärke/Objekthöhe/TRansparenz/Material/Beschriftung]:
Befehl:
Gebäudeumgrenzung anklicken (oder ENTER für keine):
fläche
Ersten Eckpunkt angeben oder [Objekt/fläche Hinzufügen/fläche Abziehen] <Objekt>: o
Objekte auswählen:
Befehl: _insert Blocknamen eingeben oder [?] <_ezfl>: _ezfl
Einheiten: Keine Einheit  Konvertierung:    39.37
Einfügepunkt angeben oder [Basispunkt/Faktor/X/Y/Z/Drehen]:
X-Skalierfaktor eingeben, entgegengesetzte Ecke angeben oder [Ecke/XYZ] <1>: 1 Y-Skalierfaktor eingeben <X-skalierfaktor verwenden>: 1
Drehwinkel angeben <0>: 0
Befehl: Hauptstraße Unbekannter Befehl "HAUPTSTRAßE". Drücken Sie F1-Taste für Hilfe.
Befehl: 1 Unbekannter Befehl "1". Drücken Sie F1-Taste für Hilfe.
Befehl: 12345 Unbekannter Befehl "12345". Drücken Sie F1-Taste für Hilfe.
Befehl: 651017.95 Unbekannter Befehl "95". Drücken Sie F1-Taste für Hilfe.
Befehl: 59641.47 Unbekannter Befehl "47". Drücken Sie F1-Taste für

---

Das hat er mir daraufhin ausgespuckt.

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

---

Hallo Grashalm,

erst einmal Wilkommen im "WBF" 

Da ich kein 2017 habe kann ich es nicht für dich ausprobieren, aber mach mal folgendes:

Gib  _-INSERT      in die Befehlszeile ein und gehe dann die gewünschten Eingaben durch. Das Ergebnis stellt Du dann hier rein, bzw. vergleichst die Daten in Art und Reihenfolge mit der Zeile

(command "_insert" "_ezfl" pause 1 1 0 A B C D E )

wobei pause für das Auswählen des Einfügepunktes steht.

Da ganze sieht dann irgendwie so aus (hier aus 2014)

Code:

---

Befehl: _-INSERT
Blocknamen eingeben oder [?] <irgendwas>: hier_Dein_Blockname  (also verm. _ezfl)

Einheiten: Keine Einheit  Konvertierung:    1.000
Einfügepunkt angeben oder [Basispunkt/Faktor/X/Y/Z/Drehen]:
X-Skalierfaktor eingeben, entgegengesetzte Ecke angeben oder [Ecke/XYZ] <1>: 1
Y-Skalierfaktor eingeben <X-skalierfaktor verwenden>: 1

Drehwinkel angeben <0.000>: 0

Attributwerte eingeben
Punkt-Nr.: 123
HOEHE: 456

---

Gruß
Thomas

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

---

Ursprünglich Aussage passt zu Attreq=1 Attdia=1
Protokoll/Aussage2 passt zu Attreq=0 Attdia=irrelevant

Benötigt wird: ATTREQ=1 ATTDIA=0

Die Sysvars kannst du in der Hilfe nachlesen und auch direkt in Acad "per Hand" testen.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Guten Morgen,
da hatte ich doch direkt ein Erfolgserlebnis  Attreq=1 Attdia=0 hat funktioniert.
Vielen Dank!

Jetzt würde mich nur noch ineressieren wofür das genau steht und was ich damit bewirkt habe 

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

---

Zitat:

---

Original erstellt von cadffm:

Die Sysvars kannst du in der Hilfe nachlesen und auch direkt in Acad "per Hand" testen.

---

 

Gruß
Thomas

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