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

newer · 发表于 2013-8-18 17:41:45

本帖最后由 newer 于 2013-8-18 17:42 编辑

q3_2006 发表于 2013-8-18 17:07
看别人求助怎么没这么麻烦？为什么要考我

如果文字不等高，上面的程序效果是这样的

要下图这样的才应该符合要求。

QQ截图20130818173807.png

上面我写的程序要是看懂了，改很容易，我现在是底边对齐移动的，你看看应该什么边对齐，怎么正确移动？

修改别人的程序也是一种能力。

Free-Lancer · 发表于 2013-8-18 18:16:42

用线作镜像

q3_2006 · 发表于 2013-8-20 08:12:43

本帖最后由 q3_2006 于 2013-8-20 08:24 编辑

同意32#的做法，这里最适合的方法就是镜像，另外，我是新手没有LISP基础，矩阵什么的我懂不了！只能按自己懂的方式解决问题，版主不认可我也没办法，希望其他高手能给予帮助，谢谢各位了！

我的方法（需要E派支持）

;镜像文本
(defun c:tt ( / p1 p2 s1 s2)
 (setq s1 (car (entsel "\n选择第1个文本: "))
 s2 (car (entsel "\n选择第2个文本: "))
 p1 (xyp-get-9pt s1 2)
 p2 (xyp-get-9pt s2 8)
 )
 (command "mirror" s1 s2 "" "_mtp" p1 p2 "@10<0" "y")
 (princ)
)

Lispboy · 发表于 2013-8-21 10:43:32

q3_2006 发表于 2013-8-20 08:12
同意32#的做法，这里最适合的方法就是镜像，另外，我是新手没有LISP基础，矩阵什么的我懂不了！只能按自己 ...

你不要去纠结什么矩阵，不用理会矩阵是什么原理，你就照猫画虎的学，交给你的就是普通的函数，如果有两点，(setq v (mapcar '- p2 p1)) 就是这两个点间的位移，你把位移送给名字叫 xdrx_matrix_setTransLation 的函数，这个函数的用法是 (setq m (xdrx_matrix_setTransLation mat0 v)), 你把获得值送给一个名字叫 xdrx_entity_transform的函数，用法是 (xdrx_entity_transform ent m)，那么这个实体ent就平移了。上面说到矩阵的字样了吗？举一反三，怎么平移一个实体你不就会了吗？

新东西要学，别老抱着旧的，要不你怎么能进步呢。

q3_2006 · 发表于 2013-8-21 14:54:20

newer 发表于 2013-8-18 17:41
如果文字不等高，上面的程序效果是这样的

晓东的版主有种奇怪的坚持，既然这样，我也融合我理解的最好的方法来处理这个问题，以下代码需要EPI及API支持！
如果大小不一的文字位置替换只能先选择上行，后选择下行

(defun c:tt ( / e1 e2 mat0 mat1 mat2 p1_2 p1_8 p2_2 p2_8)
(if (and
(setq e1 (car (xdrx_entsel "\n第一个文字<退出>:" '((0 . "text")))))
(setq e2 (car (xdrx_entsel "\n第二个文字<退出>:" '((0 . "text")))))
)
(progn
(setq p1_2 (xyp-get-9pt e1 2)
p1_8 (xyp-get-9pt e1 8)
p2_2 (xyp-get-9pt e2 2)
p2_8 (xyp-get-9pt e2 8)
mat0 (xdrx_matrix_identity 3) ; 单位矩阵
mat1 (xdrx_matrix_settranslation mat0 (mapcar
'-
p2_8
p1_8
)
)
mat2 (xdrx_matrix_settranslation mat0 (mapcar
'-
p1_2
p2_2
)
)
)
(xdrx_entity_transform e1 mat1) ; 矩阵平移
(xdrx_entity_transform e2 mat2) ; 矩阵平移
)
)
(princ)
)

Lisphk · 发表于 2013-8-21 14:59:44

q3_2006 发表于 2013-8-21 14:54
晓东的版主有种奇怪的坚持，既然这样，我也融合我理解的最好的方法来处理这个问题，以下代码需要EPI及API ...

恭喜楼主写了这么好看的程序啊，帮你搜了个链接，你看看。

http://www.xdcad.net/forum/forum ... read&tid=669889

q3_2006 · 发表于 2013-8-21 15:12:50

Lisphk 发表于 2013-8-21 14:59
恭喜楼主写了这么好看的程序啊，帮你搜了个链接，你看看。

http://www.xdcad.net/forum/forum.php?mod ...

谢谢，对API还不够了解，只是用EPAI方便，懒得另外找了！

Lisphk · 发表于 2013-8-21 15:19:34

q3_2006 发表于 2013-8-21 15:12
谢谢，对API还不够了解，只是用EPAI方便，懒得另外找了！

看完这篇帖子，感觉你很幸运啊，版主们用心良苦啊，加油，你。

q3_2006 · 发表于 2013-8-21 15:59:27

版主必须承认EPAI的9点比API的9点用起来更方便，这就不用我再改代码了吧！

Lispboy · 发表于 2013-8-21 18:30:54

q3_2006 发表于 2013-8-21 15:59
版主必须承认EPAI的9点比API的9点用起来更方便，这就不用我再改代码了吧！

你说的有道理，函数发布新增加了2个函数：

http://bbs.xdcad.net/thread-670272-1-1.html
http://bbs.xdcad.net/thread-670271-1-1.html

st788796 · 发表于 2013-8-21 18:51:50

中心点按列排序，成组的变换，不需要点选来自: Android客户端

q3_2006 · 发表于 2013-8-21 18:58:33

Lispboy 发表于 2013-8-21 18:30
你说的有道理，函数发布新增加了2个函数：

http://bbs.xdcad.net/thread-670272-1-1.html

反应真迅速，加这个两个函数就方便了。希望能继续为我解决问题，感激不尽！

q3_2006 · 发表于 2013-8-21 20:02:40

因为版主及时添加函数两枚，特改纯API版！

(defun c:tt ( / e1 e2 mat0 mat1 mat2 p1_1 p1_5 p2_1 p2_5)
(if (and
(setq e1 (car (xdrx_entsel "\n第一个文字<退出>:" '((0 . "text")))))
(setq e2 (car (xdrx_entsel "\n第二个文字<退出>:" '((0 . "text")))))
)
(progn
(setq p1_1 (XD::Geom:Get9PT e1 1)
p1_5 (XD::Geom:Get9PT e1 5)
p2_1 (XD::Geom:Get9PT e2 1)
p2_5 (XD::Geom:Get9PT e2 5)
mat0 (xdrx_matrix_identity 3) ; 单位矩阵
mat1 (xdrx_matrix_settranslation mat0 (mapcar
'-
p2_5
p1_5
)
)
mat2 (xdrx_matrix_settranslation mat0 (mapcar
'-
p1_1
p2_1
)
)
)
(xdrx_entity_transform e1 mat1) ; 矩阵平移
(xdrx_entity_transform e2 mat2) ; 矩阵平移
)
)
(princ)
)
;附上API新增的函数
(defun XD::Geom:9pt (e / box)
(setq box (XD::Entity:BOX e))
(XD::Geom:BOX->9PT box)
)
(defun XD::Geom:BOX->9PT (box / p0 p1 p2 p3 p4 p5 p6 p7 p8)
(setq p0 (nth 0 box)
p2 (nth 1 box)
p1 (xdrx_midp p0 p2)
p4 (nth 2 box)
p3 (xdrx_midp p2 p4)
p6 (nth 3 box)
p5 (xdrx_midp p4 p6)
p7 (xdrx_midp p0 p6)
p8 (xdrx_midp p0 p4)
)
(list p0 p1 p2 p3 p4 p5 p6 p7 p8)
)
(defun XD::Geom:Get9PT(e index / box)
(setq box (XD::Geom:9pt e))
(nth index box)
)

(defun c:tt ( / e1 e2 mat0 mat1 mat2 p1_1 p1_5 p2_1 p2_5) 
  (if (and 
 (setq e1 (car (xdrx_entsel "\n第一个文字<退出>:" '((0 . "text"))))) 
 (setq e2 (car (xdrx_entsel "\n第二个文字<退出>:" '((0 . "text"))))) 
      ) 
    (progn 
      (setq p1_1 (XD::Geom:Get9PT e1 1) 
         p1_5 (XD::Geom:Get9PT e1 5) 
         p2_1 (XD::Geom:Get9PT e2 1) 
         p2_5 (XD::Geom:Get9PT e2 5) 
         mat0 (xdrx_matrix_identity 3) ; 单位矩阵 
         mat1 (xdrx_matrix_settranslation mat0 (mapcar 
          '- 
          p2_5 
          p1_5 
        ) 
           ) 
      mat2 (xdrx_matrix_settranslation mat0 (mapcar 
          '- 
          p1_1 
          p2_1 
        ) 
           )          
      ) 
      (xdrx_entity_transform e1 mat1)  ; 矩阵平移 
      (xdrx_entity_transform e2 mat2)  ; 矩阵平移 
    ) 
  ) 
  (princ) 
) 
;附上API新增的函数 
(defun XD::Geom:9pt (e / box) 
   (setq box (XD::Entity:BOX e)) 
   (XD::Geom:BOX->9PT box) 
) 
(defun XD::Geom:BOX->9PT (box / p0 p1 p2 p3 p4 p5 p6 p7 p8) 
  (setq p0 (nth 0 box) 
        p2 (nth 1 box) 
        p1 (xdrx_midp p0 p2) 
        p4 (nth 2 box) 
        p3 (xdrx_midp p2 p4) 
        p6 (nth 3 box) 
        p5 (xdrx_midp p4 p6) 
        p7 (xdrx_midp p0 p6) 
        p8 (xdrx_midp p0 p4) 
  ) 
  (list p0 p1 p2 p3 p4 p5 p6 p7 p8) 
) 
(defun XD::Geom:Get9PT(e index / box) 
   (setq box (XD::Geom:9pt e)) 
   (nth index box) 
)

Free-Lancer · 发表于 2013-8-21 20:44:59

本帖最后由 Free-Lancer 于 2013-8-21 20:49 编辑

q3_2006 发表于 2013-8-21 20:02
因为版主及时添加函数两枚，特改纯API版！

这样用就浪费了，求出 9pt 后，需要的点直接 Nth
多次使用 Get9pt 中会增加求 Entity_box 次数

newer · 发表于 2013-8-21 20:59:39

q3_2006 发表于 2013-8-21 20:02
因为版主及时添加函数两枚，特改纯API版！

呵呵，平移学会了吧，咱们讲到哪了？该缩放了吧。

要缩放，就得有基点和缩放比例，基点咱们求出了，线的中点，缩放比例也有，假如他们的变量分别是 pmid 和 scl

那么：
(setq mat (xdrx_matrix_setScale mat0 scl pmid))
(xdrx_entity_transform ss mat) ; ss 是两个字和线的选择集。

你自己试试执行上面两行代码，看看结果。

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

[求助] 第一次发帖，有关组合物！

点评

点评

点评

点评

点评

点评

评分

点评

点评

点评

点评