社区 › AutoLISP/Visual LISP 编程技术 › 能不能实现图元批量对齐，请大师们指教了

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

水平方向的是否也行？

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

G版真厉害！！ 佩服佩服

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

本帖最后由 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)
)

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

收藏了，以后用得着

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

太好了，高人！

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

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

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

好贴必须要回复

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

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

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

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

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


无法上传图片……

查看完整版本: 能不能实现图元批量对齐，请大师们指教了