• Industries
  • Products
  • Buy
  • Services & Support
  • Communities
  • AutoCAD 2010/2011/2012 DWG Format

    Reply
    Mentor
    The_Caddie
    Posts: 204
    Registered: ‎06-08-2010
    Accepted Solution

    3D pipes AutoCAD 2010

    524 Views, 3 Replies
    06-22-2012 12:20 AM

    Silly question.

     

    Is there a command to draw 3d pipes in AutoCAD 2010?

    Please use plain text.
    *Expert Elite*
    dgorsman
    Posts: 3,278
    Registered: ‎10-12-2006

    Re: 3D pipes AutoCAD 2010

    06-22-2012 12:59 PM in reply to: The_Caddie

    Define "pipes"...

    ----------------------------------
    If you are going to fly by the seat of your pants, expect friction burns.
    Adopt. Adapt. Overcome. Or be overcome.


    Please use plain text.
    *Expert Elite*
    Posts: 21,724
    Registered: ‎04-20-2006

    Re: 3D pipes AutoCAD 2010

    06-22-2012 06:10 PM in reply to: The_Caddie

    Something like this?

    http://home.pct.edu/~jmather/content/CAD238/AutoCAD%202007%20Tutorial%208.pdf

    Please mark this response as "Accept as Solution" if it answers your question.
    -----------------------------------------------------------------------------------------
    Autodesk Inventor 2013 Certified Professional
    Autodesk AutoCAD 2013 Certified Professional
    Certified SolidWorks Professional
    Inventor Professional 2013 SP 1.1 Edu 64-bit
    GeForce GTX 560M i7-2670QM @ 2.2GHz 8GB RAM
    http://home.pct.edu/~jmather/content/DSG322/inventor_surface_tutorials.htm
    http://www.autodesk.com/edcommunity
    Still waiting for -Draft option on any Rib feature.
    Please use plain text.
    Mentor
    The_Caddie
    Posts: 204
    Registered: ‎06-08-2010

    Re: 3D pipes AutoCAD 2010

    06-26-2012 01:47 AM in reply to: JDMather

    Yeah just automated. worked on the following this weekend , seams to do the job.

     

    			(DEFUN c:MY3DPipeline ()
    
    				(setq oldlayer (getvar "clayer"))
    
    
      				(if (= (tblsearch "layer" "Legend") nil)
      				(command "layer" "make" "3D Pipeline" "color" "40" "" "lt" "continuous" "" ""))
    
    			
    				(setq MYDIAMETER (getstring "\nEnter a diameter size: "))
    				(setq MYPOINT (getpoint "\nIndicate a path to follow: "))
    				(COMMAND "CIRCLE" MYPOINT "DIAMETER" MYDIAMETER)
    				(setq MYPICK1 (entLAST))
    				(COMMAND "_.PLINE" MYPOINT )
    
    				(setq MYPICK2 (entLAST))
    
    				(while (> (getvar 'cmdactive) 0)
    				(command pause)
    				)
    
    				(cOMMAND "SWEEP" MYPICK1 "" MYPICK2)
    
    				;(entdel (MYPICK2))
    
    				(princ "Pipeline successfully placed…")
    
    				(setvar "CLAYER" OLDLAYER))

      works for uor needs

    Please use plain text.