How to make that lsp to slelect multiple objects?

Anonymous — Wed, 28 Aug 2019 13:20:59 GMT

Hi! Im new in Autocad. Can someone help me to change that lsp from Lee Mac. I want to be able to apply function to multiple objects at once. I tried to change "entsel" with "ssget", but it doesn't work.

P.P. Sorry for my english.

;; Bounding Box  -  Lee Mac
;; Returns the point list describing the rectangular frame bounding the supplied object.
;; obj - [vla] VLA-Object

(defun LM:boundingbox ( obj / a b lst )
    (if
        (and
            (vlax-method-applicable-p obj 'getboundingbox)
            (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list obj 'a 'b))))
            (setq lst (mapcar 'vlax-safearray->list (list a b)))
        )
        (mapcar '(lambda ( a ) (mapcar '(lambda ( b ) ((eval b) lst)) a))
           '(
                (caar   cadar)
                (caadr  cadar)
                (caadr cadadr)
                (caar  cadadr)
            )
        )
    )
)

(defun c:qwe ( / ent )
    (if (setq ent (car (entsel)))
        (entmake
            (append
               '(
                    (000 . "LWPOLYLINE")
                    (100 . "AcDbEntity")
                    (100 . "AcDbPolyline")
                    (090 . 4)
                    (070 . 1)
                )
                (mapcar '(lambda ( p ) (cons 10 p)) (LM:boundingbox (vlax-ename->vla-object ent)))
            )
        )
    )
    (princ)
)
(vl-load-com) (princ)

Re: How to make that lsp to slelect multiple objects?

Kent1Cooper — Wed, 28 Aug 2019 13:26:54 GMT

In lieu of modifying Lee's, I'll offer my own way of Drawing the Bounding Boxes around multiple objects by user selection -- the DBB command defined >here<.

Re: How to make that lsp to slelect multiple objects?

Anonymous — Wed, 28 Aug 2019 14:04:53 GMT

Thank you!

topic Re: How to make that lsp to slelect multiple objects? in Visual LISP, AutoLISP and General Customization Forum

How to make that lsp to slelect multiple objects?

Re: How to make that lsp to slelect multiple objects?

Re: How to make that lsp to slelect multiple objects?