大家好,
我想知道你是否知道如何复制[多个]。我很惊讶你们到目前为止都没有提到这件事。
我有自己的lisp,我对其进行了修改以使其工作(结果有些不满意):
见下文:
- (defun c:CX ()
- (setq ss (ssget))
- (command "._copy" ss "" "M" pause ".yz" "@" pause)
- (setq ss nil);; add this line to clean the selection
- (princ)
- )
- (defun c:CY ()
- (setq ss (ssget))
- (command "._copy" ss "" "M" pause ".xz" "@" pause)
- (setq ss nil);; add this line to clean the selection
- (princ)
- )
- (prompt "\n:: Lock_Copy_X&Y.lsp loaded ::") (princ)
- (prompt "\n:: Invoke by typing 'CX' (Copy on X-axis) or 'CY' (Copy on Y-axis) ::") (princ)
这会锁定第一个副本,但不会锁定之后的副本。如有任何帮助,将不胜感激。谢谢 |