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

树櫴希德 · 发表于 2014-3-11 18:26:26

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

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

×

如何根据DTMTF.LOG在每个三角形重力中兴注记填挖方量，如：
编号: 1
1,44067.776,16011.600,17.924
2,44065.858,16014.945,17.984
3,44067.300,16017.089,17.944
挖方: 8.32 填方: 0.00

树櫴希德 · 发表于 2014-3-11 18:30:21

求批量根据DTMTF.LOG在每个三角形重力中心注记填挖方量和转成表格的LSP

st788796 · 发表于 2014-3-11 20:33:10

树櫴希德发表于 2014-3-11 18:30
求批量根据DTMTF.LOG在每个三角形重力中心注记填挖方量和转成表格的LSP

难倒是不难，不过你这个软件算出来了还不给标上？

树櫴希德 · 发表于 2014-3-11 20:44:59

能不能编一个LISP解决啊

st788796 · 发表于 2014-3-11 20:54:05

本帖最后由 st788796 于 2014-3-11 21:15 编辑

树櫴希德发表于 2014-3-11 20:44
能不能编一个LISP解决啊

传样板文件

(defun c:tt (/ str->pt _mktext fl lst nl _pi2 _3pi d)
(defun str->pt (str)
(XD::Pnt:SetZ
(mapcar 'distof (cdr (xdrx_string_split (cadr str))))
0.
)
)
(defun _mktext (p str / txt)
(setq txt (xdrx_text_make
p
str
(getvar "textsize")
0.
)
)
(xdrx_text_sethozmode txt 2)
(xdrx_text_setvermode txt 4)
(xdrx_text_setalignmentpoint txt p)
)
(if (setq fl (getfiled "Select Log file" "" "log" 8))
(progn
(setq lst (XD::List:FromFile fl)
_pi2 (* pi 0.5)
_3pi (- pi2)
d (* 1.5 (getvar "textsize"))
)
(while lst
(setq nl (cons (list (car lst)
(cadr lst)
(caddr lst)
(cadddr lst)
(cadddr lst)
)
nl
)
lst (cddddr lst)
)
)
(mapcar '(lambda (x / p bh ll)
(setq p (xdrx_points_centroid
(str->pt (cadr x))
(str->pt (caddr x))
(str->pt (cadddr x))
)
bh (substr (car x) (1+ (xdrx_string_find (car x) ":")))
ll (xdrx_string_split (last x) " ")
)
(_mktext p (car ll))
(_mktext (polar p _pi2 d) bh)
(_mktext (polar p _3pi d) (cadr ll))
)
nl
)
)
)
(princ)
)

(defun c:tt (/ str->pt _mktext fl lst nl _pi2 _3pi d) 
  (defun str->pt (str) 
    (XD::Pnt:SetZ 
      (mapcar 'distof (cdr (xdrx_string_split (cadr str)))) 
      0. 
    ) 
  ) 
  (defun _mktext (p str / txt) 
    (setq txt (xdrx_text_make 
                p 
                str 
                (getvar "textsize") 
                0. 
              ) 
    ) 
    (xdrx_text_sethozmode txt 2) 
    (xdrx_text_setvermode txt 4) 
    (xdrx_text_setalignmentpoint txt p) 
  ) 
  (if (setq fl (getfiled "Select Log file" "" "log" 8)) 
    (progn 
      (setq lst         (XD::List:FromFile fl) 
            _pi2 (* pi 0.5) 
            _3pi (- pi2) 
            d         (* 1.5 (getvar "textsize")) 
      ) 
      (while lst 
        (setq nl  (cons        (list (car lst) 
                              (cadr lst) 
                              (caddr lst) 
                              (cadddr lst) 
                              (cadddr lst) 
                        ) 
                        nl 
                  ) 
              lst (cddddr lst) 
        ) 
      ) 
      (mapcar '(lambda (x / p bh ll) 
                 (setq p  (xdrx_points_centroid 
                            (str->pt (cadr x)) 
                            (str->pt (caddr x)) 
                            (str->pt (cadddr x)) 
                          ) 
                       bh (substr (car x) (1+ (xdrx_string_find (car x) ":"))) 
                       ll (xdrx_string_split (last x) " ") 
                 ) 
                 (_mktext p (car ll)) 
                 (_mktext (polar p _pi2 d) bh) 
                 (_mktext (polar p _3pi d) (cadr ll)) 
               ) 
              nl 
      ) 
    ) 
  ) 
  (princ) 
)

树櫴希德 · 发表于 2014-3-11 21:21:36

命令:
命令: tt no function definition: XD::LIST:FROMFILE
命令:
是不是要加载小东工具箱啊

st788796 · 发表于 2014-3-11 21:54:59

树櫴希德发表于 2014-3-11 21:21
命令:
命令: tt no function definition: XD:IST:FROMFILE
命令:

xdrxapi + xd-lisp-lib

树櫴希德 · 发表于 2014-3-11 22:31:01

xdrxapi + xd-lisp-lib发给我一个，谢谢！13539079394@139.COM

st788796 · 发表于 2014-3-11 22:43:35

树櫴希德发表于 2014-3-11 22:31
xdrxapi + xd-lisp-lib发给我一个，谢谢！

看置顶帖子

树櫴希德 · 发表于 2014-3-11 22:50:27

命令: TT
错误: 参数类型错误: numberp: nil
(defun XD::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)
)
  )
  (reverse ll)
)

树櫴希德 · 发表于 2014-3-11 22:51:00

LOG文件有6000多行

st788796 · 发表于 2014-3-11 23:07:36

树櫴希德发表于 2014-3-11 22:51
LOG文件有6000多行

压缩上传

树櫴希德 · 发表于 2014-3-11 23:12:37

上传了，大师请看一下。

st788796 · 发表于 2014-3-12 00:24:34

本帖最后由 st788796 于 2014-3-12 07:27 编辑

树櫴希德发表于 2014-3-11 23:12
上传了，大师请看一下。

读文件及分组很快的，生成文字部分慢！

(gc)
(defun c:tt (/ str->pt _mktext fl lst nl _pi2 _3pi d i)
(defun str->pt (str)
(XD::Pnt:SetZ
(mapcar 'distof (cdr (xdrx_string_split str ",")))
0.
)
)
(defun _mktext (p str / txt)
(setq txt (xdrx_text_make
p
str
0.2
0.
)
)
(xdrx_text_sethozmode txt 4)
(xdrx_text_setvermode txt 1)
(xdrx_text_setalignmentpoint txt p)
)
(if (setq fl (getfiled "Select Log file" "" "log" 8))
(progn
(setq lst (XD::List:FromFile fl)
_pi2 (* pi 0.5)
_3pi (- _pi2)
d 0.23
)
(while lst
(setq nl (cons (list (car lst)
(cadr lst)
(caddr lst)
(nth 3 lst)
(nth 4 lst)
)
nl
)
lst (cddr (cddddr lst))
)
)
(setq i 0)
(xdrx_statusbar_begin "正在生成" (itoa (length nl)))
(mapcar '(lambda (x / p bh ll)
(xdrx_statusbar_setpos (itoa (setq i (1+ i))))
(setq p (xdrx_points_centroid
(str->pt (cadr x))
(str->pt (caddr x))
(str->pt (cadddr x))
)
bh (substr (car x) 7)
ll (vl-remove "" (xdrx_string_split (last x) " "))
)
(_mktext p (strcat (car ll) (cadr ll)))
(_mktext (polar p _pi2 d) bh)
(_mktext (polar p _3pi d) (strcat (caddr ll) (last ll)))
)
nl
)
(xdrx_statusbar_end)
)
)
(princ)
)

(gc) 
(defun c:tt (/ str->pt _mktext fl lst nl _pi2 _3pi d i) 
  (defun str->pt (str) 
    (XD::Pnt:SetZ 
      (mapcar 'distof (cdr (xdrx_string_split str ","))) 
      0. 
    ) 
  ) 
  (defun _mktext (p str / txt) 
    (setq txt (xdrx_text_make 
                p 
                str 
                0.2 
                0. 
              ) 
    ) 
    (xdrx_text_sethozmode txt 4) 
    (xdrx_text_setvermode txt 1) 
    (xdrx_text_setalignmentpoint txt p) 
  ) 
  (if (setq fl (getfiled "Select Log file" "" "log" 8)) 
    (progn 
      (setq lst         (XD::List:FromFile fl) 
            _pi2 (* pi 0.5) 
            _3pi (- _pi2) 
            d         0.23 
      ) 
      (while lst 
        (setq nl  (cons        (list (car lst) 
                              (cadr lst) 
                              (caddr lst) 
                              (nth 3 lst) 
                              (nth 4 lst) 
                        ) 
                        nl 
                  ) 
              lst (cddr (cddddr lst)) 
        ) 
      ) 
      (setq i 0) 
      (xdrx_statusbar_begin "正在生成" (itoa (length nl))) 
      (mapcar '(lambda (x / p bh ll) 
                 (xdrx_statusbar_setpos (itoa (setq i (1+ i)))) 
                 (setq p  (xdrx_points_centroid 
                            (str->pt (cadr x)) 
                            (str->pt (caddr x)) 
                            (str->pt (cadddr x)) 
                          ) 
                       bh (substr (car x) 7) 
                       ll (vl-remove "" (xdrx_string_split (last x) " ")) 
                 ) 
                 (_mktext p (strcat (car ll) (cadr ll))) 
                 (_mktext (polar p _pi2 d) bh) 
                 (_mktext (polar p _3pi d) (strcat (caddr ll) (last ll))) 
               ) 
              nl 
      ) 
      (xdrx_statusbar_end) 
    ) 
  ) 
  (princ) 
)

树櫴希德 · 发表于 2014-3-12 09:33:32

错误: no function definition: XDRX_STATUSBAR_BEGIN在函数库里找不到啊

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

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

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

相关帖子