iamhuangjinming 发表于 2021-6-1 09:06:08

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

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

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



jezli 发表于 2021-8-13 17:43:24

本帖最后由 jezli 于 2021-8-13 17:57 编辑


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

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


iamhuangjinming 发表于 2021-8-14 20:09:28

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

你这个好像没有用哦，好像不能这么搞
页: [1]
查看完整版本: morning！拆除外部参照语句识别多个字符的问题~