Új hozzászólás Aktív témák

• #4898 -ZeeZee- senior tag

  Új Válasz 2020-12-16 21:17:17 #4898

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  -ZeeZee-

  senior tag

  Itt egy lisp (nem saját forrás):

  ;| RMB 
=========================================================================
   Rotate Block(s) at its insertion point(s) by specifying rotation angle
=========================================================================|;
(vl-load-com)
(defun C:RMB (/ CN ENT OS RA SS)
  (setq SS (ssget (list (cons 0 "INSERT"))))
  (if *RA (setq RA (getdist (strcat "Specify rotation angle <" (angtos *RA) ">: ")))
    (progn
      (initget 1)
      (setq RA (getdist "\nSpecify rotation angle: "))
    ); progn
  ); if
  (if (not RA)
    (setq RA *RA)
  ); if
  (setq *RA RA)
  (repeat (setq CN (sslength SS))
    (setq CN (1- CN)
      ENT (ssname SS CN)
      OS (vlax-ename->vla-object ENT)
    ); setq
    (vla-put-rotation OS (+ (* (/ RA 180) pi)
                (vla-get-rotation OS)
                )
    )
  ); repeat
  (princ)
); defun C:RMB

  [ Szerkesztve ]

Új hozzászólás Aktív témák