Lisp, um einen Text in einen anderen Text zu kopieren

[Dario1982]

Hallo alle.. vor ein paar Jahren arbeitete ich in einem Engineering-Unternehmen, wo es eine fantastische Lisp geladen wurde: erlaubt, den Inhalt eines Textes auf einem anderen Text zu kopieren, ohne Paste kopieren zu müssen. .praktisch eine "adopte Eigenschaft", in der anstelle von Farbe, Schicht etc. das Quellobjekt den Textinhalt auf das Zielobjekt übertragen. Jetzt wäre ich wirklich bequem, weiß jemand, wie ich so eine Lippe finden kann? Danke!

 

[dieva]

Gute Idee!
Ich habe dir das geschrieben. Es sollte funktionieren. Sie können auch den Text einer Quote auswählen.

;
;; kopieren Sie den ausgewählten Text in einem anderen
;; d.i. 23/10/2014
;
(vl-load-com)
(Defunct c:Baumwolle)
(f)
(und (Setq t1(nentsel"\nselect Text zu kopieren)))
(setq t2(nentsel"\nselect Zieltext))
)
(Progn)
(setq txt1(vla-get-textstring (vlax-ename->vla-object(car t1)))))
(setq txt2(vla-get-textstring (vlax-ename->vla-object(car t2))))))
(vla-put-textstring (vlax-ename->vla-object(car t2)) (strcat txt2 " txt1))
)

)
)

 

[GP.]

Ich fliege auch. .
Im Gegensatz zu der domenischen Lisp nicht addiert, sondern ersetzt den Zieltext.

Ja, gute Idee. :smile:

 

[Dario1982]

Dank beiden funktioniert es perfekt!

 

[x11start]

.... gibt es auch meinen Copytxt. lsp, die auf Text (Text) - mtext (multiline text) und Kontingente funktioniert.

 

[Cristallo]

Denken, dass es nützlich für jemanden sein kann, habe ich die 2 lisp von ieva und gp in einer Datei zusammengebracht, mit kleinen Tricks, die Vaterschaft der Routinen berichtet.
Ich hoffe, es macht dir nichts aus.
Anhang anzeigen TXTMOD.lspselbst wenn für diese Funktionen ich ctx von mac lee und ttc von Asmitools verwenden

 

[GP.]

Ich hoffe, es macht mir nichts aus. .

absolut nicht, "Aufhalten" in einer Lippe mit domenico ieva kann nur eine Ehre sein. :smile:

Aber wenn Sie an ein anderes Programm denken, betrachten Sie die "schöne Esmerald", von denen Sie wissen. :Ton:

 

[Cristallo]

Wer ist smaragd?

 

[GP.]

Du wirst alt.
Ich habe Ihnen eine E-Mail geschickt.