Leaderboard

You could use the same method as used by my program, but instead of using the bounding box area to as the comparison metric, use the minimum of the length of two adjacent sides. For example, in my code, change these lines: bx1 (* (- (caadr box) (caar box)) (- (cadadr box) (cadar box))) ... bx2 (* (- (caadr box) (caar box)) (- (cadadr box) (cadar box))) To: bx1 (min (- (caadr box) (caar box)) (- (cadadr box) (cadar box))) ... bx2 (min (- (caadr box) (caar box)) (- (cadadr box) (cadar box)))

Good Day! I was just wondering if there is an available lisp for making a flow arrow just like in the picture I have attached. Right now I'm just drawing it by array command then trimming one by one. copying triangular hatch at each end point and rotating it to its direction. I'm new to AutoCAD and hoping that I can learn some techniques to fasten my work. (especially using LISP) TYI!

Maybe Like Lee a brute force rotate the objects through 180 and get bounding box looking at length and width. As per your right hand image but rotated. Try a random rotation of your objects approx. 45 and run lee's bounding program can get the length of the pline sides. I think if its ortho does not work for your answer.