【悬赏10明经币】求与线平齐小程序

doro

这个很有用 拜一拜

yjr111

矩阵研究了几天，忽然迷茫了。。。今天看highflybir的块切线的程序，忽然灵感来了：难道牛顿定律有了，我还要去重新发明牛顿定律不成！？哈哈，直接拿来主义，稍加修改，搞定！！
自己就写了这么一点：（完整下载在下面）

2. 
   
3. (defun c:yxpq(/ e1 e2 ee eee s11  p11 ang1 ang2 an lst11 JIAODU1  JIAODU2 JIAODU3)
   
4.   (vl-load-com)
   
5.   (setvar "cmdecho" 0)
   
6.   (setq e1 (car(setq ee(nentselp"\n 请选择要对齐的物体："))))
   
7.   (setq s11 (entget e1))
   
8.   
   
9.   (if (wcmatch(cdr(assoc 0 s11))"*TEXT")
   
10.     (progn
    
11.       (setq p11 (cdr(assoc 10 s11)))
    
12.       (setq ang1 (cdr(assoc 50 s11))))
    
13.     (progn
    
14.   (setq lst11(nentselp (setq p11(cadr ee))))
    
15.   (qvxianjiaodu lst11 )
    
16.   (setq ang1 an))
    
17.     )
    
18.   (SETQ JIAODU1 (* (/ ang1 PI)180))
    
19.   (setq an nil)
    
20.   (setq e2 (car(setq eee(nentselp"\n 请选择物体要对齐的曲线"))))
    
21.   (setq lst11(nentselp (cadr eee)))
    
22.   (qvxianjiaodu lst11 )
    
23.   (setq ang2 an)
    
24.   (SETQ JIAODU2 (* (/ ang2 PI)180))
    
25.   (setq an nil)
    
26. ;;;;;;;;;;;;;;旋转平移;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
27.   
    
28.    
    
29.     (IF (> (LENGTH ee)2) (PROGN (SETQ e1 (CAAR (REVERSE ee)))
    
30. (setq p11 (cdr(assoc 10 (ENTGET e1)))
    
31. jiaodu3 (*(/(cdr(assoc 50 (ENTGET e1)))PI)180))))
    
32.   (setq jiaodu (- jiaodu2 jiaodu1))
    
33.   
    
34.   (cond
    
35.          ((and(and e1 e2)(> (LENGTH ee)2))
    
36.     (command "_.rotate" e1 "" p11 (- jiaodu jiaodu3))  
    
37.     (command  "_.MOVE" e1 ""  p11  pause))
    
38. 
    
39.       (t(command "_.rotate" e1 "" p11   jiaodu )  
    
40.     (command  "_.MOVE" e1 ""  p11  pause))
    
41. 
    
42.   )
    
43.    
    
44.   (princ)
    
45. )
    

<br /> (defun c:yxpq(/ e1 e2 ee eee s11  p11 ang1 ang2 an lst11 JIAODU1  JIAODU2 JIAODU3)<br />   (vl-load-com)<br />   (setvar "cmdecho" 0)<br />   (setq e1 (car(setq ee(nentselp"\n 请选择要对齐的物体："))))<br />   (setq s11 (entget e1))<br />   <br />   (if (wcmatch(cdr(assoc 0 s11))"*TEXT")<br />     (progn<br />       (setq p11 (cdr(assoc 10 s11)))<br />       (setq ang1 (cdr(assoc 50 s11))))<br />     (progn<br />   (setq lst11(nentselp (setq p11(cadr ee))))<br />   (qvxianjiaodu lst11 )<br />   (setq ang1 an))<br />     )<br />   (SETQ JIAODU1 (* (/ ang1 PI)180))<br />   (setq an nil)<br />   (setq e2 (car(setq eee(nentselp"\n 请选择物体要对齐的曲线"))))<br />   (setq lst11(nentselp (cadr eee)))<br />   (qvxianjiaodu lst11 )<br />   (setq ang2 an) <br />   (SETQ JIAODU2 (* (/ ang2 PI)180))<br />   (setq an nil)<br /> ;;;;;;;;;;;;;;旋转平移;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   <br />     <br />     (IF (> (LENGTH ee)2) (PROGN (SETQ e1 (CAAR (REVERSE ee)))<br /> (setq p11 (cdr(assoc 10 (ENTGET e1)))<br /> jiaodu3 (*(/(cdr(assoc 50 (ENTGET e1)))PI)180))))<br />   (setq jiaodu (- jiaodu2 jiaodu1))<br />   <br />   (cond<br />          ((and(and e1 e2)(> (LENGTH ee)2))<br />     (command "_.rotate" e1 "" p11 (- jiaodu jiaodu3))  <br />     (command  "_.MOVE" e1 ""  p11  pause))<br /> <br />       (t(command "_.rotate" e1 "" p11   jiaodu )  <br />     (command  "_.MOVE" e1 ""  p11  pause))<br /> <br />   )<br />     <br />   (princ)<br /> )<br />

图片演示：

highflybir

yjr111 发表于 2011-10-25 02:56
矩阵研究了几天，忽然迷茫了。。。今天看highflybir的块切线的程序，忽然灵感来了：难道牛顿定律有了，我还 ...

楼主的好思路。
照此思路下去，楼主可以继续对块内文字和属性处理下去。希望楼主得到一个自己解决的，比别人的并不差的程序。
我下面提供一个自己的lisp，以供楼主参考。主要用来取得块属性的包围框。

Gu_xl

就需要有这样的钻研精神，自己才能进步！楼主加油哦！

yjr111

哈哈，飞版说得对！币币那是必须要送的！

zhb236623

好东东是要顶的，顶起来大家看。。。。。。。

fergus1987

貌似只能对齐单行字?

coco25825

回复楼上，经实验都可

T_T

学习矩阵啊,矩阵啊

whenevo

这个用align命令不能实现吗？