Dobrý den,
mám velmi jednoduchoučký lisp na vložení bloku a jeho natočení podle ukázání. Problém je ale v tom, že ten blok obsahuje atribut a když je blok natočen vzhůru nohama, je vzhůru nohama i text. Jaký příkaz to ovládá, abych nemusela ručně u každého již vloženého bloku poklepat a volit natočení textu? Je nějaká obdoba EATREDIT pro příkazový řádek nebo to řešit úplně jinak?

Jestli tomu dobře rozumím, tak vy máte zvlášť dveře a zvlášť popis. Já bych ale chtěla zachovat to, že je to jeden blok, který obsahuje jak kresbu toho prvku tak i jeho popis.

Právě že to není dynamický blok, v práci je maximálně cad2005. Je to úplně obyčejný blok s jedním atributem. A pokud já natvrdo nepřepíšu u vloženého bloku otočení textu, tak se ten text/atribut otáčí s blokem. A to je hrozná otrava vždycky po vložení to natočení přepsat, zvlášť, když ještě musím nejdřív překliknout na druhou záložku

Asi to nebude to ideální pro vás, ale já mám pro otáčení atributů vytvořené jednoduché makro, které urychlí použití příkazu ATREDIT. Stačí kliknout na atribut a zadat úhel natočení.
^C^C-ATREDIT;;;;;\;_ang;\;

Jo přesně jak píše PepaR, pokud máte vytvořený lisp který Vám ten blok vkládá, tak není nic jednoduššího než za příkaz vložení, dát výběr poslední entity, v ní dohledat atribut, a nastavit vše dle daných hodnot, ty hodnoty však předem definovat do nějaké proměnné globální v rámci výkresu. A pak mít ještě funkci na znovuzadání těchto hodnot.

Vřelý dík, zejména p. Chlebovskému, jeho příkazy to vyřešily. Byla to sice fuška, programovat neumím, zatím mám jen pár primitivních lispů, ale s helpem a půjčenou knížečkou se to povedlo. Jen do toho neumím zapracovat ten cyklus, prosím poraďte ještě s tímto.

Připojené soubory

uploads/20070825_113914_EL_ROZV.zip

Zdrojový kód
(defun c:ER()
  (setq oldla (getvar "CLAYER"))
  (setq osold (getvar "OSMODE"))

  (command "_layer" "_t" "TZB_ZARPREDMETY" "_M" "TZB_ZARPREDMETY" "_l" "continuous" "" "")
  (command "_-osnap" "_end,_int,_mid")

  (command "_ucs" "")
;(while
  (setq rf (getpoint "\nzadej stred na stene: "))
  (command "_-osnap" "")
  (setq ang (* (/ (getangle "\nzadej směr: " rf) pi)180 ))
  (command "_-insert" "EL_ROZV" rf 1 1 ang "")
  (setq blk (entlast))            ;posledni prvek

  (setq atr (entnext blk))        ;atribut
  (setq edata (entget atr))        ;data atributu
  (setq oldrot (assoc 50 edata))    ;podseznam obsahujici klic 50 (natoceni)
  (setq newrot (cons 50 0.0))        ;zkonstruovani noveho podseznamu klice 50
  (setq edata (subst newrot oldrot edata))    ;nahrazeni stareho podseznamu novym (natoceni 0)
  (entmod edata)            ;modifikace seznamu
  (entupd blk)                ;regenerace slozene entity (bloku, krivky...)
  (command "_-osnap" "_end,_int,_mid")
;) ;konec while

  (setvar "OSMODE" osold)
  (command "_LAYER" "_M" OLDLA "")
)

chlebovsky napsal(a): kdyz je víc atributu tak (setq atr1 (entnext blk)) (setq atr2 (entnext atr1)) (setq atr3 (entnext atr2)) dobré to dát do ciklu dokud nenalezena entita SEQEND

ne ne, já jsem myslela tenhle cyklus, o kterém jste psal minule, je-li v bloku víc atributů.

Je pravda, že tady to asi nepoužiju. Ale když je čas, snažím se trochu zpříjemnit středověký způsob kreslení v práci a píšu si takovéhle drobnosti, takže se domnívám, že časem se dostanu k něčemu podobnému s jiným typem bloku, kde by se to mohlo hodit. Navíc to, že hodnota atributu není přednastavená a tudíž se ptá na potvrzení, je trochu pozůstatek z dob dřívějších a nejspíš to časem změním, takže bude po uvozovkách u příkazu insert a cyklus už by bylo možné použít pro zobecnění prográmku.
Zatím jsem se k tomu nedostala, takže ještě nevím, jestli to rozchodím, ale děkuji za pomoc Vám i ostatním.

Tak jsem si na to po dlouhé době zase sedla a nějak se mi to nedaří doladit.
Udělala jsem si 4 funkce:

F1. podle vašeho posledního příspěvku, tudíž chodí jak má:)

F4. malá modifikace té původní funkce, která vkládala blok s 1 atributem a otočila ho - teď otáčí všechny atributy bloku, ať jich má kolik chce, to kupodivu taky chodí:)

F2. pomocná funkce, která má jen přidělit všem atributům natočení 0. Tu jsem vytvářela proto, abych ji mohla použít ve funkci 3 a 4 a nemusela ji v obou funkcích psát. Jenže ji neumím zavolat aby to chodilo, to je tedy dotaz 1 - jak ji zavolat z F3 a F4?

F3. funkce, jež má všechny atributy vybraného bloku (již dříve vloženého se špatně natočenými atributy) natočit na 0°. A tady je kámen úrazu (a dotaz 2) - nemůžu přijít na chybu. Otáčí to totiž sice všechny atributy vybraného bloku, ale zároveň i všechny bloky! vložené později než vybraný blok, a to úplně všechny, nejen rozvaděče s atributy:( Určitě tam mám někde do proměnné uloženo něco co tam nemá být, ale já na to nemůžu přijít. - vyřešeno - viz můj příspěvek z 04:12
Je pravda, že už jsem se do těch všech proměnných zamotala, že nedokážu sjednotit (nebo naopak zcela oddělit?) proměnné všech 4 funkcí, což je ostuda, protože kdo jiný by se v tom měl vyznat než já, ale mám pocit, že čim dýl se v tom hrabu, tím je to horší.


dotaz 3 se týka toho osamoceného "vraci" před poslední závorkou vaší fukce vrat_atributy (tedy u mě F1)

chlebovsky napsal(a): ...........   )  vraci )

jak to, že takhle může něco stát samo o sobě, bez závorek? Co to vykonává?


Omlouvám se, že pořád otravuju s tím samým, ale nedaří se mi tím prokousat samotné, potřebuju zase nakopnout:)



Upravil Kackac - 29.zář.2007 v 04:20