屏幕外部参照图层Lisp和Scri
嘿伙计们，我编写了一个lisp例程和一个脚本，可以打开图形，然后筛选我在工作表中引用的选定建筑层。一切都很顺利，但我还有几件事需要改进。
1） 我目前在脚本中键入了每个图形名称。有没有办法告诉它打开一个文件目录或类似的东西？尝试使其对其他学科更为用户友好（键入每个dwg名称耗时）。
2） 有没有办法让lisp选择我选择的外部参照上的所有图层？架构有时会添加层，只需再次运行它比编辑lisp以添加层名称更容易。它们使用了很多很多层（并没有显示所有层），因此很耗时。
以下是我目前掌握的信息：
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
(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 好的，这是更新的部分，用于在我的所有图纸中筛选建筑外部参照。仍在研究如何在目录中打开图形。
(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
这比我以前做的要简单得多
页:
[1]