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.
Diskuzní fórum, poradna
?CAD diskuze, rady, výměna zkušeností

Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
|
Odpovědět ![]() |
archiv |
Autor | |
Radim Cech ![]() TOP uživatel ![]() Přihlášen: 01.říj.2004 Lokalita: ČR (MS) Používám: Autodesk Civil 2020 Stav: Offline Bodů: 848 |
![]() 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 |
|
![]() |
|
chlebovsky ![]() Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
Zasloužilý člen ![]() ![]() Přihlášen: 18.čer.2007 Lokalita: ČR (JM) Používám: Autocad R9 - 2022 Stav: Offline Bodů: 112 |
![]() |
(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 |
|
![]() |
Pro technickou podporu CAD
kontaktujte Helpdesk
Odpovědět ![]() |
|
Přejít na fórum | Oprávnění fóra ![]() Nemůžete vytvářet nová témata v tomto fóru Nemůžete odpovídat na témata v tomto fóru Nemůžete vymazávat vaše příspěvky v tomto fóru Nemůžete upravovat vaše příspěvky v tomto fóru Nemůžete vytvářet ankety v tomto fóru Nemůžete hlasovat v anketách v tomto fóru |
Stránka byla vygenerována za 0,609 sekund.