Display objects in Viewport yes or no

[pmadhwal7]

Hi, all

1.is any body know how to turn Display objects in Viewport yes or no in all layouts in one single command or through lisp,

2.after hiding the viewports change the sheet no with reference to layout no dwg and screen shot attached

 

Drawing1.dwg

[BIGAL]

Post a dwg for Q2. Need say a block with attribute.

 

Turn certain layers on/off is the VPLAYER command, or are you talking about zooming to a certain spot in Model then setting the layout MVIEW to a scale based on that point.

[Steven P]

Would this help:

 

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/vplayer-lisp/td-p/8106029

 

(Answer by BeeKee)

[pmadhwal7]

Please see this image actually what i want to do after selecting viewport i would like to turn off or on disply object in all vieport

 

 

 

 

for refernce of qustion no 2 dwg sample attached

layout.dwg

[ronjonp]

Use a field for your text to match the layout name: 

 

And use the filter command to get all your viewports to turn them on or off in the properties palette.

 

Or use this code:

(defun c:foo (/ s)
  (if (setq s (ssget "_X" '((0 . "VIEWPORT") (-4 . "!=") (69 . 1))))
    (foreach e (mapcar 'cadr (ssnamex s))
      ;; This line needed for uninitialized tabs
      (setvar 'ctab (cdr (assoc 410 (entget e))))
      (vlax-put (vlax-ename->vla-object e) 'viewporton 0)
    )
  )
  (princ)
)

 

Edited March 22, 2023 by ronjonp

[pmadhwal7]

13 hours ago, ronjonp said:

Use a field for your text to match the layout name: 

 

And use the filter command to get all your viewports to turn them on or off in the properties palette.

 

Or use this code:

(defun c:foo (/ s)
  (if (setq s (ssget "_X" '((0 . "VIEWPORT") (-4 . "!=") (69 . 1))))
    (foreach e (mapcar 'cadr (ssnamex s))
      ;; This line needed for unitialized tabs
      (setvar 'ctab (cdr (assoc 410 (entget e))))
      (vlax-put (vlax-ename->vla-object e) 'viewporton 0)
    )
  )
  (princ)
)

 

 

working but only in one layout is it possibale to do it in all layout

field command add another text but i have exsiting format which is final sample is this not possibale to do it in one go throught lisp

Edited March 22, 2023 by pmadhwal7

[SLW210]

See if this helps... Solved: Turn on/off all viewports on all layouts without switching layouts - Autodesk Community - AutoCAD

 

For the CTAB, use a Find and Replace and just add the String for CTAB field. (%<\AcVar ctab \f "%tc1">%)

[pmadhwal7]

3 hours ago, SLW210 said:

See if this helps... Solved: Turn on/off all viewports on all layouts without switching layouts - Autodesk Community - AutoCAD

 

For the CTAB, use a Find and Replace and just add the String for CTAB field. (%<\AcVar ctab \f "%tc1">%)

code provided in this link was working on only 1 layout tab and alos please explain find and replace CTAB

[BIGAL]

I just clicked on the text field then pasted into text what SLW210 posted and the layout name appeared. Copied to another layout to check it was morning.

[pmadhwal7]

On 3/23/2023 at 5:39 AM, BIGAL said:

I just clicked on the text field then pasted into text what SLW210 posted and the layout name appeared. Copied to another layout to check it was morning.

Can you modify it for me?

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/turn-on-off-all-viewports-on-all-layouts-without-switching/td-p/6390402

[BIGAL]

Again just went to your dwg clicked on the tab 100 then dbl clicked text and pasted (%<\AcVar ctab \f "%tc1">%) do this to your template dwg then its set up forever.

Edited March 26, 2023 by BIGAL

[pmadhwal7]

On 3/26/2023 at 5:37 AM, BIGAL said:

Again just went to your dwg clicked on the tab 100 then dbl clicked text and pasted (%<\AcVar ctab \f "%tc1">%) do this to your template dwg then its set up forever.

Sorry to say sir but I am unable to understand can you explain it where and which auto cad command I use because field command not editable I can't change it, 

[BIGAL]

Copy this to clipboard (%<\AcVar ctab \f "%tc1">%)

Open your dwg

Go to layout

Double click text at top

Do CTRL+V the text should change to the name of the layout

Save the drawing as a Template drawing a DWT and use it as your master dwg for your projects.

[ronjonp]

5 hours ago, pmadhwal7 said:

Sorry to say sir but I am unable to understand can you explain it where and which auto cad command I use because field command not editable I can't change it, 

Assuming you have consistency in your drawings, try this:

(defun c:foo (/ s)
  (if (setq s (ssget "_X" '((0 . "TEXT") (1 . "Sheet No. *"))))
    (foreach o (mapcar 'cadr (ssnamex s))
      (vla-put-textstring (vlax-ename->vla-object o) "Sheet No. %<\\AcVar ctab>%")
    )
  )
  (princ)
)

 

[pmadhwal7]

15 hours ago, BIGAL said:

Copy this to clipboard (%<\AcVar ctab \f "%tc1">%)

Open your dwg

Go to layout

Double click text at top

Do CTRL+V the text should change to the name of the layout

Save the drawing as a Template drawing a DWT and use it as your master dwg for your projects.

is this method done in all layout one by one?

[pmadhwal7]

15 hours ago, ronjonp said:

Assuming you have consistency in your drawings, try this:

(defun c:foo (/ s)
  (if (setq s (ssget "_X" '((0 . "TEXT") (1 . "Sheet No. *"))))
    (foreach o (mapcar 'cadr (ssnamex s))
      (vla-put-textstring (vlax-ename->vla-object o) "Sheet No. %<\\AcVar ctab>%")
    )
  )
  (princ)
)

 

no actually i want to change sheet not at top middle of the layout sheet

[ronjonp]

5 minutes ago, pmadhwal7 said:

no actually i want to change sheet not at top middle of the layout sheet

Not sure what you're asking for. The code was based on your sample drawing.

[pmadhwal7]

On 3/28/2023 at 7:37 PM, ronjonp said:

Not sure what you're asking for. The code was based on your sample drawing.

check in bottom actual layout sheet no is 100 but in top it's different that top mentioned sheet no i want to change in one go. in short green text replaced by red text

Edited March 30, 2023 by pmadhwal7

[ronjonp]

5 hours ago, pmadhwal7 said:

check in bottom actual layout sheet no is 100 but in top it's different that top mentioned sheet no i want to change in one go. in short green text replaced by red text

My code does that? Did you try it?

[pmadhwal7]

14 hours ago, ronjonp said:

My code does that? Did you try it?

yes i tried but not working