morning！拆除外部参照语句识别多个字符的问题~

iamhuangjinming

比如想卸载除了带有“结构参照”、“建筑参照”、“设备参照”的外部参照

(Defun C:dxrs ( )         
        (setvar "cmdecho" 0)           
        (command "-xref" "Detach" "~结构参照*")
          (princ)
)
(Defun C:gxrs ( )         
        (setvar "cmdecho" 0)              
        (command "-xref" "unload" "~结构参照*")
          (princ)
);■■■■

jezli

2. 
   
3. (defun c:zzzz
   
4.         ()
   
5.         (setvar "cmdecho" 0);设定命令不回显
   
6.         (setq firstr "*设备参照*，*电气参照*，*建筑参照*，*结构参照*");赋值一个字符串
   
7.         (command "-xref" "unload" firstr "");调用命令行，使用设定的字符串值
   
8.         (command);相当于esc两次
   
9.         (princ);清楚nil
   
10.         (setvar "cmdecho" 1);设定命令回显
    
11. );结束zzzz命令
    
12. 
    

<br /> (defun c:zzzz<br />         ()<br />         (setvar "cmdecho" 0);设定命令不回显<br />         (setq firstr "*设备参照*，*电气参照*，*建筑参照*，*结构参照*");赋值一个字符串<br />         (command "-xref" "unload" firstr "");调用命令行，使用设定的字符串值<br />         (command);相当于esc两次<br />         (princ);清楚nil<br />         (setvar "cmdecho" 1);设定命令回显<br /> );结束zzzz命令<br /> <br />

看下这样，我也是个小白
哈哈哈 终于逮到一个跟我有相同问题的人

iamhuangjinming

jezli 发表于 2021-8-13 17:43
看下这样，我也是个小白
哈哈哈 终于逮到一个跟我有相同问题的人

  你这个好像没有用哦，好像不能这么搞