TECHSOFT CZTECHSOFT SKCADHelpCAD FórumFreeCAD

Odzrkadlenie vyberu podla svojho stredu

Diskuse týkající se používání ZWCADu
Návrhář
Příspěvky: 18
Registrován: 05 kvě 2014, 10:20

Odzrkadlenie vyberu podla svojho stredu

Příspěvekod arch » 28 kvě 2014, 17:00

Zdravim, potreboval by som LISP, ktory by odzrkadlil vyber podla stredu tohoto vyberu (nieco ako v SketchUpe Flip Vertikal / Flip Horizntal), nemate niekto nieco take? Dakujem
ZW+ 2012 SP2

Administrátor
Uživatelský avatar
Příspěvky: 401
Registrován: 14 dub 2014, 15:50
Jméno (bez příjmení): Ján Pajerchin

Re: Odzrkadlenie vyberu podla svojho stredu

Příspěvekod JanP » 29 kvě 2014, 12:24

...aspoň tak narýchlo:
Funkcie umožňujú výber len jedného objektu (môže byť aj blok)
Spustíte funkciu, kliknete na objekt a odzrkadlí ho


; ZHor - Horizontálne zrkadlenie jedného objektu okolo jeho stredu
(defun C:ZHor (/ en1 obj_1 pt1 pt2 ptmid)
(setq en1 (car (entsel)))
(setq obj_1 (vlax-ename->vla-object en1))
(vla-getboundingbox obj_1 'minpoint 'maxpoint)
(setq pt1 (vlax-safearray->list minpoint) pt2 (vlax-safearray->list maxpoint)
ptmid (list (/ (+ (car pt1) (car pt2)) 2)
(/ (+ (car pt1) (car pt2)) 2)
(/ (+ (cadr pt1) (cadr pt2)) 2)
)
)
(command "_.mirror" en1 "" "_none" ptmid "_none" "@0,1" "_yes" )
)

; ZVer - Vertikálne zrkadlenie jedného objektu okolo jeho stredu
(defun C:ZVer (/ en1 obj_1 pt1 pt2 ptmid)
(setq en1 (car (entsel)))
(setq obj_1 (vlax-ename->vla-object en1))
(vla-getboundingbox obj_1 'minpoint 'maxpoint)
(setq pt1 (vlax-safearray->list minpoint) pt2 (vlax-safearray->list maxpoint)
ptmid (list (/ (+ (car pt1) (car pt2)) 2)
(/ (+ (cadr pt1) (cadr pt2)) 2)
(/ (+ (cadr pt1) (cadr pt2)) 2)
)
)
(command "_.mirror" en1 "" "_none" ptmid "_none" "@1,0" "_yes" )
)

Návrhář
Příspěvky: 18
Registrován: 05 kvě 2014, 10:20

Re: Odzrkadlenie vyberu podla svojho stredu

Příspěvekod arch » 10 čer 2014, 14:26

presne toto potrebujem :ymapplause: , len keby sa podarilo to spravit na selekciu, nie len na jeden objekt :YMPRAY:
ZW+ 2012 SP2

Administrátor
Uživatelský avatar
Příspěvky: 401
Registrován: 14 dub 2014, 15:50
Jméno (bez příjmení): Ján Pajerchin

Re: Odzrkadlenie vyberu podla svojho stredu

Příspěvekod JanP » 10 čer 2014, 14:42

Je to dobrá a užitočná myšlienka.
Skúsim sa s tým viac pohrať ...uvidíme ako to pôjde.
Potom to tu pridám :-?

Návrhář
Příspěvky: 18
Registrován: 05 kvě 2014, 10:20

Re: Odzrkadlenie vyberu podla svojho stredu

Příspěvekod arch » 09 bře 2015, 20:26

Zdravim, nepodarilo sa vam vymysliet nieco v tejto otazke? (teda preklopenie vyberu nie len bloku)
ZW+ 2012 SP2

Administrátor
Uživatelský avatar
Příspěvky: 401
Registrován: 14 dub 2014, 15:50
Jméno (bez příjmení): Ján Pajerchin

Re: Odzrkadlenie vyberu podla svojho stredu

Příspěvekod JanP » 10 bře 2015, 10:35

Nuž - priznávam - to už je podstatne komplikovanejšie (aspoň teda pre mňa)
...ak budem mať časový priestor - ešte sa tomu povenujem ...ale úprimne - bude to dlhodobá záležitosť :roll:

Zpět na Technické dotazy ZWCADu



Kdo je online

Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 6 návštevníků