本帖最后由 kucha007 于 2022-11-13 18:48 编辑
试试这个,循环建匿名块
 - (defun c:TT (/ss pt);创建匿名块
- (while ;循环选择对象
- (setq ss (ssget ":L"))
- (if ss
- (progn
- (setq pt (getpoint "\n请选择块基点:"))
- (command "_.COPYBASE" "_non" pt ss "")
- (command "_.PASTEBLOCK" "_non" pt )
- (command "_.ERASE" ss "")
- )
- )
- )
- (princ)
- )
|