ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Již 10.000+ CAD tipů. Přes 118.500 registrovaných u nás, celkem 1.094.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor. Kompletní příkazy AutoCADu a proměnné AutoCADu 2026.
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

?
CAD diskuze, rady, výměna zkušeností

CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion, 3ds Max, Vault a s dalšími CAD/BIM/PDM aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
  FAQ FAQ  Prohledat fórum Najít  Události Události  Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřeno"generovanie nazvu premennej"
 Odpovědět Odpovědět archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
Augur Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 24.led.2005
Stav: Offline
Bodů: 103
 Přímý odkaz na tuto zprávu Téma: "generovanie nazvu premennej"
    Zasláno: 29.dub.2008 v 14:45
Pokusam sa pomocou lispu ziskat suradnice vybranych bodov a nasledne urcit bod s najväcsou x-ovou suradnicou.. narazil som vsak na problem ako "vygenerovat" nazov premennych ku ktorym by bola priradovana hodnota..

Potrebujem dostat nieco taketo: bod1, bod2, bod3, ..., bodn. prikladam aj schemu ako si to asi predstavujem. Mozno na to idem z uplne zleho konca a preto budem vdacny aj za usmernenie.

...
...
...
(setq poradie "1")
(repeat xx
...
...
ziskanie hodnoty
...
...
(setq (list "bod"poradie) hodnota)
(setq poradie (+ poradie 1)))
Designer/Projektant/Ucitel
Autocad 2007
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
 Přímý odkaz na tuto zprávu Zasláno: 29.dub.2008 v 14:54
číslovaný seznam bodů si uděláte třeba nějak takhle: (koncové body všech úseček)
 
(setq i 0)
(setq V (ssget "X"(list(cons 0 "line")))
      p (sslength V))
(while (< i p)
       (setq i (1+ i)
             p1(cdr(assoc 10(setq a(entget(ssname v (1- i))))))
             p2(cdr(assoc 11 a))
             uzly (append uzly  (list(append (list (-(* i 2)1))(list p1)) (append (list (* i 2))(list p2))))
        )
)
 
a maximální rozměry ve směru os třeba takhle:
(setq u (length uzly) i 1)
(setq u1 u)
(setq xmin (car(cadr (assoc 1 uzly)))
      ymin (cadr(cadr (assoc 1 uzly)))
      zmin (caddr(cadr (assoc 1 uzly)))
      xmax xmin
      ymax ymin
      zmax zmin
)

(While (<= i u)
(if (<(car(cadr (assoc i uzly)))xmin)(setq xmin (car(cadr (assoc i uzly)))))
(if (<(cadr(cadr (assoc i uzly)))ymin)(setq ymin (cadr(cadr (assoc i uzly)))))
(if (<(caddr(cadr (assoc i uzly)))zmin)(setq zmin (caddr(cadr (assoc i uzly)))))
(if (>(car(cadr (assoc i uzly)))xmax)(setq xmax (car(cadr (assoc i uzly)))))
(if (>(cadr(cadr (assoc i uzly)))ymax)(setq ymax (cadr(cadr (assoc i uzly)))))
(if (>(caddr(cadr (assoc i uzly)))zmax)(setq zmax (caddr(cadr (assoc i uzly)))))
(setq i (+ 1 i)))
(setq deltax (- xmax xmin)
      deltay (- ymax ymin)
      deltaz (- zmax zmin))

       (setq i (1+ i)
             p1(cdr(assoc 10(setq a(entget(ssname v (1- i))))))
             p2(cdr(assoc 11 a))
             uzly (append uzly  (list(append (list (-(* i 2)1))(list p1)) (append (list (* i 2))(list p2))))
        )
)


Upravil Seiner - 29.dub.2008 v 14:56
Vítězslav Seiner

Chrudim
Zpět nahoru
svarc.vl Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 01.říj.2004
Lokalita: ČR (ÚL)
Používám:
Autocad Mechanical 2010
Stav: Offline
Bodů: 204
 Přímý odkaz na tuto zprávu Zasláno: 29.dub.2008 v 14:59
dejte si hodnoty do seznamu
(setq seznam (cons hodnota  seznam) ; přidá hodnotu do seznamu na začátek
(setq seznam (reverse seznam)) ; obrátí mi prvky seznamu
pak si ve smyčce zjistite max hodnotu a pořadí bodu
Zpět nahoru

Sdílet na: Digg it! Del.icio.us Twitter Google záložka Linkuj Vybrali.sme

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 9555:Jak nastavit vlastní redukovaný formát popisky výšky povrchu?
Tip 5902:Zaokrouhlení výměr ploch ve výkazech místností Revitu.
Tip 4212:Automatické upozorňování na nově přidané hladiny.
Tip 5097:Přidání vlastnosti vybírané z přednastaveného seznamu.
Tip 4568:Jak v Inventoru okótovat délku oblouku?
Tip 10583:Využití globálního parametru pro úpravu výšky obkladu.


 Odpovědět Odpovědět

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,352 sekund.
CADfórum
CADfórum
Tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill a další Autodesk aplikace (support firmy ARKANCE). Viz O portálu.
Copyright © 2025 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
KONTAKT:
webmaster.cz@arkance.world | tel. +420 910 970 111
FB LN TW YT TW Blog RSS
.
TOPlist
img