Jump to content

WhoCanDo

Member
  • Posts

    450
  • Joined

  • Last visited

Everything posted by WhoCanDo

  1. Nice one Tom. That workspace V is the only one missing from mine, so your probably right about the 2025 change which didn't happen for me since I have a revised copy of the workspace. Thanks.
  2. I'm seeing that your suggestion works when I switch workspaces. I haven't reset the V button so I'm not sure how it attached itself to the Visibility tool. I will have to make a new workspace using a copy of the default. Thanks. The V does do what I was expecting by hovering over the Unhide button. Interesting.
  3. To use the V key as you suggest, when you have hidden some objects, don't you then have to change your preferences to toggle the "Visible mode" ? Then when you hit the V key, that's when the ghosts appear. If you forget to change your preferences, then you have to select them after hitting the V key. I would still opt for a default hover over the unhide button to temporarily ghosting the hidden objects.
  4. When objects are hidden, this button appears. It would be nice to hover over this button with the mouse and see a ghost outline of the hidden objects until the mouse is moved of the button. This default will be much easier than using the Visibility Tool and clicking on and off the options to do this.
  5. It's been a while since asking this question. I'm guessing that VW can't do this, or no one else has a need to do this. However, if anyone else is hunting for an answer, I have a work around. Since you already know the file name you want to create, use ReWrite (DataFName); and Close (DataFName); to create a blank file or set of files ( I needed 5 exported worksheet PDF files ). Function ChangeLocalFileName (Prefix : string) : string; var FName : string; begin FName := Concat (Copy (GetFPathName, 1, Pos (GetFName, GetFPathName) - 1), Prefix, GetFName); FName := Concat (Copy (FName, 1, Pos ('.vwx', FName) - 1), '.pdf'); ChangeLocalFileName := FName; end; begin ReWrite (ChangeLocalFileName ('WORKSHEET1 ')); Close (ChangeLocalFileName ('WORKSHEET1 ')); end; Then, when Window's saving convention pops up, just click the appropriate file name created previously to overwrite it. It sure saves time and RSI.
  6. Hi. Can you change a viewports layer ( on/off/greyed ) list with vectorscript ?
  7. After a long period of test with the assistance of the techs, the solution was to install VW2025.
  8. Just in case someone else has a similar problem, the answer was fixed by the techs who told be to try disabling the default "Open as Administrator".
  9. Another day. I tried the import and ungrouping. It worked today so not sure what happened after the update. However, I still can drag and drop any files after the SP6 update. This is a problem because I often drop multiple PDF, DWG & IFC files to open/import them. I'm not keen to update my other PC if it's going to be the same. However that is Windows 10 and this one is Windows 11 - which did work in SP5
  10. I exported the PDF from my drawing before importing it again. Rasterize PDF was not ticked so it should have been vectorized.
  11. I just updated to SP6 I've lost my drag and drop. I can't drag vwx, dxf, pdf, dwg, etc. and drop them into my VW2024 SP6 Can you ? Additionally, when I Import a .pdf and ungroup it, after deleting the bmp and blackout page, there is no vector drawing left. Note: I am on a Windows 11 PC at the moment.
  12. After all this time, I still can't get a reliable search happening. This code supposes this hierarchy .. IfcMechanicalFastener Tekla Bolt Bolt Name and it works well. However, I have a client that sent me an IFC file with this hierarchy .. IfcMechanicalFastener IfcMechanicalFastener Bolt Name and it doesn't work when I try and find the Bolt Name. Can someone suggest a reason please ? Procedure SelectByIFCProperty; {December 13, 2019} {© 2019 Patrick Stanford pat@coviana.com} {Licensed under the GNU Lesser General Public License} {Selects all objects that are defined as IFCMechanicalFastener } {and have an IFCPSet of Tekla Bolt with a non-blank Bolt Name attached.} {Here be dragons. No Warranty Expressed or Implied. Use at your own risk} Var B1:Boolean; S1,S2,S3,S4:String; N1:Integer; Procedure Execute(H1:Handle); Begin B1:=IFC_GetPSetProp(H1,S3,S4,S2,N1); If ((B1=True) & (S2<>'')) then SetSelect(H1); End; Begin S1:='Tekla Bolt.Bolt Name'; S3:=Substring(S1,'.',1); S4:=Substring(S1,'.',2); DSelectAll; ForEachObject(Execute,((IFC_ENTITY='IfcMechanicalFastener'))); End; Run(SelectByIFCProperty);
  13. I'm formatting a worksheet for a job. In the "Total Items" cell, I want the answer =sum(B12, B13, etc.) However, this doesn't work. Then I tried summing the answer under the list in cell B17 and tried the formula =B17 in cell G3. That didn't work either, even though the B17 cell showed the answer. Please scroll down past this worksheet layout. Then I tried writing a macro. On it's own ( with WSScript_SetResStr (Num2Str (0, n)); replaced with Message (n)), it returns 32, which is the sum of cells B12 to B16. Nice. However, calling it with =RUNSCRIPT('Total Items') in cell G3, it crashes VW. If I put =RUNSCRIPT('Total Items') in B17, and =B17 in G3, it makes a mess. Any ideas or reasons would be appreciated. procedure Total_Items; var i : integer; n, V : real; h : handle; begin h := GetObject ('Grating - Fabrication List'); for i := 12 to 16 do begin GetWSCellValue (h, i, 2, V); n := n + V; end; WSScript_SetResStr (Num2Str (0, n)); end; run (Total_Items);
  14. So, finding a work around wasn't that difficult. This is how I solved it for those interested. The reason for making a Database line was to get the Record Value from an object, with a record attached, and list it on the same row as the Logo. The row must be of Spreadsheet type, and then the cell value =IMAGE(N='Logo') works. I wrote this macro and the added this formula to a cell to the right of the Logo =RUNSCRIPT('Name of script') Many of you will recognize the method. procedure Fab_List_Value; procedure Get_Value (h : handle); var V : string; begin V := Concat (GetRField (h, 'Value', 'GrWeight'), ' ', GetRField (h, 'Value', 'NtWeight')); WSScript_SetResStr (V); end; begin ForEachObject (Get_Value, ((L = 'Objects') & (C = 'Object1'))); end; run (Fab_List_Value);
  15. Thanks Pat, I feared that would be the answer. Thanks
  16. Hi, When I insert =IMAGE(N='Logo') into a spreadsheet cell, it shows me a picture of a logo. Good. However, if I make that line a Database, it displays "False", not the picture. Note: the named item is a 2D symbol. The following link says I can do it for spreadsheet and database cells, but how .. https://app-help.vectorworks.net/2023/eng/VW2023_Guide/Worksheets/Inserting_images_in_worksheet_cells.htm
  17. Interesting Kevin, After a bit more testing, and you suggestion of "same direction", I think I understand my error. Because the circle wouldn't Loft, I changed it to a polygon, but because there was no "convert to polyline" tool, I also changed the polyline to polygon to match. Big mistake. They wouldn't Loft either, so I changed them both to Nurbs and that's why it lofts to a group and not a Generic Solid. I will have to remember that the polyline should never be changed to a polygon before changing to a Nurb, but a polyline or polygon can be changed directly to a Nurb.
  18. Hi Virtualenvirons, Even though I have created this part using multiple extrude, your questions are valuable for other components I need to draw. As per my initial post, the circle is 60mm diameter and the oval is 30mm radius and 77.49mm long. It's actually a slot. The finished height is 90mm and the wall thickness is 5mm. I would be interested in reading your step-by-step method of creating the same object with Nurbs and Lofting.
  19. Yes, but I couldn't "Closed" it. The Close button would not stay ticked even though it was not greyed. The loft created multiple Nurbs and grouped them. It did not merge them into one solid/surface as I was expecting.
  20. Thanks Tom. Not having done much 3D stuff, you help is wonderful. However, if I set the Shell tool to 5mm inside, how can I get it to punch through the bottom 5mm ? Is the only solution to make the object higher and subtract solids to clip of the bottom 5mm ?
  21. The loft is 1024 Nurbs and I can't get them to add. I tried Generic Solid but it rejected the objects. I tried Adding Objects but it rejected that too. I'm not sure what you mean by Multiple Extrudes because there would have to be thousands to create a smooth surface. The Shell is the easy bit LOL
  22. I thought this would be easy by creating two objects and subtracting solids, but now I find that the shape made from Nurbs ends up as a group and can't be subtracted. Therefore, I'm calling for ideas please. Here's what I am starting with .. The oval is at level 0, and the circle is 90mm higher. This circle diameter is 60 and the oval is 77.49 if anyone is interested. After several attempts, I found that the shapes had to be converted to Nurbs and the with Loft Surface tool, I could make this "solid", so I thought .. With this and another, which is smaller so I can make a 5mm wall thickness, I wanted to subtract solids to make a tube, but it's not a solid, it's a group of Nurb surfaces. I obviously went down the wrong track, so any help would be appreciated.
  23. Thanks Pat, I had proposed too after inquiring for a solution, if it was available.
  24. Yes. Closing the file and opening it again does fix it. I don't need to close VW. The error re-occurs only after repeating the duplicate and rotation process again. The first duplicate and rotation remained constant but the second has the error. Files attached. Video Project 2.mp4 Zoom 3D screen image wrong after rotation.vwx
×
×
  • Create New...