[求助]：我写的一个lsp不知道错在哪里？请指教

yy5heng

一个prin1就讨论了这么久

露水2

想改块的名字不知道问题出在哪里？请指出？


；改块的名字
(defun c:test()
     (setq  kuai (entsel "选择需要改名的块:")
               kuai_data (entget (car kuai))
               ming_list (assoc 2 kuai_data)
new_ming (getstring "\n输入块新的名:")
new_ming_list (cons 2 new_ming)
kuai_data (subst new_ming_lis ming_list kuai_data)
)
(entmod kuai_data)
(princ)
)

xyp1964

简单而直接的方法：
[php](command "-rename" "B" "旧块名" "新块名")[/php]

心如明镜

在这里学到了不少，请问在DCL中怎样将一组单选按钮分两行显示

zxq0220

2. 
   
3. test : dialog {
   
4. : radio_column {
   
5.    key = "xxx";
   
6.    value = "aaa";
   
7.    : row {
   
8.     : radio_button{ key = "aaa"; label = "1";}
   
9.     : radio_button{ key = "bbb"; label = "2";}
   
10.    }
    
11.    : row {
    
12.     : radio_button{ key = "ccc"; label = "3";}
    
13.     : radio_button{ key = "ddd"; label = "4";}
    
14.    }
    
15. }
    
16. ok_cancel;
    
17. }
    

<br /> test : dialog {<br /> : radio_column { <br />    key = "xxx";<br />    value = "aaa";<br />    : row {<br />     : radio_button{ key = "aaa"; label = "1";}<br />     : radio_button{ key = "bbb"; label = "2";}<br />    }<br />    : row {<br />     : radio_button{ key = "ccc"; label = "3";}<br />     : radio_button{ key = "ddd"; label = "4";}<br />    }<br /> }<br /> ok_cancel;<br /> }<br />

露水2

最初由 xyp1964 发布
[B]简单而直接的方法：
[php](command "-rename" "B" "旧块名" "新块名")[/php] [/B]

斑竹这个不能改选择的块
这个命令改的是整个块


又练习了一个连接两个线中点的lsp
但是失败了
不知道错在哪里？
有没有什么软件可以自动检测lsp的


;连接两条线的中点
(defun c:test()
     (setq p1 (entsel "选择第一条线")
           p1_pt (cadr p1)  
           pl_mid (osnap p1_pt "mid")
                p2 (entsel "\n选择第二条线")
              p2_pt (cadr p2)
             p2_mid (osnap p2_pt "mid")
)
(command "line" p1_mid p2_mid)
(princ)
)

狂刀

既然说到这里，我就插两句。
实际上没有“改块的名字”这个说法，只有“改块定义名字”
xyp版主的做法正是改块定义名。
为什么没有“改块的名字”这个说法？块实体实际是块定义的一个拷贝，如果你要改一部分块的名字，怎么办？那只能以原来块定义A重新生成一个快定义B，并赋予其它名字，而你选中的块，引用的块定义dxf2组码，也相应改为B才可以达到你说的效果。

两个线中点的lsp
这样不行么？

2. 
   
3. (defun c:ll (/ os pt1 pt2)
   
4.   (setq os (getvar "osmode"))
   
5.   (setvar "osmode" 2)
   
6.   (if (and (setq pt1 (getpoint "\n 1st obj:"))
   
7.            (setq pt2 (getpoint "\n 2st obj:")))
   
8.     (command ".line" pt1 pt2 "")
   
9.   )
   
10.   (setvar "osmode" os)
    
11.   (princ)
    
12. )
    

<br /> (defun c:ll (/ os pt1 pt2)<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 2)<br />   (if (and (setq pt1 (getpoint "\n 1st obj:"))<br />            (setq pt2 (getpoint "\n 2st obj:")))<br />     (command ".line" pt1 pt2 "")<br />   )<br />   (setvar "osmode" os)<br />   (princ)<br /> )<br />