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   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenoPosun entity o přesnou hodnotu

 Odpovědět Odpovědět archiv
Autor
Radim Cech Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 01.říj.2004
Lokalita: ČR (MS)
Používám:
Autodesk Civil 2020
Stav: Offline
Bodů: 848
Přímý odkaz na tuto zprávu Téma: Posun entity o přesnou hodnotu
    Zasláno: 30.čer.2008 v 09:07
Dobrý den, obracím se na znalé LISPu s prosbou o drobnou pomoc. Při popisování příčných řezů jsou dvě výškové kóty nad sebou a překrývají se, musím vždy jednu posunout o 0.15 jednotek vlevo nebo vpravo podle polohy u obrubníku. Asi lze vytvořit nalou aplikaci, která by v sobě měla pevně danou vzálenost 0.15, zeptala se jen na entitu a ukázáním směru od vybrané entity by se provedlo posunutí.
Je mi někdo ochoten něco takového vyrobit?
Předem děkuji za pomoc.
R.C.

OSTRAVA
Zpět nahoru
chlebovsky Zobrazit panel
Zasloužilý člen
Zasloužilý člen
Avatar

Přihlášen: 18.čer.2007
Lokalita: ČR (JM)
Používám:
Autocad R9 - 2022
Stav: Offline
Bodů: 112
Přímý odkaz na tuto zprávu Zasláno: 30.čer.2008 v 13:20
(defun c:pos-p ( / os en)
;;; nejprve nactu osmode
(setq os (getvar "osmode"))
(setvar "osmode" 0)
 
;;; provedu výběr entit
(setq en (ssget ()))
 
;;; posunu doprava
(command "_move" en "" (list 0.0 0.0 0.0)(list 0.15 0.0 0.0))
 
;;; nastavím zpátky osmode
(setvar "osmode" os)
)
 
(defun c:pos-l ( / os en)
;;; nejprve nactu osmode
(setq os (getvar "osmode"))
(setvar "osmode" 0)
 
;;; provedu výběr entit
(setq en (ssget ()))
 
;;; posunu doprava
(command "_move" en "" (list 0.0 0.0 0.0)(list -0.15 0.0 0.0))
 
;;; nastavím zpátky osmode
(setvar "osmode" os)
)
 
spouští se to pos-l nebo pos-p
Ing. Martin Chlebovský

www.kde-je-auto.cz

GPS monitoring provozu vozidel a osob.

WebDeveloper.

Programátor aplikací pro Autocad a MS Office.

Tvorba WWW aplikací.

Modelování domů a staveb.&l
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 4122:Přesné posunutí stěny v Revitu.
Tip 876:Přesný posun kurzoru klávesami.
Tip 13689:Jaká je přesnost Revitu?
Tip 4871:Přesné odsazení při vykreslení na jakýkoliv plotr.
Tip 1000:Proč se mi nezobrazují entity při tažení myší v příkazu kopíruj nebo přesuň nebo při uzlové editaci?
Tip 14081:Jak v Maxu posunout objekt o přesnou vzdálenost?


 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,609 sekund.