CAD Fórum : Posun entity o přesnou hodnotu https://www.cadforum.cz/forum/ Fri, 15 May 2026 19:09:29 +0000 Mon, 30 Jun 2008 13:20:12 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=6709 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Posun entity o přesnou hodnotu : (defun c:pos-p ( / os en) ;;;...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6709&PID=32622&title=posun-entity-o-presnou-hodnotu#32622 Autor: chlebovsky
Předmět: 6709
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
]]> Mon, 30 Jun 2008 13:20:12 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6709&PID=32622&title=posun-entity-o-presnou-hodnotu#32622 <![CDATA[Posun entity o přesnou hodnotu : Dobrý den, obracím se na znalé...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6709&PID=32617&title=posun-entity-o-presnou-hodnotu#32617 Autor: Radim Cech
Předmět: 6709
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.
]]> Mon, 30 Jun 2008 09:07:00 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6709&PID=32617&title=posun-entity-o-presnou-hodnotu#32617