[求助]关于.net实现不了的功能，怎么办？

single-yu

我开发一些功能，.net实现不了，但是LIsp可以实现，那我该怎么办？可以在.net中调用LISP么？请教各位大侠！

雪山飞狐_lzh

哪些功能?

single-yu

版主，你就帮帮我吧，我是在cad06下搞的东西，但是有一个建属性块的时候，就出现致命错误，其他版本的CAD呢，我们这里没有人用

我想弄个.NET中，用LISP把这个功能实现了，我做的程序就缺这一步了！唉！苦恼呀！

single-yu

我想着用COM来创建属性块，但是总是搞不好，飞狐版主，你的VBA好，能否教教我呢！

所有点的数据都用.NET得到了，怎么能利用这些数据为每个点创建一个属性块？

能写一段，用COM创建的属性块么？谢了！

雪山飞狐_lzh

Cad06建属性快应该没什么问题的，以前做过的

看看你的代码？

另外，代码在其他版本有没问题？

。net调lisp前面的帖子我不是贴过方法了么

single-yu

2. Public Class Class1
3.     <CommandMethod("CBWA")> Public Sub CreateBlockWithAttributes()
4.         Dim db As Database = HostApplicationServices.WorkingDatabase
5.         Dim blockId As ObjectId = ObjectId.Null
6.         Dim record As New BlockTableRecord
7.         record.Name = "RmNum"
8.         Using trans As Transaction = db.TransactionManager.StartTransaction
9.             Dim points As New Point3dCollection
10.             points.Add(New Point3d(-18, -6, 0))
11.             points.Add(New Point3d(18, -6, 0))
12.             points.Add(New Point3d(18, 6, 0))
13.             points.Add(New Point3d(-18, 6, 0))
14.             Dim pline As New Polyline2d(Poly2dType.SimplePoly, points, 0, True, 0, 0, Nothing)
15.             record.Origin = points(3)
16.             record.AppendEntity(pline)
17.             Dim attdef As New AttributeDefinition
18.             attdef.Position = New Point3d(100, 200, 0)
19.             attdef.Height = 8
20.             attdef.Rotation = 0
21.             attdef.HorizontalMode = TextHorizontalMode.TextMid
22.             attdef.VerticalMode = TextVerticalMode.TextVerticalMid
23.             attdef.Prompt = "Room Number;"
24.             attdef.TextString = "0000"
25.             attdef.Tag = "Number"
26.             attdef.Invisible = False
27.             attdef.Verifiable = False
28.             attdef.Preset = False
29.             attdef.Constant = False
30.             record.Origin = points(3)
31.             record.AppendEntity(attdef)
32.             Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForWrite)
33.             If bt.Has("RmNum") = False Then
34.                 blockId = bt.Add(record)
35.                 trans.AddNewlyCreatedDBObject(record, True)
36.                 trans.Commit()
37.             End If
38.         End Using
39.     End Sub
40. End Class

Public Class Class1     <CommandMethod("CBWA")> Public Sub CreateBlockWithAttributes()         Dim db As Database = HostApplicationServices.WorkingDatabase         Dim blockId As ObjectId = ObjectId.Null         Dim record As New BlockTableRecord         record.Name = "RmNum"         Using trans As Transaction = db.TransactionManager.StartTransaction             Dim points As New Point3dCollection             points.Add(New Point3d(-18, -6, 0))             points.Add(New Point3d(18, -6, 0))             points.Add(New Point3d(18, 6, 0))             points.Add(New Point3d(-18, 6, 0))             Dim pline As New Polyline2d(Poly2dType.SimplePoly, points, 0, True, 0, 0, Nothing)             record.Origin = points(3)             record.AppendEntity(pline)             Dim attdef As New AttributeDefinition             attdef.Position = New Point3d(100, 200, 0)             attdef.Height = 8             attdef.Rotation = 0             attdef.HorizontalMode = TextHorizontalMode.TextMid             attdef.VerticalMode = TextVerticalMode.TextVerticalMid             attdef.Prompt = "Room Number;"             attdef.TextString = "0000"             attdef.Tag = "Number"             attdef.Invisible = False             attdef.Verifiable = False             attdef.Preset = False             attdef.Constant = False             record.Origin = points(3)             record.AppendEntity(attdef)             Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForWrite)             If bt.Has("RmNum") = False Then                 blockId = bt.Add(record)                 trans.AddNewlyCreatedDBObject(record, True)                 trans.Commit()             End If         End Using     End Sub End Class

平台是Autocad2006 VB.net2005

雪山飞狐_lzh

Public Class Class1
   <CommandMethod("CBWA")> Public Sub CreateBlockWithAttributes()
      Dim db As Database = HostApplicationServices.WorkingDatabase
      Dim blockId As ObjectId = ObjectId.Null

      Using trans As Transaction = db.TransactionManager.StartTransaction
          Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForWrite)
          If bt.Has("RmNum") Then
                     Return
          End If

          Dim record As New BlockTableRecord
          record.Name = "RmNum"
          blockId = bt.Add(record)
          trans.AddNewlyCreatedDBObject(record, True)

          Dim points As New Point3dCollection
          points.Add(New Point3d(-18, -6, 0))
          points.Add(New Point3d(18, -6, 0))
          points.Add(New Point3d(18, 6, 0))
          points.Add(New Point3d(-18, 6, 0))

          Dim pline As New Polyline2d(Poly2dType.SimplePoly, points, 0, True, 0, 0, Nothing)
          record.Origin = points(3)
          record.AppendEntity(pline)
          trans.AddNewlyCreatedDBObject(pline, True)

          Dim attdef As New AttributeDefinition
          attdef.Position = New Point3d(100, 200, 0)
          attdef.Height = 8
          attdef.Rotation = 0
          attdef.HorizontalMode = TextHorizontalMode.TextMid
          attdef.VerticalMode = TextVerticalMode.TextVerticalMid
          attdef.Prompt = "Room Number;"
          attdef.TextString = "0000"
          attdef.Tag = "Number"
          attdef.Invisible = False
          attdef.Verifiable = False
          attdef.Preset = False
          attdef.Constant = False
          record.Origin = points(3)
          record.AppendEntity(attdef)
          trans.AddNewlyCreatedDBObject(attdef, True)

          trans.Commit()

      End Using
   End Sub
End Class

single-yu

single-yu

还是有错误，这是怎么回事呢？

雪山飞狐_lzh

逐步调试下，是那句代码的问题看看

不过代码在2008下没有任何问题

要么是2006下要用特殊的代码顺序写，要么是Bug