CAD Fórum : Copy-Paste 0,0,0 UCS W<->P https://www.cadforum.cz/forum/ Wed, 10 Jun 2026 20:13:26 +0000 Tue, 24 Jan 2012 00:14:23 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=14348 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Copy-Paste 0,0,0 UCS W<->P : Dobry vecerTak se zda, ze...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=14348&PID=67520&title=copypaste-000-ucs-wp#67520 Autor: splonk
Předmět: 14348
Zasláno: 24.led.2012 v 00:14

Dobry vecer
Tak se zda, ze je to presne to, co jsem chtel... :-).
Dekuji mnohokrat.
PS. Doufam ze tato "drobnost" hodne lidem pomuze pri reseni "nepochopitelnych" veci ktere se obcas deji.... s tim, ze "to urcite neni jejich chyba" :-)
 
Diky a zdravim
JASponza
]]> Tue, 24 Jan 2012 00:14:23 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=14348&PID=67520&title=copypaste-000-ucs-wp#67520 <![CDATA[Copy-Paste 0,0,0 UCS W<->P : Na stránce Download je ke...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=14348&PID=67514&title=copypaste-000-ucs-wp#67514 Autor: Vladimír Michl
Předmět: 14348
Zasláno: 23.led.2012 v 18:30

Na stránce Download je ke stažení nová verze CopyBase respektující uzlový předvýběr.]]> Mon, 23 Jan 2012 18:30:40 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=14348&PID=67514&title=copypaste-000-ucs-wp#67514 <![CDATA[Copy-Paste 0,0,0 UCS W<->P : Tak mi to nedalo... :-). Je to...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=14348&PID=67494&title=copypaste-000-ucs-wp#67494 Autor: splonk
Předmět: 14348
Zasláno: 23.led.2012 v 11:28

Tak mi to nedalo... :-).
Je to super - uz mi to, pri preruseni prikazu, vraci puvodni "nastaveni"  - to mi prijde jako 80% "problemu ze je vyreseno.
S tim "undefine", nevim, nevim. Asi bych preferoval aby se toto chovalo jako uplne "separe" funkce (Jinak si pak nekdo na to zvikne (napr. na prepsae Ctrl+Shift+C), prejde na jiny PC a ani ho nenapadne, ze ta zkratka tam muze delat neco jineho :-))
Jeste by bylo fajn, kdyby prikaz (CCC) slo zadat pred vyberem objektu i po vyberu objektu pro kopirovani (podobne jako funguje _copybase v "nativni" podobe). Myslite ze by to byl velky problem???
Predem dekuji a zdravim
JASponza
]]> Mon, 23 Jan 2012 11:28:14 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=14348&PID=67494&title=copypaste-000-ucs-wp#67494 <![CDATA[Copy-Paste 0,0,0 UCS W<->P : DD Dekuji pane Michl, jakmile...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=14348&PID=67492&title=copypaste-000-ucs-wp#67492 Autor: splonk
Předmět: 14348
Zasláno: 23.led.2012 v 10:25

DD
Dekuji pane Michl, jakmile budu mit cas, tak to vyzkousim... ted to nejak nejde :-). Popripade napisu doplnujici informace ...
Diky i za typ s "*". O tom jsem nevedel :-). Tady asi ne. ale nekde se mi urcite bude hodit!
Dik
JASponza
]]> Mon, 23 Jan 2012 10:25:17 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=14348&PID=67492&title=copypaste-000-ucs-wp#67492 <![CDATA[Copy-Paste 0,0,0 UCS W<->P : Ještě pro doplnění: pokud...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=14348&PID=67455&title=copypaste-000-ucs-wp#67455 Autor: Vladimír Michl
Předmět: 14348
Zasláno: 20.led.2012 v 18:40

Ještě pro doplnění: pokud USS není otočený, ale jen posunutý, stačí ve standardních příkazech pro copy/paste zadávat souřadnici referenčního bodu (0,0) jako globální, nezávislou na USS - tedy jako *0,0,0. Viz tip:
http://www.cadforum.cz/cadforum/qaID.asp?tip=1613
]]> Fri, 20 Jan 2012 18:40:41 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=14348&PID=67455&title=copypaste-000-ucs-wp#67455 <![CDATA[Copy-Paste 0,0,0 UCS W<->P : Zkuste jestli pomůže toto...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=14348&PID=67453&title=copypaste-000-ucs-wp#67453 Autor: Vladimír Michl
Předmět: 14348
Zasláno: 20.led.2012 v 18:05

Zkuste jestli pomůže toto (nevím co vše potřebujete ošetřit). Dá se když tak zcela nahradit vnitřní příkazy a bude se to pak chovat "správně" i z menu.
 
;Copy/Paste to original coordinates in any UCS
;www.cadforum.cz
;(command "_undefine" "_copyclip" "_undefine" "_copybase" "_undefine" "_pasteclip")
 
(defun c:ccc ( / ss)
 (defun *error* (msg) (command "_ucs" "_p")(setvar "cmdecho" 1)(princ "Err"))
 (setvar "cmdecho" 0)
 (command "_ucs" "")
 (setq ss (ssget))
 (if ss (command "_.copybase" '(0 0 0) ss ""))
 (command "_ucs" "_p")
 (setvar "cmdecho" 1)
 (princ)
) 
 
(defun c:vvv ()
 (setvar "cmdecho" 0)
 (command "_ucs" "")
 (command "_.pasteclip" '(0 0 0))
 (command "_ucs" "_p")
 (setvar "cmdecho" 1)
 (princ)
)
 
(princ "\nCopy/Paste orig in any UCS - use CCC and VVV commands")(princ)
]]> Fri, 20 Jan 2012 18:05:45 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=14348&PID=67453&title=copypaste-000-ucs-wp#67453 <![CDATA[Copy-Paste 0,0,0 UCS W<->P : Přidávám se k žadateli. Jeden...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=14348&PID=67452&title=copypaste-000-ucs-wp#67452 Autor: Radim Cech
Předmět: 14348
Zasláno: 20.led.2012 v 17:39

Přidávám se k žadateli. Jeden z nejčastějších "problémů" při kopírování z výkresu do výkresu, kde jak ve zdrojovém, tak v cílovém, je uživatelské USS. Občas si toho člověk nevšimne a pak se nestačí divit, kde se to "ztratilo"!]]> Fri, 20 Jan 2012 17:39:51 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=14348&PID=67452&title=copypaste-000-ucs-wp#67452 <![CDATA[Copy-Paste 0,0,0 UCS W<->P : Dobry den Porad si myslim, ze...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=14348&PID=67450&title=copypaste-000-ucs-wp#67450 Autor: splonk
Předmět: 14348
Zasláno: 20.led.2012 v 16:35

Dobry den
Porad si myslim, ze by AutoCAD mel mit (ze ma) v sobe zabudovany prikaz na kopirovani (vkladani) pres napr. bod 0,0,0 ale tak, aby bral ohled na otoceni UCS. Nejak ho ale nemuzu najit :-). Na utilitku, ktera by toto resila jsem zatim take nenarazil...
Nevedel by nekdo o necem, co by toto umelo?
 
Nize zasilam svuj vcerejsi 10minutovy pokus o napsani cehosi, co by neco takoveho delalo... Ma to ale spoustu nedotazenosti, ktere brani v tom, aby lisp slo pouzivat nejka univerzalneji...
 
*********************************
(defun C:CCC ()
 (command "_UCS" "")
 (initdia)
 (command "_copybase" "0,0,0")
 (while (= (getvar "CMDACTIVE") 1)
  (command pause)
 );while
 (command "_UCS" "_P")
 (princ)
)
;; +++++++++++++++++++++++++++++
;; +++++ PasteClip 0,0,0  ++++++
;; +++++++++++++++++++++++++++++

(defun C:VVV ()
 (command "_UCS" "")
 (initdia)
 (command "_pasteclip" "0,0,0")
 (while (= (getvar "CMDACTIVE") 1)
  (command pause)
 );while
 (command "_UCS" "_P")
 (princ)
)
(princ)
 
*********************************
 
Mel by nekdo cas a chut se s timto ukolem poprat, pane Michl? Myslim si ze by se to hodilo spouste lidi co si radi kopiruji veci z jednoho souboru do jineho.
 
Predem dekuji
JASponza
]]> Fri, 20 Jan 2012 16:35:24 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=14348&PID=67450&title=copypaste-000-ucs-wp#67450