墙长统计

st788796 · 发表于 2014-3-31 06:46:16

hphkjz 发表于 2014-3-31 06:15
大哥，是不是lisp数据库还不全呢，我运行时出现no function definition: VLAX-ENAME->VLA-OBJECT ...

(vl-load-com)

(vl-load-com)
(defun c:tt (/ ss el ll i)
(defun _getwalllength (e / el _HasWindows len)
(defun _HasWindows (el)
(assoc 330 (cdr (member (assoc 330 el) el)))
)
(setq el (entget e)
len (apply 'distance (xdrx_entity_getstretchpoint e))
)
(if (_HasWindows el)
(- len
(apply
'+
(mapcar '(lambda (a)
(cdr (assoc 40 (entget a))) ;_门窗洞开尺寸
)
(mapcar
'cdr
(vl-remove-if-not
'(lambda (x)
(and (= (car x) 330)
(/= (cdr (assoc 0 (entget (cdr x))))
"BLOCK_RECORD"
)
) ;_门窗
)
el
)
)
)
)
)
len
)
)
(if (setq ss (ssget '((0 . "TCH_WALL"))))
(progn
(setq el
(mapcar
'(lambda (x)
(list (vlax-get (vlax-ename->vla-object x) 'TotalWidth) ;_墙厚
x
)
)
(xdrx_pickset->ents ss)
)
el (XD::List:GroupByIndex el 1e-3)
)
(setq ll (mapcar '(lambda (x)
(list (car x)
(apply '+
(mapcar '(lambda (a)
(_getwalllength a)
)
(cdr x)
)
)
)
)
el
)
i 0
)
(if (setq p (getpoint "\nOutput Point: "))
(XD::Table:Make
(cons
'("序号" "墙厚" "总长度")
(mapcar '(lambda (x)
(list (itoa (setq i (1+ i)))
(rtos (car x) 2 0)
(rtos (cadr x) 2 0)
)
)
ll
)
)
p
800.
250.
)
ll
)
)
)(princ)
)

(vl-load-com) 
(defun c:tt (/ ss el ll i) 
  (defun _getwalllength        (e / el _HasWindows len) 
    (defun _HasWindows (el) 
      (assoc 330 (cdr (member (assoc 330 el) el))) 
    ) 
    (setq el  (entget e) 
          len (apply 'distance (xdrx_entity_getstretchpoint e)) 
    ) 
    (if        (_HasWindows el) 
      (- len 
         (apply 
           '+ 
           (mapcar '(lambda (a) 
                      (cdr (assoc 40 (entget a))) ;_门窗洞开尺寸 
                    ) 
                   (mapcar 
                     'cdr 
                     (vl-remove-if-not 
                       '(lambda        (x) 
                          (and (= (car x) 330) 
                               (/= (cdr (assoc 0 (entget (cdr x)))) 
                                   "BLOCK_RECORD" 
                               ) 
                          ) ;_门窗 
                        ) 
                       el 
                     ) 
                   ) 
           ) 
         ) 
      ) 
      len 
    ) 
  ) 
  (if (setq ss (ssget '((0 . "TCH_WALL")))) 
    (progn 
      (setq el 
               (mapcar 
                 '(lambda (x) 
                    (list (vlax-get (vlax-ename->vla-object x) 'TotalWidth) ;_墙厚 
                          x 
                    ) 
                  ) 
                 (xdrx_pickset->ents ss) 
               ) 
            el (XD::List:GroupByIndex el 1e-3) 
      ) 
      (setq ll (mapcar '(lambda        (x) 
                          (list        (car x) 
                                (apply '+ 
                                       (mapcar '(lambda        (a) 
                                                  (_getwalllength a) 
                                                ) 
                                               (cdr x) 
                                       ) 
                                ) 
                          ) 
                        ) 
                       el 
               ) 
            i 0 
      ) 
      (if (setq p (getpoint "\nOutput Point: ")) 
        (XD::Table:Make 
          (cons 
            '("序号" "墙厚" "总长度") 
            (mapcar '(lambda (x) 
                       (list (itoa (setq i (1+ i))) 
                             (rtos (car x) 2 0) 
                             (rtos (cadr x) 2 0) 
                       ) 
                     ) 
                    ll 
            ) 
          ) 
          p 
          800. 
          250. 
        ) 
        ll 
      )       
    ) 
  )(princ) 
)

hphkjz · 发表于 2014-3-31 14:28:56

st788796 发表于 2014-3-31 06:46
(vl-load-com)

大哥，我看你操作的挺好的，为什么我加载后命令行出现了 “读入的 (八进制) 字符不正确: 0” 这个该怎么解决哇。输入 tt提示选择对象，可是框选后没有选中任何对象。

hphkjz · 发表于 2014-4-1 19:24:21

hphkjz 发表于 2014-3-31 14:28
大哥，我看你操作的挺好的，为什么我加载后命令行出现了 “读入的 (八进制) 字符不正确: 0” 这个该怎 ...

大哥，是不是重新安装天正就好了呢？

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

[编程申请] 墙长统计

点评

点评