屏幕外部参照图层Lisp和Scri

hoowahfun · 发表于 2022-7-6 11:21:42

嘿伙计们，

我编写了一个lisp例程和一个脚本，可以打开图形，然后筛选我在工作表中引用的选定建筑层。一切都很顺利，但我还有几件事需要改进。

1）我目前在脚本中键入了每个图形名称。有没有办法告诉它打开一个文件目录或类似的东西？尝试使其对其他学科更为用户友好（键入每个dwg名称耗时）。

2）有没有办法让lisp选择我选择的外部参照上的所有图层？架构有时会添加层，只需再次运行它比编辑lisp以添加层名称更容易。它们使用了很多很多层（并没有显示所有层），因此很耗时。

以下是我目前掌握的信息：

copy

open 53636_M101.dwg layscr close
open 53636_M102.dwg layscr close
open 53636_M103.dwg layscr close
open 53636_M104.dwg layscr close
open 53636_M105.dwg layscr close
open 53636_M106.dwg layscr close
open 53636_M107.dwg layscr close
open 53636_M108.dwg layscr close
open 53636_M109.dwg layscr close
open 53636_M110.dwg layscr close
open 53636_M111.dwg layscr close
open 53636_M112.dwg layscr close
open 53636_M113.dwg layscr close
open 53636_M114.dwg layscr close
open 53636_M115.dwg layscr close
open 53636_M401.dwg layscr close
open 53636_M402.dwg layscr close
open 53636_P101.dwg layscr close
open 53636_P102.dwg layscr close
open 53636_P103.dwg layscr close
open 53636_P104.dwg layscr close
open 53636_P401.dwg layscr close
open 53636_P402.dwg layscr close
open 53636_P403.dwg layscr close
open 53636_P404.dwg layscr close
open 53636_P405.dwg layscr close
open 53636_P406.dwg layscr close

copy

(defun c:layscr ()
(command "layer"
   "c" "253" "53636a-fp1|53636-grid"
     "c" "253" "53636a-fp1|a-area-line"
     "c" "253" "53636a-fp1|a-cols"
   "c" "253" "53636a-fp1|a-concrete-wall"
   "c" "253" "53636a-fp1|a-detl-ligt"
   "c" "253" "53636a-fp1|a-detl-medm"
   "c" "253" "53636a-fp1|a-detl-patt"
   "c" "253" "53636a-fp1|a-door"
   "c" "253" "53636a-fp1|a-elev-patt"
   "c" "253" "53636a-fp1|a-eqpm"
   "c" "253" "53636a-fp1|a-eqpm-ktcn"
   "c" "253" "53636a-fp1|a-eqpm-ktcn-ovhd"
   "c" "253" "53636a-fp1|a-flor-case"
   "c" "253" "53636a-fp1|a-flor-hidd"
   "c" "253" "53636a-fp1|a-flor-hral"
   "c" "253" "53636a-fp1|a-flor-iden"
   "c" "253" "53636a-fp1|a-flor-levl"
   "c" "253" "53636a-fp1|a-flor-patt"
   "c" "253" "53636a-fp1|a-furn-syst"
   "c" "253" "53636a-fp1|a-flor-tptn"
   "c" "253" "53636a-fp1|a-roof-below"
   "c" "253" "53636a-fp1|a-roofplan"
   "c" "253" "53636a-fp1|a-stairs-beyond"
   "c" "253" "53636a-fp1|a-windows"
   "c" "253" "53636a-fp1|aswnailr"
   "c" "253" "53636a-fp1|guttersdownspouts"
   "c" "253" "53636a-fp1|roofoverhang"
   "c" "253" "53636a-fp1|s-cols-bubl"
   "c" "253" "53636a-fp1|s-grid-full"
   "c" "253" "53636a-fp1|sfscol"
   "c" "253" "53636a-fp1|ssmcmu"
   "c" "253" "53636a-fp1|sssang"
   "c" "253" "53636a-fp1|sssfast"
   "c" "253" "53636a-fp1|sssgirt"
   "c" "253" "53636a-fp1|sssgirt"
   "c" "253" "53636a-fp2|a-flor-patt"
   "c" "253" "53636a-fp2|a-roof-below"
   "c" "253" "53636a-fp2|a-wall-prht"
   "c" "253" "53636a-fp2|a-windows"
   "c" "253" "53636a-fp2|aswnailr"
   "c" "253" "53636a-fp2|c-swlk-conc"
   "c" "253" "53636a-fp2|sfscol"
   "c" "253" "53636a-fp2|sssang"
   "c" "253" "53636a-fp1|a-cols" "")
(command "purge" "all" "*" "n")
(command "audit" "y")
(command "zoom" "e")
(command "qsave")
(princ)
 ); end of c:layscr

hoowahfun · 发表于 2022-7-6 12:43:25

好的，这是更新的部分，用于在我的所有图纸中筛选建筑外部参照。仍在研究如何在目录中打开图形。

copy

(defun c:layscr ()
(command "layer"
   "c" "253" "53636a-fp1|*"
     "c" "253" "53636a-fp2|*"
   "c" "253" "53636a-fpm|*"
   "c" "3" "53636a-fpm|s-cols-bubl" "")
(command "purge" "all" "*" "n")
(command "audit" "y")
(command "zoom" "e")
(command "qsave")
(princ)
 ); end of c:layscr

这比我以前做的要简单得多

[编程交流] 屏幕外部参照图层Lisp和Scri

发表回复

精选推荐