如果把第一行代码删除，且在CAD中最后一个元素是直线的话，后面的代码是可以执行的。
但MsgBox tanStartPoint这一句会出错，因为tanStartPoint是一个数组，可改为：
MsgBox tanStartPoint(0) & " , " & tanStartPoint(1)
而且对变量最好应该事先声明：
Dim tanLineObj As AcadLine
你在Sendcommand的Line命令中用了"Tan"，我猜是要取某个曲线的切线，那么输入的第一点必须在曲线的附近。
我做了尝试，把 firstTanpoint(0)和 angle这两个变量 用常数代替进行了试验，可以运行成功。
你检查一下，这两个变量赋值是否正确。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024