图元居中对齐

世井 · 发表于 2020-10-29 20:47

本帖最后由世井于 2020-11-6 09:31 编辑

(defun c:dq ()       (setvar "OSMODE" 0)
   (princ "\n选择要移动的对象")
      (while (setq ss1 (ssget))
      (setq obj1 (ss::boundingbox ss1))
      (setq x (/ (+ (caar obj1) (caadr obj1)) 2))
      (setq y (/ (+ (cadar obj1) (cadadr obj1)) 2))
      (setq mid1 (list x y 0.0))
(princ "\n选择对齐的对象")
      (setq ss2 (ssget))
      (setq obj2 (ss::boundingbox ss2))
      (setq x1 (/ (+ (caar obj2) (caadr obj2)) 2))
      (setq y1 (/ (+ (cadar obj2) (cadadr obj2)) 2))
      (setq mid2 (list x1 y1 0.0))
      (princ "\n中心对齐")

   (command "_.move" ss1 "" mid1 mid2))
   (setvar "OSMODE" 11)
(princ)
  )

andyzha · 发表于 2020-11-7 20:37

一直在找一个简洁的对齐命令，选择对象，选取对齐参照点，再选取对齐的对象，直接对齐。能深入的研究这个思路下的对齐吗？

gzcsun · 发表于 2022-3-4 12:25

好

999999 · 发表于 2020-11-4 09:57

本帖最后由 999999 于 2020-11-4 10:06 编辑

谢谢楼主的分享，我一开始复制您的代码，出现问题，后来下载附件就可以用了，谢谢楼主啦，，期待楼主新的创新，

tigcat · 发表于 2020-10-29 21:52

帮楼主顶下

iszc · 发表于 2020-10-30 08:33

可以表格居中对齐么

xj6019 · 发表于 2020-10-30 09:00

支持一下！！！！

世井 · 发表于 2020-10-30 09:29

iszc 发表于 2020-10-30 08:33
可以表格居中对齐么

你是说文字表格居中么？

maiko · 发表于 2020-10-30 09:58

感谢楼主分享,收下了

wzg356 · 发表于 2020-10-30 13:18

回复鼓励。。。

sdls · 发表于 2020-10-31 09:20

感谢楼主的分享！刚好想找这类型的功能!

depgfdepgf · 发表于 2020-10-31 09:37

老师，可以改成，先择对象后，再点选封闭区域不？

账号		自动登录	找回密码
密码			注册

[源码] 图元居中对齐

本帖子中包含更多资源

评分