cut, paste, save routine

[Joris.vd.Meulen]

Since there is (to my understanding) no command for "cutbase" like "copybase"

I want to create a simple routine that.

1. selectsall

2. cut with basepoint (0,0,0)

3. paste with basepoint (0,0,0)

4. saves drawing

I think it will have to be something like

1. selectall

2. copybase (0,0,0)

3. selectall

4. delete

5. pasteclip (0,0,0)

6. save

Seems like pretty straight foward but without any lisp knowledge ... I need some help.

[cadffm · Accepted solution]

1. selectall

<What is with freezed layers?>

2. copybase (0,0,0)

3. selectall

3.a UNLOCK ALL LAYERS

4. delete

5. pasteclip (0,0,0)

6. save (or qsave or saveas?)

Thats simple, do NOTHING and save the file.

Sorry, but are you sure it is what you want? And if yes, why?

And what is you problem to do this?

You know about the keystrokes and have to write down (one per line) in a script.scr

copybase

0,0

all

layer

unlock

*

erase

previous

pasteclip

0,0

;-----------------------------------------------------------------------------

or as a menumacro (then ENTER is a semicolon 😉

^C^C^copybase;0,0;all;;layer;unlock;*;;erase;previous;;pasteclip;0,0

;-----------------------------------------------------------------------------

or in Lisp with "" as enter

(command "copybase" "0,0" "all" "" "layer" "unlock" "*" "" "erase" "previous" "" "pasteclip" "0,0")

international with forceing original commands

(command "_.copybase" "0,0" "_all" "" "_.layer" "_unlock" "*" "" "_erase" "_previous" "" "_.pasteclip" "0,0")

and add the save,qsave or saveas command at last.

[ВeekeeCZ]

---

@Joris.vd.Meulen wrote:

Since there is (to my understanding) no command for "cutbase" like "copybase"

I want to create a simple routine that.

1. selectsall (call this group A)

2. cut with basepoint (0,0,0) (working with group A)

3. paste with basepoint (0,0,0) (still working with group A within the same drawing)

4. saves drawing

---

What's the point of doing that? Am I missing something?

---

@Joris.vd.Meulen wrote:

Since there is (to my understanding) no command for "cutbase" like "copybase" 

---

Try THIS CUTBASE lisp of mine.

[Joris.vd.Meulen]

well,

in autocad (2018) we keep running into issues with 3DSMAX. In autocad we move and alter 3D elements, save, reload in 3dsmax and nothing has changed.

Reopen saved file in autodesk: pooof glitched elements with grips boundary being moved but the solid is still in its original place.

Since we can't solve that ... (if you happen to know a solution, please share!) ... a workaround is basicly paste all again into same drawing.

[cadffm]

Thank you for the explanation!

Without Max3D and you data, i can not help (only google for you), sorry.

You tried BREP command in AutoCAD after editing? thats the only thing i am think about in this case.

See also SOLIDHIST