Tabaka “Layer“ Direktörü Lispi

Sertan Türkan 20/11/2018 AutoCAD LİSPLERİ Yorum bırakın 48 Görünüşler

İlişkili Yayınlar

Komut Yazımı	LDON / LDOFF
Geçerli Sürüm	1.8
İndirme	LayerDirectorV1-8.lsp
HTML Sürümünü Görüntüleme	Yazının sonunda

Programın Tanımı

Bu program, bir komut çalıştırıldığı zaman, geçerli (aktif) tabakayı “current layer” otomatik olarak ayarlamak için Visual LISP Komut Reaktörü kullanır ve komut tamamlandığında, geçerli (aktif) tabaka “current layer” önceki geçerli (aktif) tabakaya “current layer” sıfırlanır. Şayet ilgili tabaka “layer” çizimde hali hazırda mevcut değilse, ilgili tabaka “layer” oluşturulacaktır.

Belirli komutlar çalıştırıldığı zaman, ayarlanacak tabakayı “layer” kontrol eden veriler, kodun üst kısmında tablo olarak verilmiş olup; bu tablo, kullanıcının gereksinimlerine uyacak şekilde değiştirilebilir ve genişletilebilir.

Tablodaki her listenin ilk öğesi, standart bir AutoCAD komutunun veya tabaka “layer” değişikliğini tetiklemek için, özel AutoLISP komutunun adıdır. Bu komut adı, bir komut takma adı “alias” değil, tam komut adı olmalıdır. Komut büyük/küçük harfe duyarlı değildir ve joker karakterler kullanabilir.

Birkaç örnek vermek gerekirse, “[DM] TEXT, TEXT” TEXT, DTEXT ve MTEXT komutları için tabaka değişikliği gerçekleştirecektir; “* LEADER”, LEADER, QLEADER ve MLEADER komutları için, tabaka değişikliğini sağlayacaktır.

İkinci öğe, komut çağrıldığında geçerli (aktif) olarak ayarlanacak tabakanın ismidir. Şayet bu tabaka o anki geçerli (aktif) çizimde mevcut değilse, yaratılacaktır. Kalan öğeler, program tarafından oluşturulan tabakalara uygulanacak temel tabaka özellikleridir – bu özellikler için gerekli biçim, program kaynak kodunda daha ayrıntılı olarak açıklanmıştır.

Kodda ayarlanan bir ‘Tabaka Özelliklerini Uymaya Zorlama‘ parametresi, programın çizimdeki mevcut tabakaların özelliklerini otomatik olarak değiştirilip; değiştirilmeyeceğini belirler. Şayet etkinleştirilmişse, mevcut tabakaların özellikleri yukarıda açıklanan Tabaka Veriler kısmında bulunanlarla eşleşecek şekilde değiştirilecektir.

Program ayrıca referans çizim “xref” tabaka ismine bağlı bir tabakaya, isteğe bağlı bir önek ve sonek ve program kaynak kodundan yapılandırılabilen önceden tanımlanmış tabaka özelliklerine otomatik XREF harflerini ekleyebilecek bir referans çizim “xref” bağımlı tabaka atama seçeneği sunar.

Son olarak, program ayrıca, bir komut çalıştırıldığında, sistem değişkenlerinin aktif komutu tamamladıktan veya iptal ettikten sonra orijinal değerlerine sıfırlanmasıyla, kullanıcının sistem değişkenlerini herhangi bir değerde otomatik olarak yapılandırmasını sağlar.

Program, çizim başlangıcında yüklendiğinde, Komut Reaktörünü otomatik olarak etkinleştirecek ve listelenen komutlardan herhangi biri çağrıldığında o anki geçerli (aktif) tabaka otomatik olarak değiştirilecektir. Reaktör daha sonra sırasıyla LDOFF & LDON komutları kullanılarak manuel olarak devre dışı bırakılabilir veya etkinleştirilebilir.

Çalıştırma için Talimatlar

Bu program, çizim başlangıcında yüklendiği zaman, otomatik olarak çalışacaktır ve daha sonra sırasıyla LDOFF & LDON komutları kullanılarak açılıp kapatılabilir. Bu programın yüklenmesine ilişkin yönergeler için, AutoLISP Programını Çalıştırma makalesine bakın.

HTML Sürümü

;;————————=={ Layer Director }==————————;;
;; ;;
;; This program uses a Visual LISP Command Reactor to automatically ;;
;; set the current layer when a command is called, proceeding to ;;
;; reset to the previous current layer when the command is completed. ;;
;; ;;
;; The chosen layer will be created with the specified properties if ;;
;; it doesn’t already exist in the active drawing. ;;
;; ;;
;; The data controlling the layer to be set when certain commands are ;;
;; called and the corresponding layer properties for new layers is ;;
;; tabulated at the top of the code – this may be altered and expanded ;;
;; to suit the user’s requirements. ;;
;; ;;
;; The first item of each list in the table is the name of a command ;;
;; to trigger a layer change. This command name should be the full ;;
;; command name, not a command alias. The command is not ;;
;; case-sensitive and may use wildcards. ;;
;; ;;
;; To give a few examples, “[DM]TEXT,TEXT” will cue a layer change ;;
;; for the Text, DText and MText commands; “[QM]LEADER,LEADER” will ;;
;; cue a layer change for the Leader, QLeader and MLeader commands. ;;
;; ;;
;; The second item is the name of the layer to be set to current when ;;
;; the command is called. This layer will be created if not present ;;
;; in the active drawing, using the layer properties specified in the ;;
;; remainder of the list. ;;
;; ;;
;; The program will automatically enable the Command Reactor when ;;
;; loaded, and the current layer will be automatically changed when ;;
;; any of the listed commands are called. The reactor may be ;;
;; subsequently disabled or enabled manually using the commands ;;
;; ‘LDOFF’ & ‘LDON’ respectively. ;;
;; ;;
;;———————————————————————-;;
;;———————————————————————-;;
;; Version 1.0 – 2011-04-16 ;;
;; ;;
;; – First release. ;;
;;———————————————————————-;;
;; Version 1.1 – 2012-04-24 ;;
;; ;;
;; – Program rewritten & updated. ;;
;;———————————————————————-;;
;; Version 1.2 – 2014-06-15 ;;
;; ;;
;; – Added the ability to specify basic layer properties to be ;;
;; applied to new layers created by the program. ;;
;; – Changed loading method to use the s::startup post-initialisation ;;
;; loading function. ;;
;;———————————————————————-;;
;; Version 1.3 – 2015-12-02 ;;
;; ;;
;; – Added layerdirector:forcelayprops parameter to control whether ;;
;; the properties of existing layers are modified by the program. ;;
;; – Added layerdirector:sysvars parameter to allow the user to ;;
;; automatically configure other system variable values when the ;;
;; layer change is triggered. ;;
;; – Added layer description to Layer Data list. ;;
;;———————————————————————-;;
;; Version 1.4 – 2016-01-10 ;;
;; ;;
;; – Added the ability to cue a layer change following the use of a ;;
;; custom AutoLISP command. ;;
;; – Added Plot Style property to Layer Data list. ;;
;;———————————————————————-;;
;; Version 1.5 – 2016-05-09 ;;
;; ;;
;; – Added xref-dependent layering option to enable the user to ;;
;; automatically insert external references on a layer with the ;;
;; same name as the xref, with an optional prefix & suffix. ;;
;; – LM:loadlinetypes function replaced with the more efficient ;;
;; dedicated function LM:layerdirector:loadlinetype. ;;
;;———————————————————————-;;
;; Version 1.6 – 2016-05-10 ;;
;; ;;
;; – Xref-dependent layering option modified to account for the use ;;
;; of the CLASSICXREF command. ;;
;;———————————————————————-;;
;; Version 1.7 – 2017-04-02 ;;
;; ;;
;; – Xref-dependent layering option modified to account for the ;;
;; simultaneous insertion of multiple Xrefs. ;;
;;———————————————————————-;;
;; Version 1.8 – 2017-04-08 ;;
;; ;;
;; – Program updated to account for the use of the 3DORBIT command ;;
;; invoked transparently from within a command which has been ;;
;; configured to trigger a layer change. ;;
;; – Added CETRANSPARENCY to the default system variable list, to be ;;
;; set to -1 (ByLayer) when a layer change is triggered. ;;
;;———————————————————————-;;
(setq
;;———————————————————————-;;
;; Layer Data ;;
;; ================================================================== ;;
;; ;;
;; Populate this list with commands for which the current layer ;;
;; should be changed. ;;
;; ;;
;; ———————————– ;;
;; COMMAND PATTERN ;;
;; ———————————– ;;
;; The first item is the name of a standard AutoCAD command or custom ;;
;; AutoLISP command that will cue a layer change. The command name ;;
;; should be the full command name, not an alias. This command name ;;
;; is not case-sensitive and may use wildcards. ;;
;; ;;
;; e.g. “[DM]TEXT,TEXT” will cue a layer change for the TEXT, DTEXT ;;
;; and MTEXT commands. ;;
;; ;;
;; e.g. “LINE,[XP]LINE” will cue a layer change for the LINE, PLINE, ;;
;; and XLINE commands. ;;
;; ;;
;; ———————————– ;;
;; LAYER NAME ;;
;; ———————————– ;;
;; The second item is the name of the layer to be set current when ;;
;; the command is called. This layer will be created if not present ;;
;; in the active drawing. ;;
;; ;;
;; The remaining items are basic layer properties to be applied to ;;
;; layers that are created by the program. ;;
;; ;;
;; ———————————– ;;
;; LAYER DESCRIPTION ;;
;; ———————————– ;;
;; The third item is an optional layer description; this item may be ;;
;; an arbitrary string value, or an empty string for no description. ;;
;; ;;
;; ———————————– ;;
;; LAYER COLOUR ;;
;; ———————————– ;;
;; The fourth item is the layer colour and should be a positive ;;
;; non-zero integer less than 256, representing the ACI colour of ;;
;; the layer. ;;
;; ;;
;; ———————————– ;;
;; LAYER LINETYPE ;;
;; ———————————– ;;
;; The fifth item is the layer linetype; this is a non-case-sensitive ;;
;; string representing a linetype defined in a .lin file, or ;;
;; “Continuous” if the layer should use the default continuous ;;
;; linetype. The program will attempt to load specified linetypes ;;
;; which are not defined in the drawing, and will use the Continuous ;;
;; linetype if the specified linetype cannot be loaded. ;;
;; ;;
;; ———————————– ;;
;; LAYER LINEWEIGHT ;;
;; ———————————– ;;
;; The sixth item is the layer lineweight; this should be an integer ;;
;; representing one of the standard lineweight values multiplied by ;;
;; 100 (i.e. 2.11mm becomes 211). Use -3 to specify the ‘Default’ ;;
;; lineweight. ;;
;; ;;
;; ———————————– ;;
;; LAYER PLOT FLAG ;;
;; ———————————– ;;
;; The seventh item is the layer plot flag; this should be an integer ;;
;; value of either 1 or 0. A value of 1 indicates that the layer ;;
;; should be plotted; a value of 0 means the layer will not plot. ;;
;; ;;
;; ———————————– ;;
;; LAYER PLOT STYLE ;;
;; ———————————– ;;
;; Finally, for STB drawings (PSTYLEMODE=0), this property may be used ;;
;; to specify the Plot Style to be associated with each layer. This ;;
;; value should either be a string corresponding to the name of a ;;
;; Plot Style, or nil to use the default Plot Style or for ;;
;; CTB drawings (PSTYLEMODE=1). ;;
;; ;;
;;———————————————————————-;;
layerdirector:data
‘(
;;—————————————————————————————————————————————————–;;
;; Command Pattern | Layer Name | Description | Colour | Linetype | Lineweight | Plot | Plot Style ;;
;;—————————————————————————————————————————————————–;;
;; [string] | [string] | [string] | 0 < int <256 | [string] | -3 = Default | 1 = Will Plot | [string] ;;
;; | | Use “” for none | | | 0 <= int <= 211 | 0 = Won’t Plot | Use nil for CTB ;;
;;—————————————————————————————————————————————————–;;
(“[DM]TEXT,TEXT””TEXT””Text Layer” 2 “Continuous” -3 1 nil )
(“DIM*,*LEADER””DIMENSIONS””Dimension Layer” 3 “Continuous” -3 1 nil )
(“*VPORT*””DEFPOINTS””” 7 “Continuous” -3 0 nil )
(“XLINE””XLINE””Construction Lines” 12 “HIDDEN” 0 0 nil )
;;—————————————————————————————————————————————————–;;
)
;;———————————————————————-;;
;; Force Layer Properties [ t / nil ] ;;
;; ================================================================== ;;
;; ;;
;; If set to T the properties of existing layers will be modified to ;;
;; match those found in the Layer Data list above. ;;
;;———————————————————————-;;
layerdirector:forcelayprops nil
;;———————————————————————-;;
;; System Variable Settings ;;
;; ================================================================== ;;
;; ;;
;; Populate this list with system variables whose values should be ;;
;; automatically changed when a layer change is triggered. ;;
;; ;;
;; The first item should be a symbol or string corresponding to the ;;
;; name of a system variable; the second item should represent the ;;
;; value to which the system variable should be set when a layer ;;
;; change is triggered. ;;
;; ;;
;; This parameter is optional: remove all list items if no system ;;
;; variable changes are to be performed. ;;
;;———————————————————————-;;
layerdirector:sysvars
‘(
;;———————————;;
;; System Variable | Value ;;
;;———————————;;
(cecolor “bylayer”)
(celtype “bylayer”)
(celweight -1);; -1 = bylayer
(cetransparency -1);; -1 = bylayer
;;———————————————————————-;;
)
;;———————————————————————-;;
;; XRef-Dependent Layering ;;
;; ================================================================== ;;
;; ;;
;; This option will cause external references (xrefs) to be inserted ;;
;; on a layer whose layer name is dependent on the name of the xref. ;;
;; ;;
;; The first and second items in the below list represent an optional ;;
;; prefix and suffix which will surround the xref name in the name of ;;
;; the layer generated by the program. ;;
;; ;;
;; The remaining items in the list determine the properties of the ;;
;; layers generated by the program for each xref; the order and ;;
;; permitted values of such properties are identical to those used by ;;
;; the Layer Data list above. ;;
;; ;;
;; To disable this option, simply replace the below list with nil. ;;
;;———————————————————————-;;
layerdirector:xreflayer
;;—————————————————————————————————————————————————–;;
;; Layer Prefix | Layer Suffix | Description | Colour | Linetype | Lineweight | Plot | Plot Style ;;
;;—————————————————————————————————————————————————–;;
;; [string] | [string] | [string] | 0 < int <256 | [string] | -3 = Default | 1 = Will Plot | [string] ;;
;; Use “” for none | Use “” for none | Use “” for none | | | 0 <= int <= 211 | 0 = Won’t Plot | Use nil for CTB ;;
;;—————————————————————————————————————————————————–;;
‘(“XREF-“”””XRef Layer” 250 “Continuous” -3 1 nil )
;;—————————————————————————————————————————————————–;;
;;———————————————————————-;;
;; Print Command (Debug Mode) [ t / nil ] ;;
;; ================================================================== ;;
;; ;;
;; If set to T the program will print the command name when a command ;;
;; is called. This is useful when determining the correct command name ;;
;; to use in the Layer Data list. ;;
;;———————————————————————-;;
layerdirector:printcommand nil
)
;;———————————————————————-;;
;; Commands: [ LDON / LDOFF ] ;;
;; ================================================================== ;;
;; ;;
;; Use these to manually turn the Layer Director on & off. ;;
;;———————————————————————-;;
(defunc:ldon nil(LM:layerdirector t ))
(defunc:ldoff nil(LM:layerdirector nil))
;;———————————————————————-;;
(iflayerdirector:sysvars
(setqlayerdirector:sysvars
(apply’mapcar
(cons’list
(vl-remove-if-not'(lambda ( x ) (getvar (car x)))
layerdirector:sysvars
)
)
)
)
)
;;———————————————————————-;;
(defunLM:layerdirector (on )
(foreachgrp (vlr-reactors :vlr-command-reactor :vlr-lisp-reactor)
(foreachobj (cdr grp)
(if(= “LM:layerdirector” (vlr-data obj))
(vlr-removeobj)
)
)
)
(or
(andon
(vlr-command-reactor”LM:layerdirector”
‘(
(:vlr-commandwillstart. LM:layerdirector:set)
(:vlr-commandended. LM:layerdirector:reset)
(:vlr-commandcancelled. LM:layerdirector:reset)
(:vlr-commandfailed. LM:layerdirector:reset)
)
)
(vlr-lisp-reactor”LM:layerdirector”
‘(
(:vlr-lispwillstart. LM:layerdirector:set)
(:vlr-lispended. LM:layerdirector:reset)
(:vlr-lispcancelled. LM:layerdirector:reset)
)
)
(princ”\nLayer Director enabled.”)
)
(princ”\nLayer Director disabled.”)
)
(princ)
)
;;———————————————————————-;;
(defunLM:layerdirector:lispcommand (str )
(if(wcmatch str “(C:*)”) (substr str 4 (- (strlen str) 4)) str)
)
;;———————————————————————-;;
(defunLM:layerdirector:set (obj arg / lst tmp )
(if(and (setq arg (car arg))
(setqarg (LM:layerdirector:lispcommand (strcase arg)))
(not(wcmatch arg “U,UNDO,NUDGE,3DORBITTRANSPARENT,SETVAR”))
)
(progn
(if(and (setq lst (cdar (vl-member-if ‘(lambda ( x ) (wcmatch arg (strcase (car x)))) layerdirector:data)))
(setqtmp (LM:layerdirector:createlayer lst))
(zerop(logand 1 (cdr (assoc 70 tmp))))
)
(progn
(setqlayerdirector:oldlayer (getvar ‘clayer)
layerdirector:oldvars (mapcar’getvar (car layerdirector:sysvars))
)
(iflayerdirector:sysvars
(apply’mapcar (cons ‘setvar layerdirector:sysvars))
)
(setvar’clayer (car lst))
)
)
(if(and (= ‘list (type layerdirector:xreflayer)) (wcmatch arg “XATTACH,CLASSICXREF”))
(setqlayerdirector:entlast (LM:layerdirector:entlast))
)
(iflayerdirector:printcommand (print arg))
)
)
(princ)
)
;;———————————————————————-;;
(defunLM:layerdirector:reset (obj arg / ent tmp )
(if(or (null (car arg)) (not (wcmatch (strcase (car arg)) “U,UNDO,NUDGE,3DORBITTRANSPARENT,SETVAR”)))
(progn
(if
(and
(=’str (type layerdirector:oldlayer))
(setqtmp (tblsearch “layer” layerdirector:oldlayer))
(zerop(logand 1 (cdr (assoc 70 tmp))))
)
(setvar’clayer layerdirector:oldlayer)
)
(mapcar’setvar (car layerdirector:sysvars) layerdirector:oldvars)
(if
(and
(cararg)
(=’list (type layerdirector:xreflayer))
(wcmatch(strcase (car arg)) “XATTACH,CLASSICXREF”)
)
(if(= ‘ename (type (setq ent layerdirector:entlast)))
(while(setq ent (entnext ent)) (LM:layerdirector:xreflayer ent layerdirector:xreflayer))
(LM:layerdirector:xreflayer (entlast)layerdirector:xreflayer)
)
)
(setqlayerdirector:entlast nil
layerdirector:oldvars nil
layerdirector:oldlayer nil
)
)
)
(princ)
)
;;———————————————————————-;;
(defunLM:layerdirector:xreflayer (ent lst / enx lay obj xrf )
(if
(and
(setqenx (entget ent))
(=”INSERT” (cdr (assoc 0 enx)))
(setqxrf (cdr (assoc 2 enx))
lay (strcat(car lst) xrf (cadr lst))
)
(=4 (logand 4 (cdr (assoc 70 (tblsearch “block” xrf)))))
(LM:layerdirector:createlayer (conslay (cddr lst)))
(setqobj (vlax-ename->vla-object ent))
(vlax-write-enabled-pobj)
)
(vla-put-layerobj lay)
)
)
;;———————————————————————-;;
(defunLM:layerdirector:entlast (/ ent tmp )
(setqent (entlast))
(while(setq tmp (entnext ent)) (setq ent tmp))
ent
)
;;———————————————————————-;;
(defunLM:layerdirector:createlayer (lst / def )
(if(or layerdirector:forcelayprops (not (setq def (tblsearch “layer” (car lst)))))
(apply
‘(lambda( lay des col ltp lwt plt pst / dic )
((lambda ( def / ent )
(if(setq ent (tblobjname “layer” (car lst)))
(entmod(cons (cons -1 ent) def))
(entmakedef)
)
)
(vl-list*
‘(000. “LAYER”)
‘(100. “AcDbSymbolTableRecord”)
‘(100. “AcDbLayerTableRecord”)
‘(070. 0)
(cons002 lay)
(cons062 (if (< 0 col 256) col 7))
(cons006 (if (LM:layerdirector:loadlinetype ltp) ltp “Continuous”))
(cons370 (if (or (= -3 lwt) (<= 0 lwt 211)) lwt -3))
(cons290 plt)
(append
(if(and (= ‘str (type pst))
(zerop(getvar ‘pstylemode))
(setqdic (dictsearch (namedobjdict) “acad_plotstylename”))
(setqdic (dictsearch (cdr (assoc -1 dic)) pst))
)
(list(cons 390 (cdr (assoc -1 dic))))
)
(if(and des (/= “” des))
(progn(regapp “AcAecLayerStandard”)
(list
(list-3
(list
“AcAecLayerStandard”
‘(1000. “”)
(cons1000 des)
)
)
)
)
)
)
)
)
)
lst
)
def
)
)
;;———————————————————————-;;
(defunLM:layerdirector:loadlinetype (ltp )
(eval
(list’defun ‘LM:layerdirector:loadlinetype ‘( ltp )
(list’cond
‘((tblsearch “ltype” ltp) ltp)
(list
(list’vl-some
(list’quote
(list’lambda ‘( lin )
(list’vl-catch-all-apply ”vla-load
(list’list (vla-get-linetypes (vla-get-activedocument (vlax-get-acad-object))) ‘ltp ‘lin)
)
‘(tblsearch”ltype” ltp)
)
)
(list’quote
(vl-remove-if
‘(lambda( x )
(member(strcase x t)
(if(zerop (getvar ‘measurement))
‘(“acadiso.lin””iso.lin”) ;; Known metric .lin files
‘(“acad.lin””default.lin”) ;; Known imperial .lin files
)
)
)
(apply’append
(mapcar
‘(lambda( dir ) (vl-directory-files dir “*.lin” 1))
(vl-remove”” (LM:layerdirector:str->lst (getenv “ACAD”) “;”))
)
)
)
)
)
‘ltp
)
)
)
)
(LM:layerdirector:loadlinetype ltp)
)
;;———————————————————————-;;
(defunLM:layerdirector:str->lst (str del / pos )
(if(setq pos (vl-string-search del str))
(cons(substr str 1 pos) (LM:layerdirector:str->lst (substr str (+ pos 1 (strlen del))) del))
(liststr)
)
)
;;———————————————————————-;;
((lambda( ) (vl-load-com)
(if(= ‘list (type s::startup))
(if(not (member ‘(LM:layerdirector t) s::startup))
(setqs::startup (append s::startup ‘((LM:layerdirector t))))
)
(defun-qs::startup nil (LM:layerdirector t))
)
(princ)
)
)
;;———————————————————————-;;
;; End of File ;;
;;———————————————————————-;

AutoCADBeyni İzmir AutoCAD Özel Ders

Tabaka “Layer“ Direktörü Lispi

İlişkili Yayınlar

Programın Tanımı

Çalıştırma için Talimatlar

Hakkında Sertan Türkan

Bunu da Kontrol edin

Harici Çizimin “XREF” Tabaka Renklerini Tek Bir Renge Değiştirme

Bir cevap yazın Cevabı iptal et

Tabaka “Layer“ Direktörü Lispi

İlişkili Yayınlar

AutoCAD’de Kişisel Çok Satırlı Yazı “Mtext” Sembolleri veya Metin Parçacıkları Ekleme

AutoCAD Çiziminizi Anonim Blok ile Koruma

Daha hızlı çalışmak için Özel bir AutoCAD İkincil Komutu Oluşturma

Programın Tanımı

Çalıştırma için Talimatlar

Hakkında Sertan Türkan

Bunu da Kontrol edin

Harici Çizimin “XREF” Tabaka Renklerini Tek Bir Renge Değiştirme

Bir cevap yazın Cevabı iptal et