[编程交流] 用于重命名Ordnce Su的脚本

-Rename;LAyer;G8010001;G8010001 - Building Outline;

-Layer;New;G8010001;New;G8010002;;

(defun c:test ()
 (command "-linetype" "_Load" "Dashed" "acad.lin" "" "")
 (vlax-for item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
   (vl-some '(lambda (x)
        (if (eq (car x) (vla-get-name item))
          (progn
            (vla-put-name item (strcat (car x) " - " (cadr x)))
            (vla-put-description item (cadr x))
            (vla-put-linetype item (caddr x))
            (vla-put-lineweight item (cadddr x))
            (vla-put-color item (last x))
            )
          )
        )
     '(("G8010001" "Building outline" "CONTINUOUS" "200" 1)
       ("G8010004" "Building outline (overhead)" "DASHED" "200" 1)
       ("G8010007" "Civil parish or community boundary" "CONTINUOUS" "200" 6)
       ("G8010008" "District London borough or unitary authority undary" "CONTINUOUS" "200" 6)
       ("G8010009" "County boundary" "CONTINUOUS" "200" 6))
)
 )
 (princ)
)

this is space delimited data text file
0                     7 Continuous 
ABUTMENT              1 Continuous 
ALUMINIUM PLUG        1 Continuous 
ARROW                 1 Continuous
(while (setq layercode (read-line fname))
(setq  J  (strlen layercode))
(setq ans "")
(setq Lname (substr layercode 1 22))
(setq Laycol (substr layercode 23 1)) ; color is only 1 character
(setq Laylt (substr layercode 25 J))
.......