홈/ 질문/Q 171749
다음
진행 중
익명
등록일: 2022-09-26T10:48:09+09:00 카테고리:

유원지 해치 리습 요청드립니다.(솔리드 원해치 리습)

일반적이 원해치 리습은 있는데 유원지 해치처럼  원안에 색이 채워진 솔리드 원해치 리습 요청 드립니다.

공유

    관련 있는 질문들

    답변을 남겨주세요

    답변을 등록하기 위해서는 로그인이 필요합니다.

    아직 계정이 없으신가요?

    1 답변

    1. aalan
    2. Lv.12 
      (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)
)
      • 0