캐드 분류
다수의 직선의 길이를 불러와 길이별로 블럭을 늘려주는 방법
컨텐츠 정보
- 277 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
수직인 직선이 있습니다.
직사각형 블럭을 폭은 일정한 값(500mm)이고
높이를 수직인 직선길이로 만들어주는 리습을 만드려고 합니다.
(Defun c:ib()
(setq line_ent (entsel "n Select line :"))
(setq l_name (car line_ent))
(setq l_entdata (entget l_name))
(setq osp (assoc 10 l_entdata))
(setq ospp (cdr osp))
(setq oep (assoc 11 l_entdata))
(setq oepp (cdr oep))
(setq dist (distance ospp oepp))
(command "-insert" "reg" "y" dist ospp "" "" "")
(princ)
)
이렇게 만드니 하나는 만들었는데 직선이 100개가 넘어가는데 여러개를 한번에 수정하는 방법이 있을까요 ???
관련자료
댓글 2