马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
首先写入一个 ldata
命令: (vlax-ldata-put "my" "1" '((1 . 0) (2 "dd")))
((1 . 0) (2 "dd"))
再定义一个lisp函数读取ldata
命令: (defun c:myldata () (vlax-ldata-get "my" "1"))
C:MYLDATA
在定义一个命令

- [CommandMethod("mldata")]
- public void Getldata()
- {
- ResultBuffer rb=new ResultBuffer();
- rb.Add(new TypedValue((int)LispDataType.Text,"c:myldata"));
- var ret = Application.Invoke(rb);
- foreach (TypedValue typedValue in ret.AsArray())
- {
- Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage("\n{0};{1}",typedValue.TypeCode,typedValue.Value);
- }
- }
然后在acad中加载运行
命令: MLDATA
5016;-1
5003;1
5003;0
5018;-1
5016;-1
5003;2
5005;dd
5017;-1
|