先进者 发表于 2012-3-15 13:56:37

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

(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 发表于 2012-3-15 13:56:38

(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 "")
)
)

未经调试...

先进者 发表于 2012-3-15 16:58:54

本帖最后由 先进者 于 2012-3-15 18:06 编辑

Andyhon 发表于 2012-3-15 13:56 http://bbs.mjtd.com/static/image/common/back.gif
(defun C:bs ()

(setq ss (ssget))


谢谢,终于搞定了,
还有个小问题,如何把下面这段代码插入块进去,我放过去好像不能用
(command "Erase"(ssget "P" '((0 . "DIMENSION,LINE,TEXT"))) "")
页: [1]
查看完整版本: 求助:哪位请帮我修改一下这段小程序