Poněvadž nejsem VIP, nevím, co obsahuje odkazovaný Tip.

Podle mne když už někdo má WinXP, tak už má k tomu i Acad200x (kde x=0 až 7). Jinak je to asi nesmysl - myslím, že AutoCAD14 vám systém WindowsXP ani nenainstaluje. Nemohu vyzkoušet, takové zastaralé věci nepoužívám...

Tiež som používala A14 pod WXP. Len sa tam doinštalovával nejaký súbor na 32 bit. Skúsim ho pohľadať a ak ho nájdem, tak Vám to pošlem.

to Pápay:

a proč Vás udivuje, že dosovskou aplikace stačí v příslušné struktuře okopírovat?
Žádné registry, žádné Win.sys nebo win.ini - do všeho bylo vidět. To byly doby :-). Jen musíte okopírovat opravdu všechno.

Ono když jste se podíval na instalační CD (nebo diskety - teď nevím na čem 14 byla), tak se instalovalo nějak pomocí install.bat a ten nic jiného něž vytváření adresářů a kopírování souborů vpodstatě nedělal.

Nojo - máte asi pravdu (určitě máte pravdu).
Už se mně to všecko plete. Asi si koupím kolotoč a půjdu se živit poctivě.
V tom případdě se divím taky :-)

?

Ľubomír Pápay napsal(a): ...odinštaloval som acad14 a potom som tam iba nakopíraoval celú predošlú inštaláciu. ...

• odinstalovat
• restart
• odasociovat všechny soubory související s AutoCADem
  
• pročistit registry (RegClean)
• restart
• znovu pročistit registry
• instalace
• znovuasociace souborů souvisejících s AutoCADem

Asi nemůžete prozradit zaměstnavatele, ale to musí být "Skot" a "Holanďan" dohromady a ještě na druhou. Kdyby si spočítal čas, který strávíte převáděním a vynásobilhodinovou sazbou, tak mu jistě vyjde, že jste dražší než nový CAD!!! a v tom uštřeném čase by na Vás začal vydělávat

"Tisknu" výkres z R14 do souboru BMP. Pro další zpracování potřebuji nastavit silnější čáry (obrázek se bude zmenšovat a čáry nakreslené šířkou jeden pixel mohou zmizet). Příslušné okénko při nastavování této tiskárny není aktivní.

;příprava výkresu na faxování nebo vložení do Wordu - změní úsečky, oblouky a kružnice na křivky dané tloušťky
;rozpracováno!

(defun c:zesil()
(setq tl(getreal "Tloušťka křivky: "))
(setq e (entsel "Vyber representanta "))
(setq hlad (cdr(assoc 8 (setq p(entget(car e)))))
      barva (cdr(assoc 62 p))
      typc  (cdr(assoc 6 p))
   )

(if (and(/= barva nil)(/= typc nil))
(setq m (ssget "X" (list (cons  8 hlad)(cons 62 barva) (cons 6 typc)))))
(if (and(= barva nil)(/= typc nil))(progn
(setq m (ssget "X" (list (cons  8 hlad) (cons 6 typc))))(while (< i pocet)
 (if (/=(assoc 62 (entget(ssname m i)))nil)
  (setq m (ssdel (ssname m i) m) pocet (sslength m))
  (setq i (1+ i))
 )
)
))

(if (and(/= barva nil)(= typc nil))(progn
(setq m (ssget "X" (list (cons  8 hlad) (cons 62 barva))))(while (< i pocet)
 (if (/=(assoc 6 (entget(ssname m i)))nil)
  (setq m (ssdel (ssname m i) m) pocet (sslength m))
  (setq i (1+ i))
 )
)
))

(if (and(= barva nil)(= typc nil))(progn
(setq m (ssget "X" (list (cons  8 hlad))))
(setq pocet (sslength m) i 0)
(while (< i pocet)
 (if (or (/=(assoc 62 (entget(ssname m i)))nil)(/=(assoc 6 (entget(ssname m i)))nil))
  (setq m (ssdel (ssname m i) m) pocet (sslength m))
  (setq i (1+ i))
 )
)
))

(command "_SELECT" m "")
(command "_chprop" "P" "" "_C" "7" "")
(setq skupt (ssget "P" '((-4 . "<OR")(0 . "LINE")(0 . "CIRCLE")(0 . "ARC")(-4 . "OR>"))))
(if (/= skupt nil)(progn

(setq pocett (sslength skupt))
(setq i 0)
(while (< i pocett)
(if (<= i pocett)(progn
(setq m (ssname skupt i))
(setq dz (entget m))
(if (/=(cdr(assoc 0 dz))"CIRCLE")
(command "_PEDIT" m "_Y" "_W" tl "")
(progn
(command "_DONUT" (-(* 2.(cdr(assoc 40 dz))) tl) (+(* 2.(cdr(assoc 40 dz)))tl) (cdr(assoc 10 dz))"")

(entdel m)
))
(setq i (+ 1 i))(write-line (itoa i)))
))))
)