过滤设备列表

Small Fish · 发表于 2022-7-6 11:02:51

我该如何过滤我的列表，以便只有pc3文件和“无”显示
ie没有列出系统打印机？
谢谢

 
(setq ad (vla-get-activedocument (vlax-get-acad-object)))
     (vla-RefreshPlotDeviceInfo (vla-get-activelayout ad))
     (setq Devicelist (vlax-safearray->list (vlax-variant-value 
     (vla-getplotdevicenames (vla-item (vla-get-layouts ad) Model")))))

Lee Mac · 发表于 2022-7-6 11:15:01

如果没有，只需简单的vl删除。。。

copy


(defun GetPC3 ( / doc )
 (vl-load-com)
 (vla-RefreshPlotDeviceInfo
   (vla-get-ActiveLayout
     (setq doc
       (vla-get-activedocument
         (vlax-get-acad-object)
       )
     )
   )
 )
 (vl-remove-if-not
   (function
     (lambda ( x ) (or (eq "None" x) (wcmatch x "*.pc3")))
   )
   (vlax-invoke
     (vla-item (vla-get-layouts doc) "Model") 'GetPlotDeviceNames
   )
 )
)