【Gu_xl】CAD表格系列之==== CAD普通线画表格转Table表格

牢固 · 发表于 2013-7-6 23:22:33

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

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

×

本帖最后由牢固于 2015-1-20 14:10 编辑

以下程序需加载XDRX_API使用！2013.07.07更新
主程序代码：

;;CAD转Table
(defun c:c2t (/ ANG COL COLWIDTHS FUZZ H
I INSPT MAXCOL MAXROW MINCOL MINROW
N ROW ROWHEIGHTS SS TB
TBLST TXTCOLOR TXTH TXTLST TXTSS TXTSTR
TXTSTYLE W X *STARTTIME* SCALEFACTOR
)
(xdrx_begin '("cmdecho" 0 "osmode" 0))
(setq ss (ssget '((0 . "line,*polyline"))))
(setq Inspt (trans (getpoint "\n位置点:") 1 0)
fuzz (getreal "\n设置容差值<0.01>")
)
(if (null Fuzz) (setq Fuzz 0.01))
(if ss
(progn
(setq *StartTime* (car (_VL-TIMES)))
(setq tblst (GETTABLELST ss Fuzz))
(setq ;InsPt (car (cadaar tblst))
ang (angle (car (cadaar tblst)) (cadr (cadaar tblst)))
Row (nth 4 tblst)
Col (nth 2 tblst)
ColWidths (nth 5 Tblst)
RowHeights (nth 6 Tblst)
)
(setq tb (xdrx_table_make InsPt (1+ row) 10. col 12.))
(XD::Table:Begin tb)
(vla-SetAlignment (vlax-ename->vla-object tb) 1 acMiddleCenter)
(vla-SetAlignment (vlax-ename->vla-object tb) 2 acMiddleCenter)
(vla-SetAlignment (vlax-ename->vla-object tb) 4 acMiddleCenter)
(XDRX_TABLE_DELETEROWS tb 0 1) ;_ 删除表头
(XDRX_TABLE_SETHORZCELLMARGIN tb 0.0)
(XDRX_TABLE_SETVERTCELLMARGIN tb 0.0)
;|(setq r -1)
(repeat row
(setq r (1+ r) c -1)
(repeat col
(setq c (1+ c))
(xdrx_table_SetAutoScale tb r c nil)
)
)|;
(setq i -1)
(mapcar '(lambda (w)(setq i (1+ i)) (XDRX_TABLE_SETCOLUMNWIDTH tb i w)) ColWidths)
(setq i -1)
(mapcar '(lambda (h)(setq i (1+ i)) (xdrx_table_SetRowHeight tb i h)) RowHeights)
(foreach cell (car tblst)
(mapcar 'set
'(minCol minRow maxCol maxRow)
(mapcar '1-
(apply 'append
(mapcar 'VLXLS-RANGEID (VLXLS-CELLID (car cell)))
)
)
)
(if (or (/= minRow maxRow)
(/= minCol maxCol)
) ;_ 合并单元格
(XDRX_TABLE_MERGECELLS tb minRow maxRow minCol maxCol)
)
(setq txtss (ssget "cp" (mapcar '(lambda (x) (trans x 0 1)) (cadr cell)) '((0 . "*text"))))
(if txtss
(progn
(setq txtlst nil)
(repeat (setq n (sslength txtss))
(setq txtlst (cons (ssname txtss (setq n (1- n))) txtlst))
)
(setq txtlst (vl-sort txtlst '(lambda (a b) (> (cadr (gxl-dxf a 10)) (cadr (gxl-dxf b 10))))))
(setq txtstr (gxl-dxf (car txtlst) 1)
txth (gxl-dxf (car txtlst) 40)
txtstyle (tblobjname "style" (gxl-dxf (car txtlst) 7))
txtcolor (gxl-dxf (car txtlst) 62)
)
(if (and
(= "TEXT" (gxl-dxf (car txtlst) 0))
(equal 1.0 (setq Scalefactor (gxl-dxf (car txtlst) 41)) 1e-3)
)
(setq Scalefactor nil)
)
(setq txtlst (cdr txtlst))
(foreach e txtlst
(setq txtstr (strcat txtstr "\\P" (gxl-dxf e 1)))
)
(if Scalefactor (setq txtstr (strcat "{\\W" (rtos Scalefactor 2 2)";" txtstr "}")))
(xdrx_table_SetTextString tb minRow minCol txtstr)
(XDRX_TABLE_SETTEXTHEIGHT tb minRow minCol txth )
(XDRX_TABLE_SETTEXTstyle tb minRow minCol txtstyle)
(XDRX_TABLE_SETCONTENTCOLOR tb minRow minCol txtcolor)
)
)
)
(XDRX_ENTITY_TRANSFORM tb (Gxl-MAT:Rotation3D Inspt '(0 0 1) ang))
(XD::Table:End tb)
(princ (strcat "\n 用时 " (rtos (* 0.001 (- (car (_VL-TIMES)) *StartTime*)) 2 4) " 秒 "))
)
)
(xdrx_end)
(princ)
)

;;CAD转Table 
(defun c:c2t  (/ ANG          COL           COLWIDTHS             FUZZ     H 
                 I          INSPT           MAXCOL   MAXROW   MINCOL   MINROW 
                 N          ROW           ROWHEIGHTS             SS              TB 
                 TBLST          TXTCOLOR TXTH            TXTLST   TXTSS    TXTSTR 
                 TXTSTYLE W           X *STARTTIME*  SCALEFACTOR 
                ) 
  (xdrx_begin '("cmdecho" 0 "osmode" 0)) 
  (setq ss (ssget '((0 . "line,*polyline")))) 
  (setq Inspt (trans (getpoint "\n位置点:") 1 0) 
        fuzz (getreal "\n设置容差值<0.01>") 
        ) 
  (if (null Fuzz) (setq Fuzz 0.01)) 
  (if ss 
    (progn 
      (setq *StartTime* (car (_VL-TIMES))) 
      (setq tblst (GETTABLELST ss Fuzz)) 
      (setq ;InsPt (car (cadaar tblst)) 
            ang (angle (car (cadaar tblst)) (cadr (cadaar tblst))) 
            Row (nth 4 tblst) 
            Col (nth 2 tblst) 
            ColWidths (nth 5 Tblst) 
            RowHeights (nth 6 Tblst) 
            ) 
      (setq tb (xdrx_table_make InsPt (1+ row) 10. col 12.)) 
      (XD::Table:Begin tb) 
      (vla-SetAlignment (vlax-ename->vla-object tb) 1 acMiddleCenter) 
      (vla-SetAlignment (vlax-ename->vla-object tb) 2 acMiddleCenter) 
      (vla-SetAlignment (vlax-ename->vla-object tb) 4 acMiddleCenter) 
      (XDRX_TABLE_DELETEROWS tb 0 1) ;_ 删除表头 
      (XDRX_TABLE_SETHORZCELLMARGIN tb 0.0) 
      (XDRX_TABLE_SETVERTCELLMARGIN tb 0.0) 
      ;|(setq r -1) 
      (repeat row 
        (setq r (1+ r) c -1) 
        (repeat col 
          (setq c (1+ c)) 
          (xdrx_table_SetAutoScale tb r c nil) 
          ) 
        )|; 
      (setq i -1) 
      (mapcar '(lambda (w)(setq i (1+ i)) (XDRX_TABLE_SETCOLUMNWIDTH tb  i w))  ColWidths) 
      (setq i -1) 
      (mapcar '(lambda (h)(setq i (1+ i)) (xdrx_table_SetRowHeight tb  i h))  RowHeights) 
      (foreach cell (car tblst) 
        (mapcar        'set 
                '(minCol minRow maxCol maxRow) 
                (mapcar '1- 
                (apply 'append 
                       (mapcar 'VLXLS-RANGEID (VLXLS-CELLID (car cell))) 
                ) 
                        ) 
        ) 
        (if (or (/= minRow maxRow) 
                (/= minCol maxCol) 
                ) ;_ 合并单元格 
            (XDRX_TABLE_MERGECELLS tb minRow maxRow minCol maxCol) 
          ) 
            (setq txtss (ssget "cp" (mapcar '(lambda (x) (trans x 0 1)) (cadr cell)) '((0 . "*text")))) 
            (if txtss 
              (progn 
                (setq txtlst nil) 
                (repeat (setq n (sslength txtss)) 
                  (setq txtlst (cons (ssname txtss (setq n (1- n))) txtlst)) 
                  ) 
                (setq txtlst (vl-sort txtlst '(lambda (a b) (> (cadr (gxl-dxf a 10)) (cadr (gxl-dxf b 10)))))) 
                (setq txtstr (gxl-dxf (car txtlst) 1) 
                      txth (gxl-dxf (car txtlst) 40) 
                      txtstyle (tblobjname "style" (gxl-dxf (car txtlst) 7)) 
                      txtcolor (gxl-dxf (car txtlst) 62) 
                      ) 
                (if (and 
                      (= "TEXT" (gxl-dxf (car txtlst) 0)) 
                      (equal 1.0 (setq Scalefactor (gxl-dxf (car txtlst) 41)) 1e-3) 
                      ) 
                  (setq Scalefactor nil) 
                  ) 
                (setq txtlst (cdr txtlst)) 
                (foreach e txtlst 
                  (setq txtstr (strcat txtstr "\\P" (gxl-dxf e 1))) 
                  ) 
                (if Scalefactor (setq txtstr (strcat "{\\W" (rtos Scalefactor 2 2)";" txtstr "}"))) 
                (xdrx_table_SetTextString tb minRow minCol txtstr) 
                (XDRX_TABLE_SETTEXTHEIGHT tb minRow minCol txth ) 
                (XDRX_TABLE_SETTEXTstyle tb minRow minCol txtstyle) 
                (XDRX_TABLE_SETCONTENTCOLOR tb minRow minCol txtcolor) 
                ) 
              ) 
 
         
        ) 
      (XDRX_ENTITY_TRANSFORM tb (Gxl-MAT:Rotation3D Inspt '(0 0 1) ang)) 
      (XD::Table:End tb) 
      (princ (strcat "\n  用时  " (rtos (* 0.001 (- (car (_VL-TIMES)) *StartTime*)) 2 4) "  秒 ")) 
      ) 
    ) 
  (xdrx_end) 
  (princ) 
  )

完整源码下载：

游客，本帖隐藏的内容需要积分高于 50 才可浏览，您当前积分为 0

免费编译Fas文件：

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:C2T.rar
下载次数:209 文件大小:8.33 KB
下载权限: 学生以上 [免费赚D豆]

牢固 · 发表于 2013-12-30 15:49:40

lucas3 发表于 2013-12-30 15:08
G版主，为啥不发到明径上面去？

这个是用XDRX_API写的！发到明经上去你觉得合适么？{:soso_e101:}

XDSoft · 发表于 2013-7-6 23:28:11

G版，旋转矩阵的XDRX_API用法。

(MAT:Rotation3D Inspt '(0 0 1) ang)

------->>

(setq mat0 (xdrx_matrix_identity 3))
(xdrx_matrix_setRotation mat0 ang '(0 0 1) Inspt)

Lisphk · 发表于 2013-7-6 23:38:45

G大大，我的图测试了下，见图，有问题。
QQ截图20130706233709.png

我那个图在这个帖子里面，帮忙用这个测试下。

http://bbs.xdcad.net/thread-669093-1-1.html

牢固 · 发表于 2013-7-7 00:25:00

Lisphk 发表于 2013-7-6 23:38
G大大，我的图测试了下，见图，有问题。

(XDRX_TABLE_MERGECELLS tb minRow maxRow minCol maxCol)
这句有问题！可能是API函数XDRX_TABLE_MERGECELLS的问题！在0行合并单元格出错！

Free-Lancer · 发表于 2013-7-7 07:48:07

0行是title不能合并，所以转的时候要加一个空title行，表格在table是从1行开始的来自: Android客户端

牢固 · 发表于 2013-7-7 07:50:12

Free-Lancer 发表于 2013-7-7 07:48
0行是title不能合并，所以转的时候要加一个空title行，表格在table是从1行开始的

0行的表头已经被删除了！

Free-Lancer · 发表于 2013-7-7 07:51:50

table要比line表格多一行，从1行开始对应line表格来自: Android客户端

Free-Lancer · 发表于 2013-7-7 07:55:08

牢固发表于 3 分钟前

 登录/注册后可看大图

0行的表头已经被删除了！

删除后用0行写入可以吗？来自: Android客户端

Free-Lancer · 发表于 2013-7-7 07:57:19

牢固发表于 3 分钟前

 登录/注册后可看大图

0行的表头已经被删除了！

先按1开始写入table,全部完成后再删除title行来自: Android客户端

sjj · 发表于 2013-7-7 08:22:25

20豆不够下LSP
先下个FAS的

sjj · 发表于 2013-7-7 08:38:23

本帖最后由 sjj 于 2013-7-7 09:55 编辑

; 错误: no function definition: xdrx_document_ucsoff
:'(
好不容易凑了20个豆豆，下了LSP
问题依在！

牢固 · 发表于 2013-7-7 10:08:18

sjj 发表于 2013-7-7 08:38
; 错误: no function definition: xdrx_document_ucsoff

好不容易凑了20个豆豆，下了LSP

需要最新的XDRX_API支持！等待老大更新API再用吧！

sjj · 发表于 2013-7-7 10:09:36

; 错误: function definition: GXL-GETTABLELST

牢固 · 发表于 2013-7-7 10:16:10

sjj 发表于 2013-7-7 10:09
; 错误: function definition: GXL-GETTABLELST

不好意思，代码没改过来！
GXL-GETTABLELST 改成 GETTABLELST 即可！

sjj · 发表于 2013-7-7 16:04:00

:D新版XDRX_API来了
有新情况：
; 错误: no function definition: XDRX_TABLE_MAKE

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

[原创] 【Gu_xl】CAD表格系列之==== CAD普通线画表格转Table表格

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

评分

本帖被以下淘专辑推荐:

点评

点评

点评

点评

点评