(XD::Table:Type)判断表格的类型

Lispboy · 发表于 2016-7-18 19:22:21

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

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

×

(defun XD::Table:Type (tb / name typ) (cond
((= tb T)
(xd::symbol:get '#XD-VAR-GLOBAL-TABLE-TYPE)
)
((= (type tb) 'STR)
(if (= (strcase tb) "SHEET")
"E"
)
)
(t
(if (xd::list:isTable tb)
"L"
(progn
(setq typ (car (xdrx_object_classname tb)))
(cond
((and
(= typ "INSERT")
(progn
(setq name (car (xdrx_getpropertyvalue tb
"blocktablerecord"
)
)
)
(xdrx_string_regexps "^XD_XTABLE-[0-9]+$" name)
)
)
"X"
)
((= typ "ACAD_TABLE")
"A"
)
)
)
)
)
)
)

(defun XD::Table:Type (tb / name typ)  (cond 
    ((= tb T) 
      (xd::symbol:get '#XD-VAR-GLOBAL-TABLE-TYPE) 
    ) 
    ((= (type tb) 'STR) 
      (if (= (strcase tb) "SHEET") 
        "E" 
      ) 
    ) 
    (t 
      (if (xd::list:isTable tb) 
        "L" 
        (progn 
          (setq typ (car (xdrx_object_classname tb))) 
          (cond 
            ((and 
               (= typ "INSERT") 
               (progn 
                 (setq name (car (xdrx_getpropertyvalue tb 
                                                        "blocktablerecord" 
                                 ) 
                            ) 
                 ) 
                 (xdrx_string_regexps "^XD_XTABLE-[0-9]+$" name) 
               ) 
             ) 
              "X" 
            ) 
            ((= typ "ACAD_TABLE") 
              "A" 
            ) 
          ) 
        ) 
      ) 
    ) 
  ) 
)

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

[表格] (XD::Table:Type)判断表格的类型

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