源码，批量矩形与直线平行，已实现，对齐重合未实现

lengxiaxi

源码，批量矩形与直线平行，已实现，对齐重合未实现；

本意是，批量选择矩形和指定直线，使矩形和直线重合（以矩形形心到直线的垂直方向移动矩形，使矩形的最近边和直线重合）

目前自动旋转与直线平行做到了，但是移动重合失败

有能改好程序大神，看能否抽空完善

2. (defun c:A7 ( / ss lineObj lineData rects ptStart ptEnd lineAng lineVec rectEnt rectData vertices centroidRect distToLine rotAng moveVec moveDist)
   
3.     (setvar "cmdecho" 0)
   
4.    
   
5.     ;;; 步骤1：选择对象
   
6.     (princ "\n选择需要对齐的矩形（多段线）: ")
   
7.     (setq ss (ssget '((0 . "LWPOLYLINE") (90 . 4)))) ; 过滤选择四顶点多段线[9]()
   
8.     (if (not ss) (progn (princ "\n未选择矩形！") (exit)))
   
9.    
   
10.     (princ "\n选择基准直线: ")
    
11.     (setq lineObj (car (entsel)))
    
12.     (setq lineData (entget lineObj))
    
13.     (setq ptStart (cdr (assoc 10 lineData))) ; 直线起点[7]()
    
14.     (setq ptEnd (cdr (assoc 11 lineData)))   ; 直线终点
    
15.    
    
16.     ;;; 计算直线参数
    
17.     (setq lineAng (angle ptStart ptEnd))     ; 直线角度[7]()
    
18.     (setq lineVec (mapcar '- ptEnd ptStart)) ; 直线向量
    
19.    
    
20.     ;;; 遍历每个矩形
    
21.     (repeat (setq i (sslength ss))
    
22.         (setq rectEnt (ssname ss (setq i (1- i))))
    
23.         (setq rectData (entget rectEnt))
    
24.         
    
25.         ;;; 步骤2：计算形心
    
26.         (setq vertices (vl-remove-if-not '(lambda (x) (= (car x) 10)) rectData)) ; 提取顶点[3]()
    
27.         (setq centroidRect (mapcar '/
    
28.             (apply 'mapcar (cons '+ (mapcar 'cdr vertices)))
    
29.             (list 4.0 4.0)
    
30.         )) ; 四点坐标平均值
    
31.         
    
32.         ;;; 步骤3：计算距离和角度
    
33.         (setq distToLine (abs (cadr (trans (mapcar '- centroidRect ptStart) 0 lineVec)))) ; 垂距[7]()
    
34.         (setq rectAng (angle (cdar vertices) (cdadr vertices))) ; 矩形当前角度
    
35.         
    
36.         ;;; 步骤4：旋转矩形
    
37.         (setq rotAng (- lineAng rectAng))
    
38.         (command "_.rotate" rectEnt "" centroidRect (/ (* rotAng 180.0) pi)) ; 角度转换[4]()
    
39.         
    
40.         ;;; 步骤5：计算移动向量
    
41.         (setq moveDist (- distToLine (/ (distance (cdar vertices) (cdadr vertices)) 2.0))) ; 边距计算
    
42.         (setq moveVec (polar '(0 0 0) (+ lineAng (* pi 0.5)) moveDist)) ; 垂线方向[7]()
    
43.         
    
44.         ;;; 执行移动
    
45.         (command "_.move" rectEnt "" centroidRect (mapcar '+ centroidRect moveVec))
    
46.     )
    
47.     (setvar "cmdecho 1")
    
48.     (princ "\n已完成矩形对齐操作！")
    
49.     (princ)
    
50. )

(defun c:A7 ( / ss lineObj lineData rects ptStart ptEnd lineAng lineVec rectEnt rectData vertices centroidRect distToLine rotAng moveVec moveDist)<br />     (setvar "cmdecho" 0)<br />     <br />     ;;; 步骤1：选择对象 <br />     (princ "\n选择需要对齐的矩形（多段线）: ")<br />     (setq ss (ssget '((0 . "LWPOLYLINE") (90 . 4)))) ; 过滤选择四顶点多段线[9]()<br />     (if (not ss) (progn (princ "\n未选择矩形！") (exit)))<br />     <br />     (princ "\n选择基准直线: ")<br />     (setq lineObj (car (entsel)))<br />     (setq lineData (entget lineObj))<br />     (setq ptStart (cdr (assoc 10 lineData))) ; 直线起点[7]()<br />     (setq ptEnd (cdr (assoc 11 lineData)))   ; 直线终点 <br />     <br />     ;;; 计算直线参数 <br />     (setq lineAng (angle ptStart ptEnd))     ; 直线角度[7]()<br />     (setq lineVec (mapcar '- ptEnd ptStart)) ; 直线向量 <br />     <br />     ;;; 遍历每个矩形 <br />     (repeat (setq i (sslength ss))<br />         (setq rectEnt (ssname ss (setq i (1- i))))<br />         (setq rectData (entget rectEnt))<br />         <br />         ;;; 步骤2：计算形心 <br />         (setq vertices (vl-remove-if-not '(lambda (x) (= (car x) 10)) rectData)) ; 提取顶点[3]()<br />         (setq centroidRect (mapcar '/ <br />             (apply 'mapcar (cons '+ (mapcar 'cdr vertices))) <br />             (list 4.0 4.0)<br />         )) ; 四点坐标平均值 <br />         <br />         ;;; 步骤3：计算距离和角度 <br />         (setq distToLine (abs (cadr (trans (mapcar '- centroidRect ptStart) 0 lineVec)))) ; 垂距[7]()<br />         (setq rectAng (angle (cdar vertices) (cdadr vertices))) ; 矩形当前角度 <br />         <br />         ;;; 步骤4：旋转矩形 <br />         (setq rotAng (- lineAng rectAng))<br />         (command "_.rotate" rectEnt "" centroidRect (/ (* rotAng 180.0) pi)) ; 角度转换[4]()<br />         <br />         ;;; 步骤5：计算移动向量 <br />         (setq moveDist (- distToLine (/ (distance (cdar vertices) (cdadr vertices)) 2.0))) ; 边距计算 <br />         (setq moveVec (polar '(0 0 0) (+ lineAng (* pi 0.5)) moveDist)) ; 垂线方向[7]()<br />         <br />         ;;; 执行移动 <br />         (command "_.move" rectEnt "" centroidRect (mapcar '+ centroidRect moveVec))<br />     )<br />     (setvar "cmdecho 1")<br />     (princ "\n已完成矩形对齐操作！")<br />     (princ)<br /> )

lengxiaxi

图形效果过程示意

xj6019

又是ai代码  找人修

这只胆小鬼

旋转以后的点表需要重新获取  不能用之前的  矩形不是正方形边距计算是错的  垂距也是错的  按你的算出来是0

Bao_lai

随便找个边，旋转到平行，然后找一个最近点，移到垂线位置就好。

xyp1964

wudechao

xyp1964 发表于 2025-2-19 12:00

院长威武！比AI出来的代码好上几百倍！