[求助]acdbtable::select 的参数view direction, view orientation是啥意思？

bjzjt · 发表于 2009-6-10 15:34

如题，这两个参数有啥区别？

雪山飞狐_lzh · 发表于 2009-6-10 16:17

一个Z方向，一个Y方向？

View设置是有这两个方向的

试下吧

还在研究Table？

bjzjt · 发表于 2009-6-10 16:55

是呀，总觉得Table这东西跟ACAD里其它的东西不像是一家的，搞不明白，帮助文档里也说得不清楚。.net的文档里没说清楚的，就只能到objectARX文档里去找，可我对ObjectARX和C++都没有实际运用的经验，搞起来很困难。而且这个方法里的最后一个参数也很混乱，AcDbFullSubentPathArray* pPaths到底是个输入参数还是个输出参数？2007版的.net和objectARX文档里的说法有矛盾。如果是输出参数，那为什么用 * 而不是用 & 呢，这个问题可能是因为我太初级，但我确实搞不明白。正在继续实验中。

雪山飞狐_lzh · 发表于 2009-6-10 17:29

pPaths是指针，数组的首地址，不矛盾

bjzjt · 发表于 2009-6-10 18:10

恩，明白了，数组的名字就是个指针，对吧？
看看我的试验：

    ''表格单元格亮显试验
    <CommandMethod("test")> _
    Public Sub test_cell_highlight()
        Dim db As Database = HostApplicationServices.WorkingDatabase
        Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
        Dim tm As DatabaseServices.TransactionManager = db.TransactionManager
        Dim myT As Transaction = tm.StartTransaction
        Try
            Dim resTbl As PromptEntityResult = ed.GetEntity("选择表格图元")
            Dim oTbl As Table = CType(myT.GetObject(resTbl.ObjectId, DatabaseServices.OpenMode.ForWrite), Table)
            Dim p1 As Point3d = ed.GetPoint("选择表格内一点").Value
            Dim oPaths() As FullSubentityPath
            Dim oHit As TableHitTestInfo = oTbl.Select(p1, New Vector3d(0, 0, 1), New Vector3d(0, 1, 0), True, False, oPaths)
            For Each oPath As FullSubentityPath In oPaths
                oTbl.Highlight(oPath, False)
            Next
            myT.Commit()
        Catch ex As System.Exception
            ed.WriteMessage(ex.Message)
        Finally
            myT.Dispose()
        End Try
    End Sub

&#160;&#160;&#160; ''表格单元格亮显试验
&#160;&#160;&#160; <CommandMethod("test")> _
&#160;&#160;&#160; Public Sub test_cell_highlight()
&#160;&#160;&#160;&#160;&#160;&#160;&#160; Dim db As Database = HostApplicationServices.WorkingDatabase
&#160;&#160;&#160;&#160;&#160;&#160;&#160; Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
&#160;&#160;&#160;&#160;&#160;&#160;&#160; Dim tm As DatabaseServices.TransactionManager = db.TransactionManager
&#160;&#160;&#160;&#160;&#160;&#160;&#160; Dim myT As Transaction = tm.StartTransaction
&#160;&#160;&#160;&#160;&#160;&#160;&#160; Try
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; Dim resTbl As PromptEntityResult = ed.GetEntity("选择表格图元")
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; Dim oTbl As Table = CType(myT.GetObject(resTbl.ObjectId, DatabaseServices.OpenMode.ForWrite), Table)
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; Dim p1 As Point3d = ed.GetPoint("选择表格内一点").Value
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; Dim oPaths() As FullSubentityPath
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; Dim oHit As TableHitTestInfo = oTbl.Select(p1, New Vector3d(0, 0, 1), New Vector3d(0, 1, 0), True, False, oPaths)
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; For Each oPath As FullSubentityPath In oPaths
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; oTbl.Highlight(oPath, False)
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; Next
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; myT.Commit()
&#160;&#160;&#160;&#160;&#160;&#160;&#160; Catch ex As System.Exception
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; ed.WriteMessage(ex.Message)
&#160;&#160;&#160;&#160;&#160;&#160;&#160; Finally
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; myT.Dispose()
&#160;&#160;&#160;&#160;&#160;&#160;&#160; End Try
&#160;&#160;&#160; End Sub

我想让选中的单元格亮显，可是oPaths总是空值，能帮忙看看错在哪儿了吗？

雪山飞狐_lzh · 发表于 2009-6-10 19:20

试了下，返回值有点击的信息，但确实没有subentity
VBNet不习惯了：0

[CommandMethod("t6")]
public static void Test6()
{
Document doc = Application.DocumentManager.MdiActiveDocument;
Database db = doc.Database;
Editor ed = doc.Editor;
PromptEntityResult res = ed.GetEntity("选择表格图元");
using (Transaction tr = db.TransactionManager.StartTransaction())
{
Table oTbl = (Table)tr.GetObject(res.ObjectId, OpenMode.ForWrite);
Point3d pnt = ed.GetPoint("选择表格内一点").Value;
FullSubentityPath[] paths = new FullSubentityPath[0];
TableHitTestInfo hitinfo = oTbl.Select(pnt, (pnt+Vector3d.ZAxis).GetAsVector(), Vector3d.YAxis, true, false, paths);
ed.WriteMessage("Row{0} Col{1}", hitinfo.Row, hitinfo.Column);
foreach (FullSubentityPath subpath in paths)
{
if (subpath != null)
{
oTbl.Highlight(subpath, false);
}
}
}
}

[CommandMethod("t6")]
        public static void Test6()
        {
            Document doc = Application.DocumentManager.MdiActiveDocument;
            Database db = doc.Database;
            Editor ed = doc.Editor;
            PromptEntityResult res = ed.GetEntity("选择表格图元");
            using (Transaction tr = db.TransactionManager.StartTransaction())
            {
                Table oTbl = (Table)tr.GetObject(res.ObjectId, OpenMode.ForWrite);
                Point3d pnt = ed.GetPoint("选择表格内一点").Value;
                FullSubentityPath[] paths = new FullSubentityPath[0];
                TableHitTestInfo hitinfo = oTbl.Select(pnt, (pnt+Vector3d.ZAxis).GetAsVector(), Vector3d.YAxis, true, false, paths);
                ed.WriteMessage("Row{0} Col{1}", hitinfo.Row, hitinfo.Column);
                foreach (FullSubentityPath subpath in paths)
                {
                    if (subpath != null)
                    {
                        oTbl.Highlight(subpath, false);
                    }
                }
            }
        }

bjzjt · 发表于 2009-6-14 22:13

那就是说，用这个方法来把选择到的单元格亮显是不可能了？不知道ACAD内部是怎样将单元格亮显的？

雪山飞狐_lzh · 发表于 2009-6-14 22:23

试过paths设空值或定长数组，没有任何反应

极度怀疑Table类是自动桌子买来的，所以不予维护

而且Table类编辑时没有命令显示，这和其他的类不一样

可以试下自己实现亮显，即用ed对象直接在屏幕上把目标单元格重描一遍

不过这样意义不大

建议还是窗体操作，这样可操作性要好多了

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