halam Posted December 8, 2016 Share Posted December 8, 2016 I am misssing viewports and have no clue where to look for next. Did purge, audit, set layers on Happens to me in several AutoCAD 2017 sessions. ? Thanks for your time. https://drive.google.com/file/d/0B6-6JB1a0xTcU0thZk9mbUlEclE/view?usp=sharing Quote Link to comment Share on other sites More sharing options...
ReMark Posted December 8, 2016 Share Posted December 8, 2016 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? Quote Link to comment Share on other sites More sharing options...
rkent Posted December 8, 2016 Share Posted December 8, 2016 I see lots of viewports on layout 020, and none on 021. Should there be viewports on 021? Quote Link to comment Share on other sites More sharing options...
halam Posted December 9, 2016 Author Share Posted December 9, 2016 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... Quote Link to comment Share on other sites More sharing options...
Dadgad Posted December 9, 2016 Share Posted December 9, 2016 I see 21 viewports on layout 020, and none, like rkent, on layout 021. I tried to reduce the size of the file, and couldn't get it down at all. Quote Link to comment Share on other sites More sharing options...
halam Posted December 9, 2016 Author Share Posted December 9, 2016 I uploaded the orginal dwg (4mb without xrefs). Should work with the same link Do you see it there, what i see? Quote Link to comment Share on other sites More sharing options...
Dadgad Posted December 9, 2016 Share Posted December 9, 2016 (edited) 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. Edited December 9, 2016 by Dadgad Quote Link to comment Share on other sites More sharing options...
halam Posted December 9, 2016 Author Share Posted December 9, 2016 All layers ON and non frozen.. Not visible ?? Quote Link to comment Share on other sites More sharing options...
Dadgad Posted December 9, 2016 Share Posted December 9, 2016 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. Quote Link to comment Share on other sites More sharing options...
halam Posted December 9, 2016 Author Share Posted December 9, 2016 Well .. that happend to me too on several other dwgs and i am geting bored on setting up new vieworts over and over. Thanks anyway. Quote Link to comment Share on other sites More sharing options...
Dadgad Posted December 9, 2016 Share Posted December 9, 2016 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! Quote Link to comment Share on other sites More sharing options...
halam Posted December 9, 2016 Author Share Posted December 9, 2016 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? Quote Link to comment Share on other sites More sharing options...
maratovich Posted December 9, 2016 Share Posted December 9, 2016 There is a solution. Run lisp: unhideall.lsp Taken from here: http://forum.dwg.ru/showthread.php?t=15193 unhideall.lsp Quote Link to comment Share on other sites More sharing options...
Dadgad Posted December 9, 2016 Share Posted December 9, 2016 There is a solution.Run lisp: unhideall.lsp Taken from here: http://forum.dwg.ru/showthread.php?t=15193 That certainly sounds encouraging! Quote Link to comment Share on other sites More sharing options...
halam Posted December 9, 2016 Author Share Posted December 9, 2016 thanks for Your suggestion and i know what You mean (use similar routines/ technique) but that not it either.. Quote Link to comment Share on other sites More sharing options...
maratovich Posted December 9, 2016 Share Posted December 9, 2016 That certainly sounds encouraging! Something wrong ? Quote Link to comment Share on other sites More sharing options...
rkent Posted December 9, 2016 Share Posted December 9, 2016 There is a solution.Run lisp: unhideall.lsp Taken from here: http://forum.dwg.ru/showthread.php?t=15193 I used this lisp, hit regenall, and there they are. Quote Link to comment Share on other sites More sharing options...
halam Posted December 9, 2016 Author Share Posted December 9, 2016 (edited) So my 'own'code seems the bug after all.. 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 December 9, 2016 by halam Quote Link to comment Share on other sites More sharing options...
Dadgad Posted December 10, 2016 Share Posted December 10, 2016 (edited) 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. 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. Edited December 10, 2016 by Dadgad Quote Link to comment Share on other sites More sharing options...
maratovich Posted December 10, 2016 Share Posted December 10, 2016 Well done Maratovich! Thanks, I have never actually had a problem like that, but that one is a keeper. I just found it on the Internet. 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.