【已解决】如何用VLAX-LDATA-PUT给词典赋值，用VLAX-LDATA-GET 取词典中定义的值

pengxinming · 发表于 2019-2-24 19:07:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 pengxinming 于 2019-2-25 22:18 编辑

请教论坛高手们：用VLAX-LDATA-PUT 如何给词典赋值，用VLAX-LDATA-GET 取词典中定义的值，功能象南方CASS成图软件里手工展单个高程点那样，比如输入高程值为“123”，接连展出的高程点都是‘’123“，要能记住“123”数值，在进行其他命令后回来再展高程点，数值要任然是“123”，有实例讲解吗？请高手们发一个实例学习一下，谢谢！！！

Lisphk · 发表于 2019-2-24 21:27:50

南方CASS用的是扩展实体数据

marting · 发表于 2019-2-24 21:34:32

下面例子是递增数字建LEADER
用LDATA保存全局变量

(defun c:leadnum (/ lm)
(vl-load-com)
(setq lm (vlax-ldata-get "leadnum" "currentnum"))
(if (not lm)
(setq lm (vlax-ldata-put "leadnum" "currentnum" 0))
)
(vl-cmdf "_Leader" pause pause "" (rtos lm) "")
(vlax-ldata-put "leadnum" "currentnum" (1+ lm))
)

pengxinming · 发表于 2019-2-25 09:05:02

Lisphk 发表于 2019-2-24 21:27
南方CASS用的是扩展实体数据

哦，谢谢老师指导！

pengxinming · 发表于 2019-2-25 09:06:21

pengxinming 发表于 2019-2-25 09:05
哦，谢谢老师指导！

本论坛litss老师发了一个帖子内容如下：

[PHP]
(defun c:test (/ aa)
  (if (vlax-ldata-get "dict" "a")
()
(vlax-ldata-put "dict" "a" "200")
  )
  (setq aa (getstring (strcat "\nInput String [" (vlax-ldata-get "dict" "a") "]:")))
  (if (= aa nil)
()
(vlax-ldata-put "dict" "a" aa)
  )
  (princ)
)
[/PHP]
测试验证结果：执行命令，初始值200，只能赋值一次，在执行第二次、第三次、第四次。。。都是空的，直到输入新值。所以再请教marting老师把litss老师编写的这段内容
在优化一下，使程序能够连续赋值，始终不为空值，因为这个功能对我来说很比较实用，本人正在学习之中，再次谢谢老师的指点和帮助！！！

Lisphk · 发表于 2019-2-25 09:16:53

pengxinming 发表于 2019-2-25 09:06
本论坛litss老师发了一个帖子内容如下：

(if (= aa nil)

这个改成

(if (= aa "")

试试

pengxinming · 发表于 2019-2-25 10:00:18

本帖最后由 pengxinming 于 2019-2-25 10:07 编辑

Lisphk 发表于 2019-2-25 09:16
(if (= aa nil)

这个改成

改了
测试成功！
谢谢Lisphk老师！问题已解决！！！

sicky111 · 发表于 2019-2-25 10:06:05

学习一下了。

newer · 发表于 2019-2-25 10:25:42

pengxinming 发表于 2019-2-25 10:00
改了
测试成功！
谢谢Lisphk老师！问题已解决！！！

解决了，请编辑下主题贴，标题前面粘贴上【已解决】

pengxinming · 发表于 2019-2-25 10:40:15

newer 发表于 2019-2-25 10:25
解决了，请编辑下主题贴，标题前面粘贴上【已解决】

请教newer老师怎么进入编辑主题贴？我第一次，没有弄过，谢谢老师！

pengxinming · 发表于 2019-2-25 10:41:22

newer 发表于 2019-2-25 10:25
解决了，请编辑下主题贴，标题前面粘贴上【已解决】

请教newer老师怎么进入编辑主题贴？我第一次，没有弄过，谢谢老师！

账号		自动登录	找回密码
密码			立即注册

[已解决] 【已解决】如何用VLAX-LDATA-PUT给词典赋值，用VLAX-LDATA-GET 取词典中定义的值

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

【已解决】如何用VLAX-LDATA-PUT给词典赋值，用VLAX-LDATA-GET 取词典中定义的值

点评