Jump to content

vp borders missing


halam

Recommended Posts

Viewports just disappear all on their own with no input from you. Is that what you are saying?

 

Do you create a separate layer for your viewports?

 

Any other strange AutoCAD-related happenings of late?

Link to comment
Share on other sites

I deleted all the content because I tried uploading it directly and I tried not to bother you guys with my work stuff. Upload didn't work because of the 1mb limit. Why is this drawing with nothing in it still over 1mb. Strange. The viewports are there in both tabs if you will take a closer look :). Just the last tab does not display borders. Try command : MS. And quick select all viewports. Very strange...

Link to comment
Share on other sites

I see 21 viewports on layout 020, and none, like rkent, on layout 021. :huh:

 

I tried to reduce the size of the file, and couldn't get it down at all.

Link to comment
Share on other sites

In Paperspace we can see through the numerous paperspace viewports to the two modelspace viewports,

but I don't understand either, why, I can't get the Paperspace viewport boundaries to display, even after changing the layer color.

 

My guess is that they are not on the Vports layer, as we would expect, but even after unfreezing and turning on all the layers I still don't see them. :huh:

Edited by Dadgad
Link to comment
Share on other sites

If the Layers are turned ON and they are Not Frozen, they should display.

It is still a mystery to me, I played around with it for quite a while with no luck.

Link to comment
Share on other sites

What software is being used to create these?

I explored changing a bunch of system variables too, couldn't figure it out.

Are you receiving these from another vendor, or are you doing them from scratch?

I am using 2013, but I don't suppose that has anything to do with it.

 

Hopefully somebody else will be able to figure it out! :)

 

When you want to creat a new Layout, right click on the good (020) layout tab, and select COPY, then check the create a copy box, and move to end, and your new layout will then have functioning and defined viewports like in your first tab. Then you can adjust all of them to suit. :|

 

Yes, I agree, very annoying problem!

Link to comment
Share on other sites

Mostly native autocad dwg, but i can't rule out some (pardon my French) trash dwg from Revit lives in the files for long Time. For that reason i deleted everything but paperspace & viewport earlier. The viewports where set up in autocad. What system vars. make You wonder how or what ecaxtly?

Link to comment
Share on other sites

So my 'own'code seems the bug after all.. :ouch:

Thanks rkent and maratovich ! :)

 

I replaced it for code by Alaspher

code (not properly working) i used was ...

 

check.

 

http://www.cadtutor.net/forum/showthread.php?97096-Inverse-selectionset-on-a-quot-x-quot-statement

 



;;;(defun c:zb () (zb))
(DEFUN zb (/              SS1            EN
            LOOK_FOR       lOOK_FOR_DXF   LOOK_FOR_LAYER
            LAYER_LOCK_STATUS             TOMODIFY
            TOCON
           )
 (command "undo" "group")
 (setq ss1 (ssget "x" '((60 . 1)))) ; find any invisible objects
 (if ss1
   (progn
     (setq counter 0)
     (while (<= counter (- (sslength ss1) 1))
       (setq en (ssname ss1 counter))
       (setq look_for en)
       (setq LOOK_FOR_DXF (entget LOOK_FOR))
       (setq LOOK_FOR_LAYER (cdr (assoc 8 LOOK_FOR_DXF)))
       (setq LAYER_LOCK_STATUS
              (CDR
                (ASSOC 70
                       (tblsearch "LAYER" LOOK_FOR_LAYER)
                )
              )
       )
       (If (= LAYER_LOCK_STATUS 4)
         (progn
           (command "layer" "unlock" LOOK_FOR_LAYER "")
         ) ; End progn
       )
       (setq LOOK_FOR_DXF
              (subst (cons 60 0)
                     (assoc 60 LOOK_FOR_DXF)
                     LOOK_FOR_DXF
              )
       )
       (entmod LOOK_FOR_DXF)
       (If (= LAYER_LOCK_STATUS 4)
         (progn
           (command "layer" "lock" LOOK_FOR_LAYER "")
         ) ; End progn
       )
       (setq counter (+ counter 1))
     ) ; End of while
   ) ; End progn
 ) ; End if   
 (command "redrawall")
 (command "undo" "end")
 (princ)
 (princ)
) ; End defun
;;;(PRINC)

Edited by halam
Link to comment
Share on other sites

Something wrong ?

 

I didn't mean to imply there was anything wrong, I was just glad to see you suggesting a solution, as I was out of suggestions.

I just downloaded your lisp, and loaded it into the drawing.

I expected to need to call UNHIDEALL at the commandline, and was surprised to see that without having entered that, the viewports had already miraculously appeared. :huh:

No Regen required.

I don't pretend to understand it, but I LIKE it!

 

Well done Maratovich! Thanks, I have never actually had a problem like that, but that one is a keeper. :beer:

Edited by Dadgad
Link to comment
Share on other sites

Well done Maratovich! Thanks, I have never actually had a problem like that, but that one is a keeper. :beer:

 

:) I just found it on the Internet. :beer:

 

 

My code is here vba:

 

Sub Vport()
Dim Objsset As AcadSelectionSets
Dim Sset As AcadSelectionSet
Dim Entity As AcadPViewport
'----------------------------------------------------------------------------------+
Set Objsset = ThisDrawing.SelectionSets
For Each Sset In Objsset
   If Sset.Name = CStr("TestSet") Then
       ThisDrawing.SelectionSets.Item(CStr("TestSet")).Delete
       Exit For
   End If
Next
'----------------------------------------------------------------------------------+
Set Sset = ThisDrawing.SelectionSets.Add("TestSet")
'----------------------------------------------------------------------------------+
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
FilterType(0) = 0
FilterData(0) = "VIEWPORT"
Sset.Select acSelectionSetAll, , , FilterType, FilterData
'----------------------------------------------------------------------------------+
For Each Entity In Sset
   If Entity.Visible = False Then Entity.Visible = True
Next Entity
'----------------------------------------------------------------------------------+
MsgBox "Done"
End Sub

Vport.zip

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...