a perpandeculaire block to a line.

[Anonymous]

Does any one know or have a way to insert a block and make it perpendicular to a line, for extrusion purpose?
Thanks

[Anonymous]

[code]
Sub NormalToline(L As AcadLine)

Dim B As AcadBlockReference
Dim N(2) As Double
Dim E, S
Set L = EntSel
E = L.EndPoint: S = L.StartPoint
N(0) = E(0) - S(0): N(1) = E(1) - S(1): N(2) = E(2) - S(2)

Set B = ThisDrawing.ModelSpace.InsertBlock(L.StartPoint, "a", 1, 1, 1, 0)
B.Normal = N
B.InsertionPoint = L.StartPoint

End Sub
[/code]

[Anonymous]

thank you very much.
actually, I just came up to your solution using delta propriety, so you confirmed what I was thinking,
thank you for your help.

[Anonymous]

The delta property is not always correct, give it a wide berth.

[Anonymous]

I'll go with your proposal
thanks a lot