Results 1 to 7 of 7

Thread: iLogic DWF Export Problem

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. #1
    I could stop if I wanted to
    Join Date
    2015-12
    Posts
    293
    Login to Give a bone
    0

    Default iLogic DWF Export Problem

    Hello All,

    I have been attempting to use iLogic to generate a dwf. The rule I created contains the verbatim code from the "Publish DWF 2D and 3D" snippet. The problem is that the rule does not generate the 3d model, only the sheet. I have tested this on numerous drawings, with the same result. The only fix I have found is to initiate the Export > Export to DWF command using the "Complete" option, or "Custom" and selecting "3D Model" in the Drawing tab. The rule will then function correctly. Obviously this is a waste of time.

    I have just begun playing with iLogic, so I do not know how to tweak the code to get it to work.

    I was going to attach a sample ipt and its idw, but I was unable to upload the zip (or any file, for that matter), so I am pasting the code here instead:

    'this rule outputs all drawing sheets to dwf, 3D models of first sheet included
    path_and_name = ThisDoc.PathAndFileName(False)
    DWFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD95-2F4D-42CE-8BE0-8AEA580399E4}")
    oDocument = ThisApplication.ActiveDocument
    oContext = ThisApplication.TransientObjects.CreateTranslationContext
    oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
    oOptions = ThisApplication.TransientObjects.CreateNameValueMap
    oDataMedium = ThisApplication.TransientObjects.CreateDataMedium

    i = MessageBox.Show("Launch the viewer now?", "Title",MessageBoxButtons.YesNo)
    If i = vbYes Then : launchviewer = 1 : Else : launchviewer = 0 : End If

    If DWFAddIn.HasSaveCopyAsOptions(oDataMedium, oContext, oOptions) Then
    oOptions.Value("Launch_Viewer") = launchviewer
    oOptions.Value("Publish_All_Component_Props") = 1
    oOptions.Value("Publish_All_Physical_Props") = 1
    oOptions.Value("Password") = 0
    If TypeOf oDocument Is DrawingDocument Then
    Dim oSheets As NameValueMap
    oSheets = ThisApplication.TransientObjects.CreateNameValueMap
    oOptions.Value("Publish_Mode") = DWFPublishModeEnum.kCustomDWFPublish
    oOptions.Value("Publish_All_Sheets") = 1
    ' Publish the first sheet AND its 3D model
    Dim oSheet1Options As NameValueMap
    oSheet1Options = ThisApplication.TransientObjects.CreateNameValueMap
    oSheet1Options.Add("Name", "Sheet:1")
    oSheet1Options.Add("3DModel", True)
    oSheets.Value("Sheet1") = oSheet1Options
    End If
    End If

    oDataMedium.FileName = path_and_name & ".dwf"
    Call DWFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
    If launchviewer = 1 Then ThisDoc.Launch(path_and_name & ".dwf")

    Any help is appreciated.
    Thank you.

    Inv 2012 Pro
    Win7 64 Ult
    Design Review 2012/2013
    Last edited by Bunny; 2012-04-26 at 02:09 PM.

Similar Threads

  1. Problem in export from Ravit MEP to HAP
    By just_vip2003 in forum Revit MEP - General
    Replies: 1
    Last Post: 2010-06-26, 05:47 PM
  2. CIS2 EXPORT PROBLEM
    By FOUTJM in forum Revit Structure - General
    Replies: 1
    Last Post: 2007-08-01, 05:14 PM
  3. Export to dwg problem
    By jcdecastro in forum Revit Architecture - General
    Replies: 5
    Last Post: 2007-03-22, 07:20 AM
  4. Export to gbxml problem
    By jvedio in forum Revit Architecture - General
    Replies: 0
    Last Post: 2007-03-02, 03:33 PM
  5. Export to Autocad2004 DWG problem
    By agreven in forum Revit Architecture - General
    Replies: 5
    Last Post: 2005-02-02, 12:58 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •