CAD programování - Copy-Paste 0,0,0 UCS W<->P

Copy-Paste 0,0,0 UCS W<->P

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=14348
Datum vytištění: 12.kvě.2026 v 13:56

Téma: Copy-Paste 0,0,0 UCS W<->P

Odeslal: splonk
Předmět: Copy-Paste 0,0,0 UCS W<->P
Datum odeslání: 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

-------------
JASponza

ACA (AutoCAD) 21, 24
RVT 21, 24

Win 10, 11 x64

Odpovědi:

Odeslal: Radim Cech
Datum odeslání: 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"!

-------------
R.C.

OSTRAVA

Odeslal: Vladimír Michl
Datum odeslání: 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)

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: Vladimír Michl
Datum odeslání: 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 - http://www.cadforum.cz/cadforum/qaID.asp?tip=1613

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: splonk
Datum odeslání: 23.led.2012 v 10:25

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

-------------
JASponza

ACA (AutoCAD) 21, 24
RVT 21, 24

Win 10, 11 x64

Odeslal: splonk
Datum odeslání: 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

-------------
JASponza

ACA (AutoCAD) 21, 24
RVT 21, 24

Win 10, 11 x64

Odeslal: Vladimír Michl
Datum odeslání: 23.led.2012 v 18:30

Na stránce Download je ke stažení nová verze CopyBase respektující uzlový předvýběr.

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: splonk
Datum odeslání: 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

-------------
JASponza

ACA (AutoCAD) 21, 24
RVT 21, 24

Win 10, 11 x64