Text kopieren und ändern (Autodesk/Rund um AutoCAD)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

Autor

Thema: Text kopieren und ändern (1408 mal gelesen)

Dober Heinz
Mitglied
Technischer Zeichner

Senden Sie eine Private Message an Dober Heinz

Schreiben Sie einen Gästebucheintrag für Dober Heinz

Beiträge: 1143
Registriert: 20.12.2002

Autocad 2020/64B
Win10
WORKSTATION Intel(R) CPU E5-1620 3.60GHz
16,0GB Ram
64 Bit-Betriebssystem
HP Designjet T7200
Grafik NVIDIA Quadro P4000
ZWCAD2019

erstellt am: 10. Feb. 2004 16:03

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Hallo kann mir einer das Programm so ändern das ich bei Text kopieren seh wohin ich den Text kopiere jetzt ist er nicht sichtbar 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

CADmium
Moderator
Maschinenbaukonstrukteur

Senden Sie eine Private Message an CADmium

Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 10. Feb. 2004 18:43

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

(defun c:kota (/ OBJEKT)
(if(setq OBJEKT (ssget "_:S" '((0 . "TEXT,MTEXT"))))
(progn
(setq OBJEKT (ssname OBJEKT 0))
(command "_.copy" OBJEKT "" (cdr(assoc 10 (entget OBJEKT))) pause)
(command "_.ddedit" (entlast))
)
)
)

Gruß Thomas

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

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

CAD-Tötti
Mitglied

Senden Sie eine Private Message an CAD-Tötti

Schreiben Sie einen Gästebucheintrag für CAD-Tötti

Beiträge: 116
Registriert: 27.09.2003

ACAD 2004

erstellt am: 10. Feb. 2004 19:54

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

Hi,

ich finde den Einfügepunkt nun nur etwas merkwürdig. Ich finde, der Einfügepunkt sollte der Referenzpunkt des Textes sein (z.B. Mitte zentriert).

Gruß

CAD-Tötti

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

Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH

Senden Sie eine Private Message an Brischke

Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools

erstellt am: 10. Feb. 2004 20:34

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

Hallo,

dann vielleicht so:

Code:

(defun c:kota (/ OBJEKT)
(if(setq OBJEKT (ssget "_:S" '((0 . "TEXT,MTEXT"))))
(progn
(setq OBJEKT (ssname OBJEKT 0))
(command "_.copy" OBJEKT "" (cdr(assoc
(if
(< 0(cdr(assoc 72 (entget OBJEKT))))
11
10
)
(entget OBJEKT)))
pause)
(command "_.ddedit" (entlast))
)
)
)

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

Dober Heinz
Mitglied
Technischer Zeichner

Beiträge: 1143
Registriert: 20.12.2002

Autocad 2020/64B
Win10
WORKSTATION Intel(R) CPU E5-1620 3.60GHz
16,0GB Ram
64 Bit-Betriebssystem
HP Designjet T7200
Grafik NVIDIA Quadro P4000
ZWCAD2019

erstellt am: 11. Feb. 2004 06:49

<-- editieren / zitieren -->

Unities abgeben:

Zitat:
Original erstellt von Brischke:
Hallo,
dann vielleicht so:
Code:

(defun c:kota (/ OBJEKT)
(if(setq OBJEKT (ssget "_:S" '((0 . "TEXT,MTEXT"))))
(progn
(setq OBJEKT (ssname OBJEKT 0))
(command "_.copy" OBJEKT "" (cdr(assoc
(if
   (< 0(cdr(assoc 72 (entget OBJEKT))))
   11
   10
   )
(entget OBJEKT)))
   pause)
(command "_.ddedit" (entlast))
)
)
)
Grüße Holger

Danke funkt super
kann man das programm noch so ändern das es den befehl abbricht und ich mit return den nächsten text kopieren kann wäre noch super wenn das ging
bedanke mir

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

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

AsSchu
Ehrenmitglied
Konstrukteur

Senden Sie eine Private Message an AsSchu

Schreiben Sie einen Gästebucheintrag für AsSchu

Beiträge: 1632
Registriert: 27.06.2003

ACAD 2012

erstellt am: 11. Feb. 2004 08:14

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

Moin

Naja, den Einfügepunkt immer so genau zu treffen, ist schon recht schwierig.

Ciao

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

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator

Senden Sie eine Private Message an marc.scherer

Schreiben Sie einen Gästebucheintrag für marc.scherer

Beiträge: 2490
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 11. Feb. 2004 10:41

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

Code:

(defun C:KOTA (/ OBJEKT)
(while (setq OBJEKT (ssget "_:S" '((0 . "*TEXT"))))
(setq OBJEKT (ssname OBJEKT 0))
(command "_.copy"
OBJEKT
""
(cdr (assoc
(if
(< 0 (cdr (assoc 72 (entget OBJEKT))))
11
10
) ;_ end of if
(entget OBJEKT)
) ;_ end of assoc
) ;_ end of cdr
PAUSE
) ;_ end of command
(command "_.ddedit" (entlast))
(command)
) ;_ end of progn
)

------------------
Ciao,
Marc

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

Dober Heinz
Mitglied
Technischer Zeichner

Beiträge: 1143
Registriert: 20.12.2002

Autocad 2020/64B
Win10
WORKSTATION Intel(R) CPU E5-1620 3.60GHz
16,0GB Ram
64 Bit-Betriebssystem
HP Designjet T7200
Grafik NVIDIA Quadro P4000
ZWCAD2019

erstellt am: 11. Feb. 2004 10:52

<-- editieren / zitieren -->

Unities abgeben:

Zitat:
Original erstellt von marc.scherer:
Code:

(defun C:KOTA (/ OBJEKT)
(while (setq OBJEKT (ssget "_:S" '((0 . "*TEXT"))))
(setq OBJEKT (ssname OBJEKT 0))
(command "_.copy"
   OBJEKT
   ""
   (cdr (assoc
(if
(< 0 (cdr (assoc 72 (entget OBJEKT))))
   11
   10
) ;_ end of if
(entget OBJEKT)
) ;_ end of assoc
   ) ;_ end of cdr
   PAUSE
) ;_ end of command
(command "_.ddedit" (entlast))
(command)
) ;_ end of progn
)

..

Danke Marc genau so wollte ich das
10 Unities ich dir schick

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

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

AsSchu
Ehrenmitglied
Konstrukteur

Beiträge: 1632
Registriert: 27.06.2003

ACAD 2012

erstellt am: 11. Feb. 2004 10:56

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

@marc

das scheint jetzt aber nur mit 2004 zu funzen???

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

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator

Beiträge: 2490
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 11. Feb. 2004 11:03

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

@AsSchu: k.A., ist das so? Warum sollte es? Was geht bei Dir ned?

------------------
Ciao,
Marc

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

AsSchu
Ehrenmitglied
Konstrukteur

Beiträge: 1632
Registriert: 27.06.2003

ACAD 2012

erstellt am: 11. Feb. 2004 11:13

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

kota.zip

Hi,

Nunja irgenetwas mit dem Basispunkt stimmt nicht, d.h. der Text hängt nicht am Cursor zum Absetzen. siehe Bild

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

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator

Beiträge: 2490
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 11. Feb. 2004 11:30

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

Hi,
UCS ist der Fehler:

Code:

(defun C:KOTA (/ OBJEKT UCSFLAG)
(setq UCSFLAG (WORLD-UCS))
(while (setq OBJEKT (ssget "_:S" '((0 . "*TEXT"))))
(setq OBJEKT (ssname OBJEKT 0))
(command "_.copy"
OBJEKT
""
(cdr (assoc
(if
(< 0 (cdr (assoc 72 (entget OBJEKT))))
11
10
) ;_ end of if
(entget OBJEKT)
) ;_ end of assoc
) ;_ end of cdr
PAUSE
) ;_ end of command
(command "_.ddedit" (entlast))
(command)
) ;_ end of progn
(if UCSFLAG
(command "_.ucs" "_p")
) ;_ end of if
) ;_ end of defun
(defun WORLD-UCS (/ RETVAL)
(if (= (getvar "worlducs") 0)
(progn
(command "_.ucs" "_w")
(setq RETVAL t)
) ;_ end of progn
) ;_ end of if
RETVAL
) ;_ end of defun

------------------
Ciao,
Marc

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

AsSchu
Ehrenmitglied
Konstrukteur

Beiträge: 1632
Registriert: 27.06.2003

ACAD 2012

erstellt am: 11. Feb. 2004 11:41

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

Hey marc, das ist Klasse

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

vision
Mitglied

Senden Sie eine Private Message an vision

Schreiben Sie einen Gästebucheintrag für vision

Beiträge: 113
Registriert: 27.10.2003

AutoCAD 2015
Expresstools
Windows 10

erstellt am: 11. Feb. 2004 18:12

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

Hallo,

habe das LISP zum drehen (90°) von Blöcken geändert. Es funktioniert auch, bekomme aber nach jedem Schleifendurchlauf die Fehlermeldung:
Unbekannter Befehl "BLOCK_DREHEN90".
Wer hat einen Rat?

(defun C:BLOCK_DREHEN90 (/ OBJEKT UCSFLAG)
(setq UCSFLAG (WORLD-UCS))
(while (setq OBJEKT (ssget "_:S" '((0 . "INSERT"))))
(setq OBJEKT (ssname OBJEKT 0))
(command "_.rotate"
OBJEKT
""
(cdr (assoc
(if
(< 0 (cdr (assoc 72 (entget OBJEKT))))
11
10
) ;_ end of if
(entget OBJEKT)
) ;_ end of assoc
) ;_ end of cdr
90
""
) ;_ end of command
(command)
) ;_ end of progn
(if UCSFLAG
(command "_.ucs" "_p")
) ;_ end of if
) ;_ end of defun

(defun WORLD-UCS (/ RETVAL)
(if (= (getvar "worlducs") 0)
(progn
(command "_.ucs" "_w")
(setq RETVAL t)
) ;_ end of progn
) ;_ end of if
RETVAL
) ;_ end of defun

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

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator

Beiträge: 2490
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 12. Feb. 2004 09:25

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

Hi,
da hast Du 'n paar commands zuviel drin:

Code:

(defun C:BLOCK_DREHEN90 (/ OBJEKT UCSFLAG)
(setq UCSFLAG (WORLD-UCS))
(while (setq OBJEKT (ssget "_:S" '((0 . "INSERT"))))
(setq OBJEKT (ssname OBJEKT 0))
(command "_.rotate"
OBJEKT
""
(cdr (assoc
(if
(< 0 (cdr (assoc 72 (entget OBJEKT))))
11
10
) ;_ end of if
(entget OBJEKT)
) ;_ end of assoc
) ;_ end of cdr
100
) ;_ end of command
) ;_ end of progn
(if UCSFLAG
(command "_.ucs" "_p")
) ;_ end of if
) ;_ end of defun
(defun WORLD-UCS (/ RETVAL)
(if (= (getvar "worlducs") 0)
(progn
(command "_.ucs" "_w")
(setq RETVAL t)
) ;_ end of progn
) ;_ end of if
RETVAL
) ;_ end of defun

------------------
Ciao,
Marc

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

Erwin Fortelny
Mitglied
Tech. Zeichner

Senden Sie eine Private Message an Erwin Fortelny

Schreiben Sie einen Gästebucheintrag für Erwin Fortelny

Beiträge: 877
Registriert: 13.12.2001

-Firma:
Lenovo S30 + 2x Acer B246HL, Win7 x64 Enterprise
AutoCAD 10 bis 2014
ELCAD 3.5 bis 7.12

erstellt am: 12. Feb. 2004 09:26

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

Hallo,

Zitat:
Original erstellt von vision:
habe das LISP zum drehen (90°) von Blöcken geändert. Es funktioniert auch, bekomme aber nach jedem Schleifendurchlauf die Fehlermeldung:
Unbekannter Befehl "BLOCK_DREHEN90".
Wer hat einen Rat?

Hmm, also unter 2004 funzt es ohne Probleme!!!

Demnach wird wohl der Fehler in einer Command-Anweisung stecken, wo sich 2002 (was Du ja einsetzt!?) anders verhält als 2004!

Leider kann ich da nichts checken, da wir nur noch 2004 haben!

------------------
Servus, Erwin
--

[Diese Nachricht wurde von Erwin Fortelny am 12. Feb. 2004 editiert.]

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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)