AutoCAD - HPANNOTAIVE=1 auto

HPANNOTAIVE=1 auto

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: AutoCAD
Popis fóra: Otázky kolem aplikací AutoCAD a AutoCAD LT, AutoCAD web, prohlížečů, DWG a DXF, Design Review, Navisworks, nadstavby, Drive a cloud Autodesk
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=26421
Datum vytištění: 05.čer.2026 v 13:10

Téma: HPANNOTAIVE=1 auto

Odeslal: mikeborecek
Předmět: HPANNOTAIVE=1 auto
Datum odeslání: 19.čvc.2018 v 14:40

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

Odpovědi:

Odeslal: splonk
Datum odeslání: 19.čvc.2018 v 15:36

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)

-------------
JASponza

ACA (AutoCAD) 21, 24
RVT 21, 24

Win 10, 11 x64

Odeslal: Vladimír Michl
Datum odeslání: 19.čvc.2018 v 15:39

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:

(setvar "HPANNOTATIVE" 1)

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz emea.support.arkance.world)

Odeslal: mikeborecek
Datum odeslání: 19.čvc.2018 v 16:03

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?

Odeslal: splonk
Datum odeslání: 19.čvc.2018 v 16:06

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.

-------------
JASponza

ACA (AutoCAD) 21, 24
RVT 21, 24

Win 10, 11 x64

Odeslal: mikeborecek
Datum odeslání: 19.čvc.2018 v 16:17

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 :D
Ni 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?

Odeslal: splonk
Datum odeslání: 19.čvc.2018 v 16:29

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... :)

-------------
JASponza

ACA (AutoCAD) 21, 24
RVT 21, 24

Win 10, 11 x64

Odeslal: Vladimír Michl
Datum odeslání: 20.čvc.2018 v 12:33

V ACADDOC.LSP nebo v dalších automaticky načítaných souborech ( http://www.cadforum.cz/cadforum/qaID.asp?tip=6326 - 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 - http://www.cadforum.cz/cadforum/nastaveni-autocadu-s-ochranou-proti-skodlivemu-kodu-tip8771 - viz ), ale jen definují/načítají doplňkové funkce a příkazy pro pozdější použití.

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz emea.support.arkance.world)

Odeslal: mikeborecek
Datum odeslání: 20.čvc.2018 v 16:09

Práve som narazil na .lps na tejto stránke http://www.lee-mac.com/areastofield.html" rel="nofollow - 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" ?

Odeslal: splonk
Datum odeslání: 20.čvc.2018 v 16:21

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

;;; Website: http://www.jtbworld.com" rel="nofollow - 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)

;;; **************************************************************

-------------
JASponza

ACA (AutoCAD) 21, 24
RVT 21, 24

Win 10, 11 x64

Odeslal: Vladimír Michl
Datum odeslání: 20.čvc.2018 v 16:35

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

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz emea.support.arkance.world)

Odeslal: splonk
Datum odeslání: 20.čvc.2018 v 16:48

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 dodelat

Je 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)

)

-------------
JASponza

ACA (AutoCAD) 21, 24
RVT 21, 24

Win 10, 11 x64

Odeslal: mikeborecek
Datum odeslání: 20.čvc.2018 v 16:55

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 ;)

Odeslal: splonk
Datum odeslání: 20.čvc.2018 v 17:02

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

-------------
JASponza

ACA (AutoCAD) 21, 24
RVT 21, 24

Win 10, 11 x64