latest WTIT.lsp (Cut and paste routine with many advantages)

[JamesMaeding]

I did not start this routine, but have improved it over time.

My last post on the export not behaving is solved, so I thought to post full code for all.

A cut and paste routine might seem trivial, but this one has several twists you should pay attention to. Keeping groups is one.

Here are the commands in it:

WT - CUT TO LOCAL TEMP.DWG USING 0,0
WT2 - CUT TO LOCAL TEMP2.DWG USING 0,0
WT3 - CUT TO LOCAL TEMP3.DWG USING 0,0
WTX - CUT TO LOCAL <YOU GIVE NAME>.DWG USING 0,0
WTN - CUT TO NETWORK <YOU GIVE NAME>.DWG USING 0,0
WTWG - CUT TO LOCAL TEMP.DWG USING 0,0 AND TAG GROUPS
WTT - COPY TO LOCAL TEMP.DWG USING 0,0
WTTX - COPY TO LOCAL <YOU GIVE NAME>.DWG USING 0,0
WTTN - COPY TO NETWORK <YOU GIVE NAME>.DWG USING 0,0
WTP - CUT TO LOCAL TEMPP.DWG WITH PICK
WTPX - CUT TO LOCAL <YOU GIVE NAME>.DWG WITH PICK
WTPN - CUT TO NETWORK <YOU GIVE NAME>.DWG WITH PICK

IT - INSERT LOCAL TEMP.DWG USING 0,0
IT2 - INSERT LOCAL TEMP2.DWG USING 0,0
IT3 - INSERT LOCAL TEMP3.DWG USING 0,0
ITB - INSERT LOCAL TEMP.DWG AS BLOCK USING 0,0
ITG - INSERT LOCAL TEMP.DWG USING 0,0 AS A GROUP
ITWG - INSERT LOCAL TEMP.DWG USING 0,0 AND RESTORE GROUPS
ITP - INSERT LOCAL TEMPP.DWG WITH PICK
ITPX - INSERT LOCAL <YOU GIVE NAME>.DWG WITH PICK
ITPN - INSERT NETWORK <YOU GIVE NAME>.DWG WITH PICK
ITX - INSERT LOCAL <YOU GIVE NAME>.DWG USING 0,0
ITBX - INSERT LOCAL <YOU GIVE NAME>.DWG AS BLOCK USING 0,0
ITGX - INSERT LOCAL <YOU GIVE NAME>.DWG USING 0,0 AS A GROUP
ITN - INSERT NETWORK <YOU GIVE NAME>.DWG USING 0,0
ITBN - INSERT NETWORK TEMP.DWG AS BLOCK USING 0,0
ITGN - INSERT NETWORK <YOU GIVE NAME>.DWG USING 0,0 AS A GROUP

 Notice the WTN and ITN.

You should edit the .lsp and set the *networkpath* to some location on your server that everyone can get to.

Then run WTN, give it a name like JJJ, then pick items.

Your buddy can insert them by typing ITN, and JJJ.

Its like a network clipboard, but stays persistent until overwritten.

Also note the WTWG amd ITWG, careful with them as acad can lock up on groups sometimes.

The code is old so if anyone notices chuncks they origionally wrote, post and I will add your name to the credits in the lisp.

As with any internet code, test at your office before making a part of your workflows.