De Nae BITOAICA
Programul traseaza un leader special care poate sa scrie si sub linia de indicatie un text de înaltime si grosime (culoare asociata unei grosimi) diferite:
Programul verifica directia în care s-a trasat linia de indicatie a leader-ului (în total patru directii: din stânga-jos în dreapta-sus etc.). Dimensiunea textului este corelata cu scara, multiplicându-se corespunzator înaltimea literelor.
În doua vorbe programul functioneaza cam asa:
De remarcat ca, indiferent de stilul de cotare activ, liderul are aceeasi forma, programul setând automat variabilele necesare de cotare. La reluarea cotarii, aveti grija sa restaurati ca implicit stilul de cotare dorit, conform scarii la care lucrati.
Cel mai simplu (de instalat, dar nu si cel mai elegant si mai usor de folosit), programul se copiaza în directorul cu aplicatii lisp (vezi si CAD report nr.1/pag: 53), sau în directorul C:\a12\support. Pe prompterul Command: al AutoCAD-ului se da comanda:
Command: (lid "optiune")
unde optiune poate fi SUS, JOS sau EGAL
O instalare mai eleganta si mult mai functionala este urmatoarea: creati un meniu pop-up dupa exemplul de mai jos (aici POP4) în care adunati de fapt toate comenzile legate de cotare de prin tot meniul. Marele avantaj este si ca nu mai este nevoie sa desfasurati patru meniuri ca sa trasati o cota orizontala, de exemplu, ci doar unul. Cei care doresc sa aiba un meniu curat, fara repetari de comenzi, e bine sa stearga din fisierul acad.mnu liniile ce se refera la cotare din celelalte meniuri pop-up. Aveti grija sa schimbati numarul meniurilor pop-up ce urmeaza dupa POP4 - cotare, crescând numarul cu o unitate: POP5 devine POP6 etc.
***POP4
[Cotare]
[Dimension Style] $M=$(if,$(eq,$(getvar,cmdnames),DIM),_ddim,^C^C_ddim)
[—]
[Horizontal]^C^C_dim _horizontal
[Vertical]^C^C_dim _vertical
[Aligned]^C^C_dim _aligned
[Rotated]^C^C_dim _rotated
[Baseline]^C^C_dim _baseline
[Continue]^C^C_dim _continue
[—]
[Diameter]^C^C_dim _diameter
[Radius]^C^C_dim _radius
[Angular]^C^C_dim _angular
[->Leader]
[Leader normal]^C^C_dim _leader
[->Leader special]
[Mare sus]^P(lid "sus")
[Mare jos]^P(lid "jos")
[<-<-Egal / 0.35]^P(lid "egal")
[Center Mark]^C^C_dim _center
[—]
[Automatic]^C^C_dim $S=X $S=dimord _ordinate
[X-Datum]^C^C_dim $S=X $S=dimord _ordinate;\_x
[Y-Datum]^C^C_dim $S=X $S=dimord _ordinate;\_y
[—]
[Change Text]^C^C_dim $S=X $S=dimed _newtext
[Home Position]^C^C_dim $S=X $S=dimed _hometext
[Move Text]^C^C_dim $S=X $S=tedit0 _tedit
[Rotate Text]^C^C_dim $S=X $S=dimed _trotate
[Oblique Dimension]^C^C_dim $S=X $S=dimed _oblique
[Update Dimension]^C^C_dim $S=X $S=dimed _update
Aceasta sectiune de meniu o puteti copia de pe Internet din pagina de web a revistei -(http://www.agora.ro) - unde gasiti si sursele lisp, cu eventuale comentarii. Recomandarea este sa salvati o copie de siguranta a fisierului acad.mnu, în caz ca gresiti ceva sa puteti relua. În meniu, în sectiunea Leader, observati comanda clasica de trasare a leader-ului, alaturi de cea noua, cu cele trei variante.
Fisierul leader.lsp trebuie inserat în acad.mnl, perechea lui acad.mnu, care contine toate comenzile existente în meniu. Pentru aceasta utilizati un editor ASCII. Locul unde îl inserati nu are importanta, aveti doar grija sa nu fie în interiorul unei comenzi, structura fiind acea a unui fisier lisp. O posibila inserare ar fi urmatoarea, unde aveti o parte a fisierului acad.mnl:
;;;=== Menu Functions ===
(defun ai_rootmenus ()
(setq T_MENU 0)
(menucmd "S=X")
(menucmd "S=S")
(menucmd "T2=TABLET2")
(menucmd "T3=TABLET3")
(menucmd "T4=TABLET4")
(princ)
)
.
.
;continutul fisierului leader.lsp
.
.
(if (not (load "acadr12.lsp" nil))
(progn
(princ "loading error.")
(princ "\nacadr12.lsp not found. AutoLoader is not enabled. ")
(princ "Other utilities ")
)
.
.
Regulile aratate aici ramân valabile pentru orice aplicatie noua vrem sa adaugam în meniu.