[试用]：晓东工具箱－文字水平对齐工具（适合处理表格文字对齐）

XDSoft

晓东工具箱－文字水平对齐工具（适合处理表格文字对齐）

下载地址：http://www.xdcad.net/tech/xd_tbox/xdtb_texthalign.swf

<embed src=http://www.xdcad.net/tech/xd_tbox/xdtb_texthalign.swf quality=high width=512 height=482 loop=true type="application/x-shockwave-flash">
</embed>

2. [font=courier new]
   
3. ;|
   
4.   命令：XDTB_TextHAlign
   
5.   功能：文字按行水平对齐
   
6. |;
   
7. (defun c:XDTB_TextHAlign (/ ss el m0 pj ang el1 pj2 n pj_1 pj_2 vT mT)
   
8.   (prompt "\n请用窗口选取要处理的文字实体<退出>:")
   
9.   (if (setq ss (ssget '((0 . "text"))))
   
10.     (progn
    
11.       (setq el ($XDLSP_Text_Sort ss nil)
    
12.             m0 (xdrx_matrix_identity 3))
    
13.       (mapcar
    
14.         '(lambda (x)
    
15.            (xdrx_setenttodb (car x))
    
16.            (setq pj (xdrx_getentdxf 10)
    
17.                  ang (xdrx_getentdxf 50)
    
18.                  el1 (cdr x)
    
19.                  pj2 (polar pj ang 100)
    
20.            )
    
21.            (foreach n el1
    
22.               (xdrx_setenttodb n)
    
23.               (setq pj_1 (xdrx_getentdxf 10)
    
24.                     pj_2 (inters pj_1 (polar pj_1 (+ ang (/ pi 2)) 100) pj pj2 nil)
    
25.                     vT   (mapcar '- pj_2 pj_1)
    
26.                     mT (xdrx_matrix_SetTranslation m0 vT)
    
27.               )
    
28.               (xdrx_entity_transForm n mT)
    
29.            )   
    
30.          )
    
31.         el
    
32.       )
    
33.     )
    
34.   )
    
35.   (princ)
    
36. )
    
37. 
    
38. [/font]

[font=courier new]<br /> ;|<br />   命令：XDTB_TextHAlign<br />   功能：文字按行水平对齐<br /> |;<br /> (defun c:XDTB_TextHAlign (/ ss el m0 pj ang el1 pj2 n pj_1 pj_2 vT mT)<br />   (prompt "\n请用窗口选取要处理的文字实体<退出>:")<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (setq el ($XDLSP_Text_Sort ss nil)<br />             m0 (xdrx_matrix_identity 3))<br />       (mapcar<br />         '(lambda (x)<br />            (xdrx_setenttodb (car x))<br />            (setq pj (xdrx_getentdxf 10)<br />                  ang (xdrx_getentdxf 50)<br />                  el1 (cdr x)<br />                  pj2 (polar pj ang 100)<br />            )<br />            (foreach n el1<br />               (xdrx_setenttodb n)<br />               (setq pj_1 (xdrx_getentdxf 10)<br />                     pj_2 (inters pj_1 (polar pj_1 (+ ang (/ pi 2)) 100) pj pj2 nil)<br />                     vT   (mapcar '- pj_2 pj_1)<br />                     mT (xdrx_matrix_SetTranslation m0 vT)<br />               )<br />               (xdrx_entity_transForm n mT)<br />            )   <br />          )<br />         el<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> [/font]

ljb

如何添加该功能？

XDSoft

最初由 ljb 发布
[B]如何添加该功能？ [/B]

把程序拷贝到一个文件，保存成扩展名LSP，然后拷贝到晓东工具箱LISP目录下，加载他，用上面的命令执行。


大家应该稍微学些LISP知识，这样对大家有帮助，这些论坛以前介绍过很多的。

lyhxj

我的cad怎么用不了这个，老是出现这个错误：no function definition: $XDLSP_TEXT_SORT

wfs1980

ddddddddddddddddddddddddd

muyiyzj

很不错啦

冷剑

装完出错啦，晕倒

fan_yilin

你那演示程序是怎样弄的，我很感兴趣，但您提供的功能实在是没有很大的实用意义

wqycsb

出现以下错误
选择对象:
; 错误: no function definition: $XDLSP_TEXT_SORT

gzphhh

*-*4 *-*4

xgz501

晓东工具箱中的文字对齐和标注对齐都出现错误: no function definition，希望高手帮助

whlgdxszs

好东西，下来试一下，谢谢楼主

chenyun7521

真是很不错的东西啊

平面构成

顶了

AyungerStudio

推荐到 http://ayungerstudio.ys168.com/ 下载【一个非常好用的autocad工具集】中就表格单元文字对齐函数，命令为：aySheetAlign 。