求前辈指点，引线对齐程序

Sonnenblumen

有一对齐引线的程序，求前辈指点修改一下，能实现下图修改后效果，不胜感激

1. (defun C:TT1 ()
   
2.   (setvar "cmdecho" 0)
   
3.   (setq oer *error* *error* clmerr)
   
4.   (setq old-OS (getvar "osmode"))
   
5.   (setq SS (ssget '((0 . "LEADER"))))
   
6.   (while (/= (car (setq mouse (grread mouse 5))) 3)
   
7.     (repeat (setq I (sslength SS))
   
8.      (setq ENT (entget (ssname SS (setq I (1- I)))))
   
9.      (setq PT1 (assoc 10 (reverse ENT))
   
10.            ant (cdr (assoc 340 ENT))
    
11.            ptg (cadr mouse)
    
12.            dist (distance (cdr pt1) ptg)
    
13.            ang (angle (cdr pt1) ptg)
    
14.            newpt (polar (cdr pt1) 0 (* (cos ang) dist))
    
15.       )
    
16.      (entmod (subst (cons 10 newpt) PT1 ENT))
    
17.      (if (setq ENT2 (entget ANT))
    
18.         (progn
    
19.           (setq PT1 (cdr PT1)
    
20.                 PT2 (assoc 10 ENT2)
    
21.           )
    
22.           (setq PT3 (polar (cdr PT2) 0  (* (cos (angle PT1 PTG)) (distance PT1 PTg))))
    
23.           (entmod (subst (cons 10 PT3) PT2 ENT2))
    
24.         )
    
25.       )
    
26.    )     
    
27.   )
    
28. (setvar "osmode" old-OS)
    
29. (princ)
    
30. )
    

(defun C:TT1 ()<br />   (setvar "cmdecho" 0)<br />   (setq oer *error* *error* clmerr)<br />   (setq old-OS (getvar "osmode"))<br />   (setq SS (ssget '((0 . "LEADER"))))<br />   (while (/= (car (setq mouse (grread mouse 5))) 3)<br />     (repeat (setq I (sslength SS))<br />      (setq ENT (entget (ssname SS (setq I (1- I)))))<br />      (setq PT1 (assoc 10 (reverse ENT))<br />            ant (cdr (assoc 340 ENT))<br />            ptg (cadr mouse) <br />            dist (distance (cdr pt1) ptg)<br />            ang (angle (cdr pt1) ptg)<br />            newpt (polar (cdr pt1) 0 (* (cos ang) dist))<br />       ) <br />      (entmod (subst (cons 10 newpt) PT1 ENT))<br />      (if (setq ENT2 (entget ANT))<br />         (progn<br />           (setq PT1 (cdr PT1)<br />                 PT2 (assoc 10 ENT2)<br />           )<br />           (setq PT3 (polar (cdr PT2) 0  (* (cos (angle PT1 PTG)) (distance PT1 PTg))))<br />           (entmod (subst (cons 10 PT3) PT2 ENT2))<br />         )<br />       )<br />    )     <br />   )<br /> (setvar "osmode" old-OS)<br /> (princ)<br /> ) <br />

start4444

试试      

Sonnenblumen

自己顶一下，大师们看一下啊

xvjiex

我看错了，还以为是新建LEADER就要右对齐。原来是对已有的LEADER进行右对齐。

Sonnenblumen

start4444 发表于 2020-6-28 18:33
试试

感谢大师指点，学习了