2d Steel Pipe, elbows returns

ROBP · 发表于 2022-7-5 18:20:06

Finally achieved it thanks to ymg

Like usual load the lisp normally type pipe or pp to run layers are created automatically, a drop down menu for size and schedules are chosen op then selects the type needed to generate the pattern.

enjoy

r
Pipe V3.0.lsp

rlx · 发表于 2022-7-5 18:47:33

is looking good but... missing a function called 'listpol' (list polyline [points] or something?). Never the less , could be usefull for a lot of piping guys (or girls)

gr. Rlx

ROBP · 发表于 2022-7-5 18:52:32

Feel free to modify it and post it back the better it is the better it will be for all of the members

r

rlx · 发表于 2022-7-5 19:19:43

found a function called listpol here : https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/i-need-help-for-bug/td-p/5029432

Piping is not really my area but I have some colleagues who are so maybe this will be of use to them

thanx for your share

gr. Rlx

ymg3 · 发表于 2022-7-5 19:21:47

rlx,

Here is function listpol:

copy

;;                                                                            ;;; listpol     by ymg    (Simplified a Routine by Gile Chanteau               ;;;                                                                            ;;; Parameter:  en,  Entity Name or Object Name of Any Type of Polyline        ;;;                                                                            ;;; Returns:    List of Points in Current UCS                                  ;;;                                                                             ;; Notes:      On Closed Polyline the Last Vertex is Same as First)           ;;;                                                                            ;(defun listpol (en / i l)  (repeat (setq i (fix (1+ (vlax-curve-getEndParam en))))     (setq l (cons (trans (vlax-curve-getPointAtParam en (setq i (1- i))) 0 1) l))  ))

Included listpol the following attachment.
Also a few changes in delvertex (A little bit more concise)

To be complete would need to make sure that it is UCS compliant and maybe a small
modification to straight pipe input to remove the requirement of orthomode.

ymg
Pipe V3.0.lsp

[编程交流] 2d Steel Pipe, elbows returns

发表回复

精选推荐