社区 › Auto Lisp › 关于Entma示例代码的帮助

TuFoFi 发表于 2022-7-6 12:02:41

关于Entma示例代码的帮助

我试图用ENTMAKE在一个简单的多边形上做一个实体图案填充。
 
知道为什么下面的顺序不起作用吗？

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq layername "0" x1 0.0 y1 0.0 z1 0.0 x2 120.0 y2 0.0 z2 0.0
   x3 120.0 y3 120.0 z3 0.0 x4 0.0 y4 120.0 z4 0.0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq dummyhatch
(list (cons 0 "HATCH")             
       (cons 2 "SOLID")
       (cons 8 layername)
       (cons 62 256)
       (cons 10 (list 0.0 0.0 0.0))
       (cons 210 (list 0.0 0.0 0.0))
       (cons 70 1)
       (cons 71 0)
       (cons 91 1)
       (cons 92 1)
       (cons 93 4)
       (cons 72 1)
       (cons 10 (list x1 y1 z1))
       (cons 11 (list x2 y2 z2))
       (cons 72 1)
       (cons 10 (list x2 y2 z2))
       (cons 11 (list x3 y3 z3))
       (cons 72 1)
       (cons 10 (list x3 y3 z3))
       (cons 11 (list x4 y4 z4))
       (cons 72 1)
       (cons 10 (list x4 y4 z4))
       (cons 11 (list x1 y1 z1))
       (cons 97 0)
       (cons 75 2)
       (cons 76 1)
       (cons 98 1)
       (cons 10 (list 0.0 0.0 0.0))
       (cons 470 "LINEAR")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(entmake dummyhatch)

CarlB 发表于 2022-7-6 12:22:54

我玩了你的代码，并使其工作。似乎需要100个组码来填充。加上210代码应该是“0 0 1”。以下工作有效，不知道重新订购是否有任何影响：
 

(setq layername "0" x1 0.0 y1 0.0 z1 0.0 x2 120.0 y2 0.0 z2 0.0
x3 120.0 y3 120.0 z3 0.0 x4 0.0 y4 120.0 z4 0.0)
(setq dummyhatch
(list (cons 0 "HATCH")
'(100 . "AcDbEntity")
(cons 8 layername)
'(100 . "AcDbHatch")
(cons 62 256)
(cons 10 (list 0.0 0.0 0.0))
(cons 210 (list 0.0 0.0 1.0)) ;;changed z
(cons 2 "SOLID")
(cons 70 1)
(cons 71 0)
(cons 91 1)
(cons 92 1)
(cons 93 4)
(cons 72 1)
(cons 10 (list x1 y1 z1))
(cons 11 (list x2 y2 z2))
(cons 72 1)
(cons 10 (list x2 y2 z2))
(cons 11 (list x3 y3 z3))
(cons 72 1)
(cons 10 (list x3 y3 z3))
(cons 11 (list x4 y4 z4))
(cons 72 1)
(cons 10 (list x4 y4 z4))
(cons 11 (list x1 y1 z1))
(cons 97 0)
(cons 75 2)
(cons 76 1)
(cons 98 1)
(cons 10 (list 0.0 0.0 0.0))
(cons 470 "LINEAR")))
(entmake dummyhatch)

TuFoFi 发表于 2022-7-6 12:28:43

;;;;;; begin entmake_insert----format: (entmake_insert "testme" "0" 0.0 0.0 0.0 45 1.0 1.0 1.0 0 1 1 0.0 0.0 0.0 0.0 1.0)
(defun entmake_insert(blockname layername xcoord ycoord zcoord ang xscale yscale zscale attribflag colmncnt rowcnt
         colmnspcng rowspcng xvectr yvectr zvectr / dummy)
(setq    dummy (list (cons 0 "INSERT")
         (cons 2 blockname)
         (cons 100 "AcDbEntity")
         (cons 8 layername)
         (cons 100 "AcDbBlockReference")
         (cons 10 (list xcoord ycoord zcoord))
         (cons 50 (* pi (/ ang 180.0)))
         (cons 41 xscale)
         (cons 42 yscale)
         (cons 43 zscale)
         (cons 66 attribflag)
         ;(cons 70 colmncnt)
         ;(cons 71 rowcnt)
         ;(cons 44 colmnspcng)
         ;(cons 45 rowspcng)
         (cons 210 (list xvectr yvectr zvectr))))
(entmake dummy))
;;;;;;;;;end entmake_insert

rkmcswain 发表于 2022-7-6 12:46:49

谢谢你们的例子。我可以把它稍微修改一下，这样我也可以设置比例。Carl的代码很好用，但当切换到模式（与实体相反）和您想要设置比例时，需要进行必要的更改。
 
例子：
 


;;; this setq is only needed to populate variables used below.
(setq pt7 (list 0.0 0.0 0.0)
   pt3 (list 15.0 0.0 0.0)
   pt4 (list 15.0 18.5 0.0)
   pt8 (list 0.0 18.5 0.0)   )

(setq dummyhatch
      (list (cons 0 "HATCH")
   (cons 100 "AcDbEntity")
   (cons 8 "0")
   (cons 100 "AcDbHatch")             
   (cons 10 (list 0.0 0.0 0.0))
   (cons 210 (list 0.0 0.0 1.0))             
   (cons 2 "ANSI31")
   (cons 70 0)
   (cons 71 0)
   (cons 91 1)
   (cons 92 1)
   (cons 93 4)
      
   (cons 72 1)
   (cons 10 pt7)
   (cons 11 pt3)
   (cons 72 1)
   (cons 10 pt3)
   (cons 11 pt4)
   (cons 72 1)
   (cons 10 pt4)
   (cons 11 pt8)
   (cons 72 1)
   (cons 10 pt8)
   (cons 11 pt7)             

   (cons 97 0)
   (cons 75 0)
   (cons 76 1)
   
   (cons 52 0.0)         ;angle
   (cons 41 20.0)      ;scale
   (cons 77 0)         ;double flag
   (cons 78 1)         ;# of pat def lines
   (cons 53 (* 0.25 pi)) ;pat line angle (45° in this case)
   (cons 43 0.0)         ; x pat base pt
   (cons 44 0.0)         ; y pat base pt
   (cons 45 -1.0)      ; x pat line offset ***
   (cons 46 1.0)         ; y pat line offset ***
   (cons 79 0)         ; # of dash length items
   
   (cons 98 1)
   (cons 10 (list 0.0 0.0 0.0))             
      )
)
(entmake dummyhatch)
(redraw)

;*** = I have found it doesn't matter what you set these to.
The values appear to be generated automatically, but you
cannot omit these lines

fixo 发表于 2022-7-6 12:56:21

 
这是尤金埃尔帕诺夫写的
也许你也会感兴趣
 

(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 . "ANSI31")
         '(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
); _
;;Call:
(setq h (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))
         )
       ) ;_entmakex-hatch
) ;_setq

 
~'J'~

rkmcswain 发表于 2022-7-6 13:10:29

是的，我的下一个冒险是使它更像一个可扩展的函数，可以接受可变长度的实体列表。谢谢

查看完整版本: 关于Entma示例代码的帮助