익명 등록일: 2022-09-262022-09-26T10:48:09+09:00 2022-09-26T10:48:09+09:00카테고리: AutoCAD & CADian 유원지 해치 리습 요청드립니다.(솔리드 원해치 리습) 일반적이 원해치 리습은 있는데 유원지 해치처럼 원안에 색이 채워진 솔리드 원해치 리습 요청 드립니다. 공유 Facebook 관련 있는 질문들 원 또는 사각형안에 입력할 문자가 동시에 출력되는 리습을 찾고있습니다. CTB 질문드립니다. 고수님들... ㅠ 필드 질문드립니다. 캐드 화면 색감이 흐린데 이유를 모르겠습니다. 답변을 남겨주세요응답 취소답변을 등록하기 위해서는 로그인이 필요합니다. 아이디 또는 이메일* 비밀번호* 아이디 기억 비밀번호를 잊으셨나요? 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 답변