如何实现一组文字填表的功能？？

gmdgm

不知道是使用lisp还是别的什么东西，只要能实现如下的功能！
% d( O0 y9 S, j, ~: O$ Z! Q) f/ N- G就是将一单行文字，填在一个由四个直线组成的方框内，四个直线如果不密封，要提示！
填写的时候，必须填写在这个方框的正中间
过程：命令-----选择文字----确认（右键）---选择表格内任意一点----文字就会自动移动到正中
如果多行文本也可以，那就最好了！
可以参照：
机械工程师CAD中有这个功能：一组文字填表
$ h+ |* Y' W( G) _3 b7 |' b9 ^& H-----------------------------------
选择文字:
7 ?5 O2 Y5 i, S8 E8 k选择对象: 找到 1 个
+ k6 z' ?: p6 |$ B选择对象:
" q7 M3 _/ y) R, H4 w/ C9 J: _点取表内一点:
--------------------------------------

偶就稀饭美金

这个确实可以用LISP来实现,不过这个需要时间,
呵呵,我现在太忙了,根本没有时间去想,不过你可以到明经通道里面去找,可能会有人帮你,呵呵

scliukejun

我编过这个程序，呵呵，不过很久没用了看能不能找到。
我现在用的是选中一批文字，让它们对齐，让它们以一定间距竖向排列（以表高度），然后一起移到合适位置就可以了。

gmdgm

下面是机械工程师内，相关lisp文件内的代码！！
--------------------------------------
(PRESTOREOLDSYSARG)) (DEFUN LSP_YZWZTB (/ E E1 E2 E3 E4 EL ENA I LL PADFUN PL PT PT1 PT2 SS SSLEN STR TF X1 X2 Y1 Y2) (PSAVEOLDSYSARG)
" o1 T7 t; a  }(DEFUN WZTB_ERROR (s) (PRINC "程序退出." (PRINC)) (setq *error* WZTB_ERROR)
(PXL_AUTO_LOAD (QUOTE CMXX1) "sshide") (PRINC "\n选择文字:") (IF (SETQ SS (SSGET)) (PROGN (SETQ I 0 SSLEN (SSLENGTH SS)) (WHILE (< I SSLEN) (SETQ E2 (SSNAME SS I) I (1+ I) EL (ENTGET E2) ENA (CDR (ASSOC 0 EL))) (IF (= ENA "TEXT") (PROGN (REDRAW E2 3) (SETQ TF 1) (WHILE TF (INITGET 6) (IF (NULL (SETQ PT (GETPOINT "\n点取表内一点:"))) (SETQ TF nil) (PROGN (IF C:BPOLY (SETQ E (C:BPOLY PT)) (PROGN (SETQ E3 (ENTLAST)) (COMMAND "._boundary" PT "") (SETQ E4 (ENTLAST)) (IF (NULL (EQUAL E3 E4)) (SETQ E E4)))) (IF (NULL E) (PROGN (IF (SETQ L1 (C:PMXX1)) (PROGN (SETQ PT1 (CADR L1) PT2 (CADDR L1)) (PXL_LIST_TEXT1 PT1 PT2 E2)))) (PROGN (SETQ E1 E) (SETQ EL (ENTGET E)) (IF (= (STRCASE (CDR (ASSOC 0 EL))) "LWPOLYLINE") (PROGN (SETQ PL nil) (FOREACH ITEM EL (IF (= (CAR ITEM) 10) (SETQ PL (CONS (CDR ITEM) PL))))) (PROGN (SETQ E (ENTNEXT E) PL nil) (WHILE (= (PENAME E) "VERTEX") (SETQ PL (CONS (CDR (ASSOC 10 (ENTGET E))) PL) E (ENTNEXT E))))) (ENTDEL E1) (IF (/= (LENGTH PL) 4) (ALERT "表格不是由四条线组成, 不能标注.") (PROGN (DEFUN PADFUN (ITEM) (CAR ITEM)) (SETQ PL (PAD3 PL PADFUN)) (SETQ X1 (CAR (CAR PL)) X2 (CAR (LAST PL))) (DEFUN PADFUN (ITEM) (CADR ITEM)) (SETQ PL (PAD3 PL PADFUN)) (SETQ Y1 (CADR (CAR PL)) Y2 (CADR (LAST PL))) (SETQ PT2 (LIST X1 Y1) PT1 (LIST X2 Y2)) (PXL_LIST_TEXT1 PT1 PT2 E2) (SETQ TF nil))))))))))))) (PRESTOREOLDSYSARG)) (DEFUN YZWZTB1 (E2 / E E1 E2 EL ENA I L1 LL PADFUN PL PT PT1 PT2 SSLEN STR TF X1 X2 Y1 Y2) (PSAVEOLDSYSARG) (PXL_AUTO_LOAD (QUOTE C:PMXX1) "sshide") (PRINC "\n选择文字:") (IF (SETQ SS (SSGET)) (PROGN (SETQ I 0 SSLEN (SSLENGTH SS)) (WHILE (< I SSLEN) (SETQ E2 (SSNAME SS I) I (1+ I) EL (ENTGET E2) ENA (CDR (ASSOC 0 EL))) (IF (= ENA "TEXT") (PROGN (REDRAW E2 3) (SETQ TF 1) (WHILE TF (IF (NULL (SETQ L1 (C:PMXX1))) (SETQ TF nil) (PROGN (SETQ PT1 (CADR L1) PT2 (CADDR L1)) (PXL_LIST_TEXT1 PT1 PT2 E2) (SETQ TF nil))))))))) (PRESTOREOLDSYSARG))
5 Q* n8 Y3 h& u; \/ ]4 X* F--------------------------------------

PIAOYAO

谢谢楼主，帮忙顶以下