求文字及块参照呈斜向对齐的代码

清风明月10

一般我们图元对齐都是在世界坐标系下呈水平或垂直状态的对齐。我想求高手帮写一个代码，使得N个文字以某文字A（也可以是块参照）的包围线中心点及旋转角度确定的一条线对齐，如示意图。当然还希望块参照也如此对齐，因为有一些文字是以块参照存在的。我只是要求块参照的中心也在这条线上，且旋转角度与A相同，块内文字怎么样都不管它。 请高手帮助解决！

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:文字及块参照呈斜向对齐.rar 
下载次数:6  文件大小:67.65 KB 
下载权限: 不限 以上  [免费赚D豆]

Lispboy

俺来领赏了

看下新发布的函数，可以获得参考实体ECS对齐的 实际的包围盒。 得到盒子，你就可以干你想干的了。

http://www.xdcad.net/forum/thread-669871-1-1.html

1. ;|
   
2. 获得实体ECS下实际的包围盒
   
3. 参数：
   
4.    ss ---  实体名 or 选择集
   
5.    e  ---  参考实体（确定X轴方向）
   
6. 
   
7. 返回值：
   
8. 对齐一个实体的包围盒（WCS点）
   
9. |;
   
10. (defun XD::Entity:BOXatECS (ss e / box oldcmd oldexpt olducs re)
    
11.   (if (or
    
12.         (and
    
13.           (= (type ss) 'PICKSET)
    
14.           (> (sslength ss) 0)
    
15.         )
    
16.         (= (type ss) 'ENAME)
    
17. 
    
18.       )
    
19.     (progn
    
20.       (xdrx_sysvar_push '("expert" 5) '("ucsicon" 0) '("cmdecho" 0))
    
21.       (command "ucs" "ob" e)
    
22.       (setq box (XD::Entity:BOX ss))
    
23.       (command "._ucs" "p")
    
24.       (xdrx_sysvar_pop)
    
25.     )
    
26.   )
    
27.   box
    
28. )
    
29. 
    

;|<br /> 获得实体ECS下实际的包围盒<br /> 参数：<br />    ss ---  实体名 or 选择集<br />    e  ---  参考实体（确定X轴方向）<br /> <br /> 返回值：<br /> 对齐一个实体的包围盒（WCS点）<br /> |;<br /> (defun XD::Entity:BOXatECS (ss e / box oldcmd oldexpt olducs re)<br />   (if (or<br />         (and<br />           (= (type ss) 'PICKSET)<br />           (> (sslength ss) 0)<br />         )<br />         (= (type ss) 'ENAME)<br /> <br />       )<br />     (progn<br />       (xdrx_sysvar_push '("expert" 5) '("ucsicon" 0) '("cmdecho" 0))<br />       (command "ucs" "ob" e)<br />       (setq box (XD::Entity:BOX ss))<br />       (command "._ucs" "p")<br />       (xdrx_sysvar_pop)<br />     )<br />   )<br />   box<br /> )<br /> <br />

测试命令代码

1. (defun c:ttt ()
   
2.   (if (and
   
3.         (setq e (car (xdrx_entsel "\n拾取参考实体确定X轴<退出>:")))
   
4.         (progn
   
5.           (princ "\n选取要处理的实体<退出>:")
   
6.           (setq ss (ssget))
   
7.         )
   
8.       )
   
9.     (progn
   
10.       (XD::Begin)
    
11.       (setq box (XD::Entity:BoxAtEcs ss e))
    
12.       (apply
    
13.         'xdrx_polyline_make
    
14.         (cons t box)
    
15.       )
    
16.       (XD::End)
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )
    
21. 
    

(defun c:ttt ()<br />   (if (and<br />         (setq e (car (xdrx_entsel "\n拾取参考实体确定X轴<退出>:")))<br />         (progn<br />           (princ "\n选取要处理的实体<退出>:")<br />           (setq ss (ssget))<br />         )<br />       )<br />     (progn<br />       (XD::Begin)<br />       (setq box (XD::Entity:BoxAtEcs ss e))<br />       (apply<br />         'xdrx_polyline_make<br />         (cons t box)<br />       )<br />       (XD::End)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

清风明月10

试了，出现错误“; 错误: no function definition: XD::BEGIN”。为什么？
我是CAD2005，加载了“晓东API函数xdrx_api16.arx”

tianyi1230

那是晓东的函数，

newer

清风明月10 发表于 2013-7-25 19:46
试了，出现错误“; 错误: no function definition: XD::BEGIN”。为什么？
我是CAD2005，加载了“晓东API ...

XD:: 这样的函数，是晓东LISP开源通用函数库
http://bbs.xdcad.net/thread-669133-1-1.html

源码都在LISP论坛的的“函数发布”栏目下面。