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 - 2 [ Set Paper Size ]
Private Sub CommandButton2_Click()
Dim myDoc As IntelliCAD.Document
Dim Limit_Points As points
Dim Lower_Point As Point
Dim Upper_Point As Point

Set myDoc = ActiveDocument
Set Limit_Points = Library.CreatePoints

Set Lower_Point = Library.CreatePoint(0, 0, 0)
Set Upper_Point = Library.CreatePoint(70000, 50000, 0)

Limit_Points.Add
Limit_Points(Limit_Points.Count).x = Lower_Point.x
Limit_Points(Limit_Points.Count).y = Lower_Point.y
Limit_Points(Limit_Points.Count).z = Lower_Point.z
Limit_Points.Add
Limit_Points(Limit_Points.Count).x = Upper_Point.x
Limit_Points(Limit_Points.Count).y = Upper_Point.y
Limit_Points(Limit_Points.Count).z = Upper_Point.z

ThisDocument.Limits = Limit_Points
End Sub
Previous Article
CADian VBA Sample Code - 3 [ ARC ] ..
Next Article
CADian VBA Sample Code - 1 ..
Return to List

Added to cart.

VIEW CART

Please sign in first.

JOIN