通过VBA拉伸尺寸
我需要知道如何选择尺寸点，以便可以拉伸尺寸。我可以毫无问题地将维度对象添加到选择集中，但当我真的只想拉伸维度时，整个维度都会移动。当我尝试只获取控制点时，我得到一个致命错误，表明“调用的对象已与其客户端断开连接”的想法，提示解决方法？ 你能告诉我们到目前为止你有什么代码吗？ fcode（0）=-4:ftype（0）=“fcode（1）=0:ftype（1）=“插入”F代码（2）=100:F类型（2）=“尺寸”
F代码（3）=-4:F类型（3）=“或>”
出错时继续下一步
此图纸。选择集。项目（“HandleSelection”）。删去
出错时转到0
设置objss=ThisDrawing。选择集。添加（“HandleSelection”）
objss。选择acSelectionSetCrossing、pt1、pt2、fcode、ftype
对于OBJS中的每个OBJS选择
objSelection。移动vOldPT、HandleLocPT
objSelection。使现代化
下一个
然后我尝试添加控制点
F代码（3）=14:F类型（3）=vOldPT
我得到了致命错误，因为我只提供了3点阵列的一维
F代码（3）=14:F类型（3）=vOldPT（0）--致命
我想我必须指出我在寻找维度，但不要通过使用
页:
[1]