;;;将中心线全部改变为0层 (defun C:FFF (/ s1) (setq cmdsave (getvar "cmdecho")) (setvar "cmdecho" 0) (prompt "\n将中心线改为0层:") (setq s1 (ssget "X" '((6 . "CENTER")))) (command "chprop" s1 "" "la" "0" "" ) (setq s1 (ssget "X" '((6 . "CENTER2")))) (command "chprop" s1 "" "la" "0" "" ) (COMMAND "ERASE" s1 "") (prin1) ) 试试这个看看 |