用VBA断线

kyosmith · 发表于 2022-7-6 11:25:13

大家好！
我需要帮助：我有2个实体（2行）和getentity，我有3个点

我需要在这些点处打断这些线，但只有我选择的最后一条线会打断。另一个给出了一个“未找到的对象”，当我以不同的顺序选择它们时，只有最后一个再次起作用。

我用这个来打破：

B点1=此图纸。公用事业PolarPoint（基点，angapoio，3.763）
B点2=此图纸。公用事业PolarPoint（基点，angapoio2，3.763）

bpx=基点（0）
bpy=基点（1）

x1=B点1（0）
y1=B点1（1）
x2=B点2（0）
y2=B点2（1）

guarda（0）=替换（x1，“，”，“”）
guarda（1）=替换（y1，“，”，“”）
guarda1（0）=替换（x2，“，”，“”）
guarda1（1）=替换（y2，“，”，“”）
guarda2（0）=替换（bpx，“，”，“”）
guarda2（1）=替换（bpy，“，”，“”）

此图纸。SendCommand“_Break”&vbCr&guarda1（0）&“，”&guarda1（1）&vbCr&guarda2（0）&“，”&guarda2（1）&vbCr

此图纸。SendCommand“_Break”&vbCr&guarda（0）&”、“&guarda（1）&vbCr&guarda2（0）&”、“&guarda2（1）&vbCr

'结束

替换是因为vba使用“，”而不是“”然后我需要转换

如果有其他方法不用send命令就断线，请告诉我！

谢谢大家！