CAD Fórum : Vytvoření složitější polyline https://www.cadforum.cz/forum/ Thu, 04 Jun 2026 19:56:13 +0000 Fri, 12 Jan 2018 13:08:19 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=25507 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Vytvoření složitější polyline : Mockrát Vám všem děkuji, jsem...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110088&title=vytvoreni-slozitejsi-polyline#110088 Autor: Fuskic
Předmět: 25507
Zasláno: 12.led.2018 v 13:08

Mockrát Vám všem děkuji, jsem z toho nadšený a ušetří to mnoho času. 
Díky pánové! 
]]> Fri, 12 Jan 2018 13:08:19 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110088&title=vytvoreni-slozitejsi-polyline#110088 <![CDATA[Vytvoření složitější polyline : Vladimír Michl napsal(a):Hezké,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110056&title=vytvoreni-slozitejsi-polyline#110056 Autor: johny
Předmět: 25507
Zasláno: 10.led.2018 v 11:59

Původně odeslal(a) Vladimír Michl Vladimír Michl napsal(a):

Hezké, pro CZ verzi jen "Dashed" -> "Čárkovaná".
Plus bude potřeba doplnit ty bloky na začátku a na konci....

Díky -- nemyslel jsem že to úplně stojí za to --  ale vypadá to pěkně když člověk nakreslí tu polyline v libovolném tvaru a ono se to vzápětí celé prokreslí.

Bloky musí být buď ve výkrese nebo uložené ve vyhledávacích cestách.


(vl-load-com)

(defun c:SložitějšíKřivka ( / pnt enl ent ss i)

  (if (setq pnt (getpoint "\nPrvní bod nebo <vyber>: "))
    (progn
      (setq enl (entlast))
      (command-s "_.PLINE" "_none" pnt)
      (if (not (equal enl (setq enl (entlast))))
(setq ss (ssadd enl))))
    (progn
      (princ "\nVyber křivky, ")
      (setq ss (ssget "_:L" '((0 . "LWPOLYLINE"))))))

  (if ss
    (repeat (setq i (sslength ss))
      (setq ent (ssname ss (setq i (1- i))))
             
      (vla-offset (vlax-ename->vla-object ent) 0.25)
      (command "_.CHPROP" "_Last" "" "_Color" 30 ""
               "_.PEDIT"  "_Last" "_Width" 0.25 "")

      (vla-offset (vlax-ename->vla-object ent) -0.25)
      (command "_.CHPROP" "_Last" "" "_Color" 30 ""
               "_.PEDIT"  "_Last" "_Width" 0.25 "")

      (command "_.CHPROP" ent "" "_Color" 41 ""
               "_.PEDIT"  ent "_Width" 0.25 "")

      (command "_.COPY" ent "" "_Displacement" "_none" '(0 0 0)
               "_.CHPROP" "_Last" "" "_Color" 1 ""
               "_.CHPROP" "_Last" "" "_LType" "Dashed" ""
               "_.PEDIT"  "_Last" "_Width" 0.08 "")
      
      (command "._INSERT" "ArrowBlock"
               "_Scale" 1
               "_Rotate" "_none" (trans (vlax-curve-getFirstDeriv ent (vlax-curve-getParamAtPoint ent (vlax-curve-getStartPoint ent))) 0 1) "_none" (trans '(0 0 0) 0 1) 
               "_none" (trans (vlax-curve-getStartPoint ent) 0 1))

      (command "._INSERT" "ArrowBlock"
               "_Scale" 1
               "_Rotate" "_none" (trans '(0 0 0) 0 1) "_none" (trans (vlax-curve-getFirstDeriv ent (vlax-curve-getParamAtPoint ent (vlax-curve-getEndPoint ent))) 0 1)
               "_none" (trans (vlax-curve-getEndPoint ent) 0 1))))
  (princ)
)
]]> Wed, 10 Jan 2018 11:59:32 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110056&title=vytvoreni-slozitejsi-polyline#110056 <![CDATA[Vytvoření složitější polyline : Tak nakonec to přeci jen stálo...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110055&title=vytvoreni-slozitejsi-polyline#110055 Autor: Vladimír Michl
Předmět: 25507
Zasláno: 10.led.2018 v 11:05

Tak nakonec to přeci jen stálo za zobecnění. Freeware utilita "toMulti" (ke stažení viz Download) převede vybrané křivky na multi-čáry (s případnými koncovými bloky) dle předefinované sady definic v tabulce v textovém souboru toMulti.tab (kdekoliv v cestě). Viz ukázkové definice v .tab souboru.
http://www.cadforum.cz/cadforum/prevod-krivky-na-multi-caru-podle-definicni-tabulky-tip11750
 


Upravil Vladimír Michl - 10.led.2018 v 13:25]]> Wed, 10 Jan 2018 11:05:55 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110055&title=vytvoreni-slozitejsi-polyline#110055 <![CDATA[Vytvoření složitější polyline : Hezké, pro CZ verzi jen &#034;Dashed&#034;...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110052&title=vytvoreni-slozitejsi-polyline#110052 Autor: Vladimír Michl
Předmět: 25507
Zasláno: 09.led.2018 v 22:24

Hezké, pro CZ verzi jen "Dashed" -> "Čárkovaná".

Plus bude potřeba doplnit ty bloky na začátku a na konci. Buď jako blok nebo "namalovat". Tedy např.

(command "_INSERT" "StartBlock" (vlax-curve-getPointAtParam (vlax-ename->vla-object ent) 0) "" "" "")

]]> Tue, 09 Jan 2018 22:24:21 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110052&title=vytvoreni-slozitejsi-polyline#110052 <![CDATA[Vytvoření složitější polyline : Návod jak napsat utilitku nebo...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110051&title=vytvoreni-slozitejsi-polyline#110051 Autor: johny
Předmět: 25507
Zasláno: 09.led.2018 v 21:36

Návod jak napsat utilitku nebo jak hledat? Ukazuje se že není snadné něco kloudného dohledat. Napsat to není opravdu moc složité, ale chce to trochu mít základy.

Přemýšlel jsem, že bych napsal něco univerzálnějšího, ale pak jsem dal přednost to napsat jak nejjednodušeji to jde, aby jste si to mohl snadno upravit k obrazu svému. V utilitě jsou použity autocadovské příkazy, takže si to můžete v příkazovém řádku odkoukat. Jediné co je, že mám ENG autocad a neznám přesně české překlady, ale vy pokud budete něco upravovat, tak to můžete klidně přepsat na příkazy české.

Např "_.COPY" -> "KOPIE", (česky bez podtržítka a tečky)

(vl-load-com)

(defun c:SložitějšíKřivka ( / pnt enl ent ss i)

  (if (setq pnt (getpoint "\nPrvní bod nebo <vyber>: "))
    (progn
      (setq enl (entlast))
      (command-s "_.PLINE" "_none" pnt)
      (if (not (equal enl (setq enl (entlast))))
(setq ss (ssadd enl))))
    (progn
      (princ "\nVyber křivky, ")
      (setq ss (ssget "_:L" '((0 . "LWPOLYLINE"))))))

  (if ss
    (repeat (setq i (sslength ss))
      (setq ent (ssname ss (setq i (1- i))))
             
      (vla-offset (vlax-ename->vla-object ent) 0.25)
      (command "_.CHPROP" "_Last" "" "_Color" 30 ""
               "_.PEDIT"  "_Last" "_Width" 0.25 "")

      (vla-offset (vlax-ename->vla-object ent) -0.25)
      (command "_.CHPROP" "_Last" "" "_Color" 30 ""
               "_.PEDIT"  "_Last" "_Width" 0.25 "")

      (command "_.CHPROP" ent "" "_Color" 41 ""
               "_.PEDIT"  ent "_Width" 0.25 "")

      (command "_.COPY" ent "" "_Displacement" "_none" '(0 0 0)
               "_.CHPROP" "_Last" "" "_Color" 1 ""
               "_.CHPROP" "_Last" "" "_LType" "Dashed" ""
               "_.PEDIT"  "_Last" "_Width" 0.08 "")))
  (princ)
)

Utilita je LISPem, ten kód vezměte, uložte jako *.lsp někde do SupportPath, ujistěte se že ji máte i mezi SecurityPath, pak to načtěte příkazem _APPLOAD a uložte do Kufříku v dialogu appload.
]]> Tue, 09 Jan 2018 21:36:29 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110051&title=vytvoreni-slozitejsi-polyline#110051 <![CDATA[Vytvoření složitější polyline : Vzhledem k tomu, že to je dost...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110050&title=vytvoreni-slozitejsi-polyline#110050 Autor: Vladimír Michl
Předmět: 25507
Zasláno: 09.led.2018 v 18:26

Vzhledem k tomu, že to je dost specifický požadavek a případný nástroj asi nepůjde úplně zobecnit a byl by jen pro vás - je asi jen možnost poptat vývoj takové utility. Johny nebo někdo u nás by si s tím určitě poradili :-)]]> Tue, 09 Jan 2018 18:26:00 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110050&title=vytvoreni-slozitejsi-polyline#110050 <![CDATA[Vytvoření složitější polyline : fůha, tak to je pro mě španělská...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110049&title=vytvoreni-slozitejsi-polyline#110049 Autor: Fuskic
Předmět: 25507
Zasláno: 09.led.2018 v 17:54

fůha, tak to je pro mě španělská vesnice se přiznám. Nemáte někde někdo náhodou nějaký návod jak se z tohodle vymotat? ]]> Tue, 09 Jan 2018 17:54:10 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110049&title=vytvoreni-slozitejsi-polyline#110049 <![CDATA[Vytvoření složitější polyline : No asi by šlo docela snadno napsat...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110047&title=vytvoreni-slozitejsi-polyline#110047 Autor: johny
Předmět: 25507
Zasláno: 09.led.2018 v 16:28

No asi by šlo docela snadno napsat utilitku (nebo i najít), která by aplikovala specifickou sestavu na již nakreslenou polyline (jakože násobný offset + změna vlastností). Samozřejmě by to bylo jen statické, čili kdyby se změnila ta původní polyline, tak by se ostatní nezměnily...]]> Tue, 09 Jan 2018 16:28:41 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110047&title=vytvoreni-slozitejsi-polyline#110047 <![CDATA[Vytvoření složitější polyline : Tloušťka jde většinou nahradit...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110043&title=vytvoreni-slozitejsi-polyline#110043 Autor: Vladimír Michl
Předmět: 25507
Zasláno: 09.led.2018 v 15:07

Tloušťka jde většinou nahradit výplní, popř. jde změnit globálně (jako u jiných čar).]]> Tue, 09 Jan 2018 15:07:55 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110043&title=vytvoreni-slozitejsi-polyline#110043 <![CDATA[Vytvoření složitější polyline : To není dobré, a když by se jednalo...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110042&title=vytvoreni-slozitejsi-polyline#110042 Autor: Fuskic
Předmět: 25507
Zasláno: 09.led.2018 v 14:56

To není dobré, a když by se jednalo pouze o křivku, řešení by tedy bylo před tu Multičáru? zkoušel jsem to složil, ale odrazuje mě tam věc, že nejde nastavit tloušťka jednotlivých čar.
 Nebo je řešení takové, že to musím poskládát po desetinách milimetru čáry jedné barvy a posléze na střed v řadě za sebou umístit tu čárkovanou? 

]]> Tue, 09 Jan 2018 14:56:29 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25507&PID=110042&title=vytvoreni-slozitejsi-polyline#110042