[求助]help!!
我在尝试做一个二维的元件系统，此系统会重复用到很多宏（如插入块宏)我的问题是：当我插入一个块 并且 画了一条直线（直线的一端在块上） 实现块移动时直线随动
我知道vba有modify event可以触发代码（先删除所连直线，再根据在块上的point 重画一条直线 再update一下。但问题是：当我移动块的时候我如何知道是那条直线
连着了，我甚至无法在move block时让直线的点也跟着动，vba有触发事件 但如何触发直线的
重置（并且使系统知道该触发谁）
-----------------------------请您多指教---------------------------------------
-----------------------------谢谢！！-----------------------------------------
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]