网上收集到的VBA使用fillet的实例。

ningyong58

1、在这个帖子处理fillet的一个要点

http://www.cadtutor.net/forum/showthread.php?t=20725

ThisDrawing.SetVariable "FILLETRAD", filrad'-----用setvariable设置内置的fillet的R数字.
Dim commStr As String
commStr = "_FILLET _P " & _
"(handent " & Chr(34) & oPline.Handle & Chr(34) & ")" & vbCr  '--------常用的lisp方法处理fillet命令.
ThisDrawing.SendCommand commStr

2、涉及到双元表

Fillet命令与鼠标点击的位置有关。从哪一端圆角，就看你鼠标点击的位置了，所以在程序里就有一个特殊的表“双元表”，专门来处理这样的问题。详见http://www.mjtd.com/Develop/ArticleShow.asp?ArticleID=351

3、使用SendCommand命令执行fillet倒角功能

http://www.mjtd.com/BBS/dispbbs.asp?BoardID=4&replyID=42794&id=57020&skin=0

mccad

AutoCAD许多的命令需要传递的是双元表，即对象和选择对象所在的坐标点的表。这样AutoCAD才能判断该处理所选对象的哪个位置。