leonucadomi Posted November 28, 2022 Share Posted November 28, 2022 hello: I would like to know why when generating a block with this routine it sometimes changes position. (defun c:gg () (setq bpt (getpoint "\nPick Insertion point: ")) (setq ss (ssget)) (setq os (getvar "osmode")) (command "COPYBASE" bpt ss "" "erase" "p" "") (setvar "osmode" 0) (command "pasteblock" bpt ) (setvar "osmode" os) (princ) ) I would like to select objects and make them block in their place. Quote Link to comment Share on other sites More sharing options...
mhupp Posted November 29, 2022 Share Posted November 29, 2022 Move osmode 0 before the block command. Could be snapping to something when copybase is called. or just use "_non" so snaps are ignored. ;;----------------------------------------------------------------------------;; ;; Make Quick Block (defun C:QB () (setq bpt (getpoint "\nPick Insertion point: ")) (setq ss (ssget)) (command "COPYBASE" "_non" bpt ss "") (command "Erase" ss "") (command "pasteblock" "_non" bpt) (princ) ) 1 Quote Link to comment Share on other sites More sharing options...
leonucadomi Posted November 29, 2022 Author Share Posted November 29, 2022 Quote i will try thanks Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.