Логотип сайта поддержки пользователей САПРО сайте поддержки пользователей САПР Translate to:

Очистка всей информации о согласованных слоях в чертеже

Назад к списку функций
;;; PurgeReconciledLayers.LSP
;;;
;;; Проверено на AutoCAD 2008
;;; Очистка всей информации о согласованных слоях в чертеже

(defun PurgeReconciledLayers ()
  (vl-load-com)
  (vlax-for layer (vla-get-Layers
		    (vla-get-ActiveDocument
		      (vlax-get-acad-object)
		    )
		  )
    (vl-Catch-All-Apply
      '(lambda ()
	 (vla-Remove
	   (vla-GetExtensionDictionary
	     layer
	   )
	   "ADSK_XREC_LAYER_RECONCILED"
	 )
       )
    )
    (vl-Catch-All-Apply
      '(lambda ()
	 (vla-delete
	   (vla-GetExtensionDictionary
	     layer
	   )
	 )
       )
    )
  )
  (setvar "LAYEREVAL" 0)
  (setvar "LAYERNOTIFY" 0)
  (princ)
)

; Удалите строку ниже, если вы не хотите запускать функцию автоматически, 
; при загрузке AutoLISP файла
(PurgeReconciledLayers)



Copyright © Сайт поддержки пользователей САПР by Victor Tkachenko