jame2000 发表于 2004-11-29 08:51:00

请教批处理！急！

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

xqyhome 发表于 2004-11-29 10:13:00

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


;--------------------------------------------<BR>                                       ( SETQ I (1+ I))<BR>       ) <BR>)

hululu 发表于 2004-11-30 06:58:00

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


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

xqyhome 发表于 2004-11-30 08:37:00

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


<BR>行，但要改对象名称及组码，线型的组码为 6
页: [1]
查看完整版本: 请教批处理！急！