CAD Forum - tips, tricks, discussion and utilities for AutoCAD, Inventor, Revit and other Autodesk products [www.cadforum.cz]
CZ | EN | DE
Login or
registration
  Visitors: 3183

CAD tip CAD tip # 13049:

   
Question CAD 
 %  platform  category 
Q - question

Bulk 3D rotation of selected objects around individual axes.

A - answer Using a simple LISP utility, you can add a new command to AutoCAD which will rotate objects in 3D, around their individual axes.

For example, let's imagine letters of text written along an arc, and we now want to tilt each of these letters along its lower baseline.

The following code in LISP (AutoLISP) will help us:

(defun C:ROT3D1 ( / ss i)
 (princ "\nSelect objects to rotate individually in 3D")
 (setq ss (ssget) i 0)
 (while (< i (sslength ss))
  (setq ent (ssname ss i))
  (command "_UCS" "_obj" ent)
  (command "_ROTATE3D" ent "" "_X" "" 90.0)
  (command "_UCS" "_P")
  (setq i (1+ i))
 );while
)

Save it to a text .LSP file, then load the file into your AutoCAD using APPLOAD (or drag and drop it with your mouse) and type the ROT3D1 command. Select the individual letter objects and they will be rotated 90° along their local object X-axis.

See an example:

ACAD
100% *  CAD 
24.8.2021    378×  
Prices - CAD eShop:
applies to: AutoCAD ·

See also:
Tip 12884:How to insert your 3D model into a PowerPoint presentation?
Tip 12471:What for is the Bank option of the SWEEP command?
Tip 12456:How to EXTRUDE with a twisted profile in AutoCAD?
Tip 12034:SolSimilar - select geometrically similar 3D solids.
Tip 11111:Inventor drawing diplays flipped, mirrored (as from underside)


Back   All CAD Tips



Have we helped you? If you want to support the CAD Forum web service, consider buying one of our CAD applications, or our custom software development offerings, or donating via PayPal (see above). You may also add a link to your web - like this "fan" link: CAD Forum - tips, utilities, blocks for Autodesk products
CAD:    OS:    Categ: 
Text:  FAQ glossary   



Featuring:
DwgTextTranslator translates a series of drawings from one language to another using MS Access.
Download a fully functional trial version.


Please use these tips at your own risk.
CAD Studio is not responsible for possible problems that may occur as a result of using any of these tips.
TOPlist