CAD Fórum : šrafovanie v lisp https://www.cadforum.cz/forum/ Tue, 12 May 2026 17:23:59 +0000 Mon, 23 May 2022 13:31:23 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=33197 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[šrafovanie v lisp : Ne, výpis je pravděpodobně z jiné...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=33197&PID=126232&title=srafovanie-v-lisp#126232 Autor: Vladimír Michl
Předmět: 33197
Zasláno: 23.kvě.2022 v 13:31

Ne, výpis je pravděpodobně z jiné části vašeho kódu, ne z té výše uvedené. Když tak jej pošlete celý (např. přes náš Helpdesk) ať se podíváme, kde to může selhávat.]]> Mon, 23 May 2022 13:31:23 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=33197&PID=126232&title=srafovanie-v-lisp#126232 <![CDATA[šrafovanie v lisp : Ono to je pre ten kód, vždy keď...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=33197&PID=126225&title=srafovanie-v-lisp#126225 Autor: zaciatocnik
Předmět: 33197
Zasláno: 23.kvě.2022 v 11:11

Ono to je pre ten kód, vždy keď ho zavolám prvýkrát tak mi vypíše tento výpis a keď ho volám znova tak mi vypíše to isté až na to, že to prvé bhatch

Current hatch pattern:  ANGLE

nevypíše ANGLE ale SOLID
 a nevypíše mi ani chybu ale pracuje správne.
]]> Mon, 23 May 2022 11:11:22 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=33197&PID=126225&title=srafovanie-v-lisp#126225 <![CDATA[šrafovanie v lisp : Tenhle výpis ale není generován...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=33197&PID=126217&title=srafovanie-v-lisp#126217 Autor: Vladimír Michl
Předmět: 33197
Zasláno: 22.kvě.2022 v 21:04

Tenhle výpis ale není generován výše uvedeným kódem. Ten vyšrafuje vždy jeden objekt a pak znovu spouští BHATCH.]]> Sun, 22 May 2022 21:04:39 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=33197&PID=126217&title=srafovanie-v-lisp#126217 <![CDATA[šrafovanie v lisp : Select objects: Specify opposite...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=33197&PID=126216&title=srafovanie-v-lisp#126216 Autor: zaciatocnik
Předmět: 33197
Zasláno: 22.kvě.2022 v 20:59


Select objects: Specify opposite corner: 11 found
Select objects:
_bhatch
Current hatch pattern:  ANGLE
Specify internal point or [Properties/Select objects/draW boundary/remove Boundaries/Advanced/DRaw order/Origin/ANnotative/hatch COlor/LAyer/Transparency]: p
Enter a pattern name or [?/Solid/User defined/Gradient] <ANGLE>: solid
Current hatch pattern:  SOLID
Specify internal point or [Properties/Select objects/draW boundary/remove Boundaries/Advanced/DRaw order/Origin/ANnotative/hatch COlor/LAyer/Transparency]: s
Select objects:   1 found
Select objects:
Current hatch pattern:  SOLID
Specify internal point or [Properties/Select objects/draW boundary/remove Boundaries/Advanced/DRaw order/Origin/ANnotative/hatch COlor/LAyer/Transparency]: _color
New color [Truecolor/COlorbook/. (for use current)] <use current>: 241
New background color [Truecolor/COlorbook/. (for none)] <None>:
Current hatch pattern:  SOLID
Specify internal point or [Properties/Select objects/draW boundary/remove Boundaries/Advanced/DRaw order/Origin/ANnotative/hatch COlor/LAyer/Transparency]: _bhatch
2D point or option keyword required.
; error: Function cancelled
]]> Sun, 22 May 2022 20:59:16 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=33197&PID=126216&title=srafovanie-v-lisp#126216 <![CDATA[šrafovanie v lisp : Těch příčin může být více - když...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=33197&PID=126215&title=srafovanie-v-lisp#126215 Autor: Vladimír Michl
Předmět: 33197
Zasláno: 22.kvě.2022 v 20:54

Těch příčin může být více - když tak pošlete celou komunikaci na příkazovém řádku (copy/paste) před touto chybou. Např. to může být vliv předchozího příkazu nebo je entname prázdné.]]> Sun, 22 May 2022 20:54:15 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=33197&PID=126215&title=srafovanie-v-lisp#126215 <![CDATA[šrafovanie v lisp : Ten prvýkrát mi v príkazovom riadku...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=33197&PID=126214&title=srafovanie-v-lisp#126214 Autor: zaciatocnik
Předmět: 33197
Zasláno: 22.kvě.2022 v 20:50

Ten prvýkrát mi v príkazovom riadku za bhatch vypíše 
2D point or option keyword required
; error: Function cancelled
ale pri opakovanom kreslení už mi to nevypisuje a funguje to normálne. V autolisp sa ešte moc nevyznám a neviem prečo mi píše iba keď to použijem prvýkrát.
]]> Sun, 22 May 2022 20:50:01 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=33197&PID=126214&title=srafovanie-v-lisp#126214 <![CDATA[šrafovanie v lisp : Asi bych na to použil jednodušší...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=33197&PID=126213&title=srafovanie-v-lisp#126213 Autor: Vladimír Michl
Předmět: 33197
Zasláno: 22.kvě.2022 v 18:16

Asi bych na to použil jednodušší příkaz _HATCH, ale i takto by mělo fungovat. Podívejte se na příkazový řádek, co příkaz píše a co se mu případně nezdá na volání příkazu:

(command "_bhatch" "_pat" "solid" "_sel" entname "" "_col" farba3 "")
]]> Sun, 22 May 2022 18:16:03 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=33197&PID=126213&title=srafovanie-v-lisp#126213 <![CDATA[šrafovanie v lisp : Zdravím,mám taký problém. Potrebujem...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=33197&PID=126212&title=srafovanie-v-lisp#126212 Autor: zaciatocnik
Předmět: 33197
Zasláno: 22.kvě.2022 v 17:13

Zdravím,
mám taký problém. Potrebujem napísať program na nakreslenie obrázku a jeho následne vyfarbenie/vyšrafovanie ak si to užívateľ bude žiadať. Problém je ale v tom, že ten prvý obrázok v novom modely mi nevyšrafuje, potom keď kreslím ďalšie tak pracuje v pohode, vždy to zlyhá len v tom prvom obrázku. Ak niekto bude mať nejakú radu budem vďačná.

...      
      (if (= listok 2)
(progn (setq farba3 farba4)
(setq vybrat(ssget'((0 . "CIRCLE"))));vybere objekty na vysrafovanie
)
       )
      (if (= listok 3)
(progn (setq farba3 3)
       (setq vybrat(ssget"_X" '((0 . "ELLIPSE"))));vyberie listok na vysrafovanie
)
      )
      (if vybrat
(progn (setq objekt 0)
  (setq v (sslength vybrat));do premenej v ulozi pocet objektov ktore srafujeme
          (while (< objekt v)
    (setq entname(ssname vybrat objekt));dostane nazov postupne kazdy objekt z vyberu
            (command "_bhatch""p""solid""s" entname"" "_color" farba3"");srafuje
    (setq objekt(+ objekt 1))
      ) 
   )  
          )
      (setq farebnost(getint "\nAk chces farbit klikni 1 ak nie klikni 0"));vyber ci chce dotycny farbit
     )
]]> Sun, 22 May 2022 17:13:49 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=33197&PID=126212&title=srafovanie-v-lisp#126212