CAD Fórum : písanie textu v presnej pozícií https://www.cadforum.cz/forum/ Tue, 14 Apr 2026 14:13:12 +0000 Thu, 30 Sep 2021 11:24:34 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=32484 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[písanie textu v presnej pozícií : Tak Johny ďakujem ti fakt veľmi...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=32484&PID=124664&title=pisanie-textu-v-presnej-pozicii#124664 Autor: cvirikovec
Předmět: 32484
Zasláno: 30.zář.2021 v 11:24

Tak Johny ďakujem ti fakt veľmi pekne :)
Funguje to super.

]]> Thu, 30 Sep 2021 11:24:34 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=32484&PID=124664&title=pisanie-textu-v-presnej-pozicii#124664 <![CDATA[písanie textu v presnej pozícií : Tak zkuste toto.Vyplníte červené....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=32484&PID=124662&title=pisanie-textu-v-presnej-pozicii#124662 Autor: johny
Předmět: 32484
Zasláno: 30.zář.2021 v 10:51

Tak zkuste toto.
Vyplníte červené. Seznam staničení, jméno bloku, o/upravíte seznam atributů


(vl-load-com)

(defun c:StationMark ( / *error* atr atd sts blk pt pr an)
  
  (defun *error* (errmsg)
    (if (not (wcmatch errmsg "Function cancelled,quit / exit abort,console break,end"))
      (princ (strcat "\nError: " errmsg)))
    (if atr (setvar 'attreq atr))
    (if atd (setvar 'attdia atd))
    (princ))
  
  
  (setq sts '(                        ;; add list of stations, one station per line
      200.1
      300
      400
      )
blk "StationMark"   ;; change block name if needed
)
  
  (setq atr (getvar 'attreq)) (setvar 'attreq 1)
  (setq atd (getvar 'attdia)) (setvar 'attdia 0)
  
  (if (and (setq pl (car (entsel "\nSelect alignment pline: ")))
   (or (tblsearch "block" blk)
       (prompt "Error: Block unavailable.")))
    (foreach st sts
      (if (and (setq pt (vlax-curve-getPointatDist pl st))
       (setq pr (vlax-curve-getParamAtDist pl st))
       (setq an (vlax-curve-getFirstDeriv  pl pr))
       )
(command "_.-insert" blk "_s" 1 "_r" (angtos (angle '(0 0 0) an) (getvar 'aunits) 8) "_non" pt
 
(strcat (rtos st 2 2) " m")  ;; list of atts or use "some text" or add ";" if no-att block
 
))))
  (*error* "end")
  )


Upravil johny - 30.zář.2021 v 12:32]]> Thu, 30 Sep 2021 10:51:32 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=32484&PID=124662&title=pisanie-textu-v-presnej-pozicii#124662 <![CDATA[písanie textu v presnej pozícií : No ten TraceCurve práve nevie...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=32484&PID=124661&title=pisanie-textu-v-presnej-pozicii#124661 Autor: cvirikovec
Předmět: 32484
Zasláno: 30.zář.2021 v 09:43

No ten TraceCurve práve nevie robiť naraz ale vždy musím napísať jednu hodnotu

]]> Thu, 30 Sep 2021 09:43:44 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=32484&PID=124661&title=pisanie-textu-v-presnej-pozicii#124661 <![CDATA[písanie textu v presnej pozícií : Buď pomocí lineárních referenčních...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=32484&PID=124660&title=pisanie-textu-v-presnej-pozicii#124660 Autor: Vladimír Michl
Předmět: 32484
Zasláno: 29.zář.2021 v 13:03

Buď pomocí lineárních referenčních systémů v AutoCADu Map 3D či Civil 3D nebo pomocí naší freeware utility TraceCurve - viz:

]]> Wed, 29 Sep 2021 13:03:09 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=32484&PID=124660&title=pisanie-textu-v-presnej-pozicii#124660 <![CDATA[písanie textu v presnej pozícií : Ahojte.Potreboval by som aby mi...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=32484&PID=124658&title=pisanie-textu-v-presnej-pozicii#124658 Autor: cvirikovec
Předmět: 32484
Zasláno: 29.zář.2021 v 11:38

Ahojte.
Potreboval by som aby mi presne na čiare v určitom staničení urobilo bod s textom.
Teda, mám čiaru čo ja viem 100m, mám zoznam staničení že v 2,054 v 3,055 v 4,555 je objekt. 
A ja chcem aby mi nejako hromadne podľa tých staničení na čiare urobilo bod s textom objekt.
(niečo podobné ako ASCPoint len nie podľa súradníc ale podľa čiary)

Je niečo takéto?
ďakujem 
Embarrassed

]]> Wed, 29 Sep 2021 11:38:32 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=32484&PID=124658&title=pisanie-textu-v-presnej-pozicii#124658