offset 이나 copy 명령어를 사용 하면 원본객체가 아닌 새로운 객체가 나옵니다.
원본객체가 아닌 그 새로 나온 객체들을 선택해서 명령어를 실행시키는 lisp을 만들려고 하는데요
그 새로운 객체를 지정하는 명령어는 함수가 어떤게 있을까요??
예문입니다.
(defun c:qqq ( / en p1 os p2)
(setvar “cmdecho” 0)
(setq os (getvar “osmode”))
(command “osmode” 0)
(command “osmode” 1)
(and
(setq en (car (entsel “n회전시킬 대상을 선택->”)))
(setq p1 (getpoint “n회전 중심을 클릭하세요:”))
(progn
(setvar “osmode” 0)
(command “rotate” en “” p1 “90”)
(setvar “osmode” os)
)
(setq p2 (getpoint “n옵셋될 방향을 클릭하세요:”))
(setq p3 (getpoint “n옵셋될 방향을 클릭하세요:”))
(progn
(setvar “osmode” 0)
(command “offset” “0.0303” en p2 “e”) <————-이 객체를 enn으로 지정하고 싶음
(command “offset” “0.0403” en p2 “e”) <————-이 객체를 ennn으로 지정하고 싶음
(command “offset” “0.0703” en p2 “e”) <————-이 객체를 ennnn으로 지정하고 싶음
(command “rotate” en “” p1 “-90”)
(command “offset” “0.05” en p3 “e”) <————이 객체를 ent 로 지정하고 싶음
(setvar “osmode” 255)
)
)
새로 지정된 enn , ennn , ennnn을 ent 위치까지 extend 하고 싶습니다.
수정을 해주실 분이나 아니면 사용하는 함수 사용법을 갈켜 주시면 감사하겠습니다.
(princ)
)
공유