(XD::Table:Make)制作表格

st788796

liuyj 发表于 2014-3-23 00:34
这样可以中心对齐了，不能建立表格的时候直接到位吗？

应该是api函数问题，在table实体上api函数因为版本原因没有ActiveX方法完善，也可能Title，Header在样式中设定的就是正中对齐，不需要再设置，下一版本修改，再把列宽参数加上

st788796

2014.11.12  更新
测试程序

1. (defun c:tt (/ e p pts)
   
2.   (if (and (setq e
   
3.                   (car (xdrx_entsel "\nPick Pline: " '((0 . "lwpolyline"))))
   
4.            )
   
5.            (setq p (getpoint "\nPosition: "))
   
6.       )
   
7.     (progn
   
8.       (setq pts (xdrx_entity_getstretchpoint e))
   
9.       (setq pts        (xd::table:celltile '("序号" "X坐标" "Y坐标" "Z坐标") 1 pts)
   
10.             pts        (cons "界址点成果表" pts)
    
11.       )
    
12.       (xd::table:make pts p 10.0 4.0)
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )

(defun c:tt (/ e p pts)<br />   (if (and (setq e<br />                   (car (xdrx_entsel "\nPick Pline: " '((0 . "lwpolyline"))))<br />            )<br />            (setq p (getpoint "\nPosition: "))<br />       )<br />     (progn<br />       (setq pts (xdrx_entity_getstretchpoint e))<br />       (setq pts        (xd::table:celltile '("序号" "X坐标" "Y坐标" "Z坐标") 1 pts)<br />             pts        (cons "界址点成果表" pts)<br />       )<br />       (xd::table:make pts p 10.0 4.0)<br />     )<br />   )<br />   (princ)<br /> )

cable2004

大师，能不能整理一个cad2005版本一下的函数呀！

XDSoft

cable2004 发表于 2014-11-22 20:13
大师，能不能整理一个cad2005版本一下的函数呀！

2004不支持表格{:soso_e114:}， 要写也只能是单独的线组成的。

cable2004

可以，补充2004以下版本，有吗

XDSoft

cable2004 发表于 2014-11-22 20:40
可以，补充2004以下版本，有吗

你找找 开源函数库论坛，以前提供过一个把图中有的用线画成的表格，给变成一个一个CELL的单元格组成的函数。

laiz3000

呵呵，可惜要XDRX API支持

nnzj@163.com

XD::LIST:FILLGAP函数没见呢