Comming 发表于 2012-9-15 17:10:27

请求各位帮修正


程序不能执行第一种判断,不知那里出错了,请各位帮我修正,谢谢!

(defun c:dx ()
(INITGET "L C")      ;设定输入范围
(setq sz (getkword "\n选择参照方式[线型(L)、颜色(C)]:"))
(setq sz (strcase sz))
(if (setq sz L)
    (progn
(setq en (entsel "\n选择线型参照体:"))
(WHILE (= en nil)
    (setq en (entsel "\n选择线型参照体:"))
)
(setq endata (entget (car en)))
(setq cj (cdr (assoc 6 endata)))
(setq ss (ssget (list (cons 6 cj))))
(WHILE (= ss nil)
    (setq ss (ssget (list (cons 6 cj))))
)
(command "erase" ss "")
    )   
;;;========================================================
(progn

(setq en (entsel "\n选择颜色参照体:"))
(WHILE (= en nil)
    (setq en (entsel "\n选择颜色参照体:"))
)
(setq endata (entget (car en)))
(setq cj (cdr (assoc 62 endata)))
(setq ss (ssget (list (cons 62 cj))))
(WHILE (= ss nil)
    (setq ss (ssget (list (cons 62 cj))))
)
(command "erase" ss "")
)
    )
)

Andyhon 发表于 2012-9-15 17:17:00

(setq sz (strcase sz))
(if (setq sz L)
==>
(setq sz (strcase sz))
(if (= sz "L")

Comming 发表于 2012-9-15 18:04:42

Andyhon 发表于 2012-9-15 17:17 static/image/common/back.gif
(setq sz (strcase sz))
(if (setq sz L)
==>


(setq sz (strcase sz))
(if (setq sz "L")
改成这样后按颜色部份不能判断。

yjr111 发表于 2012-9-15 18:10:22


[*](defun c:dx ()

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(INITGET "L C")      ;设定输入范围

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(setq sz (getkword "\n选择参照方式[线型(L)/颜色(C)]:"));;;改为斜杆

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif;;;(setq sz (strcase sz))去除

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(if (= sz "L")

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif    (progn

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(setq en (entsel "\n选择线型参照体:"))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(WHILE (= en nil)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif    (setq en (entsel "\n选择线型参照体:"))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(setq endata (entget (car en)))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(setq cj (cdr (assoc 6 endata)))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(setq ss (ssget (list (cons 6 cj))))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(WHILE (= ss nil)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif    (setq ss (ssget (list (cons 6 cj))))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(command "erase" ss "")

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif    )   

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif;;;========================================================

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(progn

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(setq en (entsel "\n选择颜色参照体:"))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(WHILE (= en nil)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif    (setq en (entsel "\n选择颜色参照体:"))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(setq endata (entget (car en)))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(setq cj (cdr (assoc 62 endata)))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(setq ss (ssget (list (cons 62 cj))))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(WHILE (= ss nil)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif    (setq ss (ssget (list (cons 62 cj))))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(command "erase" ss "")

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif    )

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif)


Comming 发表于 2012-9-15 18:35:34

yjr111 发表于 2012-9-15 18:10 static/image/common/back.gif
[*](defun c:dx ()

[*](INITGET "L C")      ;设定输入范围


可以解释一下为什么(setq sz (strcase sz))去除还可以判断大小写吗

成仔 发表于 2012-9-15 18:46:48

Comming 发表于 2012-9-17 08:15:29

yjr111 发表于 2012-9-15 18:10 static/image/common/back.gif
[*](defun c:dx ()

[*](INITGET "L C")      ;设定输入范围


谢谢你帮我修正了错误,我想再问一个问题,如果线型或颜色是Bylayer或Byblock这两个类型的属性里没有我要搜索的内容,选择集就错误应该怎么处理?
页: [1]
查看完整版本: 请求各位帮修正