CAD Fórum : HPANNOTAIVE=1 auto https://www.cadforum.cz/forum/ Fri, 05 Jun 2026 12:16:26 +0000 Fri, 20 Jul 2018 17:02:11 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=26421 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[HPANNOTAIVE=1 auto : Ale jen se nelekejt... :) Osobne...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112148&title=hpannotaive1-auto#112148 Autor: splonk
Předmět: 26421
Zasláno: 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


]]> Fri, 20 Jul 2018 17:02:11 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112148&title=hpannotaive1-auto#112148 <![CDATA[HPANNOTAIVE=1 auto : fuu, tak to je riadne textu. Moc...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112147&title=hpannotaive1-auto#112147 Autor: mikeborecek
Předmět: 26421
Zasláno: 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 ;)
]]> Fri, 20 Jul 2018 16:55:27 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112147&title=hpannotaive1-auto#112147 <![CDATA[HPANNOTAIVE=1 auto : Jj, ta je taky paradni! A diky...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112146&title=hpannotaive1-auto#112146 Autor: splonk
Předmět: 26421
Zasláno: 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)
  )

]]> Fri, 20 Jul 2018 16:48:38 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112146&title=hpannotaive1-auto#112146 <![CDATA[HPANNOTAIVE=1 auto : Podobnou (ale obecnější) funkci...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112145&title=hpannotaive1-auto#112145 Autor: Vladimír Michl
Předmět: 26421
Zasláno: 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/dynamicke-zobrazeni-libovolne-vlastnosti-objektu-jako-pole-tip9481]]> Fri, 20 Jul 2018 16:35:12 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112145&title=hpannotaive1-auto#112145 <![CDATA[HPANNOTAIVE=1 auto : to se musite podivat do okna kde...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112142&title=hpannotaive1-auto#112142 Autor: splonk
Předmět: 26421
Zasláno: 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
;;; 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)
;;; **************************************************************
;;; **************************************************************
;;; **************************************************************
]]> Fri, 20 Jul 2018 16:21:27 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112142&title=hpannotaive1-auto#112142 <![CDATA[HPANNOTAIVE=1 auto : Práve som narazil na .lps na tejto...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112141&title=hpannotaive1-auto#112141 Autor: mikeborecek
Předmět: 26421
Zasláno: 20.čvc.2018 v 16:09

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" ?]]> Fri, 20 Jul 2018 16:09:00 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112141&title=hpannotaive1-auto#112141 <![CDATA[HPANNOTAIVE=1 auto : V ACADDOC.LSP nebo v dalších...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112133&title=hpannotaive1-auto#112133 Autor: Vladimír Michl
Předmět: 26421
Zasláno: 20.čvc.2018 v 12:33

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í.]]> Fri, 20 Jul 2018 12:33:34 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112133&title=hpannotaive1-auto#112133 <![CDATA[HPANNOTAIVE=1 auto : internet je toho plny, akorat...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112129&title=hpannotaive1-auto#112129 Autor: splonk
Předmět: 26421
Zasláno: 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... :)
]]> Thu, 19 Jul 2018 16:29:12 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112129&title=hpannotaive1-auto#112129 <![CDATA[HPANNOTAIVE=1 auto : heh, to je super, skúsil som si...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112127&title=hpannotaive1-auto#112127 Autor: mikeborecek
Předmět: 26421
Zasláno: 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?

]]> Thu, 19 Jul 2018 16:17:16 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112127&title=hpannotaive1-auto#112127 <![CDATA[HPANNOTAIVE=1 auto : ano, presne tak.anebo, jaxem psal,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112126&title=hpannotaive1-auto#112126 Autor: splonk
Předmět: 26421
Zasláno: 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.
]]> Thu, 19 Jul 2018 16:06:54 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26421&PID=112126&title=hpannotaive1-auto#112126