能不能实现图元批量对齐，请大师们指教了

xyp1964 · 发表于 2012-3-14 20:01

水平方向的是否也行？

shang_123 · 发表于 2012-3-14 20:33

G版真厉害！！佩服佩服

xyp1964 · 发表于 2012-3-14 20:38

本帖最后由 xyp1964 于 2012-3-14 20:50 编辑

;; 批量对齐
(defun c:tt ()
(setq ukw (UKWORD 1 "1 2" "方向: 1-水平/2-垂直" ukw))
(princ "\n选择基准物体: ")
(setq ss1 (ssget))
(princ "\n选择要对齐物体: ")
(setq ss2 (ssget))
(if (and ss1 ss2)
(progn
(setq n (min (sslength ss1) (sslength ss2)))
(cond ((= ukw "1")
(setq ss1 (car (xyp-List-Div (xyp-Sort ss1 "6" "Y-Max") n))
ss2 (car (xyp-List-Div (xyp-Sort ss2 "5" "Y-Max") n))
)
(mapcar '(lambda (x y)
(setq pt (list (car (car y)) (cadr (car x)))
s1 (cdr y)
)
(xyp-move s1 (car y) pt)) ss1 ss2))
((= ukw "2")
(setq ss1 (car (xyp-List-Div (xyp-Sort ss1 "6" "X-Min") n))
ss2 (car (xyp-List-Div (xyp-Sort ss2 "5" "X-Min") n))
)
(mapcar '(lambda (x y)
(setq pt (list (car (car x)) (cadr (car y)))
s1 (cdr y)
)
(xyp-move s1 (car y) pt)) ss1 ss2)))))
(princ)
)

;; 批量对齐 
(defun c:tt () 
  (setq ukw (UKWORD 1 "1 2" "方向: 1-水平/2-垂直" ukw)) 
  (princ "\n选择基准物体: ") 
  (setq ss1 (ssget)) 
  (princ "\n选择要对齐物体: ") 
  (setq ss2 (ssget)) 
  (if (and ss1 ss2) 
    (progn 
      (setq n (min (sslength ss1) (sslength ss2))) 
      (cond ((= ukw "1") 
      (setq ss1 (car (xyp-List-Div (xyp-Sort ss1 "6" "Y-Max") n)) 
     ss2 (car (xyp-List-Div (xyp-Sort ss2 "5" "Y-Max") n)) 
      ) 
      (mapcar '(lambda (x y) 
   (setq pt (list (car (car y)) (cadr (car x))) 
         s1 (cdr y) 
   ) 
   (xyp-move s1 (car y) pt)) ss1 ss2)) 
     ((= ukw "2") 
      (setq ss1 (car (xyp-List-Div (xyp-Sort ss1 "6" "X-Min") n)) 
     ss2 (car (xyp-List-Div (xyp-Sort ss2 "5" "X-Min") n)) 
      ) 
      (mapcar '(lambda (x y) 
   (setq pt (list (car (car x)) (cadr (car y))) 
         s1 (cdr y) 
   ) 
   (xyp-move s1 (car y) pt)) ss1 ss2))))) 
  (princ) 
)

江湖远人 · 发表于 2012-3-15 00:34

收藏了，以后用得着

skymudy · 发表于 2012-3-15 08:08

太好了，高人！

pzweng · 发表于 2012-3-15 08:37

看起来很很不错，看看源码,有没有可以选中块中的一条直线对齐指定的线

石井鱼 · 发表于 2012-3-15 09:22

好贴必须要回复

springwillow · 发表于 2012-3-15 12:35

G版的东西真好，很喜欢G版的东西啊！

sz721 · 发表于 2012-3-15 12:56

xyp1964 · 发表于 2012-3-15 13:01

本帖最后由 xyp1964 于 2012-3-15 13:02 编辑

无法上传图片……

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

能不能实现图元批量对齐，请大师们指教了

点评