CADian

Support

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

Support
- Products
- Download
- Support
- Partner Center
- About
Technical Support
- Community
- Technical Support
FAQ

FAQ · 2013.12.11 CADian VBA Sample Code - 9 [ Line Copy, Rotate ]
Private Sub Copy_and_Rotate() Dim myDoc As IntelliCAD.Document Dim myLine As IntelliCAD.Line Dim myStartPt As IntelliCAD.Point Dim myEndPt As IntelliCAD.Point Set myDoc = Application.ActiveDocument Set myStartPt = Library.CreatePoint(4, 4) Set myEndPt = Library.CreatePoint(7, 3) Set myLine = myDoc.ModelSpace.AddLine(myStartPt, myEndPt) myLine.Update "" Copy and rotate the line Dim copymyLine As IntelliCAD.Line Set copymyLine = myLine.Copy() copymyLine.Rotate myStartPt, 10 MsgBox "Rotated the copied line 10 radians." ThisDocument.ActiveViewport.ZoomExtents End Sub

FAQ · 2013.12.11

CADian VBA Sample Code - 9 [ Line Copy, Rotate ]

Private Sub Copy_and_Rotate()

Dim myDoc As IntelliCAD.Document
Dim myLine As IntelliCAD.Line
Dim myStartPt As IntelliCAD.Point
Dim myEndPt As IntelliCAD.Point

Set myDoc = Application.ActiveDocument
Set myStartPt = Library.CreatePoint(4, 4)
Set myEndPt = Library.CreatePoint(7, 3)
Set myLine = myDoc.ModelSpace.AddLine(myStartPt, myEndPt)
myLine.Update

"" Copy and rotate the line
Dim copymyLine As IntelliCAD.Line

Set copymyLine = myLine.Copy()
copymyLine.Rotate myStartPt, 10
MsgBox "Rotated the copied line 10 radians."
ThisDocument.ActiveViewport.ZoomExtents
End Sub

CADian VBA Sample Code - 10 [ Copy ] ..

CADian VBA Sample Code - 8 [ MText ] ..

Return to List

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

CADian

Products

Download

Support

Partner Center

About

Support