Vytisknout stránku | Zavřít okno

šrafovanie v lisp

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 360, prohlížečů, DWG a DWF, Design Review, Navisworks, nadstavby, 123D, A360 a cloud Autodesk 360
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=33197
Datum vytištění: 05.kvě.2026 v 11:03


Téma: šrafovanie v lisp
Odeslal: zaciatocnik
Předmět: šrafovanie v lisp
Datum odeslání: 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
     )


Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 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 "")


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

Odeslal: zaciatocnik
Datum odeslání: 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.

Odeslal: Vladimír Michl
Datum odeslání: 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é.

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

Odeslal: zaciatocnik
Datum odeslání: 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

Odeslal: Vladimír Michl
Datum odeslání: 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.

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

Odeslal: zaciatocnik
Datum odeslání: 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.

Odeslal: Vladimír Michl
Datum odeslání: 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.

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


Vytisknout stránku | Zavřít okno