移动多个块或obje

CafeJr · 发表于 2022-7-6 03:05:11

伙计们，

有人知道如何使用线条作为参考移动多个块或对象，如下图所示（使用镜子在端点之间的中点或端点）：

谢谢

登录/注册后可看大图

pBe · 发表于 2022-7-6 03:09:20

使用块和命令“\u mirror”的快速方法

copy

(defun c:mbt (/ ss ln p1 1p 2p)
 (vl-load-com)(setvar 'osmode 0)
 (if (setq ss (ssget '((0 . "INSERT"))))
   (repeat (setq i (sslength ss))
     (vla-getboundingbox
(vlax-ename->vla-object
  (setq e (ssname ss (setq i (1- i))))
)
'mn
'mx
     )
     (if (setq        ln (ssget "_C"
                  (vlax-safearray->list mn)
                  (vlax-safearray->list mx)
                  '((0 . "LINE"))
           )
  )
(command "_mirror"
         e
         ""
         (setq p1 (mapcar (function (lambda (a b) (/ (+ a b) 2.)))
                          (setq        1p
                                 (cdr (assoc 10 (setq ent (entget (ssname ln 0)))))
                          )
                          (setq 2p (cdr (assoc 11 ent)))
                  )
         )
         "_non"
         (polar p1 (+ (/ pi 2.0) (angle 1p 2p)) 1.0)
         "_Yes"
)
     )
   )
 )
 (princ)
)

jdiala · 发表于 2022-7-6 03:13:50

这将镜像块，即使它不位于直线的端点。

copy

(defun C:test (/ bl l ss i el p p1 p2)
(setq ss (ssget "_:l" '((0 . "INSERT,LINE"))))
(repeat (setq i (sslength ss))
 (if (= "INSERT" (cdr (assoc 0 (entget (ssname ss (setq i (1- i)))))))
     (setq bl (cons (ssname ss i) bl))
     (setq l (cons (ssname ss i) l))
 )
)
(if 
 (= (length bl) (length l))
 (foreach x bl
   (setq el
     (vl-sort 
       (append
         (mapcar 
           (function 
             (lambda (a) 
               (cons a 
          (distance 
            (cdr (assoc 10 (entget x)))
                   (cdr (assoc 10 (entget a))) 
                 )           
               )
             )
           ) l
         )
         (mapcar 
    (function 
             (lambda (a) 
               (cons a 
                 (distance 
                   (cdr (assoc 10 (entget x)))
                   (cdr (assoc 11 (entget a))) 
                 )
               )  
             )
           ) l
         )
       )
       (function 
      (lambda (e1 e2)  
        (<  (cdr e1) (cdr e2))
         ) 
       ) 
     )
   )
(setq p1 (cdr (assoc 10 (entget (caar el))))
     p2 (cdr (assoc 11 (entget (caar el))))
     p  (mapcar (function (lambda (a b) (/ (+ a b) 2.))) p1 p2))
(command "_.mirror" x "" "_non" p "_non" (polar p (+ (angle p1 p2)(/ pi 2.)) 1)  "y")
)
(princ "\nSelected entities are not equal. Try again!")
)
(princ)
)

pBe · 发表于 2022-7-6 03:16:43

我想过“不在一条线的端点”之类的东西，但在这种情况下。。

所以我保留了我正在编写的代码，它与您的代码惊人地相似。我想在选择中包括的不仅仅是块

随便。让我们等待OP澄清它是否包含除单个块之外的对象

Lee Mac · 发表于 2022-7-6 03:21:06

这里有一种替代方法：

copy


([color=BLUE]defun[/color] c:mblk ( [color=BLUE]/[/color] blk enx idx itm ls1 ls2 sel )
   ([color=BLUE]if[/color] ([color=BLUE]setq[/color] sel ([color=BLUE]ssget[/color] [color=MAROON]"_:L"[/color] '((0 . [color=MAROON]"INSERT,LINE"[/color]))))
       ([color=BLUE]progn[/color]
           ([color=BLUE]repeat[/color] ([color=BLUE]setq[/color] idx ([color=BLUE]sslength[/color] sel))
               ([color=BLUE]setq[/color] enx ([color=BLUE]entget[/color] ([color=BLUE]ssname[/color] sel ([color=BLUE]setq[/color] idx ([color=BLUE]1-[/color] idx)))))
               ([color=BLUE]if[/color] ([color=BLUE]=[/color] [color=MAROON]"INSERT"[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 0 enx)))
                   ([color=BLUE]setq[/color] ls1 ([color=BLUE]cons[/color] ([color=BLUE]cons[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 10 enx))      ([color=BLUE]assoc[/color] -1 enx))  ls1))
                   ([color=BLUE]setq[/color] ls2 ([color=BLUE]cons[/color] ([color=BLUE]cons[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 10 enx)) ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 11 enx))) ls2))
               )
           )
           ([color=BLUE]foreach[/color] blk ls1
               ([color=BLUE]vl-some[/color]
                   ([color=BLUE]function[/color]
                       ([color=BLUE]lambda[/color] ( x [color=BLUE]/[/color] y )
                           ([color=BLUE]if[/color] 
                               ([color=BLUE]cond[/color]
                                   (   ([color=BLUE]equal[/color] ([color=BLUE]car[/color] blk) ([color=BLUE]car[/color] x) 1e-
                                       ([color=BLUE]setq[/color] y ([color=BLUE]cdr[/color] x))
                                   )
                                   (   ([color=BLUE]equal[/color] ([color=BLUE]car[/color] blk) ([color=BLUE]cdr[/color] x) 1e-
                                       ([color=BLUE]setq[/color] y ([color=BLUE]car[/color] x))
                                   )
                               )
                               ([color=BLUE]progn[/color]
                                   ([color=BLUE]setq[/color] ls2 ([color=BLUE]vl-remove[/color] x ls2))
                                   ([color=BLUE]entmod[/color] ([color=BLUE]list[/color] ([color=BLUE]cdr[/color] blk) ([color=BLUE]cons[/color] 10 y)))
                               )
                           )
                       )
                   )
                   ls2
               )
           )
       )
   )
   ([color=BLUE]princ[/color])
)

jdiala · 发表于 2022-7-6 03:25:33

我只是假设。根据图片，这些线与其他圆不在同一点上。见圆圈4和5。

[ATTACH=CONFIG]44488[/ATTACH]

我想一个接一个地做。。。我也有和李一样的想法。将端点与起点切换，反之亦然，但OP希望使用镜像。

jdiala · 发表于 2022-7-6 03:31:09

嘿，伙计们，不使用append我怎么能做到这一点呢。谢谢

copy

       
       (append
         (mapcar 
           (function 
             (lambda (a) 
               (cons a 
          (distance 
            (cdr (assoc 10 (entget x)))
                   (cdr (assoc 10 (entget a))) 
                 )           
               )
             )
           ) l
         )
         (mapcar 
    (function 
             (lambda (a) 
               (cons a 
                 (distance 
                   (cdr (assoc 10 (entget x)))
                   (cdr (assoc 11 (entget a))) 
                 )
               )  
             )
           ) l
         )
       )

Lee Mac · 发表于 2022-7-6 03:32:58

对于这种方法，vl排序的使用效率很低：当程序只需要最接近块插入点的项时，无需为foreach循环的每次迭代对列表中的每个项重新排序。

对于你的方法，我建议如下：

copy


([color=BLUE]defun[/color] c:test ( [color=BLUE]/[/color] d1 d2 en id l1 l2 p1 ss )
   ([color=BLUE]if[/color] ([color=BLUE]setq[/color] ss ([color=BLUE]ssget[/color] [color=MAROON]"_:L"[/color] '((0 . [color=MAROON]"INSERT,LINE"[/color]))))
       ([color=BLUE]progn[/color]
           ([color=BLUE]repeat[/color] ([color=BLUE]setq[/color] id ([color=BLUE]sslength[/color] ss))
               ([color=BLUE]setq[/color] en ([color=BLUE]entget[/color] ([color=BLUE]ssname[/color] ss ([color=BLUE]setq[/color] id ([color=BLUE]1-[/color] id)))))
               ([color=BLUE]if[/color] ([color=BLUE]=[/color] [color=MAROON]"INSERT"[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 0 en)))
                   ([color=BLUE]setq[/color] l1 ([color=BLUE]cons[/color] ([color=BLUE]list[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 10 en)) ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] -1 en))) l1))
                   ([color=BLUE]setq[/color] l2 ([color=BLUE]cons[/color] ([color=BLUE]list[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 10 en)) ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 11 en))) l2))
               )
           )
           ([color=BLUE]foreach[/color] br l1
               ([color=BLUE]setq[/color] d1 (dis ([color=BLUE]car[/color] br) ([color=BLUE]car[/color] l2))
                     en ([color=BLUE]car[/color] l2)
               )
               ([color=BLUE]foreach[/color] ln ([color=BLUE]cdr[/color] l2)
                   ([color=BLUE]if[/color] ([color=BLUE]<[/color] ([color=BLUE]setq[/color] d2 (dis ([color=BLUE]car[/color] br) ln)) d1)
                       ([color=BLUE]setq[/color] d1 d2
                             en ln
                       )
                   )
               )
               ([color=BLUE]command[/color] [color=MAROON]"_.mirror"[/color] ([color=BLUE]cadr[/color] br) [color=MAROON]""[/color]
                   [color=MAROON]"_non"[/color] ([color=BLUE]setq[/color] p1 ([color=BLUE]apply[/color] '[color=BLUE]mapcar[/color] ([color=BLUE]cons[/color] '([color=BLUE]lambda[/color] ( a b ) ([color=BLUE]/[/color] ([color=BLUE]+[/color] a b) 2.0)) en)))
                   [color=MAROON]"_non"[/color] ([color=BLUE]polar[/color] p1 ([color=BLUE]+[/color] ([color=BLUE]apply[/color] '[color=BLUE]angle[/color] en) ([color=BLUE]/[/color] [color=BLUE]pi[/color] 2.0)) 1.0)
                   [color=MAROON]"_Y"[/color]
               )
           )
       )
   )
   ([color=BLUE]princ[/color])
)
([color=BLUE]defun[/color] dis ( a b )
   ([color=BLUE]min[/color] ([color=BLUE]distance[/color] a ([color=BLUE]car[/color] b)) ([color=BLUE]distance[/color] a ([color=BLUE]cadr[/color] b)))
)
([color=BLUE]princ[/color])