请教批处理！急！

jame2000

请问怎样将一种块（大批量），置换成另一种块！高手指教。谢谢

xqyhome

( DEFUN C:ZH (/ SS ENMING ED I LEN ) ;批量置换块
( PRINC "请选择要置换的块:")
( SETQ SS (SSGET))
( SETQ KNAME (GETSTRING "新块的名称="))
( SETQ LEN (SSLENGTH SS))
( SETQ I 0)
( WHILE (< I LEN)
( SETQ ENMING (SSNAME SS I))
( SETQ ED (ENTGET ENMING))
;-----------------------------------------------
( IF (EQUAL (CONS 0 "INSERT") (ASSOC 0 ED))
(PROGN
( SETQ ED
( SUBST (CONS 2 KNAME) (ASSOC 2 ED) ED)
)
( ENTMOD ED)
)
) ;--------------------------------------------
( SETQ I (1+ I))
)
)

hululu

我也正急者寻找！真是雪中送炭呀！！！


我想把图纸中的某类线型统一改为令一种线型，上面那个就行吧？

xqyhome

hululu发表于2004-11-30 6:58:00我想把图纸中的某类线型统一改为令一种线型，上面那个就行吧？

行，但要改对象名称及组码，线型的组码为 6