yswoyh 发表于 2022-6-1 12:42:21

EXTEND 命令 在 VB 中如何操作

EXTEND 命令 在 VB 中如何操作

mikewolf2k 发表于 2022-6-2 08:46:52

自己计算交点或者sendcommand

yswoyh 发表于 2022-6-2 09:30:07

mikewolf2k 发表于 2022-6-2 08:46
自己计算交点或者sendcommand

先自己试试，不懂的地方还请先生教我

yswoyh 发表于 2022-6-2 10:36:42

mikewolf2k 发表于 2022-6-2 08:46
自己计算交点或者sendcommand

      SendCommand这么操作，没有反应，我不太懂，请指教
       xpe = acaddoc.ModelSpace.Count
      For i = xps To xpe - 1 Step 2
            obj = acaddoc.ModelSpace.Item(i)
            acaddoc.SendCommand("_EXTEND" & pdx & vbCr & obj & vbCr)
      Next

mikewolf2k 发表于 2022-6-2 11:36:26

sendcommand是完全模拟键盘操作，不支持任何变量。自己先键盘操作成功了，再把所有输入的字符原样加在sendcommand里面去。

yswoyh 发表于 2022-6-2 11:43:33

mikewolf2k 发表于 2022-6-2 11:36
sendcommand是完全模拟键盘操作，不支持任何变量。自己先键盘操作成功了，再把所有输入的字符原样加在sendc ...

看到了 zzyong00 版主的这个
objDoc.SendCommand "_extend" & vbCr & "(handent """ & objPL1.Handle & """)" & vbCr & vbCr & "(handent """ & objPL2.Handle & """)" & vbCr & vbCr'不同autocad版本，命令格式可能稍有不同
我的程序里面还有些问题，有些延伸不了

kuangben8 发表于 2022-6-2 14:26:43

循环每条直线和指定直线，获取交点，然后将直线的一个端点坐标修改为交点坐标。

yswoyh 发表于 2022-6-2 19:48:45

kuangben8 发表于 2022-6-2 14:26
循环每条直线和指定直线，获取交点，然后将直线的一个端点坐标修改为交点坐标。
琢磨了一下，有C:\Users\Administrator\Desktop\11.jpg一个问题如果遇到求交点的图形是一个闭合或者U形，就会有2个交点

chixun99 发表于 2022-6-7 12:08:00

yswoyh 发表于 2022-6-2 19:48
琢磨了一下，有一个问题如果遇到求交点的图形是一个闭合或者U形，就会有2个交点

类似这样有多个交点的，判断最短的交点，然后连接绘制直线段。较远的交点忽略。实现一次延伸到达一个较近的交点
页: [1]
查看完整版本: EXTEND 命令 在 VB 中如何操作