D=AcadApp.ActiveDocument.Utility.GetPoint(,"选择一个点：")
成都创新互联专注于企业全网整合营销推广、网站重做改版、尖扎网站定制设计、自适应品牌网站建设、HTML5、电子商务商城网站建设、集团公司官网建设、成都外贸网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为尖扎等各大城市提供网站开发制作服务。
你的参数没有弄对
GetPoint是个方法不是属性必须要括号()
他的两个参数为可选参数（startpoint，prompt）第一个参数是起始点，第二个参数是提示语
Private Function isopen() As AutoCAD.AcadApplication
Try
dim CADapp_temp AutoCAD.AcadApplication = GetObject(, "AutoCAD.Application")
return CADapp_temp
Catch ex As Exception
Return Nothing
End Try
End Function
'调用上面的函数,如果为nothing表示没有打开，否则打开并返回对象
Process.Start(“cad主程序的路径”，“要打开文件的目录”)
比如用记事本打开 c:\1.txt
Process.Start("C:\Windows\notepad.exe", "c:\1.txt")
