XD::Odcl:PropList

守仁格竹GM · 发表于 2014-1-18 11:30:06

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

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

×

本帖最后由守仁格竹GM 于 2014-1-18 13:00 编辑

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

st788796 · 发表于 2014-1-18 11:48:26

支持一个:):)

liuyj · 发表于 2014-1-18 13:00:26

有点像doslib里的一个函数

st788796 · 发表于 2014-1-18 13:01:50

DOSLIB那些UI函数都可以用这种方式写出来

守仁格竹GM · 发表于 2014-1-18 13:02:10

本帖最后由守仁格竹GM 于 2014-1-18 13:03 编辑

liuyj 发表于 2014-1-18 13:00
有点像doslib里的一个函数

是的，这个是仿照dos_proplist 做出来的
面板都用OPENDCL完成后就可以少用一些插件，OPENDCL自主做面板比较灵活

A82613035571210 · 发表于 2014-1-18 13:47:37

支持學習................................

qyming1996 · 发表于 2014-1-18 15:01:57

学习一下，{:soso_e112:}

st788796 · 发表于 2014-1-19 08:46:20

可以改为交替颜色

守仁格竹GM · 发表于 2014-1-19 18:02:21

st788796 发表于 2014-1-19 08:46
可以改为交替颜色

现在是按列交替的，怎么调整都不是太满意

神秘将军 · 发表于 2014-1-19 19:38:17

好东西，顶一个

st788796 · 发表于 2014-1-19 20:54:37

守仁格竹GM 发表于 2014-1-19 18:02
现在是按列交替的，怎么调整都不是太满意

数据是按行的还是行交替好些

st788796 · 发表于 2014-1-27 08:24:51

简单的属性编辑

(defun c:tt (/ e al nal)
(if
(and (setq
e (car
(xdrx_entsel "\n拾取属性块: " '((0 . "insert") (66 . 1)))
)
)
(setq
al (mapcar
'(lambda (x)
(list x
(cons (xdrx_getpropertyvalue x "Tag")
(xdrx_getpropertyvalue x "Textstring")
)
)
)
(xdrx_insert_getattribs e)
)
)
(setq nal
(XD::Odcl:PropList
"晓东工具"
"属性编辑器"
(mapcar 'cadr al)
)
)
)
(progn
(mapcar '(lambda (x y)
(xdrx_setpropertyvalue (car x) "Textstring" (cdr y))
)
al
nal
)
)
)
(princ)
)

(defun c:tt (/ e al nal) 
  (if 
    (and (setq 
           e (car 
               (xdrx_entsel "\n拾取属性块: " '((0 . "insert") (66 . 1))) 
             ) 
         ) 
         (setq 
           al (mapcar 
                '(lambda (x) 
                   (list x 
                         (cons (xdrx_getpropertyvalue x "Tag") 
                               (xdrx_getpropertyvalue x "Textstring") 
                         ) 
                   ) 
                 ) 
                (xdrx_insert_getattribs e) 
              ) 
         ) 
         (setq nal 
                (XD::Odcl:PropList 
                  "晓东工具" 
                  "属性编辑器" 
                  (mapcar 'cadr al) 
                ) 
         ) 
    ) 
     (progn 
       (mapcar '(lambda        (x y) 
                  (xdrx_setpropertyvalue (car x) "Textstring" (cdr y)) 
                ) 
               al 
               nal 
       ) 
     ) 
  ) 
  (princ) 
)

h0404 · 发表于 2014-2-13 15:51:23

虽然看不懂,回复下，看下内容先,慢慢学。

q3_2006 · 发表于 2014-4-19 14:23:29

看看...谢谢分享!

gdslqs · 发表于 2014-4-21 12:35:10

开始学odcl

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

[发布] XD::Odcl:PropList

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

点评

点评