[分享]：F#开发语言

binbin · 发表于 2007-12-4 16:21:23

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

Here's some code F# that goes through the modelspace and paperspace of the current drawing inside AutoCAD, and prints a list of all the distinct words used inside the various MText objects:

[FONT=courier new]
// Use lightweight F# syntax
#light
(* Declare a specific namespace
and module name
*)
module MyNamespace.MyApplication
// Import managed assemblies
#I @"C:\Program Files\Autodesk\AutoCAD 2008"
#r "acdbmgd.dll"
#r "acmgd.dll"
open System
open System.Collections.Generic
open Autodesk.AutoCAD.Runtime
open Autodesk.AutoCAD.ApplicationServices
open Autodesk.AutoCAD.DatabaseServices
// Now we declare our command
[<CommandMethod("Words")>]
let listWords () =
// Let's get the usual helpful AutoCAD objects
let doc =
Application.DocumentManager.MdiActiveDocument;
let ed = doc.Editor;
let db = doc.Database;
// "use" has the same effect as "using" in C#
use tr =
db.TransactionManager.StartTransaction();
// Get appropriately-typed BlockTable and BTRs
let bt =
tr.GetObject
(db.BlockTableId,OpenMode.ForRead)
:?> BlockTable
let ms =
tr.GetObject
(bt.[BlockTableRecord.ModelSpace],
OpenMode.ForRead)
:?> BlockTableRecord
let ps =
tr.GetObject
(bt.[BlockTableRecord.PaperSpace],
OpenMode.ForRead)
:?> BlockTableRecord
// Now the fun starts...
// A function that accepts an ObjectId and returns
// a list of the text contents, or an empty list.
// Note the valid use of tr, as it is in scope
let extractText (x : ObjectId) =
let obj = tr.GetObject(x,OpenMode.ForRead);
match obj with
| :? MText -> [(obj :?> MText).Contents];
| _ -> []
// A recursive function to print the contents of a list
let rec printList x =
match x with
| h :: t -> ed.WriteMessage("\n" + h); printList t
| [] -> ed.WriteMessage("\n")
// Partial application of split which can then be
// applied to a string to retrieve the contained words
let words = String.split [' ']
// And here's where we plug everything together...
Seq.untyped_to_list ms @ Seq.untyped_to_list ps |>
List.map extractText |> List.flatten |> List.map words |>
List.flatten |> Set.of_list |> Set.to_list |> printList
// As usual, committing is cheaper than aborting
tr.Commit()
[/FONT]

[FONT=courier new] 
// Use lightweight F# syntax 
 
 
 
#light 
 
 
 
(* Declare a specific namespace 
 
  and module name 
 
*) 
 
 
 
module MyNamespace.MyApplication 
 
 
 
// Import managed assemblies 
 
 
 
#I @"C:\Program Files\Autodesk\AutoCAD 2008" 
 
 
 
#r "acdbmgd.dll" 
 
#r "acmgd.dll" 
 
 
 
open System 
 
open System.Collections.Generic 
 
open Autodesk.AutoCAD.Runtime 
 
open Autodesk.AutoCAD.ApplicationServices 
 
open Autodesk.AutoCAD.DatabaseServices 
 
 
 
// Now we declare our command 
 
 
 
[<CommandMethod("Words")>] 
 
let listWords () = 
 
 
 
  // Let's get the usual helpful AutoCAD objects 
 
 
 
  let doc = 
 
    Application.DocumentManager.MdiActiveDocument; 
 
  let ed = doc.Editor; 
 
  let db = doc.Database; 
 
 
 
  // "use" has the same effect as "using" in C# 
 
 
 
  use tr = 
 
    db.TransactionManager.StartTransaction(); 
 
 
 
  // Get appropriately-typed BlockTable and BTRs 
 
 
 
  let bt = 
 
    tr.GetObject 
 
      (db.BlockTableId,OpenMode.ForRead) 
 
    :?> BlockTable 
 
  let ms = 
 
    tr.GetObject 
 
      (bt.[BlockTableRecord.ModelSpace], 
 
      OpenMode.ForRead) 
 
    :?> BlockTableRecord 
 
  let ps = 
 
    tr.GetObject 
 
      (bt.[BlockTableRecord.PaperSpace], 
 
      OpenMode.ForRead) 
 
    :?> BlockTableRecord 
 
 
 
  // Now the fun starts... 
 
 
 
  // A function that accepts an ObjectId and returns 
 
  // a list of the text contents, or an empty list. 
 
 
 
  // Note the valid use of tr, as it is in scope 
 
 
 
  let extractText (x : ObjectId) = 
 
    let obj = tr.GetObject(x,OpenMode.ForRead); 
 
    match obj with 
 
    | :? MText -> [(obj :?> MText).Contents]; 
 
    | _ -> [] 
 
 
 
  // A recursive function to print the contents of a list 
 
 
 
  let rec printList x = 
 
    match x with 
 
    | h :: t -> ed.WriteMessage("\n" + h); printList t 
 
    | [] -> ed.WriteMessage("\n") 
 
 
 
  // Partial application of split which can then be 
 
  // applied to a string to retrieve the contained words 
 
 
 
  let words = String.split [' '] 
 
 
 
  // And here's where we plug everything together... 
 
 
 
  Seq.untyped_to_list ms @ Seq.untyped_to_list ps |> 
 
    List.map extractText |> List.flatten |> List.map words |> 
 
    List.flatten |> Set.of_list |> Set.to_list |> printList 
 
 
 
  // As usual, committing is cheaper than aborting 
 
 
 
  tr.Commit() 
 
 
  [/FONT]

F#的下载地址 http://research.microsoft.com/fsharp/release.aspx
F#的一些例子 http://www.codeplex.com/fsharpsamples

jackin · 发表于 2007-12-4 17:44:39

binbin, 不打开dwg文件能在后台打印出文件里的内容吗,我试了一下打印预览不能显示出图形来,都是空白.

是不是打印必须要打开文件啊?

jackin · 发表于 2007-12-5 09:20:38

binbin · 发表于 2007-12-5 10:16:15

[FONT=courier new]
#import "acad.tlb" no_namespacevoid
fTest()
{
// Use ActiveX interface to get the application object
IAcadApplicationPtr pAcad = acedGetAcadWinApp()->GetIDispatch(TRUE);
//get the path to plotter configuration
_bstr_t szPrinterPath;
szPrinterPath = pAcad->Preferences->GetFiles()->GetPrinterConfigPath() + _bstr_t("\\DWF ePlot (optimized for plotting).pc3");
// get the current database
AcDbDatabase *curDocDB = acdbHostApplicationServices()->workingDatabase();
// get a pointer to the layout manager
AcApLayoutManager *pLayoutManager = (AcApLayoutManager *)acdbHostApplicationServices()->layoutManager();
const char *layoutName = pLayoutManager->findActiveLayout (true);
// get the current layout
AcDbLayout *pLayout = pLayoutManager->findLayoutNamed (layoutName, true);
// if we got it ok
if (pLayout != NULL)
{
Acad::ErrorStatus es;
// get the plotsetttings class
AcDbPlotSettingsValidator *pPlotSettingsValidator = acdbHostApplicationServices()->plotSettingsValidator();
// if we got it ok
if (pPlotSettingsValidator != NULL)
{
// Refresh the layout lists in order to use it
pPlotSettingsValidator->refreshLists (pLayout);
// change the current layout plotter
es = pPlotSettingsValidator->setPlotCfgName (pLayout, szPrinterPath);
// set the window to plot as the extents of the drawing
es = pPlotSettingsValidator->setPlotWindowArea (pLayout,curDocDB->extmin ().x,curDocDB->extmin ().y,curDocDB->extmax ().x,curDocDB->extmax ().y);
// set the orgin
es = pPlotSettingsValidator->setPlotOrigin (pLayout,curDocDB->extmin ().x,curDocDB->extmin ().y);
// set to plot centred
es = pPlotSettingsValidator->setPlotCentered (pLayout, true);
// setup the plot type to window
es = pPlotSettingsValidator->setPlotType (pLayout, AcDbPlotSettings::kWindow);
// set the scale
es = pPlotSettingsValidator->setStdScaleType (pLayout, AcDbPlotSettings::StdScaleType::kScaleToFit);
// we have to close the layout here because the last parameter of
// findLayoutNamed is true, leave layout open
pLayout->close ();
}
} // get the current document
IAcadDocumentPtr pDoc = pAcad->GetActiveDocument();
// create a plot object
IAcadPlotPtr pPlot = pDoc->GetPlot();
// lets plot
pPlot->PlotToFile("c:\\test.dwf", szPrinterPath);
}
[/FONT]

[FONT=courier new] 
#import "acad.tlb" no_namespacevoid 
fTest() 
{ 
        // Use ActiveX interface to get the application object 
        IAcadApplicationPtr pAcad = acedGetAcadWinApp()->GetIDispatch(TRUE);    
        //get the path to plotter configuration 
        _bstr_t szPrinterPath; 
        szPrinterPath = pAcad->Preferences->GetFiles()->GetPrinterConfigPath() + _bstr_t("\\DWF ePlot (optimized for plotting).pc3"); 
        // get the current database 
        AcDbDatabase *curDocDB = acdbHostApplicationServices()->workingDatabase();   
        // get a pointer to the layout manager 
        AcApLayoutManager *pLayoutManager = (AcApLayoutManager *)acdbHostApplicationServices()->layoutManager(); 
        const char *layoutName = pLayoutManager->findActiveLayout (true); 
        // get the current layout 
        AcDbLayout *pLayout = pLayoutManager->findLayoutNamed (layoutName, true);    
        // if we got it ok 
        if (pLayout != NULL) 
        { 
                Acad::ErrorStatus es;   
                // get the plotsetttings class   
                AcDbPlotSettingsValidator *pPlotSettingsValidator = acdbHostApplicationServices()->plotSettingsValidator(); 
                // if we got it ok   
                if (pPlotSettingsValidator != NULL) 
                {   
                        // Refresh the layout lists in order to use it    
                        pPlotSettingsValidator->refreshLists (pLayout);   
                        // change the current layout plotter    
                        es = pPlotSettingsValidator->setPlotCfgName (pLayout, szPrinterPath);       
                        // set the window to plot as the extents of the drawing   
                        es = pPlotSettingsValidator->setPlotWindowArea (pLayout,curDocDB->extmin ().x,curDocDB->extmin ().y,curDocDB->extmax ().x,curDocDB->extmax ().y); 
                        // set the orgin    
                        es = pPlotSettingsValidator->setPlotOrigin (pLayout,curDocDB->extmin ().x,curDocDB->extmin ().y); 
                        // set to plot centred   
                        es = pPlotSettingsValidator->setPlotCentered (pLayout, true); 
                        // setup the plot type to window 
                        es = pPlotSettingsValidator->setPlotType (pLayout, AcDbPlotSettings::kWindow);   
                        // set the scale   
                        es = pPlotSettingsValidator->setStdScaleType (pLayout, AcDbPlotSettings::StdScaleType::kScaleToFit); 
                        // we have to close the layout here because the last parameter of    
                        // findLayoutNamed is true, leave layout open    
                        pLayout->close (); 
                }    
        }  // get the current document 
        IAcadDocumentPtr pDoc = pAcad->GetActiveDocument(); 
        // create a plot object   
        IAcadPlotPtr pPlot = pDoc->GetPlot();   
        // lets plot   
        pPlot->PlotToFile("c:\\test.dwf", szPrinterPath); 
} 
  [/FONT]

账号		自动登录	找回密码
密码			立即注册

[分享]：F#开发语言

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子