johny napsal(a): michaelflyer napsal(a): Toto jeprogram, ktorý zrotuje podľa referenčného bodu a je tam aj možnosť „copy“– či chceš kopírovať a zároveň rotovať objekt. Celkom dobrá vec ale viacako 1x coyp sa nedá zrealizovať. Vysvetlím nižšie...   (defun c:rot(/ objekt m0)   (prompt "\nVyber objekt narotovanie:")   (setq objekt (ssget))   (initget 1 "Copy")   (setq m0 (getpoint "\nVyber dva body![Copy]?:"))   (if (= m0 "Copy")     (progn       (command "_copy" objekt"" "0,0,0" "")       (setq objekt nil)       (setq objekt (ssget "_P"))       (setq m0 (getpoint "\nVyber dvabody!"))     )   )   (command "_ROTATE" objekt"" m0 "_R" m0 pause pause) ) Taky mám svůj program na referenční otáčení - a velmi velmi oblíbený: (defun C:O() ;Otoc-tremi-body   (command "_select" pause)   (command "_rotate" "_p" "" pause "_r" "@" pause pause)   (princ) ) Pak mám i druhý, který používám... no když, tak jednou za rok (=k ničemu)..  (defun C:Ok() ;Otoc-a-zkopiruj-tremi-body   (command "_select" pause)   (command "_rotate" "_p" "" pause "_c" "_r" "@" pause pause)   (princ) )

Ďakumem za ten *error* už to torošku lepšie chápem... Aj keď stále mi vrtá hlavou ako lisp vie, že má toto použiť, keď sa program preruší pomocou klávesy "Esc"? 

  (command "_rotate" "_p" "" pause "_c" "_r" "@" pause pause)- Ja frčím ešte stále na Acad 2000 a takéto zlepšováky si musím doprogramovať. Takže sa stále musím vrátiť k (ssget "_P") - problém je ale v tom, že aj tie príklady čo ste mi na ne poslal odkaz, neriešia to čo by som potreboval. Neviem či to je autocadom2000, alebo nezle napísaného programu... Stačí že urobím túto smičku a už to nefunguje:

(setq m0 T)
(if (= m0 "Copy")
(progn
(while m0
(command "_copy" objekt "" "0,0,0" "")
(setq objekt nil)
(setq objekt (ssget "_P"))
(setq m0 (getpoint "\nVyber dva body!"))
(command "_ROTATE" objekt "" m0 "_R" m0 pause pause)
)
)
)   

Ospravedlňujem  sa za dlhodobú neprítomnosť. Mal som inéstarosti.

VladimírMichl:

Žiaľ, to minepomôže. Budem musieť ostať pri „equal“ s nejakou toleranciou ako ste miporadili na začiatku.

Johny:

(while (not (and(setq ensel (entsel "\nSelect polyline: ")) ; – Tak to som netušil,že „and“ sa dá aj takto použiť!                         (eq (cdr (assoc 0 (entget (car ensel))));

                                      "LWPOLYLINE")))  

Ale je toveľmi pekné a elegantné riešenie!

Rozmýšlalsom nad tým „OSMODE“. Má jednu nevýhodu – ak spadne program tak uchopovaciebody sú vynulované a tak ostáva na užívateľovi aby si ich zasepozapínal... Mám preto lepšie riešenie ktoré som našiel:

 (defun osnap-off ()

 (setvar "osmode" (logior (getvar"osmode") 16384))

 )

(defunosnap-on ()

 (setvar "osmode" (logand (getvar"osmode") (~ 16384)))

 )

Ak aj spadnetak užívateľ stlačí klávesu F3 a nemusí prácne všetko zapínať (každýsnap)...

Ďakujem Vámobom za rady a poučenie.

Neviem čimám zakladať novú tému, ale hodím to sem:

Toto jeprogram, ktorý zrotuje podľa referenčného bodu a je tam aj možnosť „copy“– či chceš kopírovať a zároveň rotovať objekt. Celkom dobrá vec ale viacako 1x coyp sa nedá zrealizovať. Vysvetlím nižšie...

(defun c:rot(/ objekt m0)

  (prompt "\nVyber objekt narotovanie:")

  (setq objekt (ssget))

  (initget 1 "Copy")

  (setq m0 (getpoint "\nVyber dva body![Copy]?:"))

  (if (= m0 "Copy")

    (progn

      (command "_copy" objekt"" "0,0,0" "")

      (setq objekt nil)

      (setq objekt (ssget "_P"))

      (setq m0 (getpoint "\nVyber dvabody!"))

    )

  )

  (command "_ROTATE" objekt"" m0 "_R" m0 pause pause)

)

Akonáhleimplementujem „while“ (setq objekt (ssget "_P")) – nedokáže vybraťposledné objekty. A stým (ssget "_P") mám stále problémy! Aj keďdám niekolko objektov skopírovať a chcem aby mi ich vybralo pomocou  (ssget "_P") vyberie mi iba párobjektov. Ako by sa to dalo obýsť. Nefunguje niečo ako (ssget „_L“) napríkladpodľa počtu posledných nakreslených objektov? Alebo niečo podobné?

michaelflyer napsal(a): (while (/=   ;chybně napsaná podmínka. Správně např. (/= LWPOLYLINE "LWPOLYLINE") (setq LWPOLYLINE (progn ;progn do setq nepatří! Jestli to mělo být pro while, tak ani to nepotřebuje progn. Celý řádek smazat. (setq ent_s_bodom (entsel "\nVyber polilajnu v bode výstupu:")) ;název bych volil jednodušší (setq ent_zoznam (entget (car ent_s_bodom))) ;název bych volil jednodušší  (foreach i ent_zoznam ;foreach je tu nevhodný. Proč? Je to indexované a jen s jedním výskytem v seznamu. (narozdíl od kódu 10 v předchozím případě)... Tedy stačí (assoc 0 ent_zoznam) (if (eq (car i) 0) (setq LWPOLYLINE (cdr i)))) (princ LWPOLYLINE))) ;proč tiskout na obrazovku? smazat (setq LWPOLYLINE_2 "LWPOLYLINE"))) ;proč to ukládat do další proměnné, celé smazat

Jinak třeba takto bych to udělal já.

(while (not (and (setq ensel (entsel "\nSelect polyline: "))   (eq (cdr (assoc 0 (entget (car ensel))));         "LWPOLYLINE")))     (prompt "\nWrong selection. Try again.")); while

 

michaelflyer napsal(a): (vlax-curve*) to sa musím doučiť - mysleli ste to na získanie koncových bodov polilajny.

Ano, mimo jiné. Těch funkcí je ale spousta... např. GetPointAtDistance...

michaelflyer napsal(a): OSNAP tu mám trošku nedostatky - robím to trošku zložito. teda cez makro. Comand "_osnap" "off"... Viem že sa to dá robiť cez setvar getvar. No neviem kde a ako mám prísť k tým príkazom poznám nejaké "to" cmdecho ale to je všetko.

_Osnap. Dejte F1 a hledejte. _Osnap je příkaz, který ovládá proměnou "osmode". Jakých nabývá hodnot najdete v nápovědě. Pro to nejjednodušší vám ale stačí vědět toto:

(setq old_osmode (getvar "OSMODE")) ; na začátku programu uložíte starou hodnotu

(setvar "OSMODE" 0) ; vypnete uchop

(setvar "OSMODE" old_osmode) ; na konci programu a v error funkci obnovíte starou hodnotu