GeoGIS

سایتی در زمینه علوم ژئوماتیک

برنامه‌ای برای حذف فیلتر لایه‌ها

ارسال توسط راستگو در تاریخ ۲۲ - تیر - ۱۳۹۳

در زیر برنامه‌ای کاربردی در اختیار شما دوستان قرارگرفته است که به کمک آن می‌توانید چنانچه برای لایه‌های ترسیم جاری فیلتری در نظر گرفته شده است آن‌ها را حذف کنید. پس از اجرای دستور تمام فیلترهای موجود بر روی لایه‌ها به‌صورت خودکار حذف خواهد شد.

دوستانی که نحوه‌ی فراخوانی فایل‌های لیسپ (LISP) را در نرم‌افزار‌های اتودسک نمی‌دانند، برای رفتن به صفحه آموزش فراخوانی فایل‌های لیسپ (LISP) در نرم‌افزار‌های اتودسک اینجا کلیک کنند.

برای دستیابی به موارد بالا، ابتدا کدهای زیر را در یک فایل متن (مانند نوتپد “Notpad”، ورد “Word” و …) کپی کرده و در نهایت پسوند فایل را به lsp. تغییر دهید.

					;-=====================================-;
					;-      Delete all layer filters       -;
					;-     Tested on AutoCAD 2002-2014     -;
					;-              Written by             -;
					;-           Ebrahim Rastgou           -;
					;-            WWW.GeoGIS.ir            -;
					;-              05-05-14               -;
					;-=====================================-;

;---------------Delete all layer filters------------------

(vl-load-com)
(defun C:DLF()
  (DeleteLayerFilters)
  (DeleteLayerFilters2)
  (princ "\nAll layer filters deleted!")
  (princ)
)

;;; Purge/delete all layer filter or filters
;;; Example: (DeleteLayerFilters)
(defun DeleteLayerFilters ()
  (vl-Catch-All-Apply
    '(lambda ()
       (vla-Remove
	 (vla-GetExtensionDictionary
	   (vla-Get-Layers
	     (vla-Get-ActiveDocument
               (vlax-Get-Acad-Object))))
	 "ACAD_LAYERFILTERS")))
)
;;; Purge/delete all layer filter or filters compatible with 2005 or later
;;; Example: (DeleteLayerFilters2)
(defun DeleteLayerFilters2 ()
  (vl-Catch-All-Apply
    '(lambda ()
       (vla-Remove
	 (vla-GetExtensionDictionary
	   (vla-Get-Layers
	     (vla-Get-ActiveDocument
               (vlax-Get-Acad-Object))))
	 "AcLyDictionary")))
)

;-=====================================-;

;- Delete all layer filters -;

;- Tested on AutoCAD 2002-2014 -;

;- Written by -;

;- Ebrahim Rastgou -;

;- WWW.GeoGIS.ir -;

;- 05-05-14 -;

;-=====================================-;

;---------------Delete all layer filters------------------

(vl-load-com)

(defun C:DLF()

(DeleteLayerFilters)

(DeleteLayerFilters2)

(princ "\nAll layer filters deleted!")

(princ)

)

;;; Purge/delete all layer filter or filters

;;; Example: (DeleteLayerFilters)

(defun DeleteLayerFilters ()

(vl-Catch-All-Apply

'(lambda ()

(vla-Remove

(vla-GetExtensionDictionary

(vla-Get-Layers

(vla-Get-ActiveDocument

(vlax-Get-Acad-Object))))

"ACAD_LAYERFILTERS")))

)

;;; Purge/delete all layer filter or filters compatible with 2005 or later

;;; Example: (DeleteLayerFilters2)

(defun DeleteLayerFilters2 ()

(vl-Catch-All-Apply

'(lambda ()

(vla-Remove

(vla-GetExtensionDictionary

(vla-Get-Layers

(vla-Get-ActiveDocument

(vlax-Get-Acad-Object))))

"AcLyDictionary")))

)

دوستانی که تمایل به کپی کردن کد برنامه را ندارند می‌توانند فایل لیسپ (LISP) برنامه بالا را از پیوندهای زیر دریافت نمایند.

برای اجرای این برنامه پس از دریافت و بارگذاری برنامه روی نرم افزار اتودسک خود، کافیست در خط فرمان (Command Line) نام اجرای برنامه که در خط تعریف برنامه (defun)، نوشته شده است و اینتر کنند. نامه این برنامه برای اجرا DLF است.

نکته : جزوات و اطلاعات این سایت به روز خواهند شد پس در زمان دانلود، به تاریخ انتشار آن توجه فرمایید.

حجم داده : ۲۳ کیلوبایت

تاریخ انتشار : ۹۳/۰۴/۲۲

دانلود : دانلود از لینک مستقیم