在多个多边形上对齐块

CADWORKER · 发表于 2022-7-5 16:49:07

大家好，

有什么方法可以一次性在不同长度、角度的多段线上对齐块。
我已附上样本文件供参考。。。该块可以是任何名称，大多为矩形或类似于dwg中的块。

谢谢
测验图纸

fan_zh · 发表于 2022-7-5 16:54:07

注意，对齐是一个单独的功能，不要将“命令”功能放在前面。

Roy_043 · 发表于 2022-7-5 16:59:04

在样例文件中，块是对称的。如果不是这样，会发生什么？
如果pline有两个以上的顶点，会发生什么？
如果一段是弯曲的，会发生什么？
是否应修改现有的块参照（与“对齐”命令一样），还是由程序创建？

在我看来，如果块定义中对象的最大X坐标恰好为1，则更有意义。

CADWORKER · 发表于 2022-7-5 17:02:59

我对你的问题的答复如下。
*我的方块都是对称的
*大多数情况下都是否定的，如果是的话，我会采取极端的做法
*没有曲线，只有两个顶点的直线或多段线
*使用当前选择的现有。

Grrr · 发表于 2022-7-5 17:05:02

好的，在Roy提出了一些有用的问题之后，我们从这里开始：

copy


(defun C:test ( / SS i e pts b enx )
 (if
   (setq SS  
     (ssget "_:L-I"
       '(
         (-4 . "<OR")
         (-4 . "<AND") (0 . "LINE") (-4 . "AND>")
         (-4 . "<AND") (0 . "LWPOLYLINE") (90 . 2) (70 . 0) (-4 . "AND>")
         (-4 . "OR>")
       )
     )
   )
   (repeat (setq i (sslength SS))
     (setq e (ssname SS (setq i (1- i))))
     (setq pts (list (vlax-curve-getStartPoint e) (vlax-curve-getEndPoint e)))
     (and
       (setq b (ssget "F" pts '((0 . "INSERT") (2 . "G-BIG"))))
       (setq b (ssname b 0))
       (setq enx (entget b))
       (setq enx (subst (cons 10 (apply 'mapcar (cons '(lambda (a b) (/ (+ a b) 2.)) pts))) (assoc 10 enx) enx))
       (setq enx (subst (cons 50 (apply 'angle pts)) (assoc 50 enx) enx))
       (entmod enx)
     )
   )
 )
 (princ)
);| defun |; (vl-load-com) (princ)