用户登陆
站点日历
站点统计
最新评论
AutoCAD .Net 加载lisp [ 日期：2019-05-26 ] [ 来自：| 程序代码： |
<CommandMethod("lisptest")> _
Public Sub lisptest()
'设置标记并发送PLINE
Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim lispPath As String = "C:/test.lsp"
Dim loadStr As String = String.Format("(load ""{0}"") cmdtest" & vbLf, lispPath)
acDoc.SendStringToExecute(loadStr, False, False, False)
End Sub
(defun c:cmdtest()
(alert "hello world")
)
(alert "hello world")
)
|
|
暂时没有评论
| 发表评论 - 不要忘了输入验证码哦！ |