sweep with VBA

zw_admin — 2011-11-18 07:09:15

it is not a ZW bug. Through the VBA ZW always draws on world ucs. For to change the position the translate coordinate method is needed.for to change the x,y,z vector the translate with matrix is needed.

mizzfail — 2011-10-02 04:24:40

Calls the system function DllUnRegisterServer to unregister modules passed in on the command line. Specify the full path to the DLL. For example, for MY_FILE.DLL in the current folder you can use: msiexec /z .'MY_FILE.DLL This option is only used for registry information that cannot be removed using the registry tables of the .msi file. website design flash pubblicit?su internet

zw_admin — 2011-08-23 03:14:13

Hi sergioc, Thanks for the code, we have confirmed that it is a but in ZWCAD, that it fails to change the ucs in VBA. We have forwarded problem to the develop team, once there is a fix we will inform you here. I'm still waiting for this fix . Thanks

zw_admin — 2011-06-20 02:06:29

Ok. I really need this.Please could you add some explanation for how to correctly change througth the X-Y-Z ? The goal remain the same: to draw one region perpendicular at the beginning of a one line and to make the " extrude with path" function for to generate the solid, as per previous post. If also "sweep" function will be provided ,this will be great. Thanks a lot.

zw_admin — 2011-06-10 08:44:15

Daniel thanks for your help. I'm getting closer to the solution with your support but now I've another issue... When I use the following code for to make a new UCS (I need it for to have one region perpendicular to the origin of my line ,for the extrusion) ZWcad still draw in the old one. I'm confident with the rule that I can draw only on X-Y plane ,with this code the circle is made on Z-X plane. Please check. Thanks again. Sergio ---------- Public Sub new_UCS() Dim StartPoint(0 To 2) As Double Dim xAxisPnt(0 To 2) As Double Dim yAxisPnt(0 To 2) As Double StartPoint(0) = 0: StartPoint(1) = 0: StartPoint(2) = 0 'origin is shared ' I use this way for to rotate the UCS ,maybe there is another better... xAxisPnt(0) = StartPoint(0) + 1: xAxisPnt(1) = StartPoint(1): xAxisPnt(2) = StartPoint(2) yAxisPnt(0) = StartPoint(0): yAxisPnt(1) = StartPoint(1): yAxisPnt(2) = StartPoint(2) + 1 'this routine erase previous ucs For Each ucsObj In ThisDocument.UserCoordinateSystems ucsObj.Delete Next Set ucsObj = ThisDocument.UserCoordinateSystems.Add(StartPoint, xAxisPnt, yAxisPnt, "TestUCS") ThisDocument.ActiveUCS = ucsObj 'now on ZWCAD the axes rotate Dim curves(0 To 0) As ZwcadEntity Set curves(0) = ThisDocument.ModelSpace.AddCircle(StartPoint, "10") curves(0).Update End Sub ------

zw_admin — 2011-06-09 03:29:55

Hi sergioc, Sorry that in ZWCAD VBA do not support Sweep command. tnx Daniel , as per your experience, is it possible to proceed as follows??...: -create a circle setting the right diameter -create a region from it -move it to the end (or beginning ) of the 3Dpoly),checking its perpendicularity to the 3Dpoly (!) -extrude the region along the 3Dpoly... I can quite assume that the 3Dpoly runs only on X,Y and Z axes parallel rects, switching with 90?elbow. I searched for something similar on the net and seems that the best way is to extrude the region and ,if this fails,to rotate the region and try again until it works. Have you ever worked on a similar deal? Have you got any reference or shall I start for scratch? Sergio PS: ...talking about databases... (as mySQL) and NET (as MS VB.NET): If I 've rightly understood,you warned that those architectures won't work with ZWCAD, that isn't correct because they work on my pc... ...Hope to hear from you soon...

zw_admin — 2011-06-06 11:40:49

Hi all. Is it possible to make one sweep with VBA? I need to sweep one 3D polyline with one circle as section. Thanks. Sergio.