KetcauSoft


Đăng trả lời 
 
Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
rai thep theo khoan cach tao tren form
03-29-2016, 11:12 AM
Bài viết: #1
rai thep theo khoan cach tao tren form
Dear Anh Hùng và các Anh Chị diển đàn
Em làm theo video clip của anh Hùng và đã dựng được mặt cắt thang, nhưng chưa vẽ được các node thép,
Em muốn tạo trên form khoảng cách thép cần bố trí cho chiếu nghĩ dưới , trên và đoạn xiên thì làm như thế nào, mong các Anh hổ trợ.
Với lại add text cho thanh thép theo phương thức như thế nào các Anh chỉ em với.
Xin cảm ơn Anh Hùng và diễn đàn.


Tệp đính kèm
.zip  vidu1.zip (Kích cỡ: 212.37 KB / Tải về: 62)
Tìm tất cả bài viết của thành viên này
Trích dẫn bài viết này trong bài trả lời
 Thanks given by: usoxusa , Ronnietupeed , Auguststaug , Waelvora , MatthewSOOM , MathewHep , WhitneySick , franklinor60 , Robertbofyy , brendafv69 , Edwardhoms , allieyf2 , StephenRit , JordanSoroqw , ElbertSasy , elaawatiu , BarneyFut , roybx18 , Darrylteek , MichaelVums , franciskx16 , Hju88tevenner , Wilbertotma , WilliamLync , MonroeSi , Goxdbz , clintonbm3 , PHRonnieCype , Leenug , Jeffreyhot , HerbertKl , nanniepf3 , MarvinPhema , JamesMat , Geraldnab , shawnyd16 , Killianer , ireqifosiv , antoniayd18 , EdwardMano , penelopeop4 , isabelpm2 , rosanneev16 , Ugrasaljab , pearlnf3 , augustade2 , curtispj16 , Edwardapex , irmaxt11 , PeraturKr , elsaxw60 , cliftonmb11 , leroyoc1 , jewellth1 , LucciLed , diannaat69 , maryannemn2 , cathypn60 , yibazuxoma , Egorkeymn , pearljy16 , henriettadf4 , corrinetf18 , jocelyntv69 , tabathalk2 , sherriecl60 , uxemikeya , janineeg4 , Karenrhinee , SabinaJow , Agnesrhinee , Williamtrumb , hattiepm11 , Davidfrisp , VandornNume , BrianNah , KaxaLed , Robertplets , kimnu11 , elisart11 , Craigpsymn , rayjg1 , josefinasz3 , Aonaldacaxy , arlinebu60 , JosephZep , franyt1 , Orionvic , christikd2 , StevenSeene , Igorgonge , Svenol , Michaelkar , LarryNiz , Aaronoriex , abicodap , margaritaiw16 , lawrencely18 , marquitafh69 , aliciaps18 , JulioHat , loragv1 , olliewe18 , karinxn69 , olivecc60 , Michaelacupe , douglaszr1 , gracielapo60 , dreplay , oorifidusu , janellecr60 , alfredodg60 , Gabrielsoows , ronaldyt4 , trinayg11 , ginauj60 , lapedGOT , Robertver , williebh1 , martinkx60 , marionds18 , JanyceHaith , wademf3 , Rasulmt , harveyll1 , kerryue4 , bettyevx18 , nancyad60 , FrankAppom , lakishavi69 , ginayf3 , marionnh2 , Massageeneprok , graciekv60 , erinug2 , maureenfx69 , michaelcz2 , adelineto11 , geraldra60 , corneliabv16 , jocelynno11 , erlNica , imeldayx2 , Janaurini , lucindale69 , evangelinecv1 , Jamesboose , corinexc1 , selmaug4 , jeffpm60 , crystalmx60 , GeorgepiseE , glenil69 , clintonvq3 , Timothyzip , nanetteyp16 , brandontg4 , lirEa , jewelxw16 , caitlinth3 , Raymondraing , erlEa , betteep16 , Richardmumn , RobertNigue , ruthieei18 , jowp60 , Groucksm , emilyms11 , Anthonyhok , irisdh11 , philipds4 , milagrosjq3 , Grompelhep , melvakr1 , triciaud2 , benjaminik16 , deirdreom16 , mavisjt16 , manuelakh60 , WHETTEDIA , janafv3 , miapb69 , malyEa , FrancisPiode , herushki , besteschoenen , Stavetlerorge , brankFib , GrierClilk , Tipplersi , mageadlola
03-29-2016, 11:30 AM
Bài viết: #2
RE: rai thep theo khoan cach tao tren form
Em đã viết được phương pháp rãi thép phương ngang, nhưng phương xiên thì cho tọa độ chưa chính xác, các Anh cho ý kiến giúp với.

sau đây đoạn trong molMain.vb của em :



Sub Ve_mat_cat_thang(ByVal x0, ByVal y0, ByVal L1, ByVal L2, ByVal L3, ByVal H, ByVal T, ByVal So_Bac)
Dim hb As Decimal = H / So_Bac
Dim bb As Decimal = L2 / (So_Bac - 1)
Dim x1 As Decimal = 0
Dim y1 As Decimal = 0
Dim x2 As Decimal = 0
Dim y2 As Decimal = T
Dim x3 As Decimal = L1
Dim y3 As Decimal = T
Dim x4 As Decimal = L1 + L2
Dim y4 As Decimal = T + H - hb
Dim x5 As Decimal = L1 + L2
Dim y5 As Decimal = T + H
Dim x6 As Decimal = L1 + L2 + L3
Dim y6 As Decimal = T + H
Dim x7 As Decimal = L1 + L2 + L3
Dim y7 As Decimal = T + H - T
Dim a As Decimal = (y3 - y4) / (x4 - x3)
Dim b As Decimal = 1
Dim c As Decimal = (x3 * y4 - x4 * y3) / (x4 - x3)

Dim y8 As Decimal = T + H - T
Dim x81 As Decimal = (T * (a ^ 2 + b ^ 2) ^ 0.5 - y8 * b - c) / a
Dim x82 As Decimal = (-T * (a ^ 2 + b ^ 2) ^ 0.5 - y8 * b - c) / a
Dim x8 As Decimal = Math.Max(x81, x82)

Dim y9 As Decimal = 0
Dim x91 As Decimal = (T * (a ^ 2 + b ^ 2) ^ 0.5 - y9 * b - c) / a
Dim x92 As Decimal = (-T * (a ^ 2 + b ^ 2) ^ 0.5 - y9 * b - c) / a
Dim x9 As Decimal = Math.Max(x91, x92)
Add_line(x1 + x0, y1 + y0, x2 + x0, y2 + y0)
Add_line(x2 + x0, y2 + y0, x3 + x0, y3 + y0)
Add_line(x3 + x0, y3 + y0, x4 + x0, y4 + y0)
Add_line(x4 + x0, y4 + y0, x5 + x0, y5 + y0)
Add_line(x5 + x0, y5 + y0, x6 + x0, y6 + y0)
Add_line(x6 + x0, y6 + y0, x7 + x0, y7 + y0)
Add_line(x7 + x0, y7 + y0, x8 + x0, y8 + y0)
Add_line(x8 + x0, y8 + y0, x9 + x0, y9 + y0)
Add_line(x9 + x0, y9 + y0, x1 + x0, y1 + y0)
Add_line(x1 + x0 + 25, y1 + y0 + 30, x2 + x0 + 25, y2 + y0 - 25, "Layer_Thep")
Add_line(x2 + x0 + 25, y2 + y0 - 25, x9 + x0 + T + 25, y3 + y0 - 25, "Layer_Thep")
Add_line(x1 + x0 + 25, y1 + y0 + 25, x9 + x0 - 25, y9 + y0 + 25, "Layer_Thep")
Add_line(x9 + x0 - 25, y9 + y0 + 25, x8 + x0 - 25, y8 + y0 + 25, "Layer_Thep")
Add_line(x3 + x0 - T + 25, y3 + y0 - T + 25, x4 + x0 + bb, y5 + y0 - 25, "Layer_Thep")
Add_line(x5 + x0 + 25, y5 + y0 - 25, x6 + x0 - 25, y6 + y0 - 25, "Layer_Thep")
Add_line(x6 + x0 - 25, y6 + y0 - 25, x7 + x0 - 25, y7 + y0 + 25, "Layer_Thep")
Add_line(x5 + x0 + 25, y5 + y0 - 25, x4 + x0 + 25, y4 + y0 - T, "Layer_Thep")
Add_line(x4 + x0 + 50, y8 + y0 + 25, x7 + x0 - 25, y7 + y0 + 25, "Layer_Thep")
'Add_SNode(x1 + x0 + 50, y1 + y0 + 50, "Layer_Thep")
Dim a1 As Decimal = x9 - x1
Dim a2 As Decimal = x6 - x5
Dim a3 As Decimal = x4 - x3
Dim a4 = y4 - y3
Dim x01, y01 As Double


Dim x As Double
Dim mang(100) As Integer
For i As Integer = 1 To 100
mang(i) = i

If 150 * mang(i) < a1 Then
x = 150 * mang(i)
Add_SNode(x + x0 + 40, y1 + y0 + 40, "Layer_Thep")
Add_SNode(x + x0 + 40, y2 + y0 - 40, "Layer_Thep")

End If
Next
Add_SNode(x1 + x0 + 40, y1 + y0 + 40, "Layer_Thep")
Add_SNode(x2 + x0 + 40, y2 + y0 - 40, "Layer_Thep")


For i1 As Integer = 1 To 100
mang(i1) = i1
If 150 * mang(i1) < a2 Then
x = 150 * mang(i1)
Add_SNode(x5 + x + x0 + 40, y5 + y0 - 40, "Layer_Thep")
Add_SNode(x5 + x + x0 + 40, y5 + y0 - T + 40, "Layer_Thep")

End If
Next
Add_SNode(x5 + x0 + 40, y5 + y0 - 40, "Layer_Thep")
Add_SNode(x5 + x0 + 40, y5 + y0 - T + 40, "Layer_Thep")



'Math.Sqrt(x01 ^ 2 + y01 ^ 2) = 150
Dim k1 = Math.Atan(hb / bb)
Dim k2 = Math.Sin(k1)
Dim k3 = Math.Cos(k1)
For i2 As Integer = 1 To 100
mang(i2) = i2

If k2 * 150 * mang(i2) < H And k3 * 150 * mang(i2) < L2 Then
x01 = k3 * 150 * mang(i2)
y01 = k2 * 150 * mang(i2)

'If bb / x01 = hb / y01 And Math.Sqrt(x01 ^ 2 + y01 ^ 2) = 150 Then


Add_SNode(x01 + x9 + x0 + 50, y01 + y9 + y0 + 60, "Layer_Thep")
Add_SNode(x3 + x01 + x0 + 50, y3 + y01 + y0 - 30, "Layer_Thep")

End If
Next
Add_SNode(x3 + x0 + 40, y3 + y0 - 40, "Layer_Thep")
Add_SNode(x9 + x0 + 40, y9 + y0 + 40, "Layer_Thep")



End Sub
Tìm tất cả bài viết của thành viên này
Trích dẫn bài viết này trong bài trả lời
 Thanks given by: Haelvora , Flomminna , WhitneySick , CharlesCafwe , friedaxv2 , GordonCit , louellaqz11 , RobertPaw , Estebanpevymn , Williamnesji , anthonyfh4 , kapedGOT , maggiewg69 , alenushkapn , Samuellync , lilaic4 , marshallua3 , MichaelVani , TimothyLep , rebarv2 , BarneyFut , StephenRit , Dennishar , Anthonypladf , Nathanlar , curtiscr18 , erumuheki , ConnorLell , tarebojahep61 , christywk69 , triciamb1 , betteyh1 , NikolayAwado , Timothyriz , Josephhalk , marianneyk2 , ukolaxabozos , waynegi11 , Vakmoth , rossdf16 , JoshuaBup , Vicwppxnc , rosalieit4 , shawnaxn3 , Xewrtyuoipye , juvesuxahud , DavidHoory , Charlesrord , sherryfu3 , elsaxw60 , elsamh2 , sherylxh18 , HaroldBow , esperanzasv3 , rosalindalj2 , jacklynde69 , JosephVak , lorriedt2 , robinmr18 , Arokkhkn , abigailcq69 , Karenrhinee , KaxaLed , KethAmbuh , wilmaak16 , LiozJic , glenxc11 , jannasb3 , lonnierq11 , idawgookgikol , uwecumeyujale , inasq3 , ZoxxyDaf , BenjaminAPa , RuneSype , MamukDalf , eirNica , ErnestEt , noemipn11 , EmilyHoM , JimmyJet , LiluunaNom , KXRussell , dracossumo , Abudhabi1987 , safeway-pharmacy-refill , kristinqs1 , jocelynbj4 , JustinChemi , AsketsReolf , isabelzu11 , rosannemu69 , leighuu18 , arlinebu60 , nicholasjc18 , martahu69 , juliettefa1 , deenazi3 , joshuaae3 , Adussellmus , Thomasodofe , JeffreyKic , StroySnabdew , rowenajl16 , sofiaut4 , janettepl18 , JixxClige , jordanyw1 , alexandrang11 , Larryblomb , CarlosOt , HollisInOwl , lirEa , JasperTiz , pattyfn16 , Randallgab , GeraldZen , marciii16 , marshalllb60 , lakishago11 , dennisjb18 , ThoraldSync , Larrytab , guadalupeqw1 , everettrb3 , Massageeneprok , Magiccag , Foereadiore , maureenfx69 , brendabi3 , jaredpc18 , Lexusmavavto , anastasiarq18 , Romanmef , lottierc60 , erlEa , WHETTEDIA , ianlz2 , Williamnoila , calvintf60 , mavisjt16 , beckypu18 , elizauk18 , PyranVew , pollyrt1 , coiplisfacile , janiswv3 , margona18 , terryzh11 , dustinqe60 , annpw69 , Kevindielo , erlNica , Armandocerce , lenorecc60 , Walterwhors , sophiekl4 , GheNigue , chandrauu18 , maryannht60 , tashakj16 , RobertNigue , napedGOT , nellieba2 , Grouck8y , mariawn69 , imaniossy , Essaypak , ivanwy3 , hopesz4 , jeffpm60 , cathyox11 , alfredomg11 , sethmr60 , janellkv60 , bobwg18 , brendakk1 , juanitatf69 , HotherDat , jamiegj4 , JesseTer , Flamemnn , Richardmumn , florenceko3 , kaseydy60 , samma3 , leonardes1 , estellaxl69 , coletteki16 , MerlinThoum , harriettec16 , KonradRat , Josephblold , CpgtsLit , keithpu60 , darGlult , mageadlola , RobcrtVop , cinfescict , GrierClilk
03-30-2016, 08:22 AM (Bài viết đã được chỉnh sửa: 03-30-2016 08:56 AM bởi Ho Viet Hung.)
Bài viết: #3
RE: rai thep theo khoan cach tao tren form
Việc tính toán tọa độ Node thép đơn giản như sau em ạ
Giả sử điểm đầu là X1,Y1; điểm cuối là X2,Y2;

Góc nghiêng của đường này là Anfa = Math.Atan2(Y2-Y1,X2-X1)

Tọa độ của điểm thứ i sẽ là:

Xi = X1 + (i-1)*s*Math.cos(Anfa)
Yi = Y1 + (i-1)*s*Math.sin(Anfa)

Trong đó s là khoảng cách giữa các Node thép

Công ty TNHH Kết Cấu WEFLY - http://www.wefly-str.com

[Hình: p2015102801.png]
Tham quan website của thành viên này Tìm tất cả bài viết của thành viên này
Trích dẫn bài viết này trong bài trả lời
 Thanks given by: Bypeflape , RonaldLold , inape60 , nohnigeToffny72 , Waelvora , sybilvg1 , GilbertCrerbi , Arthurwara , sabrinasj69 , RobertPaw , WilliamDity , deloriskl3 , Michaelgah , Eddidulp , Samuelnica , lessiekp18 , rosettavv16 , Alexisscog , nohnigeToffmk76 , ursulapn1 , erinug2 , Alonzosony , ibokibqusar , serenaew60 , wayneuw4 , Lestergell , mildredqm69 , NikolayAwado , petrauu1 , mamalig , Clintoonsr , Karenrhinee , Agnesrhinee , emqurowfy , FosterLop , estellaul60 , Ronaldacaxy , kenic69 , JoygeLed , ASyncNimi , MatveyBrere , donnakt18 , Gansalfes , linaca11 , Alekseymew , eileenvk16 , Laverneunugh , belindant1 , aribuhoacez , elisaze60 , robertaev4 , sethmr60 , marvazd16 , Williambrurl , lakeishaoq4 , roxietw2 , calvinge69 , deannapv69 , cathysi2 , LundiLed , Davidskype , bethanyue4 , CharlieEn , Joshuacaw , aliciazm16 , yttqktqa58 , bonnieut1 , HarryRut , KaxaLed , Lamontcek , brianaik1 , Kerthdown , xzviuomd82 , Charlesknimi , Eugenekef , Husecyscounse , ThomasGeomo , enribijaqtuu , sharlenewp18 , ThomasDify , Edgarreoda , Yussufsom , terryem3 , Melvingog , Georgecok , LiluunaNom , jocelynbj4 , RobertoTroni , Shawnver , JanetaZEK , lindseyzk60 , robertogv2 , friedasj4 , Belaljerve , FraserSt , lesleypa3 , joleneds4 , Davidevito , Gabrielsoows , NathanVab , freidamt60 , eloisemm2 , ceceliaos16 , nancyad60 , CarltonDor , lucindale69 , Stevenlow , christianap4 , anniesx1 , lyndaup1 , stefanierk69 , FrankAppom , DouglasRough , ernand18 , michellekg4 , Charlessulge , lulalw18 , valeriaxq18 , gingercz4 , nataliahg4 , ellendn18 , byronql69 , RichardEmoms , Agata@Fah , sherylxh18 , marshafz2 , inezlg1 , michaelcz2 , DominizHah , geraldra60 , lessiedj3 , rodneygm2 , Walterwhors , RichardTruse , josiecb16 , aurorabz4 , gayqp4 , mathewje69 , miame3 , elainemz11 , cassandraiz60 , jaimexg11 , Thomasfag , ameliare69 , Williamnib , ericjl1 , wallacegq69 , margaretgm3 , elinorkc11 , janielz18 , JamensTaf , kimberleyiq69 , rosewq4 , beulahiq1 , ivanye69 , tyronepz69 , AustinNew , casandratj16 , gennick[Kifiquqibunoocgi] , altheasd16 , pearlhz4 , simonezv4 , sabrinaxp3 , bryanqz3 , kirstenpl2 , ceciliazo11 , ronuk2 , jaimegh3 , glennai2 , friedaxv60 , rhodamc18 , rosariogj60 , chandrauu18 , lelahb69 , isaacgy2 , patriciaoa69 , sergioac18 , vernavd16 , brendakk1 , jonyv4 , HotherDat , deirdreom16 , staceynf3 , marianapu4 , magdalenawq18 , yeseniayi2 , clarissaxg16 , leonardes1 , write my essay , margojt16 , carmelalv11 , earnestinezt16 , earlenehs1 , mageadlola , cinfescict , herushki , brankFib
03-30-2016, 07:18 PM
Bài viết: #4
RE: rai thep theo khoan cach tao tren form
Anh chỉ em truyền sub tính khoảng cách s vào 3 textbox a1,a2,a3 với a1 là khoảng cách nodes thép s1 chiếu nghỉ dưới, a2 ,a3 tương ứng với đoạn xiên và chiếu nghỉ trên,3
Nút a1,a2,a3 em tạo thêm trênn form, Anh chỉ giúp function cho 3 nút này nhe, cảm ơn Anh .
Tìm tất cả bài viết của thành viên này
Trích dẫn bài viết này trong bài trả lời
 Thanks given by: Stavetlerorge , usoxusa , Andrewcype , Raelvora , MathewHep , isaaczj3 , Estebanpevymn , rondavo69 , colettekq16 , Richardwath , Edwardtutjh , lexniksonlolcog , MichaelVums , cathydc3 , WilliamDity , nelsonch2 , elvirall18 , Trevoremot , Nathanlar , Edwardhoms , RaymondTeef , Inogpi , MichaelKila , ThomasNaf , BHEzekielCype , ThomasDrep , aurorafi11 , virgierj11 , jacquelinekq16 , iyuzovuquarek , TysonHycle , jacklyngx1 , Studbict , enixotanuga , Pranckquof , sherihi11 , Bonaldacaxy , CamerLed , aurorakj1 , teresaay11 , franceslf60 , vondanx60 , DonaldAdab , leticianj60 , enriquevt3 , charityfc69 , marcgf2 , Josephhalk , HenryCJ , nvyipmib66 , mirandafg18 , fredbi60 , Thomasdep , heidijq3 , kelliele11 , Melvingog , elisaze60 , nikBubsymnpaussy , Grompelrisk , annmarieob1 , LundiLed , LucciLed , brianasm4 , FelixBem , HaroldBow , thelmaxh1 , aishaaq4 , chrystallx1 , olgawt4 , jimmieyx3 , Husecyscounse , JosephVak , Hubseshobre , odessakh4 , Rozhovsr , Matthewcip , bonnieut1 , Juliusfen , Phinctsm , ZoxxyDaf , RonnieHop , JosephZep , lindaym2 , marissabu2 , Anthonyner , SusanDaymn , dracossumo , harriettpz11 , AntonZZoxibe , lupeje60 , Donaldvoca , erlEa , sidneyma60 , meganfp1 , sylviafp60 , thomasvu60 , melodyxt2 , marshallpo18 , jaimeja60 , lyndaup1 , TravisRop , ClintonEmene , AlexeyVom , AnthonySek , noelleno69 , tessaub18 , JanyceHaith , RichardNix , robinvc18 , corneliaqk11 , Belaljerve , terisa11 , alexisva69 , maiew1 , JulioTrila , amyct2 , everettrb3 , Charlessulge , eunicerg69 , Bradleylon , RichardEmoms , Cecilnig , gingerwl11 , WHETTEDIA , friedasj4 , janafv3 , brendafv69 , gayqp4 , corinexc1 , savannahud16 , RobertNigue , saundraym3 , franyt1 , JimmyJet , RichardTruse , lilianaev60 , mavisbo11 , rebeccauj18 , randallsh16 , sharronap16 , GeorgepiseE , HattieTwins , bobep69 , anniecn16 , fernandoos2 , myrawq18 , davegr16 , dianasu16 , janiswv3 , terryzh11 , trudypw1 , kristihf60 , Geraldsoodo , anastasiarq18 , dionneln60 , kathietv1 , nancyad60 , simonezv4 , roxieia1 , emilygx16 , malyEa , jackpr1 , jessieyt4 , adayy1 , brankFib , ricardoeg2 , maudeid3 , Wenaerorge , estelaxm69 , lillianaj2 , darGlult , marciajh60 , alfredomg11 , candicecd18 , dennisxd3 , carolexy60 , eulapa11 , sadiedx11 , crystalmd3 , ramonapy69 , dorothyme60 , juanitatf69 , jamiegj4 , sophiabd3 , Dinoincasse20 , Adobe Creative Suite , florenceko3 , angelate60 , leonardes1 , Adolveay , angeliaed60 , imaniossy
Đăng trả lời 


Di chuyển nhanh:


Những người đang xem chủ đề này:
1 khách

Trở về đầu trangTrở lên trên