익명 등록일: 2022-09-262022-09-26T10:48:09+09:00 2022-09-26T10:48:09+09:00카테고리: AutoCAD & CADian 유원지 해치 리습 요청드립니다.(솔리드 원해치 리습) 일반적이 원해치 리습은 있는데 유원지 해치처럼 원안에 색이 채워진 솔리드 원해치 리습 요청 드립니다. 공유 Facebook 관련 있는 질문들 오토캐드 폴리라인 방향 오토캐드 실선이 아닌 선 종류 TRIM 오류 캐드 배치탭에서 마스크기능 질문있습니다. 거리산출 리습 함수 오류 질문드립니다. 답변을 남겨주세요응답 취소답변을 등록하기 위해서는 로그인이 필요합니다. 아이디 또는 이메일* 비밀번호* 아이디 기억 비밀번호를 잊으셨나요? 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 답변