XDRX_Entity_MoveStretchpoint应用实例一

eachy

一个简单的文字左对齐，对文字而言，左对齐时Stretchpoint返回 dxf10 ，其他对齐方式返回 dxf 10 和 dxf 11，本程序仅是演示 xdrx_entity_getstretchpoint 及 xdrx_entity_movestretchpoint 应用示例

1. (defun c:tt (/ ss e el)
   
2.   (if (setq ss (ssget '((0 . "text"))))
   
3.     (progn
   
4.       (xdrx_setsstodb ss 0)
   
5.       (while (setq e (xdrx_getentdata 0))
   
6. (setq el (cons e el))
   
7.       )
   
8.       (setq
   
9. el (mapcar '(lambda (x)
   
10.         (list x (car (xdrx_entity_getstretchpoint x)))
    
11.       )
    
12.      el
    
13.     )
    
14. el (vl-sort el
    
15.       (function (lambda (e1 e2)
    
16.     (> (cadadr e1) (cadadr e2))
    
17.          )
    
18.       )
    
19.     ) ;_由上到下排序
    
20.       )
    
21.       (setq p  (cadar el)
    
22.      el (mapcar '(lambda (x)
    
23.      (list (car x) (mapcar '- (cadr x) p))
    
24.    )
    
25.          (cdr el)
    
26.         )
    
27.       )
    
28.       (mapcar '(lambda (x)
    
29.    (xdrx_entity_movestretchpoint (car x) (cadr x) 0);_这里只有左对齐是 0 ，其他对齐方式 0 为对齐点
    
30.         )
    
31.        el
    
32.       )
    
33.     )
    
34.   )
    
35.   (princ)
    
36. )

(defun c:tt (/ ss e el)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br /> (setq el (cons e el))<br />       )<br />       (setq<br /> el (mapcar '(lambda (x)<br />         (list x (car (xdrx_entity_getstretchpoint x)))<br />       )<br />      el<br />     )<br /> el (vl-sort el<br />       (function (lambda (e1 e2)<br />     (> (cadadr e1) (cadadr e2))<br />          )<br />       )<br />     ) ;_由上到下排序<br />       )<br />       (setq p  (cadar el)<br />      el (mapcar '(lambda (x)<br />      (list (car x) (mapcar '- (cadr x) p))<br />    )<br />          (cdr el)<br />         )<br />       )<br />       (mapcar '(lambda (x)<br />    (xdrx_entity_movestretchpoint (car x) (cadr x) 0);_这里只有左对齐是 0 ，其他对齐方式 0 为对齐点<br />         )<br />        el<br />       )<br />     )<br />   )<br />   (princ)<br /> )

zhangq_cai1

对齐文字间距变为原先的两倍，是怎么引起的，如图另外(xdrx_setsstodb ss 0)和(xdrx_getentdata 0))怎么用

XDSoft

zhangq_cai1 发表于 2013-8-6 18:09
对齐文字间距变为原先的两倍，是怎么引起的，如图另外(xdrx_setsstodb ss 0)和(xdrx_getentdata 0))怎么用
...

xdrx_setsstodb ....去看下 这个帖子，讲XDRX API典型程序结构-遍历选集的 http://www.xdcad.net/forum/thread-669991-1-1.html

2013API手册发布了，你可以对照手册看下函数用法。

你贴的图片，你在CAD下用夹点是怎么操作的，那么xdrx_entity_moveStretchPoint就怎么用的，你只需要把要移动的距离和要移动哪个夹点做参数给函数，就帮你做出你手工拉夹点的过程。

newer

zhangq_cai1 发表于 2013-8-6 18:09
对齐文字间距变为原先的两倍，是怎么引起的，如图另外(xdrx_setsstodb ss 0)和(xdrx_getentdata 0))怎么用
...

setsstodb是把你要处理的选择集放入API内部一个全局变量中，xdrx_getentdata 是获得当前选集的实体，然后指针加1，下次在执行xdrx_getentdata 就得到下个实体了，相当于LISP里面的(ssname ss i) i自动加1了。 不过xdrx_getentdta 根据给的房间号，可以任意处理9个setsstodb的选集，互相不打架，(xdrx_getentdata 0) 获得房间号0的选集的当前的实体， (xdrx_getentdata 1)获得房间号1的选集的当前实体。

给你举个例子，下面代码遍历选集，把实体类型给打印出来

1. (xdrx_setsstodb ss 0)
   
2. (while (setq e (xdrx_getentdata 0))
   
3.     (princ "\n")
   
4.     (princ (xdrx_getentdxf 0))
   
5. )
   

(xdrx_setsstodb ss 0)<br /> (while (setq e (xdrx_getentdata 0))<br />     (princ "\n")<br />     (princ (xdrx_getentdxf 0))<br /> )<br />

XDSoft

zhangq_cai1 发表于 2013-8-6 18:09
对齐文字间距变为原先的两倍，是怎么引起的，如图另外(xdrx_setsstodb ss 0)和(xdrx_getentdata 0))怎么用
...

写了一个简单的修改文字行距的工具，注释帮你写全了，理解下moveStretchPoint操作。

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq dis (getreal "\n行距<退出>:"))
   
4.         (setq ss (ssget '((0 . "TEXT"))))
   
5.       )
   
6.     (progn
   
7.       (setq vdis (list 0 (- (abs dis)) 0) ;;向下移动距离向量
   
8.             entl (XD::Pickset:TableSort ss 0 3 '> '<)
   
9.       )                                       ; 把你选的文字实体从上到下拍好序了。
   
10.       (setq e (caar entl)
    
11.             box (xdrx_entity_box e)
    
12.             pj1 (car box)
    
13.             pj2 (cadr box)
    
14.       )
    
15.       (foreach n (cdr entl)               ; 从第二行文字开始处理
    
16.         (setq e (car n))               ; 每行的第一个文字，本程序只处理第一列
    
17.         (setq box (xdrx_entity_box e)
    
18.               p1 (car box)               ; 当前行文字左下点
    
19.               p4 (last box)               ; 当前行文字左上点
    
20.               dis (xdrx_point_dist2Line p4 pj1 pj2) ;;当前行文字顶边到上行文字下边的垂直距离(有正负)
    
21.               v_dis (list 0  dis 0)  ;;文字先和上行文字相贴，然后再移动夹点，距离向量为间距
    
22.               gap (mapcar '+ v_dis vdis)
    
23.         )
    
24.         (xdrx_entity_moveStretchPoint e gap 0);;移动文字夹点
    
25.         (setq box (xdrx_entity_box e)
    
26.               pj1 (car box)  ;;当前行变成基行，供下行文字参考
    
27.               pj2 (cadr box)
    
28.         )
    
29.       )
    
30.     )
    
31.   )
    
32.   (princ)
    
33. )
    
34. 
    

(defun c:tt ()<br />   (if (and<br />         (setq dis (getreal "\n行距<退出>:"))<br />         (setq ss (ssget '((0 . "TEXT"))))<br />       )<br />     (progn<br />       (setq vdis (list 0 (- (abs dis)) 0) ;;向下移动距离向量<br />             entl (XD::Pickset:TableSort ss 0 3 '> '<)<br />       )                                       ; 把你选的文字实体从上到下拍好序了。<br />       (setq e (caar entl)<br />             box (xdrx_entity_box e)<br />             pj1 (car box)<br />             pj2 (cadr box)<br />       )<br />       (foreach n (cdr entl)               ; 从第二行文字开始处理<br />         (setq e (car n))               ; 每行的第一个文字，本程序只处理第一列<br />         (setq box (xdrx_entity_box e)<br />               p1 (car box)               ; 当前行文字左下点<br />               p4 (last box)               ; 当前行文字左上点<br />               dis (xdrx_point_dist2Line p4 pj1 pj2) ;;当前行文字顶边到上行文字下边的垂直距离(有正负)<br />               v_dis (list 0  dis 0)  ;;文字先和上行文字相贴，然后再移动夹点，距离向量为间距<br />               gap (mapcar '+ v_dis vdis)<br />         )<br />         (xdrx_entity_moveStretchPoint e gap 0);;移动文字夹点<br />         (setq box (xdrx_entity_box e)<br />               pj1 (car box)  ;;当前行变成基行，供下行文字参考<br />               pj2 (cadr box)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

Free-Lancer

结合 9pt 可以写任意的对齐了