[编程申请]：我想实现下面的编程意图

lzhksoft

我想实现下面的编程意图，
查找图形中的cdhx、dhx图层，看是否线形为dhx，
查找图形中的xx、xxx图层，看是否线形为xx，
如果不是就执行清理程序清理掉多余的线形，然后执行scad（自编的lsp），设置线形为需要的dhx及xx。
如果是就查看一下dhx及xx后面的说明是不是hkcad，是就结束，不是就改变本图层的线形设置为continous然后执行清理程序清理掉多余的线形，然后执行scad（自编的lsp），设置线形为需要的dhx及xx。

lsjjm

查找图层: (tblsearch "layer" "cdhx")
判别线形: (= (cdr (assoc 6 (tblsearch "layer" "cdhx"))) "dhx")
....

lzhksoft

哪个大哥帮帮我呀，上面的大哥怎么没有写完？

eachy

其中线形加载中的线形名自行修改

2. 
   
3. [PHP]
   
4. (defun c:ChkLt (/ _chkltype _chklyrltype)
   
5.   (defun _chkltype (name)
   
6.     (if        (not (tblsearch "ltype" name))
   
7.       (command ".linetype" "l" name "dxx" "")
   
8.     )
   
9.   )
   
10.   (defun _chklyrltype (lyr ltype)
    
11.     (if        (/= (cdr (assoc 6 (tblsearch "layer" lyr))) ltype)
    
12.       (progn
    
13.         (setq lyr  (entget (tblobjname "layer" lyr))
    
14.               nlyr (subst (cons 6 ltype)
    
15.                           (assoc 6 lyr)
    
16.                           lyr
    
17.                    )
    
18.         )
    
19.         (entmod nlyr)
    
20.       )
    
21.     )
    
22.   )
    
23.   (_chkltype "cdhx")
    
24.   (_chkltype "xx")
    
25.   (_chklyrltype "cdhx" "dhx")
    
26.   (_chklyrltype "dhx" "dhx")
    
27.   (_chklyrltype "xx" "xx")
    
28.   (_chklyrltype "xxx" "xx")
    
29.   (princ)
    
30. )[/PHP]

<br /> [PHP]<br /> (defun c:ChkLt (/ _chkltype _chklyrltype)<br />   (defun _chkltype (name)<br />     (if        (not (tblsearch "ltype" name))<br />       (command ".linetype" "l" name "dxx" "")<br />     )<br />   )<br />   (defun _chklyrltype (lyr ltype)<br />     (if        (/= (cdr (assoc 6 (tblsearch "layer" lyr))) ltype)<br />       (progn<br />         (setq lyr  (entget (tblobjname "layer" lyr))<br />               nlyr (subst (cons 6 ltype)<br />                           (assoc 6 lyr)<br />                           lyr<br />                    )<br />         )<br />         (entmod nlyr)<br />       )<br />     )<br />   )<br />   (_chkltype "cdhx")<br />   (_chkltype "xx")<br />   (_chklyrltype "cdhx" "dhx")<br />   (_chklyrltype "dhx" "dhx")<br />   (_chklyrltype "xx" "xx")<br />   (_chklyrltype "xxx" "xx")<br />   (princ)<br /> )[/PHP]