Tak to je paráda, už to funguje.

To move funguje, ale ten krok zapnout je nutné před výběrem "zadejte referenční bod", ale to už jsem vyřešil jen přehozením řádků. U kopie(která také funguje) to samé.

S takovým cadem se hned líp dělá. Moc děkuji jsem velkej dlužník.

To je ono! Děkuji. Dokonce už mi to funguje i na výmaz. Ted už mi zbývají jen posun a kopie a mám všechno. Kdyby jste měl někdy ještě chvilku času šlo by ještě udělat příkaz posun-zruš krok-vybrat co budu posouvat-zapnout krok-posunout. S příkazem kopie to samé ale tam je problém s multiple, ted tam mám tento lisp:

defun c:cc ( / ss1 bpt)
(while (not ss1)
(princ "\nKopíruj násobně: ")
(setq ss1 (ssget))
);while
(while (not (setq bpt (getpoint "\nZadejte referenční bod: "))))
(command "._copy" ss1 "" "_m" bpt)
);defun

To znamená, že by se to muselo zakomponovat do tohoto lispu.

Ale už ted jsem spokojenej jak želva a nechci Vás pořád otravovat. Ale kdyby jste měl někdy trošku času(kdykoli) a zkusil ty lispy udělat, tak už bych se blahem asi počůral.

Moc děkuji Jirka

Prosím ještě o drobnou úpravu. U toho break 2 body jsem si přidal mezeru před _f. Ted to funguje tak, že určím hned první a potom druhý bod přerušení, ale zase se nezapne krok. Šlo by to nějak jednoduše spravit, aby se krok zapl?  Ten původní lisp fungoval tak, že jsem musel vybrat objekt, který chci přerušit a potom až vybírat body přerušení.

No paráda! Už to funguje. Moc děkuji. Řekl jsem ženě, ať udělá zítra na oběd NA VAŠI POČEST kachničku se zelím a pořádně to oslavíme. Už mi to funguje i na příkaz prodluž, ale na příkaz break to nefunuje. Nemohl by jste mi to ještě prosím udělat na příkaz break? Myslím že změna je jenom v tom, že za příkazem trim nedám 2x enter(neřežu hned, ale napřed vyberu odkud).

  Tak jsem nepřišel na to, jak se to přesouvá, ale jak jsem se tak díval na forum o programování, tak tam je úúúplně mrtvo, takže je to asi jedno, tady si myslím, je šance na vyřešení větší.   

Upravil jirka64 - 13.led.2010 v 21:50

Funguje, ale samo jsem to netestoval v Autocadu 2000. Zkoukl jsem ty proměnné a měli by vám pod A2000 fungovat. Takže fakt nevím, proč vám to nejede.
Ale trochu jsem to teda přepsal... třeba toto bude fungovat i vám. Ten program je teď tvrdší... prostě vypne krok, řeže, zapne krok. Když ořezávání ukončíte ESC, pak vám krok už nezapne.

(defun C:qtt ()
  (command "_snap" "_off")
  (command "_trim" "")
  (while (> (getvar 'cmdactive) 0) (command pause))
  (command "_snap" "_on")
  (princ)
)

PS. Pokud vám to pořád nebude fungovat, tak to přesuňte do diskuse o programování a třeba se na to někdo podívá a příjde na problém, proč vám to nešlo.

Zdravim, jestli to pořád užijete, tak jednoduše třeba takhle.

(defun C:qt () 
  (setq OldSnap (getvar "SNAPMODE"))
  (setvar "SNAPMODE" 0)
  (command "_trim" "")
  (while (> (getvar 'cmdactive) 0) (command pause))    ;Násobné pause
  (setvar "SNAPMODE" OldSnap)
  (princ)
)

(defun *error* (msg) 
  (setvar "SNAPMODE" OldSnap)
  (print)
)

Obě uložte do stejného texťáku s příponou *.lsp. Ta errorova funkce vám nahodí SNAPMODE pokud _trim ukončíte přes ESC.
Pokud to chcete spouštět jinak než QT, pak si to za tím C: nějak přepište.


Upravil johny - 12.led.2010 v 13:41

Právěže tazatel neřešil globální šířku/tloušťku, ale tloušťku čáry jako takovou. Taky jsem předpokládal, že má na mysli totéž co Vy.

:) díky a sorry, ale nenechte se zmýlit - toto jsem jen zkopiroval ze svých "zkratek".