请教关于如何获取镜像后的图元 ！

start4444

wangxf888 发表于 2020-9-3 23:07
老大  拜托帮忙解决下我请教的这个选择镜像后图元的问题，这个问题对你来说肯定很简单，恳请帮忙解决下， ...

镜像之后不能动，理论上说生成新图元的都适用，阵列 拷贝什么的
(defun c:tt5 (/ s0 en ss);拷贝、镜像后新图元选集
        (command"u")
        (setq s0 (entlast))
        (command "REDO" )
        (setq en (entnext s0))
  (setq ss (ssadd en))
  (while (setq en (entnext en)) (ssadd en ss))
  (sssetfirst nil ss)
        (princ)
)

wangxf888

start4444 发表于 2020-9-5 22:23
镜像之后不能动，理论上说生成新图元的都适用，阵列 拷贝什么的
(defun c:tt5 (/ s0 en ss);拷贝、镜像 ...

老大  我这样简单拼凑了下  达不到效果，请指点迷津！!
(defun c:tt(/ s0 en ss);拷贝、镜像后新图元
(command "mirror" )
        (setq s0 (entlast))
        (command "REDO" )
        (setq en (entnext s0))
  (setq ss (ssadd en))
  (while (setq en (entnext en)) (ssadd en ss))
  (sssetfirst nil ss)
        
(command "select" ss "")
(princ))

start4444

wangxf888 发表于 2020-9-6 00:52
老大  我这样简单拼凑了下  达不到效果，请指点迷津！!
(defun c:tt(/ s0 en ss);拷贝、镜 ...

我那个是单独命令，没必要拼凑的，镜像之后运行那个代码就选定新图元了，你爱拷贝拷贝 爱移动移动的

wangxf888

这么晚了  还回复我的问题 感谢 再次感谢！ 我的意思是把这个代码跟镜像命令结合起来，我再运行接下来的移动拷贝等命令可以直接+P，来选择镜像后的图元。您这个代码，我运行了下，没毛病，只是运行下一个命令之前我要运行下这个代码，多了一步，感觉还是有点麻烦，能不能帮忙把镜像命令加进去，最后加一句(command "select" ss "")  我运行下个命令选择图元的时候直接点下P，就可以了，这样方便些！拜托处理下，先谢谢了！！

wangxf888

就是要这个效果，非常感谢，因为我用的镜像命令比较频繁，所以想到用这个代码，完美！！再次感谢这个点了还热心的回复！再次感谢！！！