Are there a way copy and paste via clipboard by lisp?

[hosyn]

it's possible ctrl-x and ctrl-y embed in lisp routine and how?

[pBe]

(Defun c:Democopy (/ string 2ClipB)
 (vl-load-com)
 (if (setq string (ssget "_:S" '((0 . "TEXT"))))
   (progn
     (vlax-invoke
(vlax-get
  (vlax-get (setq 2ClipB (vlax-create-object "htmlfile"))
	    'ParentWindow
  )
  'ClipBoardData
)
'SetData
"Text"
(cdr (assoc 1 (entget (ssname string 0))))
     )
     (vlax-release-object 2ClipB)
   )
 )
)


(Defun c:Demopaste (/ string 2ClipB txtstring)
 (vl-load-com)
 (if (setq string (ssget "_:S" '((0 . "TEXT"))))
   (progn
     (setq
txtstring (vlax-invoke
	    (vlax-get
	      (vlax-get
		(setq 2ClipB (vlax-create-object "htmlfile"))
		'ParentWindow
	      )
	      'ClipBoardData
	    )
	    'GetData
	    "Text"
	  )
     )
     (vla-put-textstring
(vlax-ename->vla-object (ssname string 0))
txtstring
     )
     (vlax-release-object 2ClipB)
   )
 )
)

[hosyn]

pBe

It sounds your routine specially for text ,are there for any entity??

[Lee Mac]

It sounds your routine specially for text ,are there for any entity??

 

Try the CUTCLIP / PASTECLIP commands.

[hosyn]

Thanxxxx Mr LEE MAC:)

I try

(command "copyclip" )

And i don't know what's difference between (command "copyclip" ) and (command "_copyclip" ) and (command ".copyclip" ) and (command "._copyclip" ) ???

and which one is better and why??

[Lee Mac]

And i don't know what's difference between (command "copyclip" ) and (command "_copyclip" ) and (command ".copyclip" ) and (command "._copyclip" ) ???

and which one is better and why??

 

AutoCAD Command Prefixes

An Introduction to Script Writing (see bullet points)

[pBe]

pBe

It sounds your routine specially for text ,are there for any entity??

 

Oops my bad.

[wal_dab]

Thank you pBe : but how to select mutable text rather than one entity selection??

Thank you

[pBe]

Thank you pBe : but how to select mutable text rather than one entity selection??

Thank you

 

Are you wanting to concatenate multiple string values into one? what are you planning to do with the results? paste into a text file? or for a text/mtext entity string value?

[wal_dab]

Hi

i want to select all text and copy their values to clipboard and paste to excel

thank you very much

[pBe]

Hi

i want to select all text and copy their values to clipboard and paste to excel

thank you very much

 

ALL text? in what format? one word or phrase per cell? this is very intriguing, post a cad file and a Excel file which shows the result you want

[limfx]

text cad file 

I want to select all text and copy their values to clipboard and paste to excel

 

[BIGAL]

Did you google ? Uses sort on Y so knows the order for excel, I think the example code solution was for multi line text and mtext. May have been Forums/Autodesk.

Edited January 7 by BIGAL