Copy / Paste / Rotate several time without redefine object or base point.

[m.lharidon]

Hello,

In the "Copy block x time between 2 points (with orientation) (CM2P adaptation)" Topic I discover I can use this fontion (to have the blocks I use alway align with :

 (setq blk_ent (entget (entlast)))
      (entmod (subst (cons 50 rad)(assoc 50 blk_ent)blk_ent))
      (setq e (entlast))
  

I tried to integrate it In the CBPRM Lisp but I have an error "bad DXF group". Here is the lisp:

(defun C:CBPRMB (/ e p); = CopyBase and Paste/Rotate Multiple
  (if
    (and
      (setq e (car (entsel "\Object to Paste/Rotate Multiple times: ")))
      (setq p (cdr (assoc 10 (entget e))))
    ); and
    (progn ; then
      (command "_.copybase" p e "")

      (setq blk_ent (entget (entlast)))
      (entmod (subst (cons 50 rad)(assoc 50 blk_ent)blk_ent))
      (setq e (entlast))
  
      (while (setq p (getpoint "\nPaste base point or <exit>: "))
        (command
          "_.pasteclip" p
          "_.rotate" "_last" "" p pause
        ); command
      ); while
    ); progn
  ); if
  (princ)
)

Can you help me for that?

Thanks.

ML

[ВeekeeCZ]

I don't really understand how you imagine the workflow, but this issue with your code is that you never set the rad variable.

Elaborate your workflow a bit, where to get the angle from, if you need more help.

---

@m.lharidon wrote:

Hello,

In the "Copy block x time between 2 points (with orientation) (CM2P adaptation)" Topic I discover I can use this fontion (to have the blocks I use alway align with :

 (setq blk_ent (entget (entlast)))
      (entmod (subst (cons 50 rad)(assoc 50 blk_ent)blk_ent))
      (setq e (entlast))
  

I tried to integrate it In the CBPRM Lisp but I have an error "bad DXF group". Here is the lisp:

(defun C:CBPRMB (/ e p); = CopyBase and Paste/Rotate Multiple
  (if
    (and
      (setq e (car (entsel "\Object to Paste/Rotate Multiple times: ")))
      (setq p (cdr (assoc 10 (entget e))))
    ); and
    (progn ; then
      (command "_.copybase" p e "")

      (setq blk_ent (entget (entlast)))
      (entmod (subst (cons 50 rad)(assoc 50 blk_ent)blk_ent))
      (setq e (entlast))
  
      (while (setq p (getpoint "\nPaste base point or <exit>: "))
        (command
          "_.pasteclip" p
          "_.rotate" "_last" "" p pause
        ); command
      ); while
    ); progn
  ); if
  (princ)
)

Can you help me for that?

Thanks.

ML

---

[dbhunia]

Try like this.......

(defun C:CBPRMB (/ e p); = CopyBase and Paste/Rotate Multiple
  (if
    (and
      (setq e (car (entsel "\Object to Paste/Rotate Multiple times: ")))
      (setq p (cdr (assoc 10 (entget e))))
    ); and
    (progn ; then
      (command "_.copybase" p e "")

      ;(setq blk_ent (entget (entlast)))
      ;(entmod (subst (cons 50 rad)(assoc 50 blk_ent)blk_ent))
      ;(setq e (entlast))
  
      (while (setq p (getpoint "\nPaste base point or <exit>: "))
        (command
          "_.pasteclip" p
          "_.rotate" "_last" "" p pause
        ); command
      ); while
    ); progn
  ); if
  (princ)
)

[m.lharidon]

Hello,

Unfortunatly, the fonction you corrected stays the same at it was before. When I define a block with rotation at x° it keeps x+90°. What i looked for it to always concider the selected block as 0°. then when i copy i give the orientation from 0. (first click past the block, second click orient it where i click. 

(attached an exemple to make it clearer).

Thanks for the help.

[dbhunia · Accepted solution]

Try like this.......

(defun C:CBPRMB (/ e p blk_ent); = CopyBase and Paste/Rotate Multiple
  (if
    (and
      (setq e (car (entsel "\Object to Paste/Rotate Multiple times: ")))
      (setq p (cdr (assoc 10 (entget e))))
    ); and
    (progn ; then
      (command "_.copybase" p e "")
  
      (while (setq p (getpoint "\nPaste base point or <exit>: "))
        (command "_.pasteclip" p)
        (setq blk_ent (entget (entlast)))
        (entmod (subst (cons 50 0.0)(assoc 50 blk_ent)blk_ent))	
        (command "_.rotate" "_last" "" p pause
        ); command
      ); while
    ); progn
  ); if
  (princ)
)

[ВeekeeCZ]

Here is re-written version of Kent Cooper's idea

- works in UCS

- allows pre-selection

- gives you a previous when placing the block

- has to be finished by ESC pressing (guess the preview worth this little inconvenience)

(defun C:CBPRMB (/ *error* e p r); = CopyBase and Paste/Rotate Multiple
  
  (defun *error* (errmsg)
    (if (not (wcmatch errmsg "Function cancelled,quit / exit abort,console break,end"))
      (princ (strcat "\nError: " errmsg)))
    (princ)
    );end error

  (if (setq e (if (ssget "_I")
                (ssname (ssget) 0)
                (car (entsel "\Object to Paste/Rotate Multiple times: "))))

    (progn ; then
      (setq p (cdr (assoc 10 (entget e))))
      (setq r (getpropertyvalue e "Rotation"))
      (setpropertyvalue e "Rotation" (angle '(0 0 0) (getvar 'UCSXDIR)))
      (command "_.copybase" p e "")
      (setpropertyvalue e "Rotation" r)
      
      (while T
        (command "_.pasteclip" pause
                 "_.rotate" "_last" "" "@" pause))))
  (princ)
  )

[m.lharidon]

Thanks a lot tor the feedback

[m.lharidon]

Thanks a lot, this is perfect!!