안녕하십니까
미러 네방향 리습입니다
센타 포인트만 찍으면 4방향으로 미러 됩니다
근데 아래와 같은 메세지를 안뜨게 할수없나요?
Origin point mirror ? [Y]
항상 y로 할것입니다
엔터 한번더 치는게 헬갈려서 그렇습니다
작업속도도 안나고..답변부탁드립니다
수고하십시요
네방향 미러..리습
(defun C:TMIRROR ()
(setvar “cmdecho” 0)
(setq sss (ssget) ss1 (entlast))
(initget “y Y n N”)
(setq ml1 (getkword “nOrigin point mirror ? [Y] : “))
(if (= ml1 nil) (setq ml1 “Y”))
(if (or (= ml1 “y”) (= ml1 “Y”))
(progn
(setq orp (getpoint “nEnter mirror origin point : “)
orpx (car orp) orpy (cadr orp)
pxf (list (- orpx 500) orpy)
pxs (list (+ orpx 500) orpy)
pyf (list orpx (+ orpy 500))
pys (list orpx (- orpy 500)) )
)
(progn
(setq pxf (getpoint “nFirst point of mirror line
pxs (getpoint pxf “nSecond point of mirror line
pyf (getpoint “nFirst point of mirror line
pys (getpoint pyf “nSecond point of mirror line
))
(command “mirror” sss “” pxf pxs “”)
(setq ss2 (entnext ss1) ss (ssadd))
(while ss2
(setq ss3 (ssadd ss2 ss) ss2 (entnext ss2))
)
(command “mirror” sss ss3 “” pyf pys “”)
(setq sss nil ss1 nil ss2 nil ss3 nil)
(setvar “cmdecho” 1)
(prin1))