Poněvadž texty se nachází ve stejné hladině do které jsou vloženy bloky s atributy, tato možnost v tomto případě není vhodná. Však právě proto cílím k tomu, aby ve výběru byly akceptovány jen a pouze atributy bloku(ů).

Opět navazuji na staré téma... Chtěl jsem použít ten lispík Kackac na natočení atributů bloku s volbou úhlu natočení (tedy nikoli do nula st.), protože by se mi teď hodil na hromadný "vlevo vbok". Ale - lisp provede natočení všech atributů veškerých (?) bloků + všech samostatních textů (?) na jiný úhel, než zadám. Např. zadám-li požadovaný úhel 90, natočí se mi na 116.62 st.

To Ferdinand:
z 9. října: zkoušela jsem v rychlosti mrknout na to vámi nabízené řešení "ve dvou krocích", přepsala jsem to do lispu, protože tlačítka nepoužívám, ale nedařilo se mi do toho zakomponovat právě to co je červeně. Teda vlastně mi tam nechodilo ještě něco, ale to si teď nevzpomenu co.

15.listopadu 1.: co se týče těch atributů invisible, jejich výběr mi cad2007 nabídl (myslím, že při globální editaci), 2004 nemám u ruky, takže nevím, jak to je tam. Ale určitě by to šlo řešit lispem, něco na způsob jako jsem vypotila na to otáčení, tam by byl bez problémů i ten cyklus.

15.listopadu 2.: děkuji, zatím jsem to sice nezkoušela, ale až se k lispu zase dostanu, zkusím si s tím pohrát.

Problém je v tom, že při hrabání se v lispu mám neúměrnou spotřebu času, a toho teď jaxi nemám nazbyt, takže se omlouvám, že jsem nereagovala na vaše příspěvky, důvodem bylo to, že jsem se nedostala k tomu, abych to vyzkoušela. Snad na jaře 

Upravil Kackac - 25.lis.2007 v 02:21

Chtěl bych navázat na mou předchozí odpověď. Jak provést, aby se automaticky vybraly všechny atributy různých vložených bloků ve výkresu (tj. aby při výzvě "Select Attributes:" mi to provedlo hromadný výběr - přičemž některé atributy mají třeba i vlastnost Unvisible, Constant,...) ? Potřeboval bych všem atributům jedním příkazem přiřadit stejnou barvu resp. hladinu. V případě příkazu attedit ovšem by to chtělo pro každý zvlášť po mne potvrzení/volby... Pak by to chtělo nějak (?) zakomponovat do cyklu. Anebo na to jít podobně, jako je popsáno výše?

Dobrá, budu vám tedy věřit i bez příkladu :)
Děkuju moc za ochotu a trpělivost
Katka

Nezapomněl jste na nic, naprosto vyčerpávající odpověď, moc děkuju.
Pochopila jsem i význam té samostatně stojící proměnné, ale nepochopila jsem, proč to tedy funguje i bez ní... funce mi vrací stejný výsledek se zakomentovanou i nezakomentovanou proměnnou vysledek a ctx, asi mi přecejen něco uniklo:)

(defun soucett (cis1 cis2 / vysledek)
  (setq vysledek (+ cis1 cis2))
  ;vysledek
)
(defun prnatx (csl / ctx)
  (setq ctx (rtos csl 2 2))
  ;ctx
)
(defun c:souct ()
  (setq c1 (getreal "zadej prvni cislo: ")
          c2 (getreal "zadej druhe cislo: ")
  )
  (setq souc (soucett c1 c2))
  (prompt (strcat "vysledek " (prnatx c1) " + " (prnatx c2) " = " (prnatx souc)" "))
)

Dyť já sem přece tele! Zapomněla jsem tam dát cyklus a proto jel (entsel) donekonečna, otázku 2 mám tedy z krku a F3 vypadá teď takhle...
jen by mě zajímalo,  jestli (/= blka "SEQEND"...) je to samé jako (= "ATTRIB"...) a jestli ano, platí to pouze pro tento případ nebo je SEQEND univerzální a platí i pro jiné entity než atributy?

;____FUNKCE-3____natoci vsechny atributy vybraneho bloku (jiz drive vlozeneho s blbe natocenymi atributy nebo po battman) na 0°
(defun c:el_rozv_natoc ()
  (setq blok (car (entsel "Vyber blok: "))) ;vyber bloku a ulozeni jeho jm.entity do prom. "blok"
  (setq att (vrat_atributy blok)) ;vytvori seznam atributu vybraneho bloku podle predchozi fce "vrat_atributy" a ulozi ho do seznamu "att"
  (setq blk blok) ;ulozeni jmena vybraneho bloku do prom blk
  (while (/= blka "SEQEND" (cdr (assoc 0 (setq blka (entget (entnext blk))))))    ;cyklus while probiha dokud mu nedojdou atributy vybraneho bloku
    (setq atr (entnext blk)) ;postupne atributy vybraneho bloku
    (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...)
    (setq blk atr)
  )
)

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