[求助]help!!
我在尝试做一个二维的元件系统，此系统会重复用到很多宏（如插入块宏)我的问题是：当我插入一个块 并且 画了一条直线（直线的一端在块上） 实现块移动时直线随动
我知道vba有modify event可以触发代码（先删除所连直线，再根据在块上的point 重画一条直线 再update一下。但问题是：当我移动块的时候我如何知道是那条直线
连着了，我甚至无法在move block时让直线的点也跟着动，vba有触发事件 但如何触发直线的
重置（并且使系统知道该触发谁）
-----------------------------请您多指教---------------------------------------
-----------------------------谢谢！！-----------------------------------------
可以利用XData(扩展数据)来实现这个功能
1.在利用程序画完直线后，应该将直线的ObjectID保存在图块的XData中。下面的例子看看怎样将直线的ID保存下来，你自己把内容写到你的程序中：'将Entity1对象的ObjectID保存到Entity2对象的XData中的函数
Function SetObjectIDtoNextEntXData (Entity1 As AcadEntity, Entity2 As AcadEntity)
Dim Entity1 As AcadEntity
Dim BlkXType(0 To 1) As Integer
Dim BlkXValue(0 To 1) As Variant
BlkXType(0) = 1001: BlkXValue(0) = "BlkAttLine"
BlkXType(1) = 1071: BlkXValue(1) = Entity1.ObjectID
Entity2.SetXData BlkXType, BlkXValue
End Function
2.下面的程序可以实现你的功能了：
Private Sub AcadDocument_ObjectModified(ByVal Object As Object)
Dim Entity As AcadObject
Set Entity = Object
Dim BlkXValue As Variant
Dim BlkXType As Variant
Dim LineID As Long
Dim LineEntity As AcadEntity
If Entity.ObjectName = "AcDbBlockReference" Then
Entity.GetXData "BlkAttLine", BlkXType, BlkXValue
If IsArray(BlkXType) Then
LineID = BlkXValue(1)
Set LineEntity = ThisDrawing.ObjectIdToObject(LineID)
LineEntity.Move LineEntity.StartPoint, Entity.InsertionPoint
End If
End If
End Sub
另外，你可以设置更多的条件限制，如图块名称的限制。
真是点睛之笔，非常感谢！
另外，想请教 vba 的书我已有不少 可就是买不到更深层次的书（住天津，能买的都买了，都是像字典一样的简单程序介绍，启发不大）===================================================================
是不是我的购买方式不对（在书店购买是只找带vba 三个字的书）
难道是找有 activeX之类字样的
-------------------------------------------------------------------
帮忙推荐几本吧？
========================非常感谢！！===============================
前一个触发事件
您好：请问，当一直线连上一个块时触发事件
应如何做（用vba），这个问题我已想了很
久。如果vba里没有，vlisp有没有呢（我对
vlisp不太熟）
---------------请多指教---------------
===============谢谢！！===============
我还有个问题，请看贴子 “前一个触发事件”
请看贴子 “前一个触发事件”（带图片jpg的那个）-------------谢谢！--------------------------
现在的书商很多都是为了赚钱，而不是为了普及知识，更深的问题，可到这里讨论
最好是用自己写的程序画直线，因为这些直线是有特定要求的
其实对于一些专业的程序来说，用触发的方式只是辅助用，有些具有特殊意义的实体还是用自己的程序来完成，这样做起来方便，而且也不会产生在画图过程中无意识地触发其它不必要的动作。对于你这个方式，你可以自定义一个画线的命令，选择起点，选择图块，这样通过图块属性中的插入点可以取得直线的终点来画线，而画完线后就可以直接取得直线的ID并保存在刚才选择图块的XData中。
谢！
呵，我也找到方法了。
关于尺寸驱动的问题。
页:
[1]