发现AL对齐没复制功能，怎么加上复制功能？

277283904

发现AL对齐没复制功能，怎么加上复制功能？

wsklght2024

先复制，再对齐了

guosheyang

对头  将复制命令和 对齐命令组合成一个新的对齐命令

weimeng555

看到标题进来了，想问下，有没有复制之后，然后自动匹配防止对象一条变的倾斜角度，然后自动旋转角度。感觉对齐有时候也不是很好用，如果能想revit，旋转能够自动识别对象的倾斜角进行自动旋转就完美了

你有种再说一遍

weimeng555 发表于 2024-5-19 16:02
看到标题进来了，想问下，有没有复制之后，然后自动匹配防止对象一条变的倾斜角度，然后自动旋转角度。感觉 ...

三维模型有吸附后修改法向量,cad用来做什么...

sammy

(defun c:Q1 (/ ss ssCopy basePoint1 basePoint2 angBase angTarget)
(princ "\n实体操作--复制并旋转")
(if (setq ss (ssget))
(progn
(setvar "Autosnap" 63)
(setvar "POLARMODE" 2)
(command "POLARANG" "45")

  (if (and
        (setq basePoint1 (getpoint "\n选择基点1: "))
        (setq angBase (getangle basePoint1 "\n选择基点2确定原始角度: "))
      )
    (if (setq targetPoint1 (getpoint "\n选择目标点1: "))
        (if (setq angTarget (getangle targetPoint1 "\n选择目标点2确定目标角度: "))
        (progn
          (command ".COPY" ss "" basePoint1 targetPoint1)
          (setq ssCopy (ssget "P"))
          (command "rotate" ssCopy "" targetPoint1  (* (/ (- angTarget angBase) pi) 180))
          (princ "\n选中图形已复制并旋转到目标位置。")
        )
        (progn
          (command ".COPY" ss "" basePoint1 targetPoint1)
          (setq ssCopy (ssget "P"))
          (princ "\n选中图形已复制到目标位置,但未指定目标角度。")
        )
      )
      (princ "\n未选择目标点。")
    )
  )
)
(princ "\n未选择任何图形。")
)
(princ)
)

抛砖引玉一下吧，到最后一部旋转新选择集好像有问题，但是看代码又没有问题。
希望大神帮忙修改一下。

weimeng555

你有种再说一遍 发表于 2024-5-19 16:29
三维模型有吸附后修改法向量,cad用来做什么...

有用的，比如电气点位布置，有些贴墙的图例，需要根据墙线的角度来布置，以前是用的revit正向出图，发现有这个功能，只要敲空格，就可以吸附选择到贴合的角度讲，很好用，但是CAD上一直没看到这类功能，就算是对齐也要频繁的选择基点、参考点、以及目标点等，来确定角度，不管怎么优化，感觉从使用逻辑上来感觉都是反人类的，特别是那种地下室不是横平竖直的，是倾斜的，估计是每个电气设计师心头的痛

你有种再说一遍

weimeng555 发表于 2024-5-20 15:07
有用的，比如电气点位布置，有些贴墙的图例，需要根据墙线的角度来布置，以前是用的revit正向出图，发现 ...

交互逻辑都不同,
在cad敲一下空格?
还是拽拉夹点实现吸附最近?
还是自动全图靠墙?

赏月贼

weimeng555 发表于 2024-5-19 16:02
看到标题进来了，想问下，有没有复制之后，然后自动匹配防止对象一条变的倾斜角度，然后自动旋转角度。感觉 ...

动态块的对齐功能有点类似

guosheyang

http://bbs.mjtd.com/thread-190217-1-1.html      看下5楼的代码能否满足你的要求