Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy CAD Studio [www.cadforum.cz]
ČeskySlovenskyEnglishDeutsch
Přihlášení:
▶ Registrace

 právě nás čte: 3476 

CAD tip CAD tip # 11995:

Otázka CAD 
 %  platforma  kategorie 
Q - otázka

Jak orotovat vybrané bloky podle natočení jiného bloku?

A - odpověď Chcete-li natočit vybrané texty, bloky či jiné typy objektů ve stejném úhlu jako je existující objekt, můžete použít následující LISP utilitu "RotBy".

Kód uložte do souboru RotBy.lsp a načtěte jej přetažením do okna AutoCADu nebo příkazem APLČTI. Pak napište příkaz ROTBY. Vyberte zdrojový objekt s danou rotací a potom postupně vybírejte další objekty, které se mají natočit podle něj.

;Rotate by existing object/angle… (mod by Beekee)
(vl-load-com)

(defun C:RotBy (/ obj rot)
  (if (cond ((setq obj (entsel "\nSelect the source object for rotation < specify manually >: "))
             (and (setq obj (vlax-ename->vla-object (car obj)))
                  (or (not (vl-catch-all-error-p (setq rot (vl-catch-all-apply 'vla-get-rotation (list obj)))))
                      (prompt "\nRotation angle cannot be detected!"))))
            ((setq rot (getangle "\Specify final angle: ")))
      )

    (while (setq obj (entsel "\nSelect next target object to be rotated < exit >: "))
      (and (setq obj (vlax-ename->vla-object (car obj)))
           (or (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-rotation (list obj rot))))
               (prompt "\nCannot apply rotation angle!")
               )
           )
      )
    )
  (princ)
)

Můžete také rovnou stáhnout RotBy.lsp z www.cadstudio.cz/download

ACAD
100% *  CAD 
28.8.2018    205×  
 
Související CAD produkty:
Ceny - CAD eShop:
platí pro: AutoCAD ·

Zpět   Všechny další tipy

Dvojité uchopení objektu - jak usadit úsečku mezi dvě linie? (geom.vazby) « | » Jak zvětšit/zmenšit těleso na danou velikost ve Fusion 360?

Pomohl vám tento tip? Provoz služby CADForum.cz podpoříte i nákupem produktů Autodesk u provozovatele tohoto serveru a Platinum partnera Autodesku, firmy CAD Studio.
Můžete si také přidat odkaz na vaše stránky: CAD Fórum - diskuze, tipy, bloky a utility
CAD:    OS:    Kateg: 
Text:  FAQ   






Tipy a triky prosím využívejte na vlastní zodpovědnost.
Provozovatel (CAD Studio s.r.o.) nenese odpovědnost za případné potíže vzniklé v souvislosti s použitím kteréhokoliv z uvedených tipů.
Pro plné zvládnutí dané aplikace doporučujeme absolvování některého z nabízených CAD školení.
Další publikování obsahu je dovoleno jen se souhlasem autora.
TOPlist