Viac otázok...

Dobrý deň.
1. Rutina v otáčaní:
     Chcel by som sa opýtať ako by sa dalo naprogramovať výberové okno tak aby som ho aj videl. Týka s to ssget „C“.
Napr.: pri výbere objektov je to okno vidieť, či už pri nejakom príkaze alebo aj bez neho. SSGET je obmedzené iba na jedno okno (v mojom prípade). Neviem ako to mám naprogramovať tak, aby som mohol vyberať viac vecí pomocou viacerých okien. Napr.: _ROTATE – vyberáte pomocou okna koľko toho chcete.

(defun c:OT ()
(setq     ent (entsel "\nVyber priamku, ktorá bude v horizontálnej polohe:"))

(setq m (getpoint "\nVyber bod 1:")) ;;; platí pre výber ssget
(setq n (getpoint "\nVyber bod 2:")) ;;; platí pre výber ssget

(progn
    (setq meno_ent (nth 0 ent))
    (setq zoznam_ent (entget meno_ent))
    (setq a (cdr (assoc 10 zoznam_ent)))
    (setq b (cdr (assoc 11 zoznam_ent)))
    (setq a1 (car a))
    (setq b1 (car b))
   
    (setq vyber_entit (ssget "C" m n)) ;;; vyber množiny objektov pomocu okna
    
    (if     (< a1 b1)
      (progn
     (setq ax (list (+ (car a) 1000.0) (cadr a)))
     (command "_rotate" vyber_entit "" a "_r" a b ax)
     (princ)
      )
    ) ;;; koniec if
    
    (if     (> a1 b1)
      (progn
     (setq ax (list (- (car a) 1000.0) (cadr a)))
     (command "_rotate" vyber_entit "" a "_r" a b ax)
     (princ)
      )
    ) ;;; koniec if
) ;;; koniec progn
)

Už som bod 1. vyriešil...

2. Chcel by som využiť viac rôznych hodnôt v jednom príkaze. GETDIST mi nepodporuje písmenká, ale iba vzdialenosť. A dať na nový riadok či chcem alebo nechcem zadať vzdialenosť sa mi zdá veľmi zdĺhavé pri používaní programu. Už teraz tam mám dosť premenných.
(setq r (getdist "\nZadaj vzdialenosť. Ak nechceš zadaj [Nie]:"))

3. Vykreslenie objektu ešte skôr ako zadám bod:
Mám súčiastku, ktorej po zadaní rôznych hodnôt zadávam vkladací bod. Dá sa to spraviť tak aby som už tú súčiastku mal skôr vykreslenú ako zadám vkladací bod? Tak aby bola v kríži (kurzoru myši) a akokoľvek myšou pohnem tak my bude súčiastku posúvať???

4.Prosím vás nemá niekto rozpísaný príkaz _DIVIDE v LISPe???

Vopred ďakujem....


Upravil michaelflyer - 06.lis.2007 v 20:52

vbehun napsal(a): Myslíte tohle ?_DIVIDESelect object to divide: Use an object selection method<Number of segments>/Block: Enter a value (2-32767) or enter bBlockBlock name to insert: Enter the name of a block currently defined in the drawingAlign block with object ? <Y> Enter y or n or press Enter

Áno, presne to....

Ale ja som myslel v lispe :-)

Upravil michaelflyer - 29.říj.2007 v 16:31

ad 2) to si musíte ošetřit programem, proměnných (resp. symbolů) holt bude potřeba více než máte teď

ad 3) to snad dělá AutoCAD automaticky (pokud jste si ručně nevypnul DRAGMODE)