building a cad program
science_geek
Posts: 247
i want to build a cad program for the prop to be used to controll my cnc mill.·i would like it to be much like declaring a vector as far as drawing a line goes, you give it an x,y start, a direction, and a magnitude, but i also want to do depth but only on the 2d side so something like a different color representing depth, and which one to cut first. the only way i see this working is with·6 arrays, there would be quite a bit of info, so should i us a uSD card or is there enough ram to be able to store all this info, has anyone tried anything similar, any thoughts or help is appreciated
Comments
Leon
▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Amateur radio callsign: G1HSM
Suzuki SV1000S motorcycle
I think it's possible... Chip has even made mention of having a small schematic editor/simulator running completely from the Propeller. For storage though, I would go with a standard format ... what comes to mind for me is GDSii, but that's just the CAD world that I live in, there are certainly other CAD drawing formats that could be used. If you are interested, I have a GDSii parser that I wrote in Visual Basic that could easily be implemented on another programming platform... i.e. the Propeller that I could send your direction.
▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Beau Schwabe
IC Layout Engineer
Parallax, Inc.
▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Nyamekye,
▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
My Prop Info&Apps: ·http://www.rayslogic.com/propeller/propeller.htm
kye, I have already planned on using several props as im incorporating this into my A.N.A project, but i am using a serial display, so the graphics drawing would only use the data thats stored in the array and would only use one command to draw it all, dont know how long it would take, but i know there is a vsync command i could use to sync up and not erase the·whole screen,
rayman, it would be a great reward, cause who really has a cad program·on a device that is the size of your palm that·has sub programs that can·control basic·functions in my garage and on my go kart
would my vector array methods work, or is there a better·way to·do·this, i·use·cad all the time, but i dont generally understand all the·proggramming that goes into the, i have·coded a wire frame builder that would rotate and redraw a little square, but it was coded to draw all the lines in code,·and·thats my extent of graphics
This Visual Basic code will parse a GDSii standard file into human readable text
GDSiifunctions.bas
Attribute VB_Name = "Module1" Sub ReadGDS(FileName$) DesignMenu.Slider1.Visible = "True" Open FileName$ For Binary As 1 FileSize = LOF(1) Debug.Print "---------------------------------------" Debug.Print TestFile$ Debug.Print FileSize Debug.Print "---------------------------------------" DataSize = 0 While Seek(1) < FileSize And Sw1 = 0 Pcnt = Int((Seek(1) / FileSize) * 100) DesignMenu.Slider1.Value = Pcnt DataSize = TBSI - 4 Record = HexWord 'Debug.Print "Record Type -"; Record, "Record Size -"; DataSize ExitButton = DesignMenu.Slider1.Tag If ExitButton = "Slider Click" Then GoTo ExitSub End If Select Case Record Case "0000" 'End of File GoTo ExitSub Case "0002" 'HEADER Debug.Print Record, "GDS Version ="; Str$(TBSI) Case "0102" 'BGNLIB Debug.Print Record, BGNdata Case "0206" 'LIBNAME Debug.Print Record, "Library Name ="; Input(DataSize, #1) Case "0305" 'UNITS GridUnit = Str$(EBRN) MeterUnit = Str$(EBRN) Debug.Print Record, "Grid Unit ="; GridUnit Debug.Print , "MeterUnit ="; MeterUnit Case "0400" 'ENDLIB Debug.Print Record, "Library End" Case "0502" 'BGNSTR Debug.Print Record, BGNdata Case "0606" 'STRNAME Debug.Print Record, "Structure Name ="; Input(DataSize, #1) Case "0700" 'ENDSTR Debug.Print Record, "Structure End" Case "0800" 'BOUNDARY Debug.Print Record, "Boundary Start" Case "0900" 'PATH Debug.Print Record, "Path Start" Case "0A00" 'SREF Debug.Print Record, "Reference Structure Start" Case "0B00" 'AREF Debug.Print Record, "Array Start" Case "0C00" 'TEXT Debug.Print Record, "Text Start" Case "0D02" 'LAYER Debug.Print Record, "Layer ="; TBSI Case "0E02" 'DATATYPE Debug.Print Record, "Data type ="; TBSI Case "0F03" 'WIDTH Debug.Print Record, "Width ="; FBSI Case "1003" 'XY Debug.Print Record, "XY coordinates ="; XY(DataSize) Case "1100" 'ENDEL Debug.Print Record, "Element End" Case "1206" 'SNAME Debug.Print Record, "Referenced Structure Name ="; Input(DataSize, #1) Case "1302" 'COLROW Debug.Print Record, "Columns ="; TBSI Debug.Print , " Rows ="; TBSI Case "1400" 'TEXTNODE Debug.Print Record, "Not Used" Case "1500" 'NODE Debug.Print Record, "Node Start" Case "1602" 'TEXTTYPE Debug.Print Record, "Text Type ="; TBSI Case "1701" 'PRESENTATION Debug.Print Record, "Text presentation ="; PRESENTATION Case "1906" 'STRING Debug.Print Record, Input(DataSize, #1) Case "1A01" 'STRANS Debug.Print Record, "Text Transformation ="; STRANS Case "1B05" 'MAG Debug.Print Record, "Magnification Factor ="; EBRN Case "1C05" 'ANGLE Debug.Print Record, "Angular Rotation ="; EBRN Case "1F06" 'REFLIBS Debug.Print Record, "Reference Libraries ="; Input(DataSize, #1) Case "2006" 'FONTS Debug.Print Record, "Text Font ="; Input(DataSize, #1) Case "2102" 'PATHTYPE Debug.Print Record, "Path type ="; TBSI Case "2202" 'GENERATIONS Debug.Print Record, "Backup Copies ="; TBSI Case "2306" 'ATTRTABLE Debug.Print Record, "Attribute definition file ="; Input(DataSize, #1) Case "2406" 'STYPTABLE Debug.Print Record, "Unreleased Feature ="; Input(DataSize, #1) Case "2502" 'STRTYPE Debug.Print Record, "Unreleased Feature ="; TBSI Case "2601" 'ELFLAGS Debug.Print Record, ELFLAGS Case "2703" 'ELKEY Debug.Print Record, "Unreleased Feature ="; FBSI Case "2A02" 'NODETYPE Debug.Print Record, "Node Type ="; TBSI Case "2B02" 'PROPATTR Debug.Print Record, "Attribute Number ="; TBSI Case "2C06" 'PROPVALUE Debug.Print Record, Input(DataSize, #1) Case "2D00" 'BOX Debug.Print Record, "Box Start" Case "2E02" 'BOXTYPE Debug.Print Record, "Box Type ="; TBSI Case "2F03" 'PLEX Debug.Print Record, FBSI Case "3003" 'BGNEXTN Debug.Print Record, FBSI Case "3103" 'ENDEXTN Debug.Print Record, FBSI Case "3202" 'TAPENUM Debug.Print Record, "Tape number ="; TBSI Case "3302" 'TAPECODE Debug.Print Record, "Tape code ="; TBSI Case "3401" 'STRCLASS Debug.Print Record, "Cadence Internal ="; STRCLASS Case "3503" 'RESERVED Debug.Print Record, "RESERVED ="; Input(DataSize, #1) Case "3602" 'FORMAT Debug.Print Record, TBSI Case "3706" 'MASK Debug.Print Record, Input(DataSize, #1) Case "3800" 'ENDMASKS Debug.Print Record, "Mask End" Case "3902" 'LIBDIRSIZE Debug.Print Record, "Library Directory Size ="; TBSI Case "3A06" 'SRFNAME Debug.Print Record, "Spacing Rules file ="; Input(DataSize, #1) Case "3B02" 'LIBSECUR Debug.Print Record, "Access Control List ="; LIBSECUR(DataSize) Case "3C00" 'BORDER Debug.Print Record, "Border Start" Case "3D00" 'SOFTFENCE Debug.Print Record, "Soft fence Start" Case "3E00" 'HARDFENCE Debug.Print Record, "Hard fence Start" Case "3F00" 'SOFTWIRE Debug.Print Record, "Soft wire Start" Case "4000" 'HARDWIRE Debug.Print Record, "Hard wire Start" Case "4100" 'PATHPORT Debug.Print Record, "Path port Start" Case "4200" 'NODEPORT Debug.Print Record, "Node port Start" Case "4300" 'USERCONSTRAINT Debug.Print Record, "User constraint Start" Case "4400" 'SPACER ERROR Debug.Print Record, "Spacer error Start" Case "4500" 'CONTACT Debug.Print Record, "Contact Start" End Select If Mid$(Record, 1, 2) = "28" Then 'LINKTYPE Temp = Seek(1) Seek #1, Temp - 1 Debug.Print "28", "Unreleased Feature"; TBSI End If If Mid$(Record, 1, 2) = "29" Then 'LINKKEYS Temp = Seek(1) Seek #1, Temp - 1 Debug.Print "29", "Unreleased Feature"; FBSI End If DoEvents Wend ExitSub: Close #1 DesignMenu.Slider1.Visible = "False" DesignMenu.Slider1.Tag = "" End Sub Function BGNdata() Dim TempData(12) apm = "a" apa = "a" For N = 1 To 12 Temp = TBSI If N = 1 Or N = 7 Then Temp = Temp + 1900 If N = 4 Or N = 10 And Temp > 12 Then Temp = Temp - 12 If N = 4 Then apm = "p" If N = 10 Then apa = "p" End If TempData(N) = Trim$(Str$(Temp)) If Len(TempData(N)) < 2 Then TempData(N) = "0" + TempData(N) End If Next N Modify_Date = TempData(2) + "/" + TempData(3) + "/" + TempData(1) Modify_Time = TempData(4) + ":" + TempData(5) + ":" + TempData(6) + apm Access_Date = TempData(8) + "/" + TempData(9) + "/" + TempData(7) Access_Time = TempData(10) + ":" + TempData(11) + ":" + TempData(12) + apa Temp = Modify_Date + " " + Modify_Time + " -- " + Access_Date + " " + Access_Time BGNdata = Temp End Function Function EBRN() 'Eight Byte Real Number Dim Mantissa As Double Dim TempN As Double Dim B(7) B(7) = Asc(Input(1, #1)) B(6) = Asc(Input(1, #1)) B(5) = Asc(Input(1, #1)) B(4) = Asc(Input(1, #1)) B(3) = Asc(Input(1, #1)) B(2) = Asc(Input(1, #1)) B(1) = Asc(Input(1, #1)) B(0) = Asc(Input(1, #1)) Sign = 1 - (Int((B(7) And &H80) / &H80) * 2) Exponent = (B(7) And &H7F) - 64 Weight = 1 For N = 6 To 0 Step -1 For Bit_ = 7 To 0 Step -1 BitPosition = 2 ^ Bit_ Weight = Weight * 2 BitValue = Int((B(N) And BitPosition) / BitPosition) * (1 / Weight) Mantissa = Mantissa + BitValue Next Bit_ Next N TempN = (Sign * Mantissa) * (16 ^ Exponent) EBRN = TempN End Function Function ELFLAGS() D1 = Asc(Input(1, #1)) D0 = Asc(Input(1, #1)) DataSize = DataSize - 2 TemplateData = Int((D1 And 128) / 128) ExternalData = Int((D1 And 64) / 64) If TemplateData = 0 Then TD = "Template data is off" Else TD = "Template data is on" End If If ExternalData = 0 Then ED = "ExternalData data is off" Else ED = "ExternalData data is on" End If Temp = TD + " " + ED ELFLAGS = Temp End Function Function FBRN() 'Four Byte Real Number Dim Mantissa As Double Dim TempN As Double Dim B(3) As Byte B(3) = Asc(Input(1, #1)) B(2) = Asc(Input(1, #1)) B(1) = Asc(Input(1, #1)) B(0) = Asc(Input(1, #1)) Sign = 1 - (Int((B(3) And &H80) / &H80) * 2) Exponent = (B(3) And &H7F) - 64 Weight = 1 For N = 2 To 0 Step -1 For Bit_ = 7 To 0 Step -1 BitPosition = 2 ^ Bit_ Weight = Weight * 2 BitValue = Int((B(N) And BitPosition) / BitPosition) * (1 / Weight) Mantissa = Mantissa + BitValue Next Bit_ Next N TempN = (Sign * Mantissa) * (16 ^ Exponent) FBRN = TempN End Function Function FBSI() 'Four Byte Signed Integer D = Hex$(Asc(Input(1, #1))) C = Hex$(Asc(Input(1, #1))) B = Hex$(Asc(Input(1, #1))) A = Hex$(Asc(Input(1, #1))) FBSI = Val("&H" + D + C + B + A) End Function Function HexByte(D0) Temp = Hex$(D0) If Len(Temp) = 1 Then Temp = "0" + Temp HexByte = Temp End Function Function HexWord() D1 = Asc(Input(1, #1)) D0 = Asc(Input(1, #1)) HexWord = HexByte(D1) + HexByte(D0) End Function Function LIBSECUR(DataSize) JunkFiller = Input(DataSize, #1) LIBSECUR = "Access Control List" End Function Function PRESENTATION() D1 = Asc(Input(1, #1)) D0 = Asc(Input(1, #1)) Font_ = (D1 And 12) \ 4 Vert = (D1 And 48) \ 16 Horz = (D1 And 192) \ 64 Select Case Vert Case 0 VertJust = "Top" Case 1 VertJust = "Middle" Case 2 VertJust = "Bottom" End Select Select Case Horz Case 0 HorzJust = "Left" Case 1 HorzJust = "Center" Case 2 HorzJust = "Right" End Select Temp = "Font = " + Str$(Font_) + " " + VertJust + " " + HorzJust PRESENTATION = Temp End Function Function STRANS() D1 = Asc(Input(1, #1)) D0 = Asc(Input(1, #1)) XaxisReflect = (D0 And 1) AbsoluteMagnification = Int((D1 And 32) / 32) AbsoluteAngle = Int((D1 And 64) / 64) If XaxisReflect = 0 Then XR = "X-Axis is not reflected" Else XR = "X-Axis is reflected" End If If AbsoluteMagnification = 0 Then AM = "Absolute Magnification is off." Else AM = "Absolute Magnification is on." End If If AbsoluteAngle = 0 Then AA = "Absolute Angle is off." Else AA = "Absolute Angle is on." End If Temp = XR + " " + AM + " " + AA STRANS = Temp End Function Function STRCLASS() D1 = Asc(Input(1, #1)) D0 = Asc(Input(1, #1)) STRCLASS = "Cadence internal use only" End Function Function TBSI() 'Two Byte Signed Integer B = Hex$(Asc(Input(1, #1))) A = Hex$(Asc(Input(1, #1))) TBSI = Val("&H" + B + A) End Function Function XY(DataSize) Temp = "" While DataSize > 0 DataSize = DataSize - 8 tempX = Str$(FBSI) tempY = Str$(FBSI) Temp = Temp + "(" + tempX + "," + tempY + ")" Wend XY = Temp End Function▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Beau Schwabe
IC Layout Engineer
Parallax, Inc.
Post Edited (Beau Schwabe (Parallax)) : 6/3/2009 6:08:10 PM GMT
▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
My Prop Info&Apps: ·http://www.rayslogic.com/propeller/propeller.htm