如果您感兴趣,可以选择。
- (if (vl-some '(lambda (i r) (and (or (eq n i) (eq n (itoa i))) (setq v r)))
- '(0 1 2 3 4 5 6 7 8 9 256)
- '("ByBlock" "1 (Red)" "2 (Yellow)" "3 (Green)" "4 (Cyan)" "5 (Blue)"
- "6 (Magenta)" "7 (Blk/Wht)" "8 (D.Gray)" "9 (L.Gray)" "ByLayer"
- )
- )
- v
- (setq v n)
- )
|