Welcome to Telelogic Product Support
  Home Downloads Knowledgebase Case Tracking Licensing Help Telelogic Passport
Telelogic System Architect (steve huntington)
Decrease font size
Increase font size
Topic Title: How to delete a symbol in VBA without a prompt to the user?
Topic Summary: Is is possible to delete a symbol from a diagram without the user being prompted?
Created On: 12-Oct-2007 18:12
Status: Read Only
Linear : Threading : Single : Branch
Search Topic Search Topic
Topic Tools Topic Tools
Subscribe to this topic Subscribe to this topic
E-mail this topic to someone. E-mail this topic
Bookmark this topic Bookmark this topic
View similar topics View similar topics
View topic in raw text format. Print this topic.
 12-Oct-2007 18:12
User is offline View Users Profile Print this message


Toby Chaloner

Posts: 29
Joined: 22-Aug-2007

I am deleting symbols in the following VBA macro. System Architect asks whether the user wishes to purge or remove the symbol when I invoke the sym.Delete call.
Can anyone help me suppress the prompt and set the effect of the Delete to 'Remove from diagram'.
All suggestions appreciated

    Dim sym As Symbol
    Dim ucName As String
    ucName = def.name
    If diag.Hidden Then diag.Show
    Dim relatedObjs As SAObjects
    Set relatedObjs = diag.GetFilteredSymbols(ucName, ETOOUSECASE)
    Call relatedObjs.ReadAll
    If relatedObjs.Count > 0 Then
        Set sym = relatedObjs.Item(1)
        Debug.Assert Not sym Is Nothing
        sym.Delete
        Set sym = Nothing
        diag.Save
    End If
    diag.Hide
    Set diag = Nothing
Report this to a Moderator Report this to a Moderator
Statistics
20925 users are registered to the Telelogic System Architect forum.
There are currently 1 users logged in.
The most users ever online was 16 on 30-Oct-2008 at 14:46.
There are currently 0 guests browsing this forum, which makes a total of 1 users using this forum.
You have posted 0 messages to this forum. 0 overall.

FuseTalk Standard Edition v3.2 - © 1999-2009 FuseTalk Inc. All rights reserved.