|
In lugnet.cad, Paul Easter wrote:
> In lugnet.cad, Niels Karsdorp wrote:
> > Thanx for the explanation, it's clear to me now.
> > I'll update my primitive generator and reupload the
> > primitives I have put on the PT
> >
> > Niels
> Sounds good. Make sure your generator is using spaces and not tabs. I have not
> checked to see how the original Ldraw responds to tabs as number seperators.
My generator (just an excel sheet with some visual basic code) uses spaces as
seperators. I hope it's not a problem that values as 1 are written as 1.0000
I also fixed the generation of type 5 lines. (It generated one too less for
partial cones, now the correct amount).
The generator can create any cone or ring between 1-16 and 4-4 (not high-res).
http://home.hetnet.nl/~niels-karsdorp/ldraw/utils.htm
Niels
|
|
|
In lugnet.cad, Niels Karsdorp wrote:
<some portions snipped>
> My generator (just an excel sheet with some visual basic code) uses spaces as
> seperators.
Ok, Yes, I started out with a spreadsheet that made 1-4 segments.
> I hope it's not a problem that values as 1 are written as 1.0000
I have made it a habit of eliminating all the extra zeros out of part files that
I can. They do not do anything but take up space.
I believe the rounding function removes all trailing zeros.
Here is a routine written in VB for a spreadsheet that you can use if you want it. It's called rlz(....) It will remove leading zeros, even the ones after a minus sign.
Dim AA As Integer
Dim BB As Integer
Dim CC As Integer
Dim TextIn As String
' Remove Leading Zero's function
Public Function RLZ(InPutText As Variant) As String
TextIn = Trim(InPutText)
If Len(TextIn) > 0 Then
'TextIn = Trim(TextIn)
'If Len(TextIn) > 0 Then
If Left(TextIn, 1) <> "0" Then
AA = InStr(1, TextIn, " 0.")
Do While AA > 0
TextIn = Left(TextIn, AA - 1) & " ." & Right(TextIn,
Len(TextIn) - (AA + 2))
AA = InStr(1, TextIn, " 0.")
Loop
AA = InStr(1, TextIn, "-0.")
Do While AA > 0
TextIn = Left(TextIn, AA - 1) & "-." & Right(TextIn,
Len(TextIn) - (AA + 2))
AA = InStr(1, TextIn, "-0.")
Loop
End If
'End If
End If
RLZ = TextIn
End Function
Yeah, it could be cleaner, but it works.
>
> I also fixed the generation of type 5 lines. (It generated one too less for
> partial cones, now the correct amount).
That is a common item that is missed.
>
> The generator can create any cone or ring between 1-16 and 4-4 (not high-res). I see. I made seperate sheets for hi-res as well.
>
> http://home.hetnet.nl/~niels-karsdorp/ldraw/utils.htm
>
> Niels
Hey, thanks for the link to your website. I have been there before. Downloaded
several of your items.
I really like the rings and cones program. We need to figure out how to get it
to determine torus files. I have a spread sheet that "kinda" tells you how to
pick one. Email me and I will send it to you. If enough people want to see it,
reply to this message and I will put it on my web site.
Paul
|
|
|