[求助]：用entmak建立一个填充对象

qiaqiadeng · 发表于 2009-3-5 12:21:31

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请高手支招，如题

lpm0627 · 发表于 2009-3-5 13:10:49

很有用，谢谢

carrot1983 · 发表于 2009-3-5 19:32:56

最初由 lpm0627 发布
[B]很有用，谢谢 [/B]

莫名其妙

fl202 · 发表于 2009-3-6 10:28:30

最初由 carrot1983 发布
[B]

莫名其妙 [/B]

同感。

carrot1983 · 发表于 2009-3-6 13:20:00

最初由 qiaqiadeng 发布
[B]请高手支招，如题 [/B]

[FONT=courier new]
(defun ENTMAKEX-HATCH (L A N S)
;; By ElpanovEvgeniy @[url]www.theswamp.org[/url]
;; L - list point
;; A - angle hatch
;; N - name pattern
;; S - scale
;; returne - hatch ename
(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 . "ANSI31")
(if (= N "SOLID")
'(70 . 1)
'(70 . 0)
) ;_ if
'(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
) ;_ apply
(list '(75 . 0)
'(76 . 1)
(cons 52 A)
(cons 41 S)
'(77 . 0)
'(78 . 1)
(cons 53 A)
'(43 . 0.)
'(44 . 0.)
'(45 . 1.)
'(46 . 1.)
'(79 . 0)
'(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
) ;_ list
) ;_ apply
) ;_ entmakex
) ;_ defun
(ENTMAKEX-HATCH
'(((538.794 584.563)
(895.629 584.563)
(895.629 997.377)
(538.794 997.377)
)
((386.809 345.13)
(670.955 345.13)
(670.955 855.369)
(386.809 855.369)
)
)
(/ pi 2)
"ANSI31"
2.
) ;_ entmakex-hatch
(ENTMAKEX-HATCH
(list
(mapcar 'cdr
(vl-remove-if-not
'(lambda (X) (= (car X) 10))
(entget (car (entsel)))
)
)
) ;_ list
(/ pi 2)
"ANSI31"
2.
)
[/FONT]

[FONT=courier new] 
(defun ENTMAKEX-HATCH (L A N S) 
  ;; By ElpanovEvgeniy @[url]www.theswamp.org[/url] 
  ;; L - list point 
  ;; A - angle hatch 
  ;; N - name pattern 
  ;; S - scale 
 
  ;; returne - hatch ename 
  (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 . "ANSI31") 
              (if (= N "SOLID") 
                '(70 . 1) 
                '(70 . 0) 
              ) ;_  if 
              '(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 
        ) ;_  apply 
        (list '(75 . 0) 
              '(76 . 1) 
              (cons 52 A) 
              (cons 41 S) 
              '(77 . 0) 
              '(78 . 1) 
              (cons 53 A) 
              '(43 . 0.) 
              '(44 . 0.) 
              '(45 . 1.) 
              '(46 . 1.) 
              '(79 . 0) 
              '(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 
      ) ;_  list 
    ) ;_  apply 
  ) ;_  entmakex 
) ;_  defun 
 
 
(ENTMAKEX-HATCH 
  '(((538.794 584.563) 
     (895.629 584.563) 
     (895.629 997.377) 
     (538.794 997.377) 
    ) 
    ((386.809 345.13) 
     (670.955 345.13) 
     (670.955 855.369) 
     (386.809 855.369) 
    ) 
   ) 
  (/ pi 2) 
  "ANSI31" 
  2. 
) ;_  entmakex-hatch 
 
(ENTMAKEX-HATCH 
  (list 
    (mapcar 'cdr 
            (vl-remove-if-not 
              '(lambda (X) (= (car X) 10)) 
              (entget (car (entsel))) 
            ) 
    ) 
  ) ;_  list 
  (/ pi 2) 
  "ANSI31" 
  2. 
) 
  [/FONT]

qiaqiadeng · 发表于 2009-5-5 18:01:14

SOLID没办法填充，请楼上的想办法修正一下。

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：用entmak建立一个填充对象

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [求助]：用entmak建立一个填充对象