Lisp for reinforcement layout
Try this:
(vl-load-com)
;;============================= c:Test0007 ====================================;;
;; Jose L. García G. - 29/10/17 ;;
;;=============================================================================;;
(defun c:Test0007 (/ ss lstSs LstDatCurves Obj1 Obj2 Obj3 D1 D2 Box2
Long2 X2 p1L p2L BoxAll PtMidAll
;|Functions|; Aux-GetBoxObj MidPt)
(defun Aux-GetBoxObj (obj / MinPt MaxPt v1 v3 Retval)
(cond
((vlax-method-applicable-p obj 'getboundingbox)
(vla-getboundingbox obj 'MinPt 'MaxPt)
(list (vlax-safearray->list MinPt)
(vlax-safearray->list MaxPt))
)
);c.cond
);c.defun
(defun MidPt (a b)
(mapcar (function (lambda (a b) (/ (+ a b) 2.0))) a b)
)
;;--------------------- MAIN -----------------
(cond
((not (setq ss (ssget (list '(0 . "LWPOLYLINE,CIRCLE")))))
(prompt "\n¡Nothing Selected.!")
)
((/= (sslength ss) 3)
(prompt "\n¡You can only select 3 objects.!")
)
(T
(setq lstSs (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
(mapcar
(function
(lambda (eCurve / oCurve Box)
(setq oCurve (vlax-ename->vla-object eCurve))
(cond
((setq Box (Aux-GetBoxObj oCurve))
(setq Tmp (list (apply 'MidPt Box) ;;Center Curve
Box))
(setq LstDatCurves (cons Tmp LstDatCurves))
)
);c.cond
)
)
lstSs
);c.mapcar
(cond
(LstDatCurves
(vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq BoxAll
(mapcar
(function
(lambda ( a b )
(apply 'mapcar (cons a b))
)
)
'(min max)
(list (mapcar 'caadr LstDatCurves)
(mapcar 'cadadr LstDatCurves))
)
)
(setq PtMidAll (apply 'MidPt BoxAll))
;;(command "_point" PtMidAll)
(setq LstDatCurves
(vl-sort
LstDatCurves (function (lambda (e1 e2) (< (caar e1) (caar e2)))))
)
(setq Obj1 (car LstDatCurves)
Obj2 (cadr LstDatCurves)
Obj3 (last LstDatCurves))
(setq D2 (- (caar Obj2)(caar Obj1))
D1 (- (caar Obj3)(caar Obj2)))
(setq Box2 (cadr Obj2)
Long2 (abs (car (apply 'mapcar (cons '- Box2))))
X2 (caar Box2))
(setq p1L (list (- X2 (/ D2 5.0)) (cadr PtMidAll))
p2L (list (+ X2 Long2 (/ D1 5.0)) (cadr PtMidAll)))
(entmakex (list '(0 . "LINE")(cons 10 p1L)(cons 11 p2L) '(62 . 4)))
(vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
)
)
)
);c.cond
(princ)
)
regards..
@marko_ribar wrote:
....
.... (prompt "\nSelect 3 rectangles...") (setq ss (ssget '((0 . "LWPOLYLINE") (-4 . "<or") (70 . 1) (70 . 129) (-4 . "or>") (-4 . "<not") (-4 . "<>") (42 . 0.0) (-4 . "not>")))) (while (or (not ss) (and ss (/= (sslength ss) 3))) (prompt "\nEmpty sel. set... Please reselect 3 rectangles again...") (setq ss (ssget '((0 . "LWPOLYLINE") (-4 . "<or") (70 . 1) (70 . 129) (-4 . "or>") (-4 . "<not") (-4 . "<>") (42 . 0.0) (-4 . "not>")))) ....
Not really relevant to the operational part of the question, but just some suggestions about the selection....
There's a slightly simpler way to filter for closed Polylines whether or not linetype generation is enabled in them, than checking for whether the (assoc 70) value is either 1 or 129 -- the one below checks simply for whether it contains the 1 bit, and whether or not it also contains the 128 bit doesn't matter.
The (42 . 0) filter item would be satisfied with only one no-bulge [line] segment, and so would accept selection of many non-rectangular Polylines. I don't think you can filter for whether all bulge factors are zero, but if it's important [i.e. you can't assume the User is going to select only the right kinds of things], you could check the selected ones for that after selection. You could also check for whether they're actually rectangular [I have code to do that if you're interested], and whether they're aligned in the same direction, with more code, but again, not in the (ssget) filtering.
I would also check for four vertices.
And rather than spell out the entire (setq) line with (ssget) filter twice, I would re-arrange things a little to do it only once.
....
(prompt "\nSelect 3 closed rectangular Polylines: ")
(while
(not
(and
(setq ss (ssget '((0 . "LWPOLYLINE") (90 . 4) (-4 . "&") (70 . 1))))
(= (sslength ss) 3)
); and
); not
(prompt "\nIncorrect - try again...")
); while
....
[By the way, the original's scolding is incorrect in that an empty selection set is not the only reason it would appear.]
Oh wow! 
This works like a charm.
This is definitely it!
Thanks so much Mr. Marko 🙂
And to all of you guys who help on this routine Mr. Jose and Mr. Kent...
Your efforts and time are most appreciated.
Cheers!
