求一键对齐

andyzha

需求是选择块，线，文字，已选择块或者线的一边作为对齐边，直接对齐到另一条线段，之前明经里有类似的，但是操作比较复杂，求高人相助。下面的代码是论坛里的现有的，抛砖引玉一下。

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

      (t(command "_.rotate" e1 "" p11   jiaodu )  
    (command  "_.MOVE" e1 ""  p11  pause))

  )
   
  (princ)
)

magicheno

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=89922
这个好用

andyzha

magicheno 发表于 2020-9-15 14:31
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=89922
这个好用

已经搜过G大的这个了，不是源码，而且没有直接对齐到直线，还是有点缺憾