[编程申请]：请高手看一下，坐标转换不用COMMAND命令可否

tc405003

请高手看一下，坐标转换不用COMMAND命令可否

2. 
   
3. (defun c:TEST ()
   
4. (setq tc_s0 (car (entsel "\n请点取被对齐的文字:")))
   
5. (command "ucs" "object" tc_s0);;;;可否不用COMMAND也可达到同样的效果
   
6. (setq tc_ent0 (cdr (entget tc_S0)))
   
7. (command "ucs" "object" tc_s0)
   
8. (setq tc_lay   (cdr (assoc 8 tc_ent0))  ;层名
   
9.            tc_ang (cdr (assoc 50 tc_ent0)) ;角度
   
10.     tc_h    (cdr (assoc 40 tc_ent0)) ;字符高度
    
11.            tc_p0   (cdr (assoc 10 tc_ent0)) ;字符起点
    
12.     )
    
13.   (setq tc_p0 (trans tc_p0 0 1))
    
14.   
    
15.   (setq tc_p1 (list (car tc_p0) (- (cadr tc_p0) (* 1.5 tc_h))))
    
16. (princ "\n请点取要对齐的文字:")
    
17.   
    
18. (setq tc_ss0 (ssget '((0 . "TEXT"))))
    
19.   (setq tc_i 0
    
20. tc_n (sslength tc_ss0)
    
21.   )
    
22. (repeat tc_n
    
23.     (setq tc_s1 (ssname tc_ss0 tc_i))
    
24.    (setq tc_ent1 (entget tc_S1))   
    
25.    (setq tc_p1 (list (car tc_p0) (- (cadr tc_p0) (* 1.5 tc_h))))
    
26.    (setq tc_p1 (trans tc_p1 1 0))
    
27.   (setq tc_ent1 (subst (cons 8 tc_lay) (assoc 8 tc_ent1) tc_ent1))
    
28.   (setq tc_ent1 (subst (cons 50 tc_ang) (assoc 50 tc_ent1) tc_ent1))
    
29.   (setq tc_ent1 (subst (cons 40 tc_h) (assoc 40 tc_ent1) tc_ent1))
    
30.   (setq tc_ent1 (subst (cons 10 tc_p1) (assoc 10 tc_ent1) tc_ent1))
    
31.   (setq  tc_p0   (cdr (assoc 10 tc_ent1)))
    
32.   (setq tc_p0 (trans  tc_p0 0 1))
    
33.   (entmod tc_ent1)
    
34. ;(setq tc_p0 (cdr (assoc 10 tc_ent1)))
    
35. (setq tc_i (1+ tc_i))
    
36.       )
    
37. (command "ucs" "w") ;;;;;可否不用COMMAND也可达到同样的效果   
    
38.   (princ)
    
39.   )

<br /> (defun c:TEST ()<br /> (setq tc_s0 (car (entsel "\n请点取被对齐的文字:")))<br /> (command "ucs" "object" tc_s0);;;;可否不用COMMAND也可达到同样的效果<br /> (setq tc_ent0 (cdr (entget tc_S0)))<br /> (command "ucs" "object" tc_s0) <br /> (setq tc_lay   (cdr (assoc 8 tc_ent0))  ;层名<br />            tc_ang (cdr (assoc 50 tc_ent0)) ;角度<br />     tc_h    (cdr (assoc 40 tc_ent0)) ;字符高度<br />            tc_p0   (cdr (assoc 10 tc_ent0)) ;字符起点<br />     )<br />   (setq tc_p0 (trans tc_p0 0 1))<br />   <br />   (setq tc_p1 (list (car tc_p0) (- (cadr tc_p0) (* 1.5 tc_h))))<br /> (princ "\n请点取要对齐的文字:")<br />   <br /> (setq tc_ss0 (ssget '((0 . "TEXT")))) <br />   (setq tc_i 0<br /> tc_n (sslength tc_ss0)<br />   )<br /> (repeat tc_n<br />     (setq tc_s1 (ssname tc_ss0 tc_i))<br />    (setq tc_ent1 (entget tc_S1))    <br />    (setq tc_p1 (list (car tc_p0) (- (cadr tc_p0) (* 1.5 tc_h))))<br />    (setq tc_p1 (trans tc_p1 1 0))<br />   (setq tc_ent1 (subst (cons 8 tc_lay) (assoc 8 tc_ent1) tc_ent1))<br />   (setq tc_ent1 (subst (cons 50 tc_ang) (assoc 50 tc_ent1) tc_ent1))<br />   (setq tc_ent1 (subst (cons 40 tc_h) (assoc 40 tc_ent1) tc_ent1))<br />   (setq tc_ent1 (subst (cons 10 tc_p1) (assoc 10 tc_ent1) tc_ent1))<br />   (setq  tc_p0   (cdr (assoc 10 tc_ent1)))<br />   (setq tc_p0 (trans  tc_p0 0 1)) <br />   (entmod tc_ent1)<br /> ;(setq tc_p0 (cdr (assoc 10 tc_ent1)))<br /> (setq tc_i (1+ tc_i))<br />       )<br /> (command "ucs" "w") ;;;;;可否不用COMMAND也可达到同样的效果    <br />   (princ)<br />   )

xyp1964

程序无效！
请说明要达到的目的。
方法其实没有定律，能达到目的就行。

tc405003

老大，我试了没有问题，我是想选一个参考文字，再选取其它的文字，其它的文字与其对齐