老大能否帮我实现这个功能.

bhf0114

各位高手:
能否帮我编个简单的程序,实现如图所示的功能,
就是镜射再镜射... ...连续好几次,我在工作中经常遇到 这样的情况,手工选起来很麻烦.如图所示的还好选,但是大 部分图都是很多图素交到一起的,选起来很麻烦,一不小心 就搞错了.关键在于怎样把新产生的图素成组的连续添加到 选择集中, 小弟在此先谢过了

lockmyeye

1. (DEFUN c:test (/ ename_last pt_base ss1)
2.        (IF (SETQ ss1 (SSGET))
3.                (WHILE (SETQ pt_base (GETPOINT "\n指定镜像线的第一点:"))
4.                        (SETQ ename_last (ENTLAST))
5.                        (PRINC "\n指定镜像线的第二点:")
6.                        (COMMAND "_.mirror" ss1 "" pt_base "\" "n")
7.                        (WHILE (SETQ ename_last (ENTNEXT ename_last))
8.                                (SSADD ename_last ss1)
9.                        )
10.                )
11.        )
12.        (PRINC)
13. )

复制代码

bhf0114

谢谢陈Q老大,这样我就方便多了,给你一朵鲜花以表谢意