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

清风明月10 · 发表于 2013-7-25 10:25:33

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

Lispboy · 发表于 2013-7-25 10:25:34

XD::UCS:Angle 源码

;|
获得UCS的X轴夹角
参数：无
返回值：弧度
|;
(defun XD::UCS:Angle( / an xdir)
(setq xDir (getvar "ucsxdir")
an (xdrx_vector_dotproduct xDir '(1.0 0.0 0.0))
an (atan (/ (sqrt (- 1 (* an an))) an))
)
)

st788796 · 发表于 2013-7-25 11:06:33

本帖最后由 st788796 于 2013-7-25 11:08 编辑

给个建议吧，矩阵啥的有点复杂，用 align 函数，先要加载 geom3d.arx 或者 acGeomUI.arx

Translates and rotates objects, allowing them to be aligned with other objects (externally defined: geom3d ObjectARX application)

(align arg1 arg2 ...)

Arguments

arg1 arg2...

Arguments to the AutoCAD align command. The order, number, and type of arguments for the align function are the same as if you were entering ALIGN at the command line.

To indicate a null response (a user pressing ENTER), specify nil or an empty string ("").

Return Values

T if successful; otherwise nil.

Examples

The following example specifies two pairs of source and destination points, which perform a 2D move:

(setq ss (ssget))
(align ss s1 d1 s2 d2 "" "2d")

lingduwx · 发表于 2013-7-25 11:10:54

顶一个，俺不懂lsp，只会用啊，同样期待高手

清风明月10 · 发表于 2013-7-25 13:50:10

2楼全英文，我不懂

Lispboy · 发表于 2013-7-26 01:33:41

俺好像跟错帖子了，来领赏了。

函数发布，修改了，请看新的 http://bbs.xdcad.net/thread-669871-1-1.html
XD::Entity:BOX 也重新下载下源码，有更新。

登录/注册后可看大图

(defun XD::Entity:BOXatECS (ss e / box)
(xdrx_sysvar_push '("expert" 5) '("ucsicon" 0) '("cmdecho" 0))
(command "ucs" "ob" e)
(setq box (XD::Pnts:UCS2WCS (XD::Entity:BOX ss)))
(command "._ucs" "p")
(setq box (XD::Pnts:WCS2UCS BOX))
(xdrx_sysvar_pop)
box
)

Lispboy · 发表于 2013-7-26 02:32:08

写个一个文字对齐的插件，去看看： http://bbs.xdcad.net/thread-669874-1-1.html

清风明月10 · 发表于 2013-7-26 08:19:03

谢谢您！
水平或垂直对齐的很多，我要的是斜向在一条线上的对齐。

newer · 发表于 2013-7-26 08:22:52

清风明月10 发表于 2013-7-26 08:19
谢谢您！
水平或垂直对齐的很多，我要的是斜向在一条线上的对齐。

你没拿那个程序试试斜的文字？

其实那个包围盒就已经解决问题了，文字对齐只是一个应用而已。

Lispboy · 发表于 2013-7-26 08:35:46

清风明月10 发表于 2013-7-26 08:19
谢谢您！
水平或垂直对齐的很多，我要的是斜向在一条线上的对齐。

我好像才看明白你的意思，你想要的是平齐，不是对齐。

这个我以前就写过一个函数的，可以直接拿来用：见 http://www.xdcad.net/forum/thread-669124-1-1.html

构造ALIGN变换矩阵。用我上面提供的函数 XD::Entity:BoxAtECS,得到文字或者块的实际包围盒， Ps1=(car box) , ps2 = (cadr box) 就是底边了。然后你得得下面那个线的起点和端点，线上两个点就行， PD1 PD2，

然后就把ALIGN变换矩阵写出来了。

(XD::Matrix:Align ps1 ps1 pd1 ps2 pd2)

作用到文字或块就转过来了。

;|
构造对齐矩阵
参数：
pj ---- 基点 ps1---- 源点1 ps2---- 源点2 pd1---- 目标点1 pd2---- 目标点2
返回值：矩阵
|;
(defun XD::Matrix:Align (pj ps1 pd1 ps2 pd2 / fromx fromy from tox toy to mMat )
(setq fromx (xdrx_vector_normalize (mapcar
'-
(trans ps2 1 0)
(trans ps1 1 0)
)
)
fromy (xdrx_vector_perpvector fromx)
fromz (xdrx_vector_crossproduct fromx fromy)
from (list (trans pj 1 0) fromx fromy fromz)
tox (xdrx_vector_normalize (mapcar
'-
(trans pd2 1 0)
(trans pd1 1 0)
)
)
toy (xdrx_vector_perpvector tox)
toz (xdrx_vector_crossproduct tox toy)
to (list (trans pd1 1 0) tox toy toz)
mMat (xdrx_matrix_aligncoordsystem from to)
)
mMat
)

;| 
构造对齐矩阵 
参数： 
   pj ---- 基点  ps1---- 源点1   ps2---- 源点2   pd1---- 目标点1   pd2---- 目标点2 
返回值：矩阵 
|; 
(defun XD::Matrix:Align (pj ps1 pd1 ps2 pd2 / fromx fromy from tox toy to mMat ) 
  (setq fromx (xdrx_vector_normalize (mapcar 
                                       '- 
                                       (trans ps2 1 0) 
                                       (trans ps1 1 0) 
                                     ) 
              ) 
        fromy (xdrx_vector_perpvector fromx) 
        fromz (xdrx_vector_crossproduct fromx fromy) 
        from (list (trans pj 1 0) fromx fromy fromz) 
        tox (xdrx_vector_normalize (mapcar 
                                     '- 
                                     (trans pd2 1 0) 
                                     (trans pd1 1 0) 
                                   ) 
            ) 
        toy (xdrx_vector_perpvector tox) 
        toz (xdrx_vector_crossproduct tox toy) 
        to (list (trans pd1 1 0) tox toy toz) 
        mMat (xdrx_matrix_aligncoordsystem from to) 
  ) 
  mMat 
)

清风明月10 · 发表于 2013-7-26 08:52:16

你们叫平齐？我首次听说这个词。那我要的就是平齐，谢谢

清风明月10 · 发表于 2013-7-26 08:53:30

newer 发表于 2013-7-26 08:22
你没拿那个程序试试斜的文字？

其实那个包围盒就已经解决问题了，文字对齐只是一个应用而已。

试了没效果。我在LISP上是菜鸟，不会试

Lispboy · 发表于 2013-7-26 09:14:12

本帖最后由 Lispboy 于 2013-7-26 09:15 编辑

清风明月10 发表于 2013-7-26 08:53
试了没效果。我在LISP上是菜鸟，不会试

给你写个程序吧，你觉得叫平齐不贴切吗？
对齐的变换矩阵源代码，见我上面给你的帖子链接。你没发现吗，晓东通用函数库和API，把很多东西都做好了，你写程序的代码就很短了。下面程序代码你要想了解思路，那么就发帖，我试着帮你解释。

(defun c:XDTB_ObjAlign ( / box1 e1 e2 mat p1 pd1 pd2 ps1 ps2 v)
(if (and
(setq e1 (xdrx_entsel "\n拾取平齐的基线<退出>:" '((0 . "LINE,*POLYLINE"))))
(setq e2 (car (xdrx_entsel "\n选取要平齐的对象<退出>:")))
)
(progn
(setq box1 (XD::Entity:BoxAtEcs e2 e2)
ps1 (car box1)
ps2 (cadr box1)
p1 (cadr e1)
e1 (car e1)
pd1 (xdrx_curve_getClosestPoint e1 p1)
v (xdrx_curve_getFirstDeriv e1 p1)
pd2 (mapcar
'+
p1
v
)
mat (XD::Matrix:Align ps1 ps1 pd1 ps2 pd2)
)
(xdrx_entity_transform e2 mat)
)
)
(princ)
)

正式发布时候可能要完善下。

清风明月10 · 发表于 2013-7-26 10:58:02

Lispboy 发表于 2013-7-26 09:14
给你写个程序吧，你觉得叫平齐不贴切吗？
对齐的变换矩阵源代码，见我上面给你的帖子链接。你没发现 ...

选取要平齐的对象<退出>:; 错误: no function definition: XD::UCS:ANGLE
很多这样的错误，我加载了晓东的这些文件（“CJ001089晓东API函数xdrx_api16.arx” 、“ CJ001112晓东开源通用LISP函数库Build 2013.07.23XD-LISP-LIB.VLX”）啊，怎么还缺函数

Lispboy · 发表于 2013-7-26 11:24:36

清风明月10 发表于 2013-7-26 10:58
选取要平齐的对象:; 错误: no function definition: XD::UCS:ANGLE
很多这样的错误，我加载了晓东的这 ...

你确信加载了最新的晓东通用LISP函数库，现在是0726版，加载时候会提示的，因为函数在随时增加，所以要用最新的。

你看下图片

QQ截图20130726112315.jpg

账号		自动登录	找回密码
密码			立即注册

[已解决] 求文字及块参照呈斜向对齐代码

最佳答案

相关帖子

点评

点评

点评

点评

点评

点评