Sonnenblumen 发表于 2020-6-28 18:33:55

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

有一对齐引线的程序，求前辈指点修改一下，能实现下图修改后效果，不胜感激:handshake
(defun C:TT1 ()
(setvar "cmdecho" 0)
(setq oer *error* *error* clmerr)
(setq old-OS (getvar "osmode"))
(setq SS (ssget '((0 . "LEADER"))))
(while (/= (car (setq mouse (grread mouse 5))) 3)
    (repeat (setq I (sslength SS))
   (setq ENT (entget (ssname SS (setq I (1- I)))))
   (setq PT1 (assoc 10 (reverse ENT))
         ant (cdr (assoc 340 ENT))
         ptg (cadr mouse)
         dist (distance (cdr pt1) ptg)
         ang (angle (cdr pt1) ptg)
         newpt (polar (cdr pt1) 0 (* (cos ang) dist))
      )
   (entmod (subst (cons 10 newpt) PT1 ENT))
   (if (setq ENT2 (entget ANT))
      (progn
          (setq PT1 (cdr PT1)
                PT2 (assoc 10 ENT2)
          )
          (setq PT3 (polar (cdr PT2) 0(* (cos (angle PT1 PTG)) (distance PT1 PTg))))
          (entmod (subst (cons 10 PT3) PT2 ENT2))
      )
      )
   )   
)
(setvar "osmode" old-OS)
(princ)
)



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

试试      

Sonnenblumen 发表于 2020-6-28 18:37:38

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

xvjiex 发表于 2020-6-28 19:22:45

本帖最后由 xvjiex 于 2020-6-29 10:02 编辑

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

Sonnenblumen 发表于 2020-6-29 09:28:00

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

感谢大师指点，学习了:handshake
页: [1]
查看完整版本: 求前辈指点，引线对齐程序