设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1261|回复: 29

[符号表] (XD::Symbol:Put)保存符号名称和值

[复制链接]

已领礼包: 1262个

财富等级: 财源广进

发表于 2016-5-22 08:33:13 | 显示全部楼层 |阅读模式
函数发布
函数名称: XD::Symbol:Put
调用格式: (XD::Symbol:Put sym val)
参数说明: sym - 符号
val - 值
返回值: T
函数简介: 保存符号名称和值
函数来源: 原创
函数作者:
适用版本: 不限 
最后更新时间: 2016-05-22
备注: -
演示图片: -

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

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
本帖最后由 st788796 于 2016-5-22 08:34 编辑

游客,如果您要查看本帖隐藏内容请回复

_$ (xd::symbol:put 'dimension_layer "1")
T
_$
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 19个

财富等级: 恭喜发财

发表于 2016-5-22 14:14:03 | 显示全部楼层
大师,今天发布的这些符号函数,是保存全局变量时候用的吗? 能给写几个例子吗?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1262个

财富等级: 财源广进

 楼主| 发表于 2016-5-22 14:54:41 | 显示全部楼层
Lisphk 发表于 2016-5-22 14:14
大师,今天发布的这些符号函数,是保存全局变量时候用的吗? 能给写几个例子吗?


是的,以前全局变量都是直接定义一个符号,今天写一个程序时想改变一下,翻了翻函数库中没有找到一个合适的容器,就写了这几个函数,下面是一个例子,尚未完成

  1. (defun c:tt (/ _print p1 d flag)
  2.   (defun _print        ()
  3.     (princ (strcat "\n当前设置: "
  4.                    (cond
  5.                      ((zerop (xd::symbol:get 'dimension_mode))
  6.                       "水平; "
  7.                      )
  8.                      ((= (xd::symbol:get 'dimension_mod) 1)
  9.                       "垂直; "
  10.                      )
  11.                      (t "任意角度; ")
  12.                    )
  13.                    "距离 :"
  14.                    (rtos (xd::symbol:get 'dimension_space) 2 3)
  15.            )
  16.     )
  17.   )
  18.   (if (not (xd::symbol:get 'DIMENSION_LAYER))
  19.     (xd::symbol:put 'DIMENSION_LAYER (getvar "clayer"))
  20.   )
  21.   (if (not (xd::symbol:get 'DIMENSION_SpaCE))
  22.     (xd::symbol:put
  23.       'DIMENSION_SpaCE
  24.       (/ (getvar "viewsize") 5.0)
  25.     )
  26.   )
  27.   (if (not (xd::symbol:get 'DIMENSION_Mode))
  28.     (xd::symbol:put 'DIMENSION_Mode 0)
  29.   )
  30.   (setq flag t)
  31.   (while (and flag
  32.               (progn
  33.                 (_print)
  34.                 (initget 128 "C D V H A")
  35.                 (setq p1 (getpoint
  36.                            "\n第一点[设置图层(C)/设置距离(D)/水平(H)/垂直(V)/任意角度(A)]: "
  37.                          )
  38.                 )
  39.               )
  40.          )
  41.     (cond
  42.       ((= p1 "C")
  43.        (if (setq e (car (entsel "\n拾取标准实体图层: ")))
  44.          (xd::symbol:put
  45.            'DIMENSION_LAYER
  46.            (xdrx_getpropertyvalue e "layer")
  47.          )
  48.        )
  49.       )
  50.       ((= p1 "D")
  51.        (if (setq d (getdist "\n距离: "))
  52.          (xd::symbol:put 'DIMENSION_SAPCE d)
  53.        )
  54.       )
  55.       ((= p1 "H")
  56.        (xd::symbol:put 'dimension_mode 1)
  57.       )
  58.       ((= p1 "V")
  59.        (xd::symbol:put 'dimension_mode 0)
  60.       )
  61.       ((= p1 "A")
  62.        (xd::symbol:put 'dimension_modd 2)
  63.       )
  64.       ((= (type p1) 'LIST) (setq flag nil))
  65.       (t )
  66.     )
  67.   )
  68.   (if (= (type p1) 'LIST)
  69.     (progn
  70.       (if (zerop (xd::symbol:get 'dimension_mode))
  71.         (xdrx_sysvar_push '("ortho" 0))
  72.         (xdrx_sysvar_push '("ortho" 1))
  73.       )
  74.       (setq p2 (getpoint p1 "\n第二点: "))
  75.     )
  76.   )
  77.   (princ)
  78. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 7766个

财富等级: 富甲天下

发表于 2016-5-22 15:07:16 | 显示全部楼层
先收藏再学习
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2961个

财富等级: 家财万贯

发表于 2016-5-23 10:07:43 | 显示全部楼层
good good.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 1740个

财富等级: 堆金积玉

发表于 2017-6-18 19:18:39 | 显示全部楼层
回复学习
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 7809个

财富等级: 富甲天下

发表于 2017-6-19 14:18:58 来自手机 | 显示全部楼层
收藏学习了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 474个

财富等级: 日进斗金

发表于 2017-8-8 13:19:26 | 显示全部楼层
收藏一下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 2个

财富等级: 恭喜发财

发表于 2017-8-9 12:51:44 | 显示全部楼层
感谢分享,看看内容。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2个

财富等级: 恭喜发财

发表于 2017-8-9 14:43:51 | 显示全部楼层
先收藏再学习
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 187个

财富等级: 日进斗金

发表于 2017-8-11 13:34:00 | 显示全部楼层
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 57个

财富等级: 招财进宝

发表于 2017-8-21 00:22:15 来自手机 | 显示全部楼层
变量保存在哪里了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2017-11-23 13:37:34 | 显示全部楼层
支持下楼主
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2017-12-2 20:11:27 | 显示全部楼层
谢谢 看看 学习
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2018-2-25 14:27:36 | 显示全部楼层
认真学习看,感谢分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2021-2-27 11:06 , Processed in 0.089658 second(s), 45 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表