第一次发帖，有关组合物！

newer

q3_2006 发表于 2013-8-18 15:17
两行字我特意用不同的对齐方式，想看是如何解决的！

你可以不同管对齐方式，分别算出两个文字的包围框，用包围框去找应该写的位置。
比如你找到上面文字的包围框，找到左下点，然后求这个点和下面文字包围框的下边的垂直交点，然后把上面文字移动到求的交点即可了。

整体文字移动，不用考虑对齐。

q3_2006

newer 发表于 2013-8-18 15:29
你可以不同管对齐方式，分别算出两个文字的包围框，用包围框去找应该写的位置。
比如你找到上面文字的包 ...

还是要我自己来呀，还版主代写下吧，有困难才向您求助的，谢谢啰！

st788796

q3_2006 发表于 半小时前

                               
登录/注册后可看大图

两行字我特意用不同的对齐方式，想看是如何解决的！

拿随意画的东西编程，你也忒不负责任了！来自: Android客户端

newer

q3_2006 发表于 2013-8-18 15:36
还是要我自己来呀，还版主代写下吧，有困难才向您求助的，谢谢啰！

我在给你说思路呢，思路你清楚了吗？


XD::Geom:GetPerpPlaneWithLine  这个函数，函数发布里面有，晓东通用LISP函数库也有。

1. (defun c:tt()
   
2.    (if (and (setq e1 (car (xdrx_entsel "\n第一个文字<退出>:" '((0 . "text")))))
   
3.             (setq e2 (car (xdrx_entsel "\n第二个文字<退出>:" '((0 . "text")))))
   
4.        )
   
5.      (progn
   
6.         (setq box1 (xdrx_entity_box e1) ;;第一个文字盒子
   
7.               box2 (xdrx_entity_box e2) ;;第二个文字盒子
   
8.               pbox1_1 (car box1)        ;;第一个文字左下点
   
9.               pbox2_1 (car box2)        ;;下面两点是第二个盒子的底边
   
10.               pbox2_2 (cadr box2)
    
11.               normal (xdrx_text_normal e1);;文字实体的平面的法线
    
12.               perpPlane (XD::Geom:GetPerpPlaneWithLine pbox2_1 pbox2_2 normal) ;;过第二个盒子底边垂直于文字平面的 垂平面（你也可以用其他方法，比如求第一个盒子左下点和这两个点的最近点）
    
13.               int (xdrx_point_orthoProject pbox1_1 perpPlane);;第一个盒子左下点向上面的垂平面正交投影
    
14.               mat0 (xdrx_matrix_identity 3);;单位矩阵
    
15.               mat1 (xdrx_matrix_setTranslation mat0 (mapcar '- int pbox1_1));;第一个文字平移到第二个文字（底边对齐）的平移矩阵
    
16.               mat2 (xdrx_matrix_inverse mat1);;上面矩阵的逆矩阵，用来作用下面的文字到第一个实体的底边
    
17.         )
    
18.         (xdrx_entity_transform e1 mat1);;矩阵平移
    
19.         (xdrx_entity_transform e2 mat2);;矩阵平移
    
20.      )
    
21.    )
    
22.    (princ)
    
23. )
    
24. 
    

(defun c:tt()<br />    (if (and (setq e1 (car (xdrx_entsel "\n第一个文字<退出>:" '((0 . "text")))))<br />             (setq e2 (car (xdrx_entsel "\n第二个文字<退出>:" '((0 . "text")))))<br />        )<br />      (progn<br />         (setq box1 (xdrx_entity_box e1) ;;第一个文字盒子<br />               box2 (xdrx_entity_box e2) ;;第二个文字盒子<br />               pbox1_1 (car box1)        ;;第一个文字左下点<br />               pbox2_1 (car box2)        ;;下面两点是第二个盒子的底边<br />               pbox2_2 (cadr box2)<br />               normal (xdrx_text_normal e1);;文字实体的平面的法线<br />               perpPlane (XD::Geom:GetPerpPlaneWithLine pbox2_1 pbox2_2 normal) ;;过第二个盒子底边垂直于文字平面的 垂平面（你也可以用其他方法，比如求第一个盒子左下点和这两个点的最近点）<br />               int (xdrx_point_orthoProject pbox1_1 perpPlane);;第一个盒子左下点向上面的垂平面正交投影<br />               mat0 (xdrx_matrix_identity 3);;单位矩阵<br />               mat1 (xdrx_matrix_setTranslation mat0 (mapcar '- int pbox1_1));;第一个文字平移到第二个文字（底边对齐）的平移矩阵<br />               mat2 (xdrx_matrix_inverse mat1);;上面矩阵的逆矩阵，用来作用下面的文字到第一个实体的底边<br />         )<br />         (xdrx_entity_transform e1 mat1);;矩阵平移<br />         (xdrx_entity_transform e2 mat2);;矩阵平移<br />      )<br />    )<br />    (princ)<br /> )<br /> <br />

q3_2006

newer 发表于 2013-8-18 16:17
我在给你说思路呢，思路你清楚了吗？

no function definition: XDRX_TEXT_NORMAL

q3_2006

更新后好了！

newer

q3_2006 发表于 2013-8-18 16:34
更新后好了！

API 和通用LISP函数库，看到更新就更新啊，那可是宝库啊。
你看看上面的程序，你不用了解entget实体的数据，对齐啊是什么，就按照你在ACAD手工操作的来，API就给你模拟你的手工到程序。你手工移动这两实体，无外乎是做辅助线，然后移动，垂直捕捉什么的。

q3_2006

q3_2006 发表于 2013-8-18 16:31
no function definition: XDRX_TEXT_NORMAL

加注解基本能看明白！这个位置交换院长的9点坐标函数也能做到，我已经会了！

q3_2006

那批量原位缩放呢，这个我也需要指导，拜托版主！

newer

q3_2006 发表于 2013-8-18 16:43
加注解基本能看明白！这个位置交换院长的9点坐标函数也能做到，我已经会了！

那你改下上面的程序， 上面程序是底边对齐，当上面文字和下面文字不等高的时候，用上面的程序距离中间的线位置就不对了，你试试看看改下上面的程序， 让两个文字交换后，不管文字多高，上面文字底边距离线和下面文字距离线的间距要不变，你看看怎么改？

newer

q3_2006 发表于 2013-8-18 16:45
那批量原位缩放呢，这个我也需要指导，拜托版主！

一个问题一个问题消化，你先把我上面的帖子的自己做出来，再接着学缩放。

做出来自己做个动画贴论坛。

q3_2006

看别人求助怎么没这么麻烦？为什么要考我:'(
(defun C:hh (/ a b a1 b1)
  (setq a (entsel "\n选择第一个文本"))
  (setq b (entsel "\n选择第二个文本"))
  (setq a1 (cdr (assoc 10 (entget (car a)))))
  (setq b1 (cdr (assoc 10 (entget (car b)))))
(command "move" a "" a1 b1)
(command "move" b "" b1 a1)
(princ)
)  

q3_2006

9点坐标法,改成正中点最OK
(defun c:tt ()
  (if (and (setq s1 (car (entsel "\n选择第1个文本: ")))
           (setq s2 (car (entsel "\n选择第2个文本: ")))
           (not (equal s1 s2))
           (xyp-etype s1 "text")
           (xyp-etype s2 "text")
      )
    (progn
      (setq p1 (xyp-get-9pt s1 1)
            p2 (xyp-get-9pt s2 1)
      )
      (xyp-move s1 p1 p2)
      (xyp-move s2 p2 p1)
    )
  )
  (princ)
)

q3_2006

只会用院长的函数，自己写不会！

q3_2006

newer 发表于 2013-8-18 16:50
一个问题一个问题消化，你先把我上面的帖子的自己做出来，再接着学缩放。

做出来自己做个动画贴论坛。 ...

看别人求助怎么没这么麻烦？为什么要考我
{:soso_e109:}