WhoCanDo

Like this: for i := 4 to 6 do begin CreateThreeStateCheckBox (DialogID, i, Concat (' ', i)); SetBelowItem (DialogID, i - 1, i, 0, 0); end;

for i := LayerCount -1 downto 1 do begin h := NextLayer (h); LayerName := GetLName (h); end; No luck Pat, The original post was with spaces and the above is with spaces and "begin" has a tab. I have previewed this reply after copying from VW, copy & paste through Word, WordPad & Notepad but nothing works. I even added spaces after pasting but everything in the forum seems to be left justified. Is there a switch I need to flick in My Stuff? I have seen many people with my problem and I have also seen several comments from replies saying please format your code which is what I would like to do. Any other ideas?

The webpage http://www.artlantis.com/index.php?page=download/plugin/index has a dropdown list which includes VW. Download the plugin and then copy it to c:\document and settings\your login account\Application Data\Nemetschek\Vectorworks\2010\Plugins In VW use Tools\Workspaces\Workspace Editor to add it to your menu What's wrong with Solidworks?

Hi, I've cut and pasted from the VS Editor several times and as I am writing this post I see the format is correct. ie "for" is left justified and "begin" is two spaces in as is Create, Set & end; for i := 4 to 6 do begin CreateThreeStateCheckBox (DialogID, i, Concat (' ', i)); SetBelowItem (DialogID, i - 1, i, 0, 0); end; but when I hit "Submit", everything is left justified. This is OK for above but when there are many more lines of code it becomes harder to read. What am I doing wrong?

Hi, Since BeginDialog is comming to its end, I want to try and convert my macros to CreateLayout but I can't find much help or examples. With the below, what is the next step to identify which box is checked? procedure test; var i, OI : integer; DialogID : longint; procedure Dialog_Handler (var a : longint; b : longint); begin end; begin DialogID := CreateLayout ('CHOOSE', False, 'OK', 'Cancel'); CreateStaticText (DialogID, 3, 'Choose !', 30); SetFirstLayoutItem (DialogID, 3); for i := 4 to 6 do begin CreateThreeStateCheckBox (DialogID, i, Concat (' ', i)); SetBelowItem (DialogID, i - 1, i, 0, 0); end; if (VerifyLayout (DialogID)) then If (RunLayoutDialog (DialogID, Dialog_Handler) = 1) then begin SetThreeStateCheckBoxState (DialogID, 4, 1); for i := 4 to 6 do begin GetThreeStateCheckBoxState (DialogID, i, OI); message (OI);wait(0.5);clrmessage; end; end; end; run (test);

Quote: "Each of my temp dimmers has a record and field 'Dimming Data'.'Dimmer Name'. There are only individual entities at the moment so no double ups." so if there are no doubles then you expect SelectObj to only select one item, therefore ForEachObject will know the handle no matter which layer it is on. With procedure Record_H (h : handle); begin DIMH:=h; end; you will record h from any layer. Regards

I've always wondered why SelectObj isn't: SelectObj (c:Criteria):FSHandle; ( 1st selected handle ) and SelectObjs (c:Criteria); How much easier life would be. However ForEachObject (DoThis, ('Dimming Data'.'Dimmer Name'=LDCIRCUIT)); may help!! Regards

Hi, Sysbeep offers only the current system prompt sound. I know I can change the system prompt sound but I would like a variety of sounds that mean different things to me. How can my macros to choose and play a .wav or .mpg or etc. from VW? Regards Trevor

Thanks Raymond, I was looking for something like SetLayerColorToggle but that's too sensible. Regards

Hi, What is the VectorScript proceedure to toggle the "Document Preferences/Display/Use layer colors" on and off?

I only have Fundamentals that does not allow printing to pdf but that's not a problem because I have been using pdf995 as a pdf printer long before VW decided to incorporate it. Printing to pdf995 does not have the same problems as you are having so it could be an option for you. Regards

I'd be most interested. Thanks

I can't get any more than 63. Could try Chr and Ord somewhere in you code to convert some numbers between 34 & 128 into ascii and reduce the length of your name. Regards

I have VW 2010 SP4 Fundamentals and it works for me. Regards

Thanks Pat, I could see the other resets would do more than I wanted. Regards

I was testing "Ungroup" in a macro which kept asking if I wanted the group data applied to each object ungrouped. I ticked "Do this every time" and picked "No". Some time in the future if I want to change my mind how do I toggle this feature on/off? Regards

Hi, I have been trying to resolve an issue with my plotter by redirecting my plotter port from com1: to "File" to see what is happening. All I get is an Adobe file which starts %!PS-Adobe-3.1 The same drawing plotted with AutoCAD saves a file with DMPL commands as I would have expected. Why does Vectorworks produce this output and how does the plotter driver interpret it as compared to DMPL commands?

Great maaten, I love minimising code. Thanks Assembly, I have but using the CallTool works for me this time. Regards

Been working on it for a while and came up with: GetPt3D ( pX, pY, pZ, False); GetView (xAngleR, yAngelR, zAngleR, offsetX, offsetY, offsetZ); SetView (0, 0, 0, 0, 0, 0); Draw_3D; { My new symbol } Symbol (SymName, 0, 0, 0); { Get my new symbol } Move3D (pX, pY, pZ); SetView (xAngleR, yAngelR, zAngleR, offsetX, offsetY, offsetZ); I hope vw2011 has a Symbol3D (SymName, pX, pY, pZ); Regards

Hi, I wish to create a 3D symbol and place it at a selected location on my drawing. I begin in Left Isometric view and I have picked a point (GetPt3D). I then create a symbol (BeginSym ... EndSym). After the symbol is created I retreive it with Symbol (SymName, 0, 0, 0); and then Move3D (pX, pY, xZ); Move3D puts it in the right place but the Symbol procedure only works in 2D. What should I be doing to get this to work?

I found it. I should be using SetField. Regards

Hi, I written a BeginDialog with some AddField text boxes and some AddButtons. If I click button one I want the text cell to show 1 and if I click button two I want the text cell to show 2. Is this the correct way of doing this: if (ItemSel (1) = True) then SetItemText (1, 8, '1'); else SetItemText (1, 8, '2'); because it doesn't work. Do I need a refresh or something? Note: this is still VW2010

I've been asking for the same for a while now. Just like Excel will run Private Sub Workbook_Open() I would like to do a bit of setup as the stationary sheet is opened.

Are you refering to SetOrigin?

Please tell us why do you need to know the pair lengths? If your searching for a line style then maybe the following will help: GetDashStyle or GetDashStyleIndex