Message 1 of 4
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
(DEFUN C:MOVELAY ()
(PRINC "\n START \n")
(command "_.zoom" "e"); ZOON EXTEND FOR SEE OBJECT
(if (= (tblsearch "LAYER" " NAME LAYER "))
(command "-LAYER" "M" " NAME LAYER " "c" "7" "" "LT" "Continuous" "" "LW" "0.00" "" "")); FIND AND BORN LAYER
(setq name (command _ai_selall )); ERRO SELECT ALL OBJECT
(command "chprop" name "" "LA" " NAME LAYER " ""); MODIFY LAYER OBJECT
(command "_.purge" ); PURGE ALL LAYER NOT USED
(command "_.zoom" "e"); ZOON EXTEND
(command "_.qsave"); SAVE
(command "_.quit"); CLOSE FILE
(princ)
)
Solved! Go to Solution.