AUTOLISP Insert block, and rotate

[420325]

I am trying to find or build a LISP that will insert a block @ +20' Z coord. locate it with the insertion point of the block, and then rotate it from the center of the block.

If that dosn;t make scence what I am trying to do is insert an elevation marker on a pipe then rotate it to allign with it.


THANKS


I found this but I am not good at editing LISP

Here's an AutoDesk lisp for copy rotate.

;;;   Mcr.Lsp
;;;   Copyright (C) 1990 by Autodesk Australia Pty. Ltd.
;;;  
;;;   Permission to use, copy, modify, and distribute this software and its
;;;   documentation for any purpose and without fee is hereby granted.  
;;;
;;;   THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY. 
;;;   ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF 
;;;   MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;; 
;;;-------------------------------------------------------------------------
;;; DESCRIPTION:
;;;
;;;   Mcr.Lsp provides two new commands, MoveRot and CopyRot.
;;;   MoveRot, MOVEs and ROTATEs selected entities whilst
;;;   CopyRot, COPYies and ROTATEs selected entities.
;;;
;;;   Written by  Sam Crupi, Autodesk Australia Pty. Ltd.
;;;               October 1987
;;;   Modified by Jeff De Silva & Sam Crupi, Autodesk Australia Pty. Ltd.
;;;               November 1990
;;;
;;;   Version 1.0
;;;   4 December 1990
;;;
;;;-------------------------------------------------------------------------
;;;
;;; Error function
;;;
(defun mcr_err (s)                   ; If an error (such as CTRL-C) occurs
                                     ; while this command is active...
  (if (/= s "Function cancelled") 
    (if (= s "quit / exit abort") 
      (princ) 
      (princ (strcat "\nError: " s))
    )
  ) 
  (if mcr_oer                        ; If an old error routine exists
    (setq *error* mcr_oer)           ; then, reset it 
  ) 
  (if mcr_oce                        ; Reset command echoing on error
    (setvar "cmdecho" mcr_oce)
  ) 
  (princ)
) 
;;;
;;; Command MoveRot
;;;
(defun c:MoveRot (/ sset mcr_oce mcr_oer) 
  (setq mcr_oce (getvar "cmdecho"))  ; save cmdecho setting
  (setvar "cmdecho" 0)               ; turn cmdecho off
  (if *error*                        ; Set our new error handler
    (setq mcr_oer *error* 
          *error* mcr_err)
    (setq *error* mcr_err)
  ) 
  (princ (strcat "\nMoveRot, Version " mcr_ver 
                 ", (C) 1990 by Autodesk Australia Pty. Ltd. "
         )
  ) 
  (if (setq sset (ssget))            ; get selection set
    (progn
      (setvar "cmdecho" 1)           ; turn cmdecho on to allow MOVE
                                     ; prompts to appear
      (command "MOVE" sset "" pause pause) ; MOVE them
      ;; now ROTATE the selection set using the LASTPOINT as Base point
      (command "ROTATE" sset "" (getvar "LASTPOINT") pause) 
    )
  )
  (setvar "cmdecho" mcr_oce)         ; reset cmdecho to old setting
  (if mcr_oer                        ; If an old error routine exists
     (setq *error* mcr_oer)          ; then set it back
  ) 
  (princ)
) 
;;;
;;; Command CopyRot
;;;
(defun c:CopyRot (/ mcr_oce mcr_oer sset) 
  (setq mcr_oce (getvar "cmdecho"))  ; save cmdecho setting
  (setvar "cmdecho" 0)               ; turn cmdecho off
  (if *error*                        ; Set our new error handler
    (setq mcr_oer *error* 
          *error* mcr_err)
    (setq *error* mcr_err)
  ) 
  (princ (strcat "\nCopyRot, Version " mcr_ver 
                 ", (C) 1990 by Autodesk Australia Pty. Ltd. "
         )
  ) 
  (if (setq sset (ssget))            ; get selection set
    (progn
      (command "COPY" sset "" "0,0" "0,0") ; COPY selection set over itself
      (setvar "cmdecho" 1)           ; turn cmdecho on to allow MOVE
                                     ; prompts to appear
      (command "MOVE" "p" "" pause pause) 
      (redraw)                       ; Redraw screen
      ;; now ROTATE the selection set using the LASTPOINT as Base point
      (command "ROTATE" "p" "" (getvar "LASTPOINT") pause)
    )
  )
  (setvar "cmdecho" mcr_oce)         ; reset cmdecho to old setting
  (if mcr_oer                        ; If an old error routine exists
     (setq *error* mcr_oer)          ; then set it back
  ) 
  (princ)
) 
;;;
;;; Define the c: functions.
;;;
(defun c:MR () 
  (c:MoveRot)
) 
(defun c:CR () 
  (c:CopyRot)
) 
(setq mcr_ver "1.0")                 ; set version number string
;;(princ (strcat "\nC:MCR (v" mcr_ver ") loaded.")) 
;;(princ "\nMR or MoveRot to Move and Rotate, CR or CopyRot to Copy and Rotate.") 
(princ)

[2001jonathon]

I am trying to find or build a LISP that will insert a block @ +20' Z coord. locate it with the insertion point of the block, and then rotate it from the center of the block.

If that dosn;t make scence what I am trying to do is insert an elevation marker on a pipe then rotate it to allign with it.


THANKS


I found this but I am not good at editing LISP

Why dont you try sothing like this.

(defun c:spinblk (/ doc ss ll ur midpt)
  (vl-load-com)
  (if (and (ssget '((0 . "INSERT")))
    (setq doc (vla-get-activedocument
         (vlax-get-acad-object)
       )
    )
    (setq ss (vla-get-activeselectionset doc))
      )
    (progn
      (vlax-for ent ss
 (vla-getboundingbox ent 'll 'ur)
 (setq ll    (vlax-safearray->list ll)
       ur    (vlax-safearray->list ur)
       midpt (mapcar '/
       (mapcar '+
        ll
        ur
       )
       '(2.0 2.0 2.0)
      )
 )
 (vlax-invoke ent 'rotate midpt pi)
      )
    )
  )
  (princ)
)

or you can make a lisp that allows you to insert a block and then using macros tell the block to do a task.

[laison]

I have a lisp that move an object 2D and 3D. I want to add on to it or file another file where it will move and rotate alone the same axis. Let's say I have a pipe with tee pointing up and I need to connect to it. That line might be say in the horizontal. The fittings I am adding are a unknown distance and unknown angle. I am looking for a lisp file that will move and rotate the elbow are tee and keep it inline just by selecting the tee that need to connect to. This has to a 3D lisp.

This is the file that I found and would like to modify (if possible):