想了很久都没有解决的问题，AutoCAD里填表格程序

hzzhao · 发表于 2004-6-5 00:24:00

怎样用lisp程序，自动捕捉表格的格，使文字按一定的方式写在格子是中间？
表格是预先定义好的块或者是外部参照图。表格如下图：

mkk22iuw1iz.JPG

cqnj023 · 发表于 2004-6-5 01:29:00

既然是预先定义好的，不可以直接用相对坐标来确定位置吗？

spring · 发表于 2004-6-5 11:39:00

发哥，听说 2005 有表格功能,不过不知道好不好用.呵呵.

hzzhao · 发表于 2004-6-5 15:43:00

2005里我知道有这个功能，而且也用过，但是现在不是每个人都用2005啊！所以要跟别人交流图纸就是一个问题，而且你在2005里做好的表格，在2000或者2002里打开虽然可以看到，但是不可以编辑，如果把它炸开那里面字节设定全部就变了。

alin · 发表于 2004-6-5 21:13:00

属性块

xhf · 发表于 2004-6-6 12:32:00

可以把表格作成一段一段直线，使用inters函数找出单个表格的中心点，再用TEXT "M"命令就可以在表格中间写字了。

zeclmj · 发表于 2004-6-6 14:28:00

先确定表格的基点，可以是左上角。可以在左上角做标记，比如画一个特定半径的圆。以便在程序中判断左上角。
再用相对坐标来确定表格中小格的位置。

wanglinyao · 发表于 2004-6-7 18:11:00

上面的高手都不高阿！编个LISP程序
步骤：
(setq pp (getpoint "\n 请选取单元格:"))
   (setq pp1 pp)
;求表格单元格对角点及中心点坐标
(command "boundary" pp "")
   (setq PEN (entlast))
   (SetQ pel (EntGet pen));取出对象数据表
   (command "erase" PEN "")
   (SetQ pel (Member '(100 . "AcDbPolyline") pel))
;取出其中的有关数据
   (Setq p1 (Cdr (Nth 6 pel))) ;取出第一点控制点点位
   (Setq p2 (Cdr (Nth 14 pel))) ;取出对角点控制点点位
(setq p0 (list (/ (+ (car p1) (car p2)) 2) (/ (+ (cadr p1) (cadr p2)) 2)));求中心点坐标
以后就是写文字啦，不表述了