Call a LISP function

[Titus25]

Hello,

I'm very new to using LISP functions on Autocad/Civil 3D.

I need to create minimum bounding boxes around polylines.

 

I've loaded the LISP function created by Lee mac for this, via the

loadapp

command.

The function is loaded (Minimum Bounding Box.lsp successfully loaded).

 

My problem is simply how to call this function correctly?

When I type the command:

 (LM:minboundingbox sel 0.001)

 I get nil.

Do I need to install anything else first ? (it seems to be a subfunction)

What am I doing wrong?

 

Thanks for your answers.

 

Edited March 7 by Titus25

[CyberAngel]

If you look at the bottom of the page you linked to, there's some code that calls minboundingbox. The word sel refers to a variable that's defined earlier in the function, and that comes from a selection made by the user. So you can either create a function that calls minboundingbox, which you'll be able to use whenever you need it, or rewrite the freestanding command to call ssget as shown in Lee Mac's example.

 

If you need more help, ask away.

 

Welcome to the forum!

[Titus25]

Thanks a lots for your explanation!

It works fine now!

[BIGAL]

2 questions "minimum bounding boxes around polylines." Boxes implies a plural so multiple boxes required, polylines implies plural so do many.

 

Confirm 1 box of all polylines or a single box around 1 pline but repeated for all plines.

Edited March 10 by BIGAL

[Titus25]

My aim is to draw one single box around 1 pline but for all plines.

The above mentionned LISP function works well for 1 pline, but I have to call it once for each pline. Is there a way to automate the function to all selected plines ?

[BIGAL]

Try this, can add ssget by layer, make on another layer etc.

(defun c:wow ( / ss obj pointmin pointmax)
(setq ss (ssget '((0 . "LWPOLYLINE"))))
(if (= ss nil)
(alert "No plines selected ")
(repeat (setq x (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss (setq x (1- x)))))
(vla-GetBoundingBox obj 'minpoint 'maxpoint)
(setq pointmin (vlax-safearray->list minpoint))
(setq pointmax (vlax-safearray->list maxpoint))
(command "rectang" pointmin pointmax)
)
)
(princ)
)
(c:wow)

Edited March 10 by BIGAL

[Titus25]

Thanks for this code! It works well for many plines, but the bounding boxes are not oriented to the shape and thus not the real "minimum" bounding boxes.

[SLW210]

I have moved your thread to the AutoLISP, Visual LISP & DCL Forum. Please post in the most appropriate forum.

[BIGAL]

The bounding box function always provides a zero 90 orientation.

 

Ok a solution I am pretty sure was done by Lee-mac using a rotate box function. Your lucky I found it

 

Minimum Bounding Box | Lee Mac Programming (lee-mac.com)