hey.. i have a question regarding t

[keeyean]

hey.. i have a question regarding the code below..
i can draw the line in ACAD_ISO02W100...??
can someone correct for me??

Set acadApp = GetObject(, "autoCAD.application&quot
Set acadDoc = acadApp.activedocument
Set modelspace = acadDoc.modelspace

Dim PLine2Obj As Object
Dim Points2(0 To 14) As Double

EWNS = -315
Points2(0) = -513.8151: Points2(1) = 10 + EWNS: Points2(2) = 0
Points2(3) = -493.8151: Points2(4) = 10 + EWNS: Points2(5) = 0
Points2(6) = -493.8151: Points2(7) = 100 + EWNS: Points2(8) = 0
Points2(9) = -513.8151: Points2(10) = 100 + EWNS: Points2(11) = 0
Points2(12) = -513.8151: Points2(13) = 10 + EWNS: Points2(14) = 0
Set PLine2Obj = modelspace.AddPolyline(Points2)
modelspace.Linetypes.Load "ACAD_ISO02W100", "acad.lin"
PLine2Obj.Linetype = "ACAD_ISO02W100"

 

[dsi]

First, you should not have an object named modelspace. This object is already reserved by the AutoCAD API.

You should also declare the plineObj as a polyline:
Dim PLine2Obj As AcadPolyline

Set cadApp = GetObject(, "AutoCAD.Application&quot
Set cadDoc = cadApp.ActiveDocument

Dim PLine2Obj As AcadPolyline
Dim Points2(0 To 14) As Double

EWNS = -315
Points2(0)=-513.8151oints2(1)=10+EWNSoints2(2)=0
Points2(3)=-493.8151oints2(4)=10+EWNSoints2(5)=0
Points2(6)=-493.8151oints2(7)=100+EWNSoints2(8)=0
Points2(9)=-513.8151oints2(10)=100+EWNSoints2(11)=0
Points2(12)=-513.8151oints2(13)=10+EWNSoints2(14)=0

Set PLine2Obj = cadDwg.ModelSpace.AddPolyline(Points2)

cadDwg.ModelSpace.Linetypes.Load "ACAD_ISO02W100", "acad.lin"

PLine2Obj.Linetype = "ACAD_ISO02W100"
[/code]
Hope this helps! DimensionalSolutions@Core.com
While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.

 

[keeyean]

But this is only work in AutoCAD API...
i tried to use the same code in visual basic.. but it doesn't work.... it can't load the linetype...

besides,, what about the ZoomALL command?? coz i doesn't define in visual basic..

 

[dsi]

First, make sure that you add the AutoCAD Object Library to your project references. Second, the Linetypes object is not a part of the ModelSpace, it is derived from the AcadDocument object.

I started a new VB application that contained a single form. I put a command button on that form and put this code behind it.

Option Explicit

Dim cadApp As AcadApplication
Dim cadDoc As AcadDocument

Private Sub Command1_Click()
    Dim EWNS As Integer
    Set cadApp = GetObject(, "AutoCAD.Application")
    Set cadDoc = cadApp.ActiveDocument
        
        
    Dim PLine2Obj As AcadPolyline
    Dim Points2(0 To 14) As Double
        
    EWNS = -315
    Points2(0)=-513.8151:Points2(1)=10+EWNS:Points2(2)=0
    Points2(3)=-493.8151:Points2(4)=10+EWNS:Points2(5)=0
    Points2(6)=-493.8151:Points2(7)=100+EWNS:Points2(8)=0
    Points2(9)=-513.8151:Points2(10)=100+EWNS:Points2(11)=0
    Points2(12)=-513.8151:Points2(13)=10+EWNS:Points2(14)=0
    
    Set PLine2Obj = cadDoc.ModelSpace.AddPolyline(Points2)
    
    cadDoc.Linetypes.Load "ACAD_ISO02W100", "acad.lin"
    PLine2Obj.Linetype = "ACAD_ISO02W100"
    
    cadApp.ZoomAll
    
    Unload Me
    End
End Sub

DimensionalSolutions@Core.com
While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.

 

[keeyean]

it doesn't work too...
cadApp As AcadApplication.... coz undefined on the statement....??

besides, how to i add the AutoCAD Object Library to my project references??

sorry to ask so many questions to you...

 

[dsi]

Are you using VB? If so, go to Project>References. Find the AutoCAD Object library in the list and check the box. This links your program to the AutoCAD API.

If you are using VBA, in, let's say Excel, go to Tools > References and do the same thing. DimensionalSolutions@Core.com
While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.

 

[keeyean]

i got it..
thanz you so much..!!