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

图元居中对齐

本帖最后由 世井 于 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:19

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

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

好                        

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

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

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

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

帮楼主顶下

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

可以表格居中对齐么

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

支持一下！！！！

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

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

你是说文字表格居中么？

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

感谢楼主分享,收下了

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

回复鼓励。。。

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

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

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

老师，可以改成，先择对象后，再点选封闭区域不？
页: [1] 2 3 4
查看完整版本: 图元居中对齐