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

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"!

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. [CODE];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)[/CODE]

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

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

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

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

Dobry vecerTak 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 zdravimJASponza