The Hamma

Thanks that was the issue.

I have created a test file (attached). It seems to me that it is rather slow to update the viewport when all that is being shown is a 2d component of the symbol. Am I doing something wrong? Test.vwx

Please add an overhead COILING door option to the door tool.

The 2018 version is just slow all around!! zooming in and out as well as rendering and rotating renderings. editing PIO's. etc.

Did you ever solve this issue, I have the same.

Does anyone know how to use this (FUNCTION SetDashStyleName)function? I would like to make a vectorscript that can change a dash style of a selected object to a predetermined dash style by name.

I would like a way to explode complex line types and also I would like a toggle option to be able to snap to objects in the complex line type.

I wish that in addition to being able to turn viewport layers On/Off/Grey there was also an option to turn them "ON Dashed" or "Grey Dashed". I know I could do this if all my line types were attached to class options but this is not always feasible but it would be nice to make an entire viewport dashed lines.

I wish there was a command to explode complex dash lines to a group.

Below is a script by Peter Vandewalle and it work fine as a command or from the script palette but if I run it as a tool the angle constraints don't kick in to the second object duplication. Does any one know why and how to fix it. I like this script vs the move by point tool because it makes a duplicate object at every point that I click. and I don't have to keep switching the move by point from retain objects to not retaining objects. Procedure CopyPt; {Peter Vandewalle, 14-03-2003} LABEL 99; VAR ObjHdle,NewHandle:HANDLE; xi,yi,xm,ym,xp,yp,X,Y:REAL; YesNo:BOOLEAN; SelNum:LONGINT; Procedure do_error(s:STRING;v:REAL); BEGIN AlrtDialog(Concat(S,' = ',Num2Str(5,V))); END; BEGIN Absolute; SelNum:=NumSObj(ActLayer); IF (SelNum=0) THEN BEGIN Message('Select object to copy:'); GetPt(X,Y); SetSelect(PickObject(X,Y)); END; Message('Click reference point'); GetPt(xi,yi); YesNo:=false; xp:=xi; yp:=yi; REPEAT Message('Click endpoint, double-click to exit'); GetPtl(xi,yi,xm,ym); IF ((xp=xm) AND (yp=ym)) THEN GOTO 99;{Check 4 double-click} Duplicate(xm-xp,ym-yp); xp:=xm; yp:=ym; UNTIL YesNo; 99:ClrMessage; DSelectAll; RedrawAll; ClrMessage; END; Run(CopyPt);

Is there anyway to call the "Move by Points" command from a vector script and set the parameters.

Thanks Kevin, your the man!

I would like to know if there is a way to convert a 3d poly to a 2d poly in the layer plane so it moves in 3d the same way that a 3d poly does, not converted to the screen layer as a hidden line rendering of the 3d poly. If there is not a way I put out this challenge for some one to write a script that would do so.

Ok correction the resetObject does not work the class does change but the objects are not reset.

Anyone know why this script runs from the script Palette but not if I add it to the menu. When added to the menu it runs but nothing happens. PROCEDURE ClassStyle; PROCEDURE changedoors(h :HANDLE); BEGIN SETRFIELD(h, 'door', 'IDLabelClass', 'Marks'); ResetObject(h); END; BEGIN ForEachObject(changedoors, (INSYMBOL & INVIEWPORT & (PON='door'))); END; Run(ClassStyle);