创建图案填充

Fabricio28 · 发表于 2014-1-17 06:57:39

嗨，伙计们，
我怎么才能做一个尺寸为0.625 x 1.25米的舱口呢(defun entmakex-hatch (L)
;; By ElpanovEvgeniy
;; 03.04.2007 10:03:51:
(entmakex
  (apply
'append
(list
(list '(0 . "HATCH")
      '(100 . "AcDbEntity")
      '(410 . "Model")
      '(100 . "AcDbHatch")
      '(10 0.0 0.0 0.0)
      '(210 0.0 0.0 1.0)
      '(2 . "SOLID")
      '(70 . 1)
      '(71 . 0)
      (cons 91 (length l))
) ;_  list
(apply 'append
(mapcar '(lambda (a)
         (apply 'append
                  (list (list '(92 . 7) '(72 . 0) '(73 . 1) (cons 93 (length a)))
                        (mapcar '(lambda (b) (cons 10 b)) a)
                        '((97 . 0))
                  ) ;_  list
         ) ;_  apply
         ) ;_  lambda
         l
) ;_  mapcar
         )
'((75 . 0)
   (76 . 1)
   (47 . 1.)
   (98 . 2)
   (10 0. 0. 0.0)
   (10 0. 0. 0.0)
   (451 . 0)
   (460 . 0.0)
   (461 . 0.0)
   (452 . 1)
   (462 . 1.0)
   (453 . 2)
   (463 . 0.0)
   (463 . 1.0)
   (470 . "LINEAR")
   )
) ;_  list
  ) ;_  apply
) ;_  entmakex
)

(defun c:test (/ pt x y)
  (setq pt '(100 150)) ; lower left corner
  (setq x (car pt)
      y (cadr pt)
  )
  (setq h (entmakex-hatch
         (list (list pt
                     (list x (+ y 1.25))
                     (list (+ x 0.625) (+ y 1.25))
                     (list (+ x 0.625) y)
               )
         )
      ) ;_  entmakex-hatch
  ) ;_  setq
)
[/code]

Rob... · 发表于 2014-1-17 07:05:32

谢谢CAB，
我正在尝试创建一个尺寸（0，64x1，20）的舱口。
选择要剖面线的周长，并在其中创建矩形。

创建图案填充

发表回复

精选推荐