 - (defun c:tt ()
- (setq lst '(("jmd,dldw" "居民地及设施")
- ("DGX,GCD,DMTZ" "地貌")
- ("DLSS" "交通")
- ("GXYZ" "管线")
- ("KZD" "测量控制点")
- ("SXSS" "水系及附属设施")
- ("TK" "图廓整饰")
- ("ZBTZ" "植被与土质")
- ("ZJ" "注记")
- )
- )
- (foreach a lst
- (if (setq ss (ssget "x" (list (cons 8 (car a)))))
- (command "change" ss "" "p" "la" (cadr a) "c" "bylayer" "")
- )
- )
- (princ)
- )
|