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.

(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