通过VBA拉伸尺寸

RickyD302 · 发表于 2022-7-6 15:22:50

我需要知道如何选择尺寸点，以便可以拉伸尺寸。我可以毫无问题地将维度对象添加到选择集中，但当我真的只想拉伸维度时，整个维度都会移动。当我尝试只获取控制点时，我得到一个致命错误，表明“调用的对象已与其客户端断开连接”的想法，提示解决方法？

KaiBo · 发表于 2022-7-6 16:01:22

你能告诉我们到目前为止你有什么代码吗？

RickyD302 · 发表于 2022-7-6 16:25:33

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）--致命

我想我必须指出我在寻找维度，但不要通过使用

[编程交流] 通过VBA拉伸尺寸

发表回复

精选推荐