本帖最后由 kucha007 于 2023-3-6 20:20 编辑
这个意思?
 - (Defun C:TT ()
- (setq LayNam "你的图层");图层名称
- (if (= (last (ssgetfirst)) nil);如果选择集为空
- (progn
- (setvar "CLAYER" LayNam)
- ;设置当前图层
- )
- (progn
- (command "chprop" (ssget) "" "la" LayNam "color" "bylayer" "ltype" "bylayer" "lweight" "bylayer" "")
- ;将所选对象移动到指定图层,并设置对象特性随层
- )
- )
- (princ)
- )
|