---

Hallo kann mir wehr Helfen möchte Texte kopieren und ändern zu gleich soweit funkt es ja aber ich kann keinen punkt anklichen und sehe auch nicht wo ich text hin kopieren
danke  heinz

(defun c:kota (/ a)
(command "_.copy" (setq a (car(entsel)))""(cdr(assoc 10 (entget a)))(getpoint "
Einfügepunkt:"))
(command "_.ddedit" (entlast))
)

------------------

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

---

Hallo Heinz,

ich kann jetzt nicht nachvollziehen, wo dein Problem ist. Der text wird dorthin kopiert, wo ich klicke, und dann startet ddedit.
Wo genau ist jetzt dein Problem?

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

---

Hallo,
ich glaube er meint, dass der Objektfang nicht funzt und er möchte den Text am Gummiband haben (sehen).

@ heinz:  wäre _tedit aus den Expresstools nicht besser; damit kannst du dann auch Attribute so bearbeiten.

Ciao

------------------

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

---

genau das will ich danke für antwort
heinz

------------------

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

---

Servus

Soweit mir bekannt ist funktioniert "getpoint" nicht innerhalb von "command".
Anstelle von "getpoint" könntest Du "pause" versuchen.

------------------
Gruß, Ernst

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

---

Zitat:

---

Original erstellt von Geos:
...Soweit mir bekannt ist funktioniert "getpoint" nicht innerhalb von "command".
...

---

Hallo Ernst,

das ist falsch. Probiere folgendes aus:
(command "_.LINE"
        (setq spt(getpoint "\nLos - Startpunkt eingeben:"))
        (getpoint spt "\nIch warte. Wo bleibt der Endpunkt?:")
        "")

Man kann so ziemlich alles innerhalb eines (command ..) Aufrufs machen.

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

---

Hallo Holger

Gut zu wissen, dass das jetzt schon geht.

(Hab in der Zwischenzeit nochmal nachgeschaut - meine Info stammt noch aus dem Autolisp-Handbuch 12, da gings noch nicht)

Vielleicht sollte ich mich doch mal mit neueren Unterlagen beschäftigen :-)

------------------
Gruß, Ernst

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

---

(defun c:kota (/ a)
(command "_.copy" (setq a (car(entsel)))""(cdr(assoc 10 (entget a)))
(command "_.line"  (setq spt(getpoint "\n Startpunkt eingeben:"))
getpoint spt"\n Einfügepunkt:")
(command "_.ddedit" (entlast))
)
hallo sieht so aus aber jetzt kann ich text nicht ändern.
danke heinz bin für jede hilfe dankbar

------------------

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

---

MYTEXT.zip

Heinz,
mit dem Anhang kannst Du:
Texte wählen, ändern und an anderer Stelle als neuen Text einfügen.
Neue Texte erstellen: statt Objekte wählen: die Return-Taste drücken.
Mit klick auf das Datumsfeld können Texte-Attribute pauschal geändert werden.

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

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

---

Hallo Heinz,

kann es sein, dass du gar nicht weißt, was du da so änderst?
So sollte es Deinen Vorstellungen entsprechen:

Code:

---

(defun c:kota (/ a)
  (command "_.copy"
          (setq a (car(entsel)))
          ""
          (cdr(assoc 10 (entget a)))
          pause
          )
  (command "_.ddedit" (entlast))
  )

---

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

---

Nein das weis ich nicht bin Anfänger, danke es funkt so wie ich es will, danke noch mal heinz

   

------------------

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

---

@Heinz

die ersten Schritte sind die schwersten. Auf meiner Seite gibts ja einen Einstieg in AutoLISP (unter Hilfe->Training). Kannst du dir ja mal zu Gemüte führen.
Teil 4 und 5 sind schon in Vorbereitung. 4 liegt noch bei Adesk 5 bei mir.

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