Thông báo

Collapse
No announcement yet.

Nhờ các cao thủ VBA giúp cho

Collapse
X
 
  • Lọc
  • Giờ
  • Show
Clear All
new posts

  • Nhờ các cao thủ VBA giúp cho

    Mình muốn vẽ 1 hình chữ nhật nhưng 4 góc là cung tròn (cốt đai dầm cột) nhưng không biết có cách nào nhanh và hay. Xin các cao thủ VBA chỉ giáo, mình đã nghiên cứu nhưng chưa ra. Cám ơn!

  • #2
    Ðề: Nhờ các cao thủ VBA giúp cho

    bạn muốn vẽ trong cad à
    trong cad đã có sẵn tuỳ chọn khi vẽ bằng lệnh rec
    chọn f

    Ghi chú


    • #3
      Ðề: Nhờ các cao thủ VBA giúp cho

      Nguyên văn bởi ThangCoi
      Khi vẽ Rec trong lệnh CAD thực chất là bạn vẽ một LWPOLYLINE 4 cạnh. Lên trong VAB không có khái niệm AcadRectang. Bạn có thể vẽ các LWPOLYLINE và ARC cùng điểm
      đồng ý với bác. nhưng kỹ sư ko nên tốn thời gian cho việc vẽ vời. nếu bác muốn làm phần mềm thì nghiên cứu. hehe tốn tg. làm việc khác kiếm tiền nhiều hơn. thói quen của dân Việt Nam chúng ta là hay om đòm. Biết rộng thôi, đừng biết sâu làm gì. biết rộng để làm quản lý---> money nhiều hơn
      "Imagination is more important than knowledge" ALBERT EINSTEIN

      Ghi chú


      • #4
        Ðề: Nhờ các cao thủ VBA giúp cho

        Nguyên văn bởi ThangCoi
        Tôi không hiểu ý bạn nói ! Bạn có thể nói rõ nghĩa được không !
        sorry đã làm các bác mất hứng. các bác nghiên cứu tiếp đi
        "Imagination is more important than knowledge" ALBERT EINSTEIN

        Ghi chú


        • #5
          Ðề: Nhờ các cao thủ VBA giúp cho

          Nguyên văn bởi PhanTuHuong
          Điều quan trọng: nếu bạn muốn làm ra 1 cái gì thì phải có kiến thức về cái đó đã, tức là phải biết VBA và gửi code lên diễn đàn. Khi đó mọi người giúp đỡ dễ dàng hơn.
          để vẽ được bạn có thể gọi lệnh vẽ trong VBA bằng dòng lệnh sau đó...
          ví dụ : vẽ dòng line :
          điểm1(0 to 2) as double
          điểm2(0 to 2) as double
          thisdrawing.sencommand "Line " (sau Line phải để 1 dấu cách)
          thisdrawing.sencommand " điểm1 & scrt & điểm2"
          ghi chú : Scrt là lệnh thay lệnh enter (không nhớ lắm có phải lệnh enter là scrt không ).

          Ghi chú


          • #6
            Ðề: Nhờ các cao thủ VBA giúp cho

            Đây là một ví dụ để "uốn cong" PolyLine

            Sub Example_SetBulge()
            ' This example creates a lightweight polyline in model space.
            ' It then finds and changes the bulge for a given segment.

            Dim plineObj As AcadLWPolyline
            Dim points(0 To 11) As Double

            ' Define the 2D polyline points
            points(0) = 1: points(1) = 1
            points(2) = 1: points(3) = 2
            points(4) = 2: points(5) = 2
            points(6) = 3: points(7) = 2
            points(8) = 4: points(9) = 4
            points(10) = 4: points(11) = 1

            ' Create a lightweight Polyline object in model space
            Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
            ZoomAll

            ' Find the bulge of the third segment
            Dim currentBulge As Double
            currentBulge = plineObj.GetBulge(3)
            MsgBox "The bulge for the third segment is " & plineObj.GetBulge(3), , "SetBulge Example"

            ' Change the bulge of the third segment
            plineObj.SetBulge 3, -0.5
            plineObj.Update
            MsgBox "The bulge for the third segment is now " & plineObj.GetBulge(3), , "SetBulge Example"

            End Sub

            Tuy nhiên tôi thấy method này hơi khó dùng
            Công ty Cổ phần kỹ thuật công trình- Thương mại C.N.C.C
            Email : cncc.jsc@gmail.com

            Ghi chú


            • #7
              Ðề: Nhờ các cao thủ VBA giúp cho

              Cám ơn mọi người đã góp ý giúp đỡ, nhất là bác PMXD.
              Last edited by AutumnHeart_1982; 10-12-2007, 06:18 PM.

              Ghi chú

              erotik film izle Rus escort gaziantep rus escort
              deneme bonusu veren siteler deneme bonusu deneme bonusu veren siteler
              bahis siteleri
              hd sex video
              Mobilbahis
              antalya escort bayan
              gaziantep escort
              betpas güncel link
              gaziantep escort
              bonus veren siteler
              pinbahis pinbahis dizitune.com
              bostanci escort pendik escort
              İstanbul Escort
              Car Fuck XXX Мужик отчаянно долбит в жопу шмеля sexo gay gratis xxxx
              betbonusking.com deneme bonusu
              deneme bonusu veren siteler deneme bonusu veren siteler bonus veren siteler
              güvenilir casino siteleri
              Kacak iddaa Siteleri
              ümraniye escort sancaktepe escort
              quixproc.com
              Small tits girlfriend fucking pussy xxx com hindi Beatriz is young a new in porn Real adult sex with teen babe xxx
              casino siteleri
              deneme bonusu veren siteler
              streameast
              alanya escort
              bahis siteleri
              konya escort
              kayseri escort
              Working...
              X