---

Hallo,

ich suche eine Möglichkeit Attribute im Batch auszufüllen:
Für den Batchablauf könnte ich den Scriptgenerator von AutoCAD Mechanical verwenden. Nun brauche ich aber noch ein Tool, das es mir ermöglicht ganz bestimmten Attributen - die je nach Datei - entweder noch keinen oder aber bereits einen beliebigen Wert haben können.

Kann da jemand helfen?

Gruß MS

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

---

helfen  können da viele, solange das im Umfang einer Forum-Hilfestellung
bleibt machen es sicher auch einige 

Du hast bisher nur zuwenig Informationen bisher preisgegeben..

1.)genauere Programmversion ?!
2.)"ganz bestimmten Attributen - die je nach Datei -..."

Man muß schon konkret eine "Auswahl-Eigenschaft" kennen..
=> Welche Attribute sollen
==> mit welchem Wert
gefüllt werden ?

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

---

Zitat:

---

Original erstellt von Martin Sigloch:

Kann da jemand helfen?

---

jo, ich denke, ich meld mich mal .. schreib ne genaue Anfrage, und dann sehen wir weiter

Aber z.B: sind IMHO auch die anderen der Top5 ausm Lispforum geeignete  Kandidaten
------------------
  - 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

---

attrib_forum.lsp.txt

Danke Euch beiden. Stimmt, im Lisp Forum hätte ich's auch mal versuchen können. Mit Lisp habe ich allerdings seit über 1 Jahren nichts mehr gemacht. Da ist nicht mehr viel übrig. Versucht hab ich’s trotzdem – siehe Anhang. Bitte nicht erschrecken.

Was soll passieren:

Mit dem Script Generator von AutoCAD Mechanical sollen Dateien der Reihe nach geöffnet werden. Dann soll das Lisp ablaufen:

In dem Block „rahmen“ sollen ganz bestimmte definierte Attribute andere Werte erhalten. Es hat bislang auch immer funktioniert. Nur: Im jetzigen Fall haben die Attribute unterschiedliche Werte, und bei „-attedit“ muss man den bereits bestehenden Wert wissen und angeben, bevor man den neuen Wert eingibt.

Was wir brauchen ist die Möglichkeit den über die Bezeichnung definierten Attributen einen bestimmten Wert zuzuordnen – unabhängig davon, ob bereits ein Wert zugeordnet ist und welcher

So, ich hoffe, es ist mir gelungen das deutlich genug zu formulieren.

Grüße MS

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

---

Zitat:

---

Original erstellt von Martin Sigloch:
Mit Lisp habe ich allerdings seit über 1 Jahren nichts mehr gemacht.

---

Leicht vertippt: "seit über 10 Jahren" sollte es heißen

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

---

sowas?

Code:

---

(defun c:attaend (/ tt)
    (defun bau_elemli (asatz / n elemli)
      (setq n 0)
      (repeat (sslength asatz)
        (setq elemli (cons (ssname asatz n) elemli)
              n      (1+ n)
              ) ;_ end of setq
        ) ;_ end of repeat
      elemli
      ) ;_ end of defun

    (mapcar
      '(lambda (x / ATTRIBUT)
        (foreach ATTRIBUT
                  (vlax-safearray->list
                    (vlax-variant-value
                      (vla-getattributes (vlax-ename->vla-object x))
                      ) ;_ end of vlax-variant-value
                    ) ;_ end of vlax-safearray->list
          (cond
            ((= (strcase (vla-get-TagString ATTRIBUT)) "F_DWG_NO_1")
            (vl-catch-all-error-p
              (vl-catch-all-apply
                'vla-put-Textstring
                (list ATTRIBUT "TBD")
                ) ;_ end of vl-catch-all-apply
              ) ;_ end of vl-catch-all-error-p
            )
            ((= (strcase (vla-get-TagString ATTRIBUT)) "PART_NO")
            (vl-catch-all-error-p
              (vl-catch-all-apply
                'vla-put-Textstring
                (list ATTRIBUT "1S7G-6090/6S4G-6090")
                ) ;_ end of vl-catch-all-apply
              ) ;_ end of vl-catch-all-error-p
            )
            ((= (strcase (vla-get-TagString ATTRIBUT)) "BT_NO")
            (vl-catch-all-error-p
              (vl-catch-all-apply
                'vla-put-Textstring
                (list ATTRIBUT "N/A")
                ) ;_ end of vl-catch-all-apply
              ) ;_ end of vl-catch-all-error-p
            )
            ((= (strcase (vla-get-TagString ATTRIBUT)) "PLANT")
            (vl-catch-all-error-p
              (vl-catch-all-apply
                'vla-put-Textstring
                (list ATTRIBUT "TBD")
                ) ;_ end of vl-catch-all-apply
              ) ;_ end of vl-catch-all-error-p
            )
            ((= (strcase (vla-get-TagString ATTRIBUT)) "DEPT#")
            (vl-catch-all-error-p
              (vl-catch-all-apply
                'vla-put-Textstring
                (list ATTRIBUT "TBD")
                ) ;_ end of vl-catch-all-apply
              ) ;_ end of vl-catch-all-error-p
            )
            ((= (strcase (vla-get-TagString ATTRIBUT)) "OP_NO")
            (vl-catch-all-error-p
              (vl-catch-all-apply
                'vla-put-Textstring
                (list ATTRIBUT "TBD")
                ) ;_ end of vl-catch-all-apply
              ) ;_ end of vl-catch-all-error-p
            )
            ((= (strcase (vla-get-TagString ATTRIBUT)) "SHT_TTL_L2")
            (vl-catch-all-error-p
              (vl-catch-all-apply
                'vla-put-Textstring
                (list ATTRIBUT "I4 CYLINDERHEAD MACHINING")
                ) ;_ end of vl-catch-all-apply
              ) ;_ end of vl-catch-all-error-p
            )
            ((= (strcase (vla-get-TagString ATTRIBUT)) "SAF_T")
            (vl-catch-all-error-p
              (vl-catch-all-apply
                'vla-put-Textstring
                (list ATTRIBUT "N/A")
                ) ;_ end of vl-catch-all-apply
              ) ;_ end of vl-catch-all-error-p
            )
            ((= (strcase (vla-get-TagString ATTRIBUT)) "CAD_FILE")
            (vl-catch-all-error-p
              (vl-catch-all-apply
                'vla-put-Textstring
                (list ATTRIBUT "N/A")
                ) ;_ end of vl-catch-all-apply
              ) ;_ end of vl-catch-all-error-p
            )
            )
          ) ;_ end of foreach
        ) ;_ end of lambda
      (if (setq tt (ssget "_X" '((0 . "INSERT") (2 . "RAHMEN")(66 . 1))))
        (bau_elemli tt)
        ) ;_ end of if
      ) ;_ end of mapcar
    )

---

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Zitat:

---

Original erstellt von CADwiesel:
sowas?

---

Perfekt, Cadwiesel !!! 1000 Dank!!! Hat mit sehr geholfen.

ms

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