BLOCK THAT MOVES... HELP

[leonucadomi]

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.

 

[mhupp]

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)
)

 

[leonucadomi]

Quote

i will try thanks