Search the Community

Hi, I have some code where I want to copy an item to clipboard with base point, and paste into another drawing with insertion point. I have all my code working except the copy with base point section. The below code allows me to initialise the COPYBASE command but requires user input for the base point position: sourceDoc.SendCommand "_SELECT All" & vbCr & vbCr sourceDoc.SendCommand "_copybase" & vbCr I can't seem to find a way to code the base point into the command. I have tried the below code: sourceDoc.SendCommand "_copybase" & " , " & basePoint(0) & " , " & basePoint(1) & " , " & basePoint(2) & vbCr I have the paste command working with an insertion point but the COPYBASE command must work a different way. destinationDoc.SendCommand "_pasteclip " & insertionPoint(0) & " , " & insertionPoint(1) & " , " & insertionPoint(2) & vbCr If anyone could help this would be greatly appreciated.

hello, i need some help on how to check a selection set if it contain "wipeout" entity? if it does (draworder "back") and proceed to the next string of command. if not then just proceed likewise with some alert msg. please have a look at my simple routine ;this routine will let the user select multiple object ;& PASTEBLOCK the selection - 112011 ;- (defun c:pblk (/ bp opt selx) ;- (princ "Select basepoint: ") (setq bp (getpoint)) (setq opt "_b") ;- (setq selx (ssget)) ;- [color="blue"];check the selection set "selx" if there is any "WIPEOUT" entity selected ;if "wipeout" is/ are PRESENT (command:"_.draworder" "wipeout" opt) ;(alert "wipeout found -> sent to back") ;proceed to next ;if wipeout is/ are NOT found ;(alert "wipeout NOT found") ;proceed to next[/color] ;- (command "_.copybase" bp selx "") (command "_.pasteblock" bp) (command "_.erase" "previous" "") (princ) );end defun ;;; (the BLUE is where i hope i can put in the necessary codes) im using autocad 2009 thanks in advance