hi all
i know this but i have forgotten it
how do you draw a square pipe or tube (SHS) that has a break line through it?
edit, i know how to draw it, just looking for a standard rule for drafting so all our drafties draw it the same way.
couldn't think of the correct term off the top of my head.
trying to look it up in my old drafting text books but they detail it differently to how i have seen in my 15y career
the mechanical version of Autocad used to have a tool to this very nicely
I'm looking to find a lisp routine for a break symbol for SHS or RHS tubes or if i can be pointed in the right direction to for the coding to do this.
@Anonymous wrote:
I'm looking to find a lisp routine for a break symbol for SHS or RHS tubes ....
I don't know what those are supposed to look like [post an image?], but would an option in CapEnd.lsp with its CE command, available here, do? It does one of the pipe end things earlier in this thread.
It would need to look like the attached image. This break is for square and rectangle hollow sections.
Just playing around but try this.
Mind the order in which you pick the points and trimming of additional lines not (yet) included.
First point will use END object snap the second point will use PERPENDICULAR object snap from first point.
(defun c:Test (/ T_Varlist T_Oldvar T_Point1 T_Point2 T_Angle T_Height T_Offset T_Point3 T_MidPoint) (setq T_Varlist '("CMDECHO" "OSMODE" "OSNAPCOORD")) (setq T_Oldvar (mapcar 'getvar T_Varlist)) (mapcar 'setvar T_Varlist '(0 1 1)) (if (and (setq T_Point1 (getpoint "\nSelect first point : ")) (setvar "OSMODE" 128) (setq T_Point2 (getpoint T_Point1 "\nSelect second point: ")) (not (equal T_Point1 T_Point2)) ) (progn (setq T_Angle (angle T_Point1 T_Point2)) (setq T_Height (distance T_Point1 T_Point2)) (setq T_Offset (* T_Height 0.2)) (setq T_Point3 (polar T_Point2 (+ T_Angle (* pi 0.5)) T_Offset)) (setq T_MidPoint (list (/ (+ (nth 0 T_Point1) (nth 0 T_Point3)) 2.0) (/ (+ (nth 1 T_Point1) (nth 1 T_Point3)) 2.0))) (vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object))) (command "_.LINE" T_Point1 T_Point3 "") (command "_.LINE" T_Point2 T_MidPoint "") (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object))) ) ) (mapcar 'setvar T_Varlist T_Oldvar) (princ) )
Can't find what you're looking for? Ask the community or share your knowledge.