求帮助批量自动分出0层里的线程序

cunshangkan

公司转化过来的图纸,中需要将在零层里的线放在指定层,比如中心线放在center里 而且线种也设成bylayer层线色也需设置成bylayer层.原来中心线是放在center2里的线色也是兰得,所以要重新放置,特别是快要重新打断分层后重新组合起来.所以很繁琐,希望大家帮忙开发出这样的小程序.QQ:24380201 

ZZXXQQ

2. (DEFUN C:TEST ()
3. (SETVAR "CMDECHO" 0)
4. (IF (SETQ SS (SSGET "X" '((8 . "CENTER2"))))
5.   (COMMAND "LAYER" "M" "CENTER" "" "CHPROP" SS "" "LA" "CENTER" "C" "BYLAYER" "")
6. )
7. (IF (SETQ SS (SSGET "X" '((8 . "0"))))
8.   (COMMAND "LAYER" "M" "BLOCK" "" "CHPROP" SS "" "LA" "BLOCK" "C" "BYLAYER" "")
9. )
10. ……
11. (SETVAR "CMDECHO" 1)
12. (PRINC)
13. )

复制代码

cunshangkan

(DEFUN C:TEST ()
  (SETVAR "CMDECHO" 0)
  (IF (SETQ SS (SSGET "X" '((8 . "0") (6."CENTER2"))))
   (COMMAND "CHPROP" SS"" "LA" "01_CENTER" "C" "BYLAYER""LT""BYLAYER" "")
  )

  ……
  (SETVAR "CMDECHO" 1)
  (PRINC)
请问错在哪里！

ZZXXQQ

实体线型如果是BYLAYER的无法用(6 . "CENTER2")得到。最好分开写。

(DEFUN C:TEST ()
  (SETVAR "CMDECHO" 0)
  (IF (SETQ SS (SSGET "X" '((8 . "0"))))
   (COMMAND "CHPROP" SS"" "LA" "01_CENTER" "C" "BYLAYER""LT""BYLAYER" "")
  )
  (IF (SETQ SS (SSGET "X" '((6 . "CENTER2"))))
   (COMMAND "CHPROP" SS"" "LA" "01_CENTER" "C" "BYLAYER""LT""BYLAYER" "")
  )

  ……
  (SETVAR "CMDECHO" 1)
  (PRINC)
)