|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
不知道是使用lisp还是别的什么东西，只要能实现如下的功能！ B+ v9 ^! y7 C: [
就是将一单行文字，填在一个由四个直线组成的方框内，四个直线如果不密封，要提示！- l" P8 q0 O0 d) r
填写的时候，必须填写在这个方框的正中间% G; x, g8 n4 u! q0 Q, H
过程：命令-----选择文字----确认（右键）---选择表格内任意一点----文字就会自动移动到正中) {: C/ u. ^4 J- [0 ?
如果多行文本也可以，那就最好了！) O9 \$ R x: j& ^
可以参照：, e: ]7 @6 M( o6 [# g: b: {
机械工程师CAD中有这个功能：一组文字填表: X6 V: J+ S3 v, G/ s% P" I$ V
-----------------------------------1 s g- ?" N0 o( I" b( [7 Q' K
选择文字:
q2 L+ t) O9 z' j2 ^& p; ^, X l选择对象: 找到 1 个
+ a/ L# }1 W/ U3 g选择对象:
# p& I1 q# A) H4 w1 L+ T5 ]" L点取表内一点:) F3 o& I7 H0 `* p( z- o4 k
-------------------------------------- |
|
发表于 2007-5-28 15:20:06
楼主
(PRINC)) (setq *error* WZTB_ERROR): {' p% a4 I9 |# U" ^# g1 R! V. _
MXX1) "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)) + S' _9 L& l$ h: V; O' Q, H