안녕하세요.
리습으로 텍스트 좌표에서 캐드로 포인트를 찍는 리습으로 아래와 같이 생성 되었습니다.
근데 크기가 너무 작아 확대를 해야 되서요,
scale로 블럭 포인트 중심점을 기준으로 scale 크기 조정가능할까요?
하나하나 scale 로 중심점 잡고 할려니 시간이 무지 걸려서요.(데이타가 많아서 ㅜㅜ)
===== 아니면 밑에 리습에서 블럭 크기 조정 가능할까요?
아래처럼 하고 싶습니다. 객체 선택하면 바로 커지는…
*********
아니면 아래 리습한번 봐 주세요.
좌표 불러올때 블럭 만들때 크기 및 글자 크기를 조정 가능한지 어느 부분인지 좀 봐주세요. 크기관련하여 서요,
캐드에서 블럭 이름보니 CRBLK 로 되어 있습니다.
(defun crb ( )
(if (not (tblsearch “BLOCK” “CRBLK”))
(progn
(if (not (tblsearch “STYLE” “Gen-Text”))
(entmake
(list
(cons 0 “STYLE”)
(cons 100 “AcDbSymbolTableRecord”)
(cons 100 “AcDbTextStyleTableRecord”)
(cons 2 “Gen-Text”)
(cons 70 0)
(cons 40 2.5)
(cons 3 “Arial.ttf”)
)
)
)
(entmake
(list
(cons 0 “BLOCK”)
(cons 8 “0”)
(cons 370 0)
(cons 2 “CRBLK”)
(cons 70 2)
(cons 4 “Block to Place Coordinate Points”)
(list 10 0.0 0.0 0.0)
)
)
(entmake
(list
(cons 0 “CIRCLE”)
(cons 8 “0”)
(cons 370 0)
(list 10 0.0 0.0 0.0)
(cons 40 1.25)
)
)
(entmake
(list
(cons 0 “ATTDEF”)
(cons 8 “0”)
(cons 370 0)
(cons 7 “Gen-Text”)
(list 10 3.0 2.5 0.0)
(list 11 3.0 2.5 0.0)
(cons 40 2.5)
(cons 1 “00”)
(cons 3 “Coordinate Point”)
(cons 2 “OO”)
(cons 70 0)
(cons 72 0)
(cons 74 2)
)
)
(entmake
(list
(cons 0 “ENDBLK”)
(cons 8 “0”)
)
)
상큼메론90님 감사합니다. ^^