익명 등록일: 2022-09-262022-09-26T10:48:09+09:00 2022-09-26T10:48:09+09:00카테고리: AutoCAD & CADian 유원지 해치 리습 요청드립니다.(솔리드 원해치 리습) 일반적이 원해치 리습은 있는데 유원지 해치처럼 원안에 색이 채워진 솔리드 원해치 리습 요청 드립니다. 공유 Facebook 관련 있는 질문들 캐드 화면 색감이 흐린데 이유를 모르겠습니다. 치수 스케일 과 스타일 문의 면적 빼기 리습 레이어 관리에 관한 문의입니다. 답변을 남겨주세요응답 취소답변을 등록하기 위해서는 로그인이 필요합니다. 아이디 또는 이메일* 비밀번호* 아이디 기억 비밀번호를 잊으셨나요? 1 답변 작성 순 최신 순 공감 순 dhL Lv.12 2022-10-01T14:09:21+09:00답변 등록 답변 등록 일시 2022-10-01 2:09 pm (defun c:foo (/ d p) (while (and (setq p (getpoint "nPick center point:")) (or d (setq d (getdist p "nPick radius: ")))) (entmakex (list '(0 . "HATCH") '(100 . "AcDbEntity") '(8 . "hatch") '(100 . "AcDbHatch") '(10 0. 0. 0.) '(210 0. 0. 1.) '(2 . "SOLID") '(70 . 1) '(71 . 0) '(91 . 1) '(92 . 1) '(93 . 1) '(72 . 2) (cons 10 p) (cons 40 (/ d 2)) '(50 . 0.) (cons 51 (* 2 pi)) '(73 . 1) '(97 . 0) '(75 . 1) '(76 . 1) '(98 . 1) '(10 0. 0. 0.) '(450 . 0) '(451 . 0) '(460 . 0.) '(461 . 0.) '(452 . 0) '(462 . 0.) '(453 . 2) '(463 . 0.) '(63 . 5) '(421 . 255) '(463 . 1.) '(63 . 2) '(421 . 16776960) '(470 . "LINEAR") ) ) ) (princ) )
1 답변