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

XD::Odcl:PropList

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

**** Hidden Message *****


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)
)

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

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

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

看看...谢谢分享!

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

开始学odcl

页: [1] 2 3 4 5
查看完整版本: XD::Odcl:PropList