Request
Quote
Buy now
Register
Product
Remote
Support

Support

As evidenced by over 30 years of development history, trust-worthy Korean CAD, CADian!

FAQ · 2013.12.11
CADian VBA Sample Code - 6 [ Leader ]
Dim myDoc As IntelliCAD.Document
Dim myLeader As Leader
Dim myPoints As Points
Dim pt As Point

Me.Hide

Set myDoc = ActiveDocument
Set myPoints = Library.CreatePoints
Set pt = Library.CreatePoint(1, 3, 0)

myPoints.Add
myPoints(myPoints.Count).x = pt.x
myPoints(myPoints.Count).y = pt.y
myPoints(myPoints.Count).z = pt.z
Set pt = Library.CreatePoint(3, 4, 0)

myPoints.Add
myPoints(myPoints.Count).x = pt.x
myPoints(myPoints.Count).y = pt.y
myPoints(myPoints.Count).z = pt.z
Set myLeader = ThisDocument.ModelSpace.AddLeader(myPoints, "testldr", 2)
myLeader.Update

Me.Show
Previous Article
CADian VBA Sample Code - 7 [ Insert Block ] ..
Next Article
CADian VBA Sample Code - 5 [ Circle ] ..
Return to List

Added to cart.

VIEW CART

Please sign in first.

JOIN