Ðề: 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

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

đồ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

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

sorry đã làm các bác mất hứng. các bác nghiên cứu tiếp đi

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

để 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 ).

Ðề: 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

Ðề: 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.