OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 08-02-2011, 19:49
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default Extract subpath crash and question.

Hi.
I'm getting a crash with this code.

Code:
Private Sub myExtractTest()
Dim s As Shape, sNew As Shape
Set s = ActiveShape
Set sNew = s.Curve.SubPaths(1).Extract

End Sub
(debug and rerun)

I'm also testing with code from help section and getting unexpected results.

Code:
Sub helpExtractTest()
 Dim spath As SubPath
 Dim s As Shape, sExt As Shape
 Dim i As Long
 Set s = ActiveShape
 If s.Curve.SubPaths.count < 2 Then Exit Sub
 For i = s.Curve.SubPaths.count To 1 Step -1
  Set spath = s.Curve.SubPaths(i)
  Set sExt = spath.Extract(s)
  sExt.Outline.Width = 0.01
  sExt.Outline.Color = ActivePalette.Color(13 + i)
 Next i
End Sub
Use attached file for testing.
Any ideas?
Attached Files
File Type: cdr 2Extreme.cdr (17.1 KB, 401 views)
Reply With Quote
  #2  
Old 14-02-2011, 22:29
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,791
Blog Entries: 13
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Crash

What version of CorelDRAW are you using?

-Shelby
Reply With Quote
  #3  
Old 15-02-2011, 07:45
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Hi.
X5
-John
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
About SubPath.AddNodeAt SUNNY CorelDRAW/Corel DESIGNER VBA 1 21-08-2008 01:52
Imort Tif- X3 Crash gperzel General 5 19-07-2006 09:44
crash lizrathke General 1 18-05-2005 19:59
subpath numbering lkoky CorelDRAW/Corel DESIGNER VBA 2 02-11-2004 03:37
Select all nodes if the subpath d-signer CorelDRAW/Corel DESIGNER VBA 2 13-05-2004 00:47


All times are GMT -5. The time now is 22:32.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com