请教用sendcommand命令圆角问题

请教各位高人帮助 我想实现圆弧和线段的圆角处理，引用论坛里牛人sendcommand代码，可以实现功能，但是倒出来的圆角位置不对，请高人，帮忙啊。。。 千恩万谢。。。。 代码如下，vb中写的。代码中红色这一段没搞清楚什么意思。但是程序是通的，而且的确倒了圆角，只是结果非我所要求的。如何改？？？ AcadApp.ActiveDocument.SendCommand "_fillet" & vbCr & "r" & vbCr & "5" & vbCr & "t" & vbCr & "t" & vbCr & "(handent " & Chr(34) & lineObj1.Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & arcNsObj.Handle & Chr(34) & ")" & vbCr

认证的学习了一下您的代码，有一点搞不清楚 det2 = GetDoubleEntTable(entObj2, Pnt2) 函数，这个pnt2是什么东西，是图元entObj2上的点吗？？ det2 = GetDoubleEntTable(entObj2, Pnt2) 这个det2 的转换，还是有点不理解，我的程序如下，麻烦高人看看，如何修改 我现在想做的是，不用选择图元，而是直接引用两个图元，lineObj1,和arcNsObj进行sendcommand 圆角命令，代码如下，结果还是和原来一样。 Dim Pnt1 As Variant Dim det1 As Stringdet1 = axEnt2lspEnt(lineObj1) Dim Pnt2 As Variant Dim det2 As Stringdet2 = GetDoubleEntTable(arcNsObj, startPointNs) 'startpointNs 是arcNsObj图元的起点 AcadApp.ActiveDocument.SendCommand "_fillet" & vbCr & "r" & vbCr & "2" & vbCr & "t" & vbCr & "t" & vbCr & det1 & vbCr & vbCr & det2 & vbCr & vbCr 执行最后一句代码时，监视到 det1="(handent "89")" det2="(list(handent "88")(list 25 0 0))"

阅读器不能发送动态数据交换指令。 就是说你这个pdf文件损坏 或者你的pdf软件损坏了

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息