Measure or divide command in vba

[Anonymous]

I want to insert a block along a polyline like measure or divide command. Is there a way to use these commands in vba ? Sukru Baykan

[tproby]

Also need this functionality but looking at other posts, it seems you have to use LISP.

[truss85]

first of all

you need to insert block command I send an example...

then you specified the coords. of the where the block inserted.

along a polyline I suggest get coordinate method.

if you describe your problem with details, I can help with further imformation.

here is insert block example which already existed in acad

sub is add block to (0,0,0) coordinate, you can modfiy to polyline coordinates..

Sub block_ekleme()

    Dim blocknesnesi As AcadBlockReference

    Dim kesisim(0 To 2) As Double

    kesisim(0) = 0: kesisim(1) = 0: kesisim(2) = 0

    Set blocknesnesi = ThisDrawing.ModelSpace.InsertBlock(kesisim, "blo", 1#, 1#, 1#, 0)

    ZoomAll

End Sub

[bojko108]

it is fairly easy to do mathematically. Here is one example. It is maybe little complex 🙂 but will give you directions how to do it. There is a way with SendCommand() method but I don't know how it works. Look in Help Menu there is plenty of examples

[kave79]

 Nice job, however if a segment of poly line is arc you measure the distance of the cord not the real distance on curve.