求一键对齐
本帖最后由 andyzha 于 2020-9-15 11:55 编辑需求是选择块，线，文字，已选择块或者线的一边作为对齐边，直接对齐到另一条线段，之前明经里有类似的，但是操作比较复杂，求高人相助。下面的代码是论坛里的现有的，抛砖引玉一下。
(defun c:yxpq(/ e1 e2 ee eee s11p11 ang1 ang2 an lst11 JIAODU1JIAODU2 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 ""p11pause))
(t(command "_.rotate" e1 "" p11 jiaodu )
(command"_.MOVE" e1 ""p11pause))
)
(princ)
)
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=89922
这个好用
magicheno 发表于 2020-9-15 14:31
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=89922
这个好用
已经搜过G大的这个了，不是源码，而且没有直接对齐到直线，还是有点缺憾
页:
[1]