求帮忙在这段代码中加个条件使GCD图层的文字字高为1其它的不变

注册

学习学习，呵呵

julia67

Andyhon 发表于 2012-3-29 08:50

Andyhon师兄，要在这句中(if (= (cdr (assoc 8 textnlst)) "GCD")
加多一个或多个图层，意思将GCD，JMD，ZDH图层的字高都变为1，应该怎么加呢，像院长那样加((8 . "GCD,JMD")))在这里面不行，帮解决下，谢谢

Andyhon

(setq lyr (cdr (assoc 8 textnlst)))
(if (or
       (= lyr "GCD")
       (= lyr "JMD")
       (= lyr "ZDH")
     )
     ....
     
====================================
(if (member lyr '("GCD" "JMD" "ZDH"))
....

====================================

;; 这个并不一定适用,得视其他图层名而定 / Check WcMatch 帮助            
(if (WcMatch lyr "*D*)   
  ...

或者直接从 textss 中过滤出来
(setq Lyr-th10 (ssget "P" '((8 . "GCD,JMD,ZHD"))))   ; 可检视 WcMatch 函数来调整字符串