这段程序也不支持属性块复制, 看了你的连续复制支持属性块,原来是不支持的,你是改了什么地方? ;;;;;;;;;;;;;;;;;;;;;;;;;;;;动态复制;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun c:qcc (/ p1 p2 s e cn fd_f dis gr cn_x) (prompt "动态复制n") ;__________________ (defun ttt (ss n / m) (setq ee e ns (ssadd) ) (while (setq ee (entnext ee)) (setq ns (ssadd ee ns)) ) (command ... ...