To LUGNET HomepageTo LUGNET News HomepageTo LUGNET Guide Homepage
 Help on Searching
 
Post new message to lugnet.cadOpen lugnet.cad in your NNTP NewsreaderTo LUGNET News Traffic PageSign In (Members)
 CAD / 10213
10212  |  10214
Subject: 
Re: Hold on primitives by pneaster
Newsgroups: 
lugnet.cad
Date: 
Thu, 12 Jun 2003 00:54:19 GMT
Viewed: 
612 times
  
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



Message is in Reply To:
  Re: Hold on primitives by pneaster
 
(...) 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 (...) (21 years ago, 11-Jun-03, to lugnet.cad)

11 Messages in This Thread:




Entire Thread on One Page:
Nested:  All | Brief | Compact | Dots
Linear:  All | Brief | Compact
    

Custom Search

©2005 LUGNET. All rights reserved. - hosted by steinbruch.info GbR