求助：有没有一种插件可以像这样标注后再将数据提取出来形成表格的线段标注和文本...

h85760338 · 发表于 2014-10-7 19:04:10

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

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

×

表格内容:
编号长度根数合计

标注后再将数据提取出来形成表格的
线段标注和文本提取，计算一起···

XDSoft · 发表于 2014-10-8 00:23:08

搜索这个论坛吧，以前有朋友写过。

st788796 · 发表于 2014-10-8 23:47:27

Lisp 函数库中 XD::Table:Make 用到的 XD::String:MaxActualWidth 函数名称不对，造成 XD::Table:Make 不能用

(defun c:tt (/ ss p lst)
(if (and (setq ss (ssget '((0 . "*line,arc,ellipse,circle"))))
(setq p (getpoint "\nInsert Point: "))
)
(progn
(setq lst (vl-sort (mapcar '(lambda (x)
(cadr (xdrx_getarea x))
)
(xdrx_pickset->ents ss)
)
'<
)
tol (apply '+ lst)
lst (mapcar '(lambda (x) (rtos x 2 0)) lst)
lst (reverse
(cons (list "汇总" (rtos tol 2 0) (itoa (length lst)))
(reverse (mapcar '(lambda (x)
(list "1" x "1")
)
lst
)
)
)
)
)
(xd::table:make
(cons '("编号" "长度" "根数") lst)
p
2.5
4.0
)
)
)
(princ)
)

(defun c:tt (/ ss p lst) 
  (if (and (setq ss (ssget '((0 . "*line,arc,ellipse,circle")))) 
           (setq p (getpoint "\nInsert Point: ")) 
      ) 
    (progn 
      (setq lst        (vl-sort (mapcar '(lambda (x) 
                                    (cadr (xdrx_getarea x)) 
                                  ) 
                                 (xdrx_pickset->ents ss) 
                         ) 
                         '< 
                ) 
            tol        (apply '+ lst) 
            lst        (mapcar '(lambda (x) (rtos x 2 0)) lst) 
            lst        (reverse 
                  (cons        (list "汇总" (rtos tol 2 0) (itoa (length lst))) 
                        (reverse (mapcar '(lambda (x) 
                                            (list "1" x "1") 
                                          ) 
                                         lst 
                                 ) 
                        ) 
                  ) 
                ) 
      ) 
      (xd::table:make 
        (cons '("编号" "长度" "根数") lst) 
        p 
        2.5 
        4.0 
      ) 
    ) 
  ) 
  (princ) 
)

408898255 · 发表于 2014-12-12 11:40:27

lllllllllllllllllllllllllllllllllllllllllllllllll

605052747 · 发表于 2014-12-16 22:34:10

:):):):):)

就念鱼儿 · 发表于 2014-12-22 21:41:33

st788796 发表于 2014-10-8 23:47
Lisp 函数库中 XD::Table:Make 用到的 XD::String:MaxActualWidth 函数名称不对，造成 XD::Table:Make 不能 ...

EQRV
HAO DONG XI

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

[已解决] 求助：有没有一种插件可以像这样标注后再将数据提取出来形成表格的线段标注和文本...

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

点评

[已解决] 求助：有没有一种插件可以像这样标注后再将数据提取出来形成表格的 线段标注和文本...

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

点评

[已解决] 求助：有没有一种插件可以像这样标注后再将数据提取出来形成表格的线段标注和文本...