帮我拿双镜鳕鱼

Lee Mac · 发表于 2022-7-6 12:35:39

.... 是的

MarcoW · 发表于 2022-7-6 12:40:35

您好，

我必须试试！

李，这是在选择了4个街区之后发生的事情：

 
Command: mm3
Select objects: 1 found
Select objects: 1 found, 2 total
Select objects: 1 found, 3 total
Select objects: 1 found, 4 total
Select objects:
Select First Point:
Select Second Point: ; error: too few arguments

所以这似乎不起作用。。。也许我可以自己解决它，但如果有一件事我最近学到的是，我是一个新手位。

这个问题的答案。。。
我可以想象为什么有人会问我这样做的目的是什么。正如李所说：

是的，这就是我想做的。
在我的日常工作中，我们主要在家里安装管道/电气设备等。
在大多数项目中，有几种类型的房子，比如小房子、大房子、中间的房子、角落里的房子。还有镜像的。如果我将普通房屋的街区镜像到镜像房屋，那么我的所有街区都是镜像的。要遵循NEN/ISO等标准，必须将其反映出来。

因此我需要它。

你的权利，但不要告诉

Lee Mac · 发表于 2022-7-6 12:43:19

抱歉，我弄乱了代码的顺序，在匆忙中搞砸了

copy


(defun c:mm3 (/ i ss pt1 pt2 ent ss obj Mi Ma cen tmp)
 (vl-load-com)
 (if (and (setq i -1 ss (ssget "_:L" '((0 . "INSERT"))))
          (setq pt1 (getpoint "\nSelect First Point: "))
          (setq pt2 (getpoint pt1 "\nSelect Second Point: ")))
   
   (while (setq ent (ssname ss (setq i (1+ i))))
     (setq tmp (vla-mirror (vlax-ename->vla-object ent)
                 (vlax-3D-point pt1) (vlax-3D-point pt2)))
     (vla-getBoundingBox tmp 'Mi 'Ma)
     (setq ptlst (mapcar (function vlax-safearray->list) (list Mi Ma))
           cen   (polar (car ptlst) (apply (function angle)    ptLst)
                                 (/ (apply (function distance) ptlst) 2.)))
     (vla-mirror tmp (vlax-3D-point cen) (vlax-3D-point (polar cen (/ pi 2.) 1.)))
     (vla-delete tmp)))
 (princ))

MarcoW · 发表于 2022-7-6 12:46:41

李，看这些图片，你能跟我来吗？
我的意思是，代码很棒，但不是100%。

fixo · 发表于 2022-7-6 12:50:52

为什么要镜像？
参见代码
[code]；；mirror_块。lsp（defun C:MIRB（/）（提示“\n\t\t>>>\t选择镜像行\t>>”）（if（setq lset（ssget:S“（（0。“行”）））（progn（setq ln（ssname lset 0）elist（entget ln）sp（cdr（assoc 10 elist））ep（cdr（assoc 11 elist））（提示“\n\t\t>>\t选择要镜像的块”（setq bset（list（cons 0“INSERT”）））（同时（setq en（ssname bset 0））（setq elist（entget en）ipt（cdr（assoc 10 elist））lnpt（vlax curve GetClosestPoint to ln ipt）ang（angle ipt lnpt）dist（distance ipt lnpt）movept（polar lnpt ang dist））（命令“.u copy“en”“”\u non“ipt”\u non“movept”（ssdel en bset）））（princ））（提示“\n\t\t>>\t键入MIRB或MIRB以运行…\t

Lee Mac · 发表于 2022-7-6 12:54:55

是的，这是我在这里的方法

fixo · 发表于 2022-7-6 12:58:20

没有看到您的代码-它只是逻辑上的

~'J'~

MarcoW · 发表于 2022-7-6 13:02:00

（我妻子在我的键盘空格键上洒了一大杯可口可乐，N很粘-请原谅拼写错误）

大家好，

我已经测试了所有代码，但有一个问题。
从Fixo提供的代码来看：我喜欢它的工作方式。
首先选择镜像线，然后选择块。
然后，它像镜子一样反射，但不是全部。
请参见图。

请修复-o.：眨眼：

镜像线也可以是外部参照吗？
文本呢？它不会这样做，这可能吗？
将首先购买nw keybord。

（那些白色的细线是插入点）

[编程交流] 帮我拿双镜鳕鱼

发表回复

精选推荐