;From CADENCE Magazine November, 1990
;Page 151

(defun C:lntopipe( / pre trad erad elist plist etyp
                     enam vtx ang angbi edist ydist
                     stp p1 p2 p3 lnam cp1 ax axpt)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq pre (getvar "ucsicon"))
(setvar "ucsicon" 0)
(setvar "osmode" 0)
(command "ucs" "w")
  (prompt "\n3D pipe with elbows")
  (prompt "\nby Ted Schaefer - SEA   Tulsa, OK")
   (initget (+ 1 2 3 8))
   (setq trad (/ (getreal "\nPipe diameter: ") 2))
   (initget (+ 1 2 3 8))
   (setq erad (getreal "\nElbow radius: "))
   (setq elist (entget (car (entsel "\nPick 3D/2D polyline: ")))
         etyp (cdr (assoc 0 elist)))
(if (/= etyp "POLYLINE")(*error* "Not a 2D/3D polyline"))
(setq enam (entnext (cdr (assoc -1 elist)))
      elist (entget enam)
      plist (list (cdr (assoc 10 elist)))
      enam (entnext enam)
      elist (entget enam))
 (while (= (cdr (assoc 0 elist)) "VERTEX")
    (setq vtx (list (cdr (assoc 10 elist)))
          plist (append plist vtx)
          enam (entnext enam)
          elist (entget enam)))
 (setq ll (length plist)
       cntr 0)
(setq p1 (nth cntr plist)
      p2 (nth (+ cntr 1) plist)
      p3 (nth (+ cntr 2) plist)
      stp p1)
(repeat (- ll 3)
(command "UCS" "3P" (wu p2) (wu p1) (wu p3))
(setq ang (angle (wu p2) (wu p3))
      angbi (/ ang 2)
      edist (/ erad (tan angbi))
      ydist (/ erad (sin angbi)))
(command "ucs" "za" (wu p2) (wu p1))
(setq cp1 (uw (list 0 0 edist)))
(command "circle" (wu cp1) trad)
(setq cnam (entlast))
(command "line" (wu cp1) (wu stp) "" )
(setq lnam (entlast))
(command "tabsurf" (list cnam (wu cp1)) (list lnam (wu cp1)))
(entdel lnam)
(command "UCS" "3" (wu p2) (wu p1) (wu p3))
(command "ucs" "3" (list 0 0 0)
   (list 0 0 1)(polar (list 0 0 0) angbi 1))
(command "line" (list 0 ydist 0)(polar (getvar "lastpoint") 0 1) "")
(setq ax (entlast)
      axpt (uw (list 0 ydist 0))
      ang (* (- pi ang) (/ -180 pi)))
(command "revsurf" (list cnam (wu cp1))
                   (list ax (wu axpt)) 0 ang)
(entdel cnam)(entdel ax)
(command "ucs" "za" (wu p2) (wu p3))
(setq cntr (+ 1 cntr)
      stp (uw (list 0 0 edist))
      p1 (nth cntr plist)
      p2 (nth (+ cntr 1) plist)
      p3 (nth (+ cntr 2) plist))
)
(command "UCS" "3" (wu p2) (wu p1) (wu p3))
(setq ang (angle (wu p2) (wu p3))
      angbi (/ ang 2)
      edist (/ erad (tan angbi))
      ydist (/ erad (sin angbi)))
(command "ucs" "za" (wu p2) (wu p1))
(setq cp1 (uw (list 0 0 edist)))
(command "circle" (wu cp1) trad)
(setq cnam (entlast))
(command "line" (wu cp1) (wu stp) "" )
(setq lnam (entlast))
(command "tabsurf" (list cnam (wu cp1)) (list lnam (wu cp1)))
(entdel lnam)
(command "UCS" "3" (wu p2) (wu p1) (wu p3))
(command "ucs" "3" (list 0 0 0)
   (list 0 0 1)(polar (list 0 0 0) angbi 1))
(command "line" (list 0 ydist 0)(polar (getvar "lastpoint") 0 1) "")
(setq ax (entlast)
      axpt (uw (list 0 ydist 0))
      ang (* (- pi ang) (/ -180 pi)))
(command "revsurf" (list cnam (wu cp1))
                   (list ax (wu axpt)) 0 ang)
(entdel ax)(entdel cnam)
(command "ucs" "za" (wu p3) (wu p2))
(command "circle" '(0 0 0) trad)
(setq cnam (list (entlast) '(0 0 0)))
(command "line" '(0 0 0) (list 0 0 (- (distance p3 p2) edist)) "" )
(setq lsel (list (entlast) '(0 0 0)))
(command "tabsurf" cnam lsel)
(command "erase" lsel cnam "")
(setvar "ucsicon" pre)
(command "UCS" "w")
(Prompt "\nUCS now reset to world")
(princ))

(defun uw (p1)(trans p1 1 0))
(defun wu (p1)(trans p1 0 1))
(defun tan ( a )(/ (sin a) (cos a)))
(defun *error* (msg) (princ msg)(princ))

 

 

Where can I send or upload the lntopipe.lsp?

Being in chemical mfg business, we deal w/ pipe racks alot.  Know what you are talking about.  I have a great .lsp routine called LNTOPIPE.LSP that will flesh out a simple 3d polyline into 3d piping with your desired diameter and radii.  It's great!  And fast!  Let me know if you want it.

 

Boss just back from 5 week operation in China.  New plant going up that I helped design.  Am designing a mfg plant in Peru and doing some 3D work on production areas, hence the totes.

 

I design mfg, whs and offices (new and remodel) all over the world from US to Australia, being that I am the only Space Planner/Designer at corporate HQ for our company.  My DWGs then go to local architects for shop DWG production OR to local contractors, bypassing any further DWG enhancement, for build out.  VERY busy! Not much time to play with 3D and such so is a real treat when I can take a few minutes.  Sometimes is necessary to convey image to upper management for visualization.

 

Have many other 3D blocks I will upload when get a chance.  Boss going back to China in 1 week so will be getting what he needs before he leaves.  Then can breath again.

Thanks for sharing.

So, what's our next assignment?  LOL