求助:哪位请帮我修改一下这段小程序

先进者

(defun C:bs ()
(setq ss (ssget))
(COMMAND "CHPROP" (SSGET '((8 . "UP")))     "" "C" 1 "")
(COMMAND "CHPROP" (SSGET '((8 . "UP_O")))   "" "C" 1 "")
(COMMAND "CHPROP" (SSGET '((8 . "UB")))     "" "C" 2 "")
(COMMAND "CHPROP" (SSGET '((8 . "UB_O")))   "" "C" 2 "")
(COMMAND "CHPROP" (SSGET '((8 . "PH")))     "" "C" 3 "")
(COMMAND "CHPROP" (SSGET '((8 . "PH_O")))   "" "C" 3 "")
(COMMAND "CHPROP" (SSGET '((8 . "PH_W")))   "" "C" 3 "")
)

Andyhon

(defun C:bs ()

  (setq ss (ssget))
  (setq ssc1 (SSGET "P" '((8 . "UP*"))))

  (command "Select" ss "")
  (setq ssc2 (SSGET "P" '((8 . "UB*"))))

  (command "Select" ss "")
  (setq ssc3 (SSGET "P" '((8 . "PH*"))))

  (if ssc1
    (COMMAND "CHPROP" ssc1 "" "C" 1 "")
  )
  (if ssc2
    (COMMAND "CHPROP" ssc2 "" "C" 2 "")
  )
  (if ssc3
    (COMMAND "CHPROP" ssc3 "" "C" 3 "")
  )
)

未经调试...

先进者

Andyhon 发表于 2012-3-15 13:56
(defun C:bs ()

  (setq ss (ssget))

谢谢,终于搞定了,
还有个小问题,如何把下面这段代码插入块进去,我放过去好像不能用
(command "Erase"  (ssget "P" '((0 . "DIMENSION,LINE,TEXT"))) "")