Je možné nastaviť default [VAR]HPANNOTATIVE[/VAR] =1? Alebo to musím pri každom otvorení výkresu zapínať?

nevim jestli to lze ulozit... Podobne jsem "bojoval s vychozí typem srafu - chtel jsem mit jako default nastaveno SOLID.... a nenasel jsem kde to nastavit tak, abych to mel vsude... (v options to ulozit nejde, do DWG taky ne)Tak jsem si do ACADDOC.LSP dopsal radek:(setvar "HPNAME" "SOLID") ten se spusti pri otevreni kazdeho DWG - a je to...u vas to zrejmne bude vypadat takto:(setvar "HPANNOTATIVE" 1) 

Tato proměnná není ukládána ve výkresu ani v Registry či profilu, takže je nutné ji nastavovat po otevření dokumentu. Automaticky to zařídíte např. přidáním následujícího příkazu do ACADDOC.LSP: [CODE](setvar "HPANNOTATIVE" 1)[/CODE]

Ak by som si chcel vytvoriť samostaný lsp tak stačí tam nahodiť (setvar "HPANNOTATIVE" 1) a dať aby sa načítaval pri spustení výkresu?

ano, presne tak.anebo, jaxem psal, kdyz radek date do ACADDOC.lsp (ten budenekde ve slozce support anebo si ho vytvorte a dejte nekma do cesty, kde autocad vyhledava. Kdyz pak AutoCAD narazi na tento nazev, automaticky ho spusti.

heh, to je super, skúsil som si to aj s Vaším nastavením šrafy (akurát som dal iný typ šrafy) a funguje to perfektne :DNi je tu niekde nejaké vlákno - typy na najpoužívanejšie lisp - alebo iné príkazy okrem "stvar" ktoré by som vedel použiť na uľahčenie/urýchlenie/zautomatizovanie práce?

internet je toho plny, akorat je dobre to neprehnat...a pak je tu jeste  jedno nebezpeci... je to trochu jako droga (pro nekoho :))... clovek pak zapomene, ze musi kreslit projekty a blbe se to pak klientovi vysvetluje... :)

V ACADDOC.LSP nebo v dalších automaticky načítaných souborech (viz) se kromě neukládaných proměnných (systémových i proměnných prostředí) obvykle neprovádí konkrétní funkce s DWG (ty obvykle musí být odloženy pomocí S::STARTUP - viz), ale jen definují/načítají doplňkové funkce a příkazy pro pozdější použití.

Práve som narazil na .lps na tejto stránke http://www.lee-mac.com/areastofield.html a práve pri tomto konkrétnom lsp by som sa pozastavil a opýtal, ako si nastavím aby vyobrazenie plochy bolo napr. "15,05 m2" a nie "1505231,1265" ?

to se musite podivat do okna kde se definuje Textove pole... chvili s tim laborovat a pak do lispu dopsat (upravit) kod ktery ridi sntaxi...nize zasilam obdobou vec od pana Jimmiho Bergmarka - mnou trochu upravenou (barva a velikost textu) a jednotky jsou tak, jak je chcete.........................................;;; AreaText.LSP ver 3.0;;; Command name is AT;;; Select a polyline and where to place the text;;; Sample result: 2888.89 SQ. FT.;;; As this is a FIELD it is updated based on the FIELDEVAL;;; or the settings found in the OPTIONS dialog box;;; By Jimmy Bergmark;;; Copyright (C) 2007-2010 JTB World, All Rights Reserved;;; Website: www.jtbworld.com;;; E-mail: info@jtbworld.com;;; 2007-09-05 - First release;;; 2009-08-02 - Updated to work in both modelspace and paperspace;;; 2010-10-29 - Updated to work also on 64-bit AutoCAD;;; Uses TEXTSIZE for the text height(defun Get-ObjectIDx64 (obj / util)  (setq util (vla-get-Utility (vla-get-activedocument (vlax-get-acad-object))))  (if (= (type obj) 'ENAME)(setq obj (vlax-ename->vla-object obj)))  (if (= (type obj) 'VLA-OBJECT)    (if (> (vl-string-search "x64" (getvar "platform")) 0)      (vlax-invoke-method util "GetObjectIdString" obj :vlax-False)      (rtos (vla-get-objectid obj) 2 0)    )  ))(defun c:ART (/ entObject entObjectID InsertionPoint MYCECOLOR ad)    (vl-load-com)  (setq entObject (vlax-ename->vla-object(car (entsel)))        entObjectID (Get-ObjectIDx64 entObject)        InsertionPoint (vlax-3D-Point (getpoint "Select point: "))        ad (vla-get-ActiveDocument (vlax-get-acad-object))  )  ; (setvar "TEXTSTYLE" "Arial")    (setq MYCECOLOR (getvar "cecolor") MYTEXTSIZE (getvar "textsize") MYCELWEIGHT (getvar "celweight")  )  (setvar "cecolor" "1")  (setvar "TEXTSIZE" 200)  (setvar "celweight" 30)  (vla-addMText (if (= 1 (vla-get-activespace ad))    (vla-get-modelspace ad)    (if (= (vla-get-mspace ad) :vlax-true)      (vla-get-modelspace ad)      (vla-get-paperspace ad)    )  )    InsertionPoint 0.0 (strcat  "%<\\AcObjProp Object(%<\\_ObjId "  entObjectID  ">%).Area \\f \"%lu6%qf1%ps[, m2]%ct8[1e-006]\">%"  ))  (setvar "cecolor" MYCECOLOR)  (setvar "textsize" MYTEXTSIZE)  (setvar "celweight" MYCELWEIGHT))(princ);;; **************************************************************;;; **************************************************************;;; **************************************************************

Podobnou (ale obecnější) funkci má starší freeware aplikace fArea - viz Download a viz:http://www.cadforum.cz/cadforum/qaID.asp?tip=4882http://www.cadforum.cz/cadforum/dynamicke-zobrazeni-libovolne-vlastnosti-objektu-jako-pole-tip9481

Jj, ta je taky paradni! A diky za pripomenuti.. trsku jsem na ni zapomnel a zrovna se mi bude hodit :).ja na to sel jinak... kdyz potrebuju aby mi to psalo jinou vlastnost tak si pridam cast kodu (i s novym, konkretnim spoustecim prikazem... Napr, kdyz za ono moje dopisu...(defun c:LGT (/ entObject entObjectID InsertionPoint MYCECOLOR ad)  (vl-load-com)  (setq entObject (vlax-ename->vla-object(car (entsel)))        entObjectID (Get-ObjectIDx64 entObject)        InsertionPoint (vlax-3D-Point (getpoint "Select point: "))        ad (vla-get-ActiveDocument (vlax-get-acad-object))  )   (setq MYCECOLOR (getvar "cecolor") MYTEXTSIZE (getvar "textsize") MYCELWEIGHT (getvar "celweight")  )  (setvar "cecolor" "5")  (setvar "TEXTSIZE" 200)  (setvar "celweight" 30)  (vla-addMText (if (= 1 (vla-get-activespace ad))    (vla-get-modelspace ad)    (if (= (vla-get-mspace ad) :vlax-true)      (vla-get-modelspace ad)      (vla-get-paperspace ad)    )  )  InsertionPoint 0.0 (strcat  "%<\\AcObjProp Object(%<\\_ObjId "  entObjectID  ">%).Length \\f \"%lu6%ps[, m]%ct8[0.001]\">%"  ))  (setvar "cecolor" MYCECOLOR)  (setvar "textsize" MYTEXTSIZE)  (setvar "celweight" MYCELWEIGHT))(princ);;; **************************************************************;;; **************************************************************;;; **************************************************************... tak mam prikaz (LGT) na výkaz delky... atd atd... cokoliv potrebuju,si takto muzu dodelatJe to trosku "prasacky" z programatorskeho hlediska :) ... ale mne to bohate staci...A na zacatku lispu jeste mam pripominacek - seznam... a pamatuji si jenom ten jeden prikaz (RHFT - RH-FieldText)...(defun C:RHFT ()  (textscr)  (princ "\n\n\n\n ******************************************************** --------------   R H  F I E L D T E X T   -------------- ******************************************************** Příkazy pro praci s autom. Text Field ********************************************************    ART = ARea Textfield    LGT = LenGht TextField    BNT = BlockName TextField    ...     ...     ...     ...  ******************************************************** \n")  (princ)  )

fuu, tak to je riadne textu. Moc s programovaním skúsenosti nemám, ale všetko sa dá predsa naučiť, ale dnes už je toho na mňa moc :D Asi to už nechám, tak a najbližšie sa do toho zažerem :DĎakujem všetkým za cenné rady, skúsenosti, postrehy ..A samozrejme príjemný víkend prajem ;)

Ale jen se nelekejt... :) Osobne to delam ze "opisuju", kdyz to autor dovoli, a pak mozna neco vlozim, co mi muze zprijemnit zivot... Zdaleka to ale neni moje prace...Konkretni odpoved, pro Vasi prvotni otazku ale hledejte v radku">%).Area \\f \"%lu6%qf1%ps[, m2]%ct8[1e-006]\">%".. kde konec zobrazuje onu sintaxi - po ktere jste se puvodne ptal... LeeMac to bude mit urcite podobne a myslim ze i na jeho strankach najdete navod, jak se toto dela...Zkuste v jeho kodu najit neco podobneho tomuto, nejk "rozumne" prepsat a uvidite...Taky hezky vikend :)JASponza