---

Hallo Leute,

folgendes Problem. In unserem Stempel sind Ansprechpartner mit Fax und Telefonnummer angegeben.
Jetzt habe ich in der Vorlage in die Attribute reingeschrieben "Ansprechp_Kunde, Telefon_Kunde, Fax_Kunde" normalerweise kann man ja über suchen ersetzen dieses sehr einfach ausfüllen.
Jetzt möchte ich das ganze aber über Autolisp machen wo ich feste Namen und Telefon bzw Faxnummern vergebe.
Also auf Icon "Herr Mustermann" ---- zack steht da wo ich die Lückenfüller eingetragen habe der Name von Herrn Mustermann mit Telefon- und Faxnummer !!

Jetzt weiß ich nur nicht wie ich das machen soll, wer kann mir denn da helfen ????

MFG

dakneifer

------------------
dakneifer

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

---

also...

erstmal müsste man wissen ob es sich um attribute oder um
attributsdefinitionen handelt.
soll heissen...sind sie in einem block eingebunden oder nicht.
ich geh mal davon aus, dass ja! sonst macht das ja nicht so viel sinn.
dann:
habt ihr so wenig kunden, dass man für jeden ein icon anlegen kann?
was ist bei sich ändernden kundendaten...so wie du deinen wunsch beschreibst, scheint mir das eine sehr starre sache zu sein.
wenn du allerdings wirklich nichts weiter willst als einen button für  jeden kunden mit festen daten...das ist nicht wirklich schwer.
weiss halt nicht, wie dein lisp-stand ist

------------------
...so long and thanx for all the fish!

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

---

Sorry,

klar es sind natürlich Attribute in einem Block eingebunden. Was das starre betrifft. Wir haben 5-6 Firmen für die wir Zeichnen und bei jeder Firma gibt es ca. 2-3 Ansprechpartner. Nur wenn ich jetzt jedesmal unsere Adressdatenbank aufmachen muß und die Daten in den Stempel einfügen muß, ist das schon Zeitaufwand. Und dann schleichen sich auch noch Tippfehler ein etc.

Meine Kenntnisse in Autolisp sind leider sehr beschränkt, deshalb wende ich mich hier an das Forum!

Vieleicht hat ja jemand so was in der Schublade liegen, warum das Rad zweimal erfinden !!!

MFG

dakneifer

------------------
dakneifer

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

---

Hallo dakneifer,

was ist dass denn für eine Datenbank? Vielleicht sollte man, um es richtig zu machen, die Datenbank zur Programmlaufzeit abfragen und  dann in einem Dialogfenster die möglichen Firmen und Ansprechpartner auswählen können. Ich glaube nicht, dass du mit einer Lösung auf dauer zufrieden sein wirst, die im Programm festgeschriebene Daten enthält. Ich denke da an Änderungen der Daten, die erfahrngsgemäß öfter vorkommen. Wie oft, das merkt man ja meist erst in solchen Situationen. Vorteil wäre auch, dass man die Daten bei jedem Start einer Zeichnung mit denen der Datenbank vergleichen und ggf. korrigieren könnte.
Ist halt nur so eine Idee - vielleicht denke ich auch schon wieder viel zu weit.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

genau...

nur so macht es wirklich sinn, wenn man schon anfängt was zu hacken.

------------------
...so long and thanx for all the fish!

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

---

Hallo dakneifer!

folgendes könnte zumindest ein Anfang für einen allerdings ziemlich "hartverdrahteten" Attrib-info-tausch sein (halt nicht dynamisch mit datenbankzugriff wie von Holger vorgeschlagen). Der entscheidende Punkt fehlt allerdings noch, da komme ich nicht so recht weiter (näheres siehe unten).
Also los gehts:

(setq sfeld (entget (ssname (ssget) 0))) ; block "schriftfeld" auswählen
(setq sf_block_name (cdr (assoc 2 sfeld)))
(setq sf_block_def (tblsearch "BLOCK" sf_block_name)) ; blockdef holen
(setq sf_block_elem (cdr (assoc -2 sf_block_def)))
(while sf_block_elem  ; die einzelnen elemente des block bearbeiten
  (setq sf_block_objekt (entget sf_block_elem))
  (if (= (cdr (assoc 0 sf_block_objekt)) "ATTDEF")  ; jetzt haben wir ein Attribut
      (if (= (cdr (assoc 2 sf_block_objekt)) "Ansprech_kunde") ; oder wie auch immer die Kennung des Attrib. ist
        ; so weit so gut
        ;  aber wo steckt jetzt der aktuelle Wert ??? 
        ; den könnte man jetzt setzen z. b. mit
        ; (setq sf_block_objekt(subst(cons GC_akt_Wert "Name des Anpsrechpartners")(assoc GC_akt_Wert sf_block_objekt)sf_block_objekt))
        ; da höhrt es aber bei mir auf, vielleicht kann ja jemand anders weiter helfen??
        ;
      ) ; end if
      ; diese if schleife für die anderen attribute (Tel., Fax) wiederholen
  ) ;end if attribut
  (entmod sf_block_objekt)
  (setq sf_block_elem (entnext sf_block_elem))
) ; end while elemente

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

---

@spider_dd
Du hast da einen falschen Gedankenansatz. Du gehst direkt in die Blockdefinition und die ATTDEF's. Das ist vollkommen unnötig, da ja nur die Attributwerte geändert werden müssen.
Du hast dir viel Arbeit gemacht, sicher auch eine Menge gelernt dabei, es war mit sicherheit auch nicht umsonst. Du wirst es bestimmt noch mal brauchen.

@dakneifer
Folgend eine Lösung in VLisp:

Code:

---

;;;vlaObj ist der Block als VLA-Objekt
;;;Bsp: (vlax-ename->vla-object (car(entsel)));Block picken
;;;--
;;;NeuAttWerte iste eine Assoziationsliste folgenden Aufbaus
;;;(("AttBez1" . "Wert1")("AttBez2" . "Wert2"))
;;;
(defun f:set_attribute (vlaObj NeuAttWerte / lstAtts)
  (setq lstAtts (vlax-safearray->list (vlax-variant-value (vla-Getattributes vlaObj)))
lstAtts (mapcar 'cons
(mapcar 'vla-get-TagString lstAtts)
lstAtts
)
)
  (mapcar '(lambda (AL / att)
    (if (setq att(assoc (strcase(car AL)) lstAtts))
      (vla-put-TextString (cdr att) (cdr AL))
      )
    )
  NeuAttWerte
  )
  )

---

Sicher, man müßte, um dieses sinnvoll einsetzen zu können, noch einiges Beiwerk machen, aber das ist Fleißarbeit. Hiermit sollte zumindest dein Kernproblem gelöst sein.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

nur mal so ein gedanke, wenn die datenbanklösung zu aufwändig sein sollte:

warum nicht einfach eine *.txt

z.B.

Herr Mustermann
089/5556789
089/5556781

Frau Musterfrau
069/5556789
069/5556781
.
.
.

und dann in der lisp über namensabfrage drauf zugreifen und in die attribs setzen...
könnte man auch ganz leicht erweitern oder verändern.

------------------
...so long and thanx for all the fish!

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

---

@dakneifer
Ohne Programm, nur mit AutoCAD:
Das Ausfüllen geht auch mit dem Bildschirmmenü.

Block über Button einfügen:
[_Button("Zeichnungskopf",Kopf.bmp,Kopf.bmp)]^C^C_-insert ZEICHNUNGSKOPF $S=X $S=FIRMA

Attributabfragen der Befehlszeile mit KLICK in das Bildschirmmenü beantworten.

Die gewünschten Antworten werden in der *.mnu , im Abscnitt ***SCREEN eingetragen.

***SCREEN
**S

**FIRMA 3

[BMW     ]BMW $S=X $S=FIRMA01

[Audi    ]Audi $S=X $S=FIRMA02

[Toyota  ]Toyota $S=X $S=FIRMA03

[???     ]??? $S=X $S=FIRMA04

[???     ]??? $S=X $S=FIRMA05

**FIRMA01 3

[BMW     ]

[Musterm.]Hr. Musterman
[Tel.    ]01234 / 56789-22
[Fax     ]01234 / 56790-10

[Huber   ]Fr. Huber
[Tel.    ]01234 / 56789-23
[Fax     ]01234 / 56790-11

[Müller  ]Hr. Müller
[Tel.    ]01234 / 56789-23
[Fax     ]01234 / 56790-11

[Schmidt ]Fr. Schmidt
[Tel.    ]01234 / 56789-23
[Fax     ]01234 / 56790-11

[Meyer   ]Hr. Meyer
[Tel.    ]01234 / 56789-23
[Fax     ]01234 / 56790-11

**FIRMA02 3

[Audi    ]

[Name 1  ]Hr. Name 1
[Tel.    ]05678 / 123456-22
[Fax     ]05678 / 123456-10

[Name 2  ]Fr. Name 2
[Tel.    ]05678 / 123456-23
[Fax     ]05678 / 123456-11

[Name 3  ]Hr. Name 3
[Tel.    ]05678 / 123456-23
[Fax     ]05678 / 123456-11

[Name 4  ]Fr. Name 4
[Tel.    ]05678 / 123456-23
[Fax     ]05678 / 123456-11

[Name 5  ]Hr. Name 5
[Tel.    ]05678 / 123456-23
[Fax     ]05678 / 123456-11

**ENDSCREEN

Auf diese Art fülle ich Positions-Blöcke mit Attributen, die einzige Handeingabe ist die Stückzahl.
Ein kleines Lisp-Programm generiert die Positionszahlen automastisch,
und übernimmt die Bauteil-Abmessungen durch anklicken der Maße.
Der Rest wird aus dem Bildschirmmenü übernommen.
Dann die Stückliste (mit allen Gewichten etc.) erstellen:
Daten aus der Zeichnung exportieren.
Daten in Excel importieren und in 2 Minuten ist die Stückliste fertig.

------------------
Gruß Werner http://Meyer-Werner.bei.T-Online.de

[Diese Nachricht wurde von otterloh am 15. Jan. 2004 editiert.]

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