求助：怎么在 AcadDocument_ObjectModified 里面编程？

xinjl

我得想法：
在dwg里面（模型或者图纸空间),修改一个直线后，比如拉伸，使之长度变化，自动触发这个事件，然后把直线的信息更新（在图纸里面，收集直线所含的信息，比如长度）。但是我现在不知道如何处理。
Private Sub AcadDocument_ObjectModified(ByVal Object As Object)

End Sub
这是vba自动形成的例程，怎么才能操作这个修改的直线呢？用 object as acadline ?还是别的语句？

直接用：
Object.Lineweight = acLnWt100

提示不支持这个属性，怎么才能转换这个object 到 acadline？

谢谢了。

xinglee

在程序中添加一行图元类型判断语句即可。