topic Re: Measure or divide command in vba in VBA Forum

Measure or divide command in vba

Anonymous — Thu, 07 Apr 2005 06:53:45 GMT

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

Re: Measure or divide command in vba

Anonymous — Thu, 24 Feb 2011 18:23:57 GMT

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

Re: Measure or divide command in vba

Anonymous — Fri, 25 Feb 2011 07:19:49 GMT

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

Re: Measure or divide command in vba

Anonymous — Fri, 25 Feb 2011 11:30:12 GMT

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

Re: Measure or divide command in vba

Anonymous — Sun, 09 Aug 2015 03:00:25 GMT

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