发现AL对齐没复制功能，怎么加上复制功能？
发现AL对齐没复制功能，怎么加上复制功能？先复制，再对齐了 对头将复制命令和 对齐命令组合成一个新的对齐命令 看到标题进来了，想问下，有没有复制之后，然后自动匹配防止对象一条变的倾斜角度，然后自动旋转角度。感觉对齐有时候也不是很好用，如果能想revit，旋转能够自动识别对象的倾斜角进行自动旋转就完美了
weimeng555 发表于 2024-5-19 16:02
看到标题进来了，想问下，有没有复制之后，然后自动匹配防止对象一条变的倾斜角度，然后自动旋转角度。感觉 ...
三维模型有吸附后修改法向量,cad用来做什么... (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)
)
抛砖引玉一下吧，到最后一部旋转新选择集好像有问题，但是看代码又没有问题。
希望大神帮忙修改一下。 你有种再说一遍 发表于 2024-5-19 16:29
三维模型有吸附后修改法向量,cad用来做什么...
有用的，比如电气点位布置，有些贴墙的图例，需要根据墙线的角度来布置，以前是用的revit正向出图，发现有这个功能，只要敲空格，就可以吸附选择到贴合的角度讲，很好用，但是CAD上一直没看到这类功能，就算是对齐也要频繁的选择基点、参考点、以及目标点等，来确定角度，不管怎么优化，感觉从使用逻辑上来感觉都是反人类的，特别是那种地下室不是横平竖直的，是倾斜的，估计是每个电气设计师心头的痛 weimeng555 发表于 2024-5-20 15:07
有用的，比如电气点位布置，有些贴墙的图例，需要根据墙线的角度来布置，以前是用的revit正向出图，发现 ...
交互逻辑都不同,
在cad敲一下空格?
还是拽拉夹点实现吸附最近?
还是自动全图靠墙? weimeng555 发表于 2024-5-19 16:02
看到标题进来了，想问下，有没有复制之后，然后自动匹配防止对象一条变的倾斜角度，然后自动旋转角度。感觉 ...
动态块的对齐功能有点类似 http://bbs.mjtd.com/thread-190217-1-1.html 看下5楼的代码能否满足你的要求
页:
[1]
2