topic Re: Help - Presentation layout follow specific object in Visual LISP, AutoLISP and General Customization Forum

Help - Presentation layout follow specific object

lucas_liotard3E368 — Thu, 19 Dec 2024 14:53:15 GMT

Hi,

It's been a while that I was thinking on it but I barely have knowledge about list and scrip.

I would like to know if there is any scrip of function in Autocad that make us capable to lock a presentation to a specific object/block so when we move the object the presentation would follow the object ?

Overall explanation, I'm an architect, when I clean a file with many detail to make a package for someone else, I move, organize all details so the document is easier to understand. Classic problem that make me loose time is that when you move an object, the presentation that you already prepare do not update with the new location of the detail, so you have a blank presentation that you have to redo again.
So I'm looking for a way to keep all presentations update when I move something out of the current location of the presentation.

Two ideas in my mind:

- First one would be to be able to lock a presentation to a specific object or block so it can follow, the block would be centered in the middle of the presentation or could be customized.

-Second thought, is that we have like the section in sketchup, an option to hide/unhide the presentation location of the object page of the document. So we would be able to directly manage in object, the location of any presentations.

So before going any further I would like to know if any scripts of commands in Autocad already exist. I didn't find anything for my research so far.

Have a good day all 😃

Re: Help - Presentation layout follow specific object

paullimapa — Thu, 19 Dec 2024 16:41:43 GMT

I assume when you use the word Presentation you are referring to Layout vports then the answer is I’m not aware of any. I’m only aware of a lisp routine that locks the vport to a view. When that view moves then the vports view also moves.

Re: Help - Presentation layout follow specific object

pendean — Thu, 19 Dec 2024 17:07:31 GMT

Looks like you need to commit to using SketchupPro and it's abilities that align with your workflows.

Re: Help - Presentation layout follow specific object

lucas_liotard3E368 — Thu, 19 Dec 2024 17:15:14 GMT

Thanks, indeed I'm talking about Layout vports, I forget to translate it from french. Would you have a link to the lisp routine that you refer ?

I don't think so that my answer gonna found a result by magic haha, so I guess I gonna start to learn how to do it by myself, exemple will be usefull.

Re: Help - Presentation layout follow specific object

lucas_liotard3E368 — Thu, 19 Dec 2024 17:17:13 GMT

Indeed Sketchup pro do it but the fact that where I work most of offices use Autocad, so it's more how I optimize my work when I do it for other than doing my own custom workflow.

Re: Help - Presentation layout follow specific object

paullimapa — Thu, 19 Dec 2024 18:22:13 GMT

I believe it's this app called VIEWPORT TOOLS found on the Autodesk App Store:

VIEWPORT TOOLS | AutoCAD | Autodesk App Store

Check out the demo video to get an idea on the features offered.

Re: Help - Presentation layout follow specific object

Sea-Haven — Fri, 20 Dec 2024 03:34:31 GMT

I am working on something for automating make layouts, ok so you have a layout move object gone in viewport now, so sort of manually convert to lisp, select viewport, get current scale, jump into viewport roll mouse button and pan/zoom to object pick point, the viewport is now set to that point in Model and rescaled back to correct scale. Some clues, when you have a viewport you have variables Customscale and center so reset both of them.

; move to new center point in a viewport based on a point from Model. ; By AlanH Dec 2024 (defun c:relayout ( / sc obj pt) (alert "pan or zoom so can see object \n\npress esc next if you have not done that ") (setq obj (vlax-ename->vla-object (car (entsel "\nPick viewport object ")))) (setq sc (vlax-get obj 'customscale)) (command "mspace") (setq pt (getpoint "\nPick new central point ")) (command "zoom" "c" pt 100) (command "pspace") (vlax-put obj 'customscale sc) (princ) )

You may need to check if viewport is locked so unlock do the move then lock again. Hint DisplayLocked = 1 that is your homework.