CADian
LOOKING FOR
SOMETHING?
Top Searched
Frequently asked questions from CADian are provided in our FAQ Board.
Check your answers quickly.
FAQ
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 |
Business Name : Wizcore, Inc.
Address : 1009, 115, Gasan digital 2-ro, Geumcheon-gu, Seoul, Republic of Korea (08505)
CEO : Seung Hoon Park Business Registration Number : 105-81-74484
Sales : partner@cadian.com
Support : help@cadian.com
Tel : +82 2-323-0286
Fax : +82 2-2107-3286
Address : 1009, 115, Gasan digital 2-ro, Geumcheon-gu, Seoul, Republic of Korea (08505)
CEO : Seung Hoon Park Business Registration Number : 105-81-74484
Sales : partner@cadian.com
Support : help@cadian.com
Tel : +82 2-323-0286
Fax : +82 2-2107-3286
Copyrightⓒ Wizcore, Inc. All Rights Reserved.