캐드 분류
기준점 스케일 리습 수정부탁드립니다
컨텐츠 정보
- 294 조회
- 6 댓글
- 0 추천
- 0 비추천
-
목록
본문
안녕하세요. 항상 고캐드에서 자료 잘 참고하고있습니다.
라인들만 선택하여 각 라인의 시작점을 기준으로하여 스케일(scale)을 반복하는
리습을 만들고있습니다.
제가 작성한 리습에서는 기준점이 이상하여 질문드립니다.
(defun C:S5()
(setq ob (ssget (list(cons 0 "*LINE"))))
(setq n (sslength ob) i 0)
(repeat n
(setq P1 ( cdr (assoc 10 (entget (ssname ob i)))))
(setq P2 ( cdr (assoc 11 (entget (ssname ob i)))))
(setq D1 (distance P1 P2))
(setq D2 (+ D1 100))
(command "SCALE" ob "" P1 "R" D1 D2)
(setq i (+ 1 i))
);re
);defun
관련자료
댓글 6