[飞马系列] 个人的第一个F# JIG代码——截断线绘制

qjchen

个人的第一个F# JIG代码——截断线绘制

由于.NET编程一直似懂非懂，不过最近看了一些F#的介绍之后，对其颇有好感
于是啃了两天帮助
仔细阅读了才鸟兄的C# 五角星jig例子、KEAN的F# 螺旋线jig例子和AUTODESK公司的椭圆C# JIG例子
照葫芦画瓢地写下了如下一段简单的截断线例子
在此对以上作者表示衷心的感谢
而本人水平有限，代码非常不简洁，没有体现出F#的任何优点，各位见笑了，请不吝指教
后续希望能有所改进

源代码和项目如附件，内有说明
使用说明
（1） 可在AutoCAD2007 或2011 中，用netload命令，加载这个myfirstjig.dll
     则可以通过命令 mybl来调用画截断线，效果可见gif文件


（2）源码使用说明：请用VS2008+F# 2.0安装包或者 VS2010打开
     注意：要修改引用中ACMGD.DLL和ACDBMGD.DLL的路径（重新删除再引用，并设置拷贝到本地为false）
               要修改项目属性中debug里面的acad.exe的路径（重新查找）
by qjchen

2. 
   
3. //本文参照了才鸟兄的五角星例子、KEAN的螺旋线例子和AUTODESK公司的椭圆JIG例子
   
4. //在此对他们表示衷心的感谢
   
5. //by qjchen@gmail.com 华南理工大学 2010.08.10
   
6. module File1_mod.Commands
   
7. //引入一些空间，类似C#的using
   
8. open System
   
9. open Autodesk.AutoCAD.ApplicationServices
   
10. open Autodesk.AutoCAD.DatabaseServices
    
11. open Autodesk.AutoCAD.EditorInput
    
12. open Autodesk.AutoCAD.Geometry
    
13. open Autodesk.AutoCAD.GraphicsInterface
    
14. open Autodesk.AutoCAD.Runtime
    
15. //根据才鸟兄实体书中的例子编写函数，仿LISP的polar
    
16. let PolarPoint (basePt:Point2d) (angle:double) (distance:double):Point2d=
    
17.     let point = Point2d(basePt.X+distance*Math.Cos angle,basePt.Y+distance*Math.Sin angle)
    
18.     point
    
19. //Ang2Rad,仿才鸟兄的函数，不过才鸟兄写成了rad2ang，或许是笔误？
    
20. let Ang2Rad (angle:double) =
    
21.     let rad=angle*Math.PI/180.0
    
22.     rad
    
23. //定义一个继承于DrawJig的JdxJig类
    
24. type JdxJig() as this = class
    
25.   inherit DrawJig()
    
26.   //此处定义的两个变量，一个来自于jdx的初始赋值，一个来自于起始点
    
27.   let mutable (_pl : Polyline) = null
    
28.   let mutable _startPt=new Point3d()
    
29.   //member是这个类中的一个函数，仿Kean函数编写
    
30.   member x.StartJig(ed:Editor,pt,pl) =
    
31.     //将之前获取的点及构造的函数赋予此两变量
    
32.     _startPt <- pt
    
33.     _pl <- pl
    
34.     //开始drag处理
    
35.     let stat = ed.Drag(this)
    
36.     //返回一个状态值
    
37.     stat
    
38.   //重写sample函数，仿Kean的写法
    
39.   override x.Sampler prompts =
    
40.     //获取输入点
    
41.     let jo = new JigPromptPointOptions()
    
42.     jo.UseBasePoint <- true
    
43.     jo.BasePoint <- _startPt
    
44.     jo.Cursor <- CursorType.Crosshair
    
45.     let respoi:PromptPointResult=prompts.AcquirePoint(jo)
    
46.     let curPt = respoi.Value
    
47.     let mutable endPt = new Point3d()
    
48.     if curPt <> endPt then
    
49.        //赋予起始点给p0，赋予当前移动点给p6
    
50.        let p0:Point2d = new Point2d(_startPt.X, _startPt.Y)
    
51.        let p6:Point2d = new Point2d(curPt.X, curPt.Y)
    
52.        //计算起始点和终止点的矢量和角度
    
53.        let vec:Vector2d = p6-p0
    
54.        let ang:double = vec.Angle
    
55.        //下面这几段写的真丑陋，没有一点F#简洁的特点，下一步来进行修改
    
56.        let mutable p1=new Point2d()
    
57.        let mutable p2=new Point2d()
    
58.        let mutable p3=new Point2d()
    
59.        let mutable p4=new Point2d()
    
60.        let mutable p5=new Point2d()
    
61.        let mutable p2a=new Point2d()
    
62.        let mutable p4a=new Point2d()
    
63.        let mutable d06:double = p6.GetDistanceTo(p0)
    
64.        //以下是截断线的画法，是按照1:100的比例画的，没有考虑比例问题
    
65.        if d06<=200.0 then
    
66.            p1<-p0
    
67.            p2<-p0
    
68.            p3<-p0
    
69.            p4<-p0
    
70.            p5<-p0
    
71.        else
    
72.            let ang1801= Ang2Rad 180.0+ang
    
73.            let ang901=Ang2Rad 90.0+ang
    
74.            let ang902=ang-Ang2Rad 90.0
    
75.            let d0605=0.5*d06
    
76.            p3<-PolarPoint p0 ang d0605
    
77.            p1<-PolarPoint p3 ang1801 100.0
    
78.            p2a<-PolarPoint p3 ang1801 50.0
    
79.            p2<-PolarPoint p2a ang901 200.0
    
80.            p5<-PolarPoint p3 ang 100.0
    
81.            p4a<-PolarPoint p3 ang 50.0
    
82.            p4<-PolarPoint p4a ang902 200.0
    
83.        _pl.SetPointAt(0, p0)
    
84.        _pl.SetPointAt(1, p1)
    
85.        _pl.SetPointAt(2, p2)
    
86.        _pl.SetPointAt(3, p3)
    
87.        _pl.SetPointAt(4, p4)
    
88.        _pl.SetPointAt(5, p5)
    
89.        _pl.SetPointAt(6, p6)
    
90.        endPt <- curPt;
    
91.        SamplerStatus.OK
    
92.     else
    
93.        SamplerStatus.NoChange;
    
94.   //重写WorldDraw函数，仿Kean的写法，精简了一下
    
95.   override x.WorldDraw (draw : WorldDraw) =
    
96.     draw.Geometry.Polyline(_pl, 0,6)
    
97.     |> ignore
    
98.     true
    
99. end
    
100. 
     
101. //下面是函数命令部分
     
102. [<CommandMethod("qjchen", "mybl", CommandFlags.Modal)>]
     
103. let jigjdx() =
     
104.   // 开始常用语句
     
105.   let doc =
     
106.     Application.DocumentManager.MdiActiveDocument
     
107.   let ed = doc.Editor
     
108.   let db = doc.Database
     
109.   // 提示选择起始点
     
110.   let startRes = ed.GetPoint("\nSelect first point: ")
     
111.   if startRes.Status = PromptStatus.OK then
     
112.     let startPt = startRes.Value
     
113.     // 创建polyline和运行jig
     
114.     let pl:Polyline = new Polyline(7)
     
115.     for i=0 to 6 do
     
116.         pl.AddVertexAt(i, Point2d(0.0,0.0),0.0,0.0,0.0)
     
117.     let jig = new JdxJig()
     
118.     let res = jig.StartJig(ed, startPt, pl)
     
119.     if res.Status = PromptStatus.OK then
     
120.       use tr =
     
121.         db.TransactionManager.StartTransaction()
     
122.       // 得到块表和块记录
     
123.       let bt =
     
124.         tr.GetObject
     
125.           (db.BlockTableId,OpenMode.ForRead)
     
126.           :?> BlockTable
     
127.       let ms =
     
128.         tr.GetObject
     
129.           (bt.[BlockTableRecord.ModelSpace],
     
130.           OpenMode.ForWrite)
     
131.           :?> BlockTableRecord
     
132.       // 把截断线加入到模型空间
     
133.       let id = ms.AppendEntity(pl)
     
134.       tr.AddNewlyCreatedDBObject(pl, true)
     
135.       tr.Commit()
     

<br /> //本文参照了才鸟兄的五角星例子、KEAN的螺旋线例子和AUTODESK公司的椭圆JIG例子<br /> //在此对他们表示衷心的感谢<br /> //by qjchen@gmail.com 华南理工大学 2010.08.10<br /> module File1_mod.Commands<br /> //引入一些空间，类似C#的using<br /> open System<br /> open Autodesk.AutoCAD.ApplicationServices<br /> open Autodesk.AutoCAD.DatabaseServices<br /> open Autodesk.AutoCAD.EditorInput<br /> open Autodesk.AutoCAD.Geometry<br /> open Autodesk.AutoCAD.GraphicsInterface<br /> open Autodesk.AutoCAD.Runtime<br /> //根据才鸟兄实体书中的例子编写函数，仿LISP的polar<br /> let PolarPoint (basePt:Point2d) (angle:double) (distance:double):Point2d=<br />     let point = Point2d(basePt.X+distance*Math.Cos angle,basePt.Y+distance*Math.Sin angle)<br />     point<br /> //Ang2Rad,仿才鸟兄的函数，不过才鸟兄写成了rad2ang，或许是笔误？<br /> let Ang2Rad (angle:double) =<br />     let rad=angle*Math.PI/180.0<br />     rad<br /> //定义一个继承于DrawJig的JdxJig类<br /> type JdxJig() as this = class<br />   inherit DrawJig()<br />   //此处定义的两个变量，一个来自于jdx的初始赋值，一个来自于起始点<br />   let mutable (_pl : Polyline) = null<br />   let mutable _startPt=new Point3d()<br />   //member是这个类中的一个函数，仿Kean函数编写<br />   member x.StartJig(ed:Editor,pt,pl) =<br />     //将之前获取的点及构造的函数赋予此两变量<br />     _startPt <- pt<br />     _pl <- pl<br />     //开始drag处理<br />     let stat = ed.Drag(this)<br />     //返回一个状态值<br />     stat<br />   //重写sample函数，仿Kean的写法<br />   override x.Sampler prompts =<br />     //获取输入点<br />     let jo = new JigPromptPointOptions()<br />     jo.UseBasePoint <- true<br />     jo.BasePoint <- _startPt<br />     jo.Cursor <- CursorType.Crosshair<br />     let respoi:PromptPointResult=prompts.AcquirePoint(jo)<br />     let curPt = respoi.Value<br />     let mutable endPt = new Point3d()<br />     if curPt <> endPt then<br />        //赋予起始点给p0，赋予当前移动点给p6<br />        let p0:Point2d = new Point2d(_startPt.X, _startPt.Y)<br />        let p6:Point2d = new Point2d(curPt.X, curPt.Y)<br />        //计算起始点和终止点的矢量和角度<br />        let vec:Vector2d = p6-p0<br />        let ang:double = vec.Angle<br />        //下面这几段写的真丑陋，没有一点F#简洁的特点，下一步来进行修改<br />        let mutable p1=new Point2d()<br />        let mutable p2=new Point2d()<br />        let mutable p3=new Point2d()<br />        let mutable p4=new Point2d()<br />        let mutable p5=new Point2d()<br />        let mutable p2a=new Point2d()<br />        let mutable p4a=new Point2d()<br />        let mutable d06:double = p6.GetDistanceTo(p0)<br />        //以下是截断线的画法，是按照1:100的比例画的，没有考虑比例问题<br />        if d06<=200.0 then<br />            p1<-p0<br />            p2<-p0<br />            p3<-p0<br />            p4<-p0<br />            p5<-p0<br />        else<br />            let ang1801= Ang2Rad 180.0+ang<br />            let ang901=Ang2Rad 90.0+ang<br />            let ang902=ang-Ang2Rad 90.0<br />            let d0605=0.5*d06<br />            p3<-PolarPoint p0 ang d0605<br />            p1<-PolarPoint p3 ang1801 100.0<br />            p2a<-PolarPoint p3 ang1801 50.0<br />            p2<-PolarPoint p2a ang901 200.0<br />            p5<-PolarPoint p3 ang 100.0<br />            p4a<-PolarPoint p3 ang 50.0<br />            p4<-PolarPoint p4a ang902 200.0<br />        _pl.SetPointAt(0, p0)<br />        _pl.SetPointAt(1, p1)<br />        _pl.SetPointAt(2, p2)<br />        _pl.SetPointAt(3, p3)<br />        _pl.SetPointAt(4, p4)<br />        _pl.SetPointAt(5, p5)<br />        _pl.SetPointAt(6, p6)<br />        endPt <- curPt;<br />        SamplerStatus.OK<br />     else<br />        SamplerStatus.NoChange;<br />   //重写WorldDraw函数，仿Kean的写法，精简了一下<br />   override x.WorldDraw (draw : WorldDraw) =<br />     draw.Geometry.Polyline(_pl, 0,6)<br />     |> ignore<br />     true<br /> end<br /> <br /> //下面是函数命令部分<br /> [<CommandMethod("qjchen", "mybl", CommandFlags.Modal)>]<br /> let jigjdx() =<br />   // 开始常用语句<br />   let doc =<br />     Application.DocumentManager.MdiActiveDocument<br />   let ed = doc.Editor<br />   let db = doc.Database<br />   // 提示选择起始点<br />   let startRes = ed.GetPoint("\nSelect first point: ")<br />   if startRes.Status = PromptStatus.OK then<br />     let startPt = startRes.Value<br />     // 创建polyline和运行jig<br />     let pl:Polyline = new Polyline(7)<br />     for i=0 to 6 do<br />         pl.AddVertexAt(i, Point2d(0.0,0.0),0.0,0.0,0.0)<br />     let jig = new JdxJig()<br />     let res = jig.StartJig(ed, startPt, pl)<br />     if res.Status = PromptStatus.OK then<br />       use tr =<br />         db.TransactionManager.StartTransaction()<br />       // 得到块表和块记录<br />       let bt =<br />         tr.GetObject<br />           (db.BlockTableId,OpenMode.ForRead)<br />           :?> BlockTable<br />       let ms =<br />         tr.GetObject<br />           (bt.[BlockTableRecord.ModelSpace],<br />           OpenMode.ForWrite)<br />           :?> BlockTableRecord<br />       // 把截断线加入到模型空间<br />       let id = ms.AppendEntity(pl)<br />       tr.AddNewlyCreatedDBObject(pl, true)<br />       tr.Commit()<br />

bearbear1

才鸟兄的C# 五角星jig例子

 

在哪能看到

 

F# 不了解

qjchen

谢谢 lzh741206版主:)

 

To bearbear1: 这个例子是来自于我买的一本实体书 《Autocad Vba & Vb.net开发 基础与实例教程》：曾洪飞（网名才鸟），张帆（网名:zfbj），卢择临（ahlzl）几位高手写的书，几位高手也在明经上啊

 

不过刚才看了具体章节，讲jig的第22章是ahlzl兄写的，那我前面写的才鸟的写法可能有误.......

 

F#是函数式语言，有许多优点，我上面的写法是用最啰嗦的方法，无法体现其精髓，等我过些日子更熟悉一些再来改进。

 

由于这是我用F#编的第二个CAD范例，第一个是画圆啊画线找BOUNGDINGBOX等简单操作，第二个就进入这个JIG的撰写，跳跃有点大。调试的时候开始也出现了几十个错误，改了半天。其实F#对空格、缩进等的要求都挺高，最好还是先用C#或者VB.NET来开发好些。只是做了小小的尝试，希望以后熟悉之后能好些。

bearbear1

  回复的这么清楚，万分激动，

 

zjh2785

很好的程序，就是F#看着头大。。。

ynhh

我第一个学写的程序也是折断线
是四川德钢建筑工地上打工时自学的
只是没你这中途有动态显示这么高大上
但自我感觉还是实用
你这两端与指定点对齐与实用不太符合
实际中都是超出一小段的最后谢谢您的分享
祝您身体健康