为xdrx_getpropertyvalue加个plate

brainstorm · 发表于 2017-7-22 21:07:52

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

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

×

;;;polyline时候(xdrx_getproperty en t)会出错
(defun c:it1 (/ B E LST val2lst)
(defun val2lst (lst)
(apply 'append
(mapcar '(lambda
(x)
(append
(list
(list (car x) "")
)
(mapcar
'(lambda (b)
(list "" b)
) ;lambda b
(cadr x)
) ;mapcar 2
) ;append
)
lst
)
)
)
(if (not (dcl-form-isactive xdrx_getproperty/form1))
(progn (dcl-project-load "xdrx_getproperty" t)
(dcl-form-show xdrx_getproperty/form1)
)
)
(if
(and
(setq e (car (xdrx_entsel "选择查询图元")))
(setq lst (val2lst (xdrx_getpropertyvalue e t)))
)
(progn
(dcl-grid-filllist xdrx_getproperty/form1/grid1 lst)
(dcl-Control-SetColumnStyleList
xdrx_getproperty/Form1/Grid1
'(0 6)
)
)
)
)

;;;polyline时候(xdrx_getproperty en t)会出错 
(defun c:it1 (/ B E LST val2lst) 
  (defun val2lst (lst) 
    (apply 'append 
           (mapcar '(lambda 
                      (x) 
                       (append 
                         (list 
                           (list (car x) "") 
                         ) 
                         (mapcar 
                           '(lambda (b) 
                              (list "" b) 
                            )                ;lambda b 
                           (cadr x) 
                         )                ;mapcar 2 
                       )                ;append 
                    ) 
                   lst 
           ) 
    ) 
 
  ) 
  (if (not (dcl-form-isactive xdrx_getproperty/form1)) 
    (progn (dcl-project-load "xdrx_getproperty" t) 
           (dcl-form-show xdrx_getproperty/form1) 
    ) 
  ) 
  (if 
    (and 
      (setq e (car (xdrx_entsel "选择查询图元"))) 
      (setq lst (val2lst (xdrx_getpropertyvalue e t))) 
    ) 
     (progn 
       (dcl-grid-filllist xdrx_getproperty/form1/grid1 lst) 
       (dcl-Control-SetColumnStyleList 
         xdrx_getproperty/Form1/Grid1 
         '(0 6) 
       ) 
 
     ) 
  )   
)

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

[每日一码] 为xdrx_getpropertyvalue加个plate

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

评分