Topic: Looking for an autolisp file - Piping Iso's

[laison]

Maybe I shouldn't be asking but I will. I am not a programmer, just a piper. I am using Autocad 2007 with a 3d piping add-on. What I am looking for is a lisp file that will extract and create iso's by line numbers. I wouldn't know where to look.

Thanks





Edit:  Sorry, but there's no need for titles that ... long.
M-dub

[M-dub]

I don't mean to discourage you from asking in any way, shape or form, but I'm not exactly sure what you're looking for, but from the sounds of it, you're looking for some pretty major programming there.  Something like CADPipe.

Perhaps a little more of an explanation is in order here?

[Kerry]

... also depends on what the  add-on is called ??
... and how it's data is stored ??

[MP]

Ain't without its warts but ISOGEN is the defacto industry standard solution.

It may or may not work with your '3D add-in', but you didn't ante up what add-in it was.

[Fatty]

Sorry, if I don't understand what you
exactly need
Here is rotine to make 3d pipes by
selected paths

~'J'~

Code: [Select]

;; PiP.lsp
;; Fatty T.O.H. () 2006 * all rights removed
(defun unitv (vect / un)
    (if (zerop
(setq un (distance '(0 0 0) vect)))
nil
      (mapcar (function (lambda (x) (/ x un))) vect)
    )
  )

(defun c:pip (/ acsp adoc icirc irad ireg norm ocirc orad oreg spt ss x)

  (or (vl-load-com))
  (setq adoc (vla-get-activedocument
       (vlax-get-acad-object)
     )
  )
  (if (and
(= (getvar "tilemode") 0)
(= (getvar "cvport") 1)
      )
    (setq acsp (vla-get-paperspace adoc))
    (setq acsp (vla-get-modelspace adoc))
  )
  (vla-endundomark adoc)
  (vla-startundomark adoc)
  (vla-startundomark adoc)
  (if
      (setq ss
     (ssget
       '((-4 . "<OR")
(0 . "LINE,CIRCLE,ARC,ELLIPSE,LWPOLYLINE")
(-4 . "<AND")
(0 . "SPLINE")
(-4 . "&")
(70 . 8)
(0 . "POLYLINE")
(-4 . "<NOT")
(-4 . "<OR")
(-4 . "!=")
(70 . 16)
(-4 . "&")
(70 . 112)
(-4 . "OR>")
(-4 . "NOT>")
(-4 . "AND>")
(-4 . "OR>")
)
     )
      )       
     (progn
      (setq orad (getreal "\n   Outer radii: ")
    irad (getreal "\n   Inner radii: "))
     
(vlax-for obj (vla-get-activeselectionset adoc)
   
(setq spt (vlax-curve-getpointatparam
       obj
       (vlax-curve-getstartparam obj)
     )
)
(setq norm (unitv (vlax-curve-getfirstderiv
     obj
     (vlax-curve-getstartparam obj)
   )
    )
) 
(setq ocirc (vlax-invoke acsp 'AddCircle spt orad))
(setq icirc (vlax-invoke acsp 'AddCircle spt irad))
 
(vla-put-normal ocirc (vlax-3d-point norm))
(vla-put-normal icirc (vlax-3d-point norm))
   
(setq oreg (car (vlax-invoke acsp 'Addregion (list ocirc))))
(setq ireg (car (vlax-invoke acsp 'Addregion (list icirc))))
   
(vla-boolean oreg acsubtraction ireg)
 
(vla-addextrudedsolidalongpath acsp oreg obj)
   
   (mapcar (function (lambda (x)
  (vl-catch-all-apply
    (function (lambda ()
     (progn
       (vla-delete x)
       (vlax-release-object x)))))))
   (list obj ocirc icirc oreg))
       )
     )
  )
  (vla-endundomark adoc)
  (princ)
)
(princ "\n     Start command with PiP ...")
(prin1)


[CADaver]

That indeed is a MAJOR effort.  ISOGEN is now owned by Intergraph, they bought Alias sometime last year.  Alias has another product called SpoolGEN that includes ISOGEN.  Both products read/output IDF formats (SpoolGEN will also read/output PCF formats).  If your add-in can push out the data configuration required by either IDF or PCF, these products are what you need.

SpoolGEN is a suite of piping products for design, fabrication and erection of pipe.

[It's Alive!]

Dang Nice Code Fatty! you're awesome!

Anybody ever try http://www.caelink.com/isometrics.htm

[CADaver]

Dang Nice Code Fatty! you're awesome!

Anybody ever try http://www.caelink.com/isometrics.htm

If I am not mistaken that is an iso drafting tool for drawing isos from scratch.  It was my understanding that the OP was looking for something to extract isos from a 3D model.

[It's Alive!]

Just a shot  pipes, some have carburetors, and some don’t *cough*