如何根据DTMTF.LOG在每个三角形重力中兴注记填挖方量

st788796 · 发表于 2014-3-13 11:49:33

树櫴希德发表于 2014-3-13 11:40
测试成功，如果能在cad和EXCEL导出表格就好了如：三角形编号，三角形重心坐标（不要Z值），填方，挖方。每3 ...

用 Free-lancer 的 Table:Make 可以在CAD形成表格，用 List:ToFile 生成 CSV 文件就可以在Excel打开

树櫴希德 · 发表于 2014-3-13 13:48:13

错误: 参数类型错误: numberp: nil又测试不了了，怎么回事？

st788796 · 发表于 2014-3-13 14:20:06

树櫴希德发表于 2014-3-13 13:48
错误: 参数类型错误: numberp: nil又测试不了了，怎么回事？

自己测试吧，制表加写外部文件

(gc)
(defun c:tt (/ str->pt _mktext fl lst
nl _pi2 _3pi d _Pnts:Center
_List:FromFile
)
(defun _List:FromFile (fn / f l ll)
(if (setq f (open (findfile fn) "r"))
(progn
(while (setq l (read-line f))
(setq ll (cons l ll))
)
(close f)
)
)
ll
)
(defun XD::Pnt:SetZ (p z)
(list (car p) (cadr p) z)
)
(defun str->pt (str)
(XD::Pnt:SetZ
(mapcar 'distof (cdr (xdrx_string_split str ",")))
0.
)
)
(defun _Pnts:Center (p1 p2 p3 /)
(mapcar '(lambda (x y z)
(/ (+ x y z) 3.)
)
p1
p2
p3
)
)
(defun _mktext (p str / txt)
(entmake (list '(0 . "Text")
'(100 . "AcDbEntity")
'(100 . "AcDbText")
(cons 1 str)
(cons 10 p)
'(40 . 0.2)
'(50 . 0.0)
'(41 . 1.0)
(cons 7 (getvar "textstyle"))
'(71 . 0)
'(72 . 4)
(cons 11 p)
'(73 . 1)
)
)
)
(if (setq fl (getfiled "Select Log file" "" "log" 9))
(progn
(setq lst (_List:FromFile fl)
_pi2 (* pi 0.5)
_3pi (- _pi2)
d 0.22
)
(while lst
(setq nl (cons (list (car lst)
(cadr lst)
(caddr lst)
(nth 3 lst)
(nth 4 lst)
)
nl
)
lst (cddr (cddddr lst))
)
)
(setq nl
(reverse
(mapcar
'(lambda (x / p bh ll)
(setq p (_Pnts:Center
(str->pt (cadr x))
(str->pt (caddr x))
(str->pt (cadddr x))
)
bh (substr (last x) 7)
ll (vl-remove "" (xdrx_string_split (car x) " "))
)
(_mktext (polar p _pi2 d) bh)
(_mktext p (strcat (car ll) (cadr ll)))
(_mktext (polar p _3pi d) (strcat (caddr ll) (last ll)))
(strcat bh
" "
(cadr ll)
" "
(last ll)
" "
(rtos (car p) 2 3)
" "
(rtos (cadr p) 2 3)
)
)
nl
)
)
)
(XD::List:ToFile
(strcat (vl-filename-directory (findfile fl))
"\\"
(vl-filename-base fl)
".csv"
)
nl
)
(XD::Table:Make
(cons '("地块编号" "挖方" "填方" "X" "Y")
nl
)
0.8
0.3
)
)
)
(princ)
)

(gc) 
(defun c:tt (/                str->pt           _mktext    fl         lst 
             nl                _pi2           _3pi              d                 _Pnts:Center 
             _List:FromFile 
            ) 
  (defun _List:FromFile        (fn / f l ll) 
    (if        (setq f (open (findfile fn) "r")) 
      (progn 
        (while (setq l (read-line f)) 
          (setq ll (cons l ll)) 
        ) 
        (close f) 
      ) 
    ) 
    ll 
  ) 
  (defun XD::Pnt:SetZ (p z) 
    (list (car p) (cadr p) z) 
  ) 
  (defun str->pt (str) 
    (XD::Pnt:SetZ 
      (mapcar 'distof (cdr (xdrx_string_split str ","))) 
      0. 
    ) 
  ) 
  (defun _Pnts:Center (p1 p2 p3 /) 
    (mapcar '(lambda (x y z) 
               (/ (+ x y z) 3.) 
             ) 
            p1 
            p2 
            p3 
    ) 
  ) 
  (defun _mktext (p str / txt) 
    (entmake (list '(0 . "Text") 
                   '(100 . "AcDbEntity") 
                   '(100 . "AcDbText") 
                   (cons 1 str) 
                   (cons 10 p) 
                   '(40 . 0.2) 
                   '(50 . 0.0) 
                   '(41 . 1.0) 
                   (cons 7 (getvar "textstyle")) 
                   '(71 . 0) 
                   '(72 . 4) 
                   (cons 11 p) 
                   '(73 . 1) 
             ) 
    ) 
  ) 
  (if (setq fl (getfiled "Select Log file" "" "log" 9)) 
    (progn 
      (setq lst         (_List:FromFile fl) 
            _pi2 (* pi 0.5) 
            _3pi (- _pi2) 
            d         0.22 
      ) 
      (while lst 
        (setq nl  (cons        (list (car lst) 
                              (cadr lst) 
                              (caddr lst) 
                              (nth 3 lst) 
                              (nth 4 lst) 
                        ) 
                        nl 
                  ) 
              lst (cddr (cddddr lst)) 
        ) 
      ) 
      (setq nl 
             (reverse 
               (mapcar 
                 '(lambda (x / p bh ll) 
                    (setq p  (_Pnts:Center 
                               (str->pt (cadr x)) 
                               (str->pt (caddr x)) 
                               (str->pt (cadddr x)) 
                             ) 
                          bh (substr (last x) 7) 
                          ll (vl-remove "" (xdrx_string_split (car x) " ")) 
                    ) 
                    (_mktext (polar p _pi2 d) bh) 
                    (_mktext p (strcat (car ll) (cadr ll))) 
                    (_mktext (polar p _3pi d) (strcat (caddr ll) (last ll))) 
                    (strcat bh 
                            " " 
                            (cadr ll) 
                            " " 
                            (last ll) 
                            " " 
                            (rtos (car p) 2 3) 
                            " " 
                            (rtos (cadr p) 2 3) 
                    ) 
                  ) 
                 nl 
               ) 
             ) 
      ) 
      (XD::List:ToFile 
        (strcat        (vl-filename-directory (findfile fl)) 
                "\\" 
                (vl-filename-base fl) 
                ".csv" 
        ) 
        nl 
      ) 
      (XD::Table:Make 
        (cons '("地块编号" "挖方" "填方" "X" "Y") 
              nl 
        ) 
        0.8 
        0.3 
      ) 
    ) 
  ) 
  (princ) 
)

树櫴希德 · 发表于 2014-3-13 17:12:27

no function definition: XDRX_STRING_SPLIT还是要XDRX-API支持，过期了，测试不了，但还是谢谢了

st788796 · 发表于 2014-3-13 17:19:04

树櫴希德发表于 2014-3-13 17:12
no function definition: XDRX_STRING_SPLIT还是要XDRX-API支持，过期了，测试不了，但还是谢谢了

已经有更新了

树櫴希德 · 发表于 2014-3-13 17:22:19

在哪里啊，有没有地址？

树櫴希德 · 发表于 2014-3-13 17:31:09

错误: 参数类型错误: numberp: nil好奇怪哦，还是测试不行啊

树櫴希德 · 发表于 2014-3-13 17:36:16

用CAD2009通不过

st788796 · 发表于 2014-3-13 18:11:51

本帖最后由 st788796 于 2014-3-13 20:46 编辑

树櫴希德发表于 2014-3-13 17:36
用CAD2009通不过

Lisp版，命令 tt

树櫴希德 · 发表于 2014-3-13 19:47:34

错误: 参数类型错误: numberp: nil 好奇怪哦，还是测试不行啊，是哪里出问题了呢

st788796 · 发表于 2014-3-13 20:00:26

树櫴希德发表于 2014-3-13 19:47
错误: 参数类型错误: numberp: nil 好奇怪哦，还是测试不行啊，是哪里出问题了呢

不知道你那里什么问题了
命令: AP APPLOAD 已成功加载 tt1.VLX。
命令:
命令:
命令: TT
Insertpoint:
Output file: D:\TEST\dtmtf.csv

程序生成的表格宽度不合适，这是手动随意调整过的

树櫴希德 · 发表于 2014-3-13 20:04:30

以前装了一个TRUETABLE是CAD表格转EXCEL的，卸载完了命令TT还在，老是提示命令: tt 按需加载失败，因为缺少模块:
名称: TrueTable 11.0I(AutoCAD)
说明: TrueTable 11.0I(AutoCAD)
模块路径: C:\Program Files\TrueTable 11.0I(AutoCAD)\ACADTrueTable2004.arx
是不是跟这个有问题

树櫴希德 · 发表于 2014-3-13 20:05:51

列外X Y可不可以反过来啊

Free-Lancer · 发表于 2014-3-13 20:25:39

AutoCAD 2005 以上版本才有 Table 实体, 2004 没有表格

树櫴希德 · 发表于 2014-3-13 20:36:22

AutoCAD 菜单实用程序已加载。
AutoCAD 菜单实用程序已加载。*取消*

命令: appload 已成功加载 tt1.VLX。

命令:
命令:
命令: tt ; 错误: 参数类型错误: numberp: nil

2009也不能通过，2009也存在TRUETABLE卸了命令TT还在的情况

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

[编程申请] 如何根据DTMTF.LOG在每个三角形重力中兴注记填挖方量