如何通过u创建实体图案填充

bijoyvm · 发表于 2022-7-6 08:51:02

你好
我正在尝试使用lisp制作钻孔属性块（请参阅附件）
在这个lisp中，我需要添加实体图案填充，如所附图像所示

请帮我创建这个lisp。

谢谢&regads
比乔伊

BH块。lsp

BlackBox · 发表于 2022-7-6 08:59:33

研究AddHatch方法；特别注意开发人员文档中的边界注释。

HTH公司

GP_ · 发表于 2022-7-6 09:07:37

在块定义中添加：

copy


(entmake
 (list
     '(0 . "HATCH")
     '(100 . "AcDbEntity")
     '(67 . 0)
     '(410 . "Model")
     '(8 . "0")
     '(100 . "AcDbHatch")
     '(10 0.0 0.0 0.0)
     '(210 0.0 0.0 1.0)
     '(2 . "SOLID")
     '(70 . 1)
     '(71 . 0)
     '(91 . 1)
     '(92 . 7)
     '(72 . 1)
     '(73 . 1)
     '(93 . 3)
     '(10 0.0 2.0 0.0)
     '(42 . 0.414214)
     '(10 -2.0 0.0 0.0)
     '(42 . 0.0)
     '(10 0.0 0.0 0.0)
     '(42 . 0.0)
     '(97 . 0)
     '(75 . 1)
     '(76 . 1)
     '(47 . 0.0131804)
     '(98 . 1)
     '(10 -1.38935 0.623746 0.0)
   )
)
(entmake
 (list
     '(0 . "HATCH")
     '(100 . "AcDbEntity")
     '(67 . 0)
     '(410 . "Model")
     '(8 . "0")
     '(100 . "AcDbHatch")
     '(10 0.0 0.0 0.0)
     '(210 0.0 0.0 1.0)
     '(2 . "SOLID")
     '(70 . 1)
     '(71 . 0)
     '(91 . 1)
     '(92 . 7)
     '(72 . 1)
     '(73 . 1)
     '(93 . 3)
     '(10 2.0 0.0 0.0)
     '(42 . 0.0)
     '(10 0.0 0.0 0.0)
     '(42 . 0.0)
     '(10 0.0 -2.0 0.0)
     '(42 . 0.414214)
     '(97 . 0)
     '(75 . 1)
     '(76 . 1)
     '(47 . 0.0131804)
     '(98 . 1)
     '(10 0.839759 -0.628394 0.0)
   )
)

bijoyvm · 发表于 2022-7-6 09:14:02

非常感谢你，医生，你让我度过了美好的一天。。

VVA · 发表于 2022-7-6 09:17:46

看这里

copy


(defun entmakex-hatch (L a n s)
;; By ElpanovEvgeniy
;; L - list point
;; A - angle hatch
;; N - name pattern
;; S - scale

bijoyvm · 发表于 2022-7-6 09:21:20

谢谢VVA

bijoyvm · 发表于 2022-7-6 09:29:01

你好
我正在尝试学习如何用enmake方法制作实体图案填充。作为练习，我试图创建一个矩形实体图案填充，但它总是显示错误。你能检查一下下面的代码吗？请告诉我我在代码中犯的错误。让我知道哪些值可以忽略。

谢谢和问候
比乔伊。

copy

(defun c:tp ( )
           (entmake
        (list
 
                   '(0 . "HATCH") 
                   '(100 . "AcDbEntity") 
                   '(67 . 0) 
                   '(410 . "Model") 
                   '(8 . "0") 
                   '(100 . "AcDbHatch") 
                   '(10 0.0 0.0 0.0) 
                   '(210 0.0 0.0 1.0) 
                   '(2 . "SOLID") 
                   '(70 . 1) 
                   '(71 . 1) 
                   '(91 . 1) 
                   '(92 . 7) 
                   '(72 . 0) 
                   '(73 . 1) 
                   '(93 . 4) 
                   '(10 0.0 2.0 0.0) 
                   '(10 -2.0 2.0 0.0) 
                   '(10 -2.0 0.0 0.0) 
                   '(10 0.0 0.0 0.0) 
                   '(97 . 3) 
                   '(75 . 1) 
                   '(76 . 1) 
                   '(47 . 0.0261891) 
                   '(98 . 1) 
                   '(10 -0.973791 0.503782 0.0) 
                   '(450 . 0) 
                   '(451 . 0) 
                   '(460 . 0.0) 
                   '(461 . 0.0) 
                   '(452 . 1) 
                   '(462 . 1.0) 
                   '(453 . 2) 
                   '(463 . 0.0) 
                   '(63 . 5) 
                   '(421 . 255) 
                   '(463 . 1.0) 
                   '(63 . 7) 
                   '(421 . 16777215) 
                   '(470 . "LINEAR")
               )
    )
           
     
   (princ)
)

VVA · 发表于 2022-7-6 09:33:20

copy


(defun entmakex-solidhatch ( L )
 ;; L - list of list point. like ((pt11 pt12 pt13)(pt21 pt22 pt23))
 ;; Use
;;;(entmakex-solidhatch
;;;    (list
;;;      (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (car (entsel "\nSelect Polyline:")))))
;;;      );_  list
;;;    )
 (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)
         (cons 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
   ) ;_  apply
   (list '(75 . 0)
         '(76 . 1)
         '(47 . 1.)
         '(98 . 2)
         '(10 0. 0. 0.0)
         '(10 0. 0. 0.0)
         '(450 . 0)
         '(451 . 0)
         '(460 . 0.0)
         '(461 . 0.0)
         '(452 . 0)
         '(462 . 0.0)
         '(453 . 2)
         '(463 . 0.0)
         '(63 . 256)
         '(463 . 1.0)
         '(63 . 256)
         '(470 . "LINEAR")
   ) ;_  list
  ) ;_  list
 ) ;_  apply
)
 )

使用

copy


(entmakex-solidhatch
[color="blue"] (list[/color]
 [color="red"](list
   '(0.0 2.0 0.0)
   '(-2.0 2.0 0.0)
   '(-2.0 0.0 0.0)
   '(0.0 0.0 0.0)
   )[/color]
     [color="blue"]  )[/color]
 )

重要的

bijoyvm · 发表于 2022-7-6 09:44:11

谢谢VVA的回复，实际上我想用lisp制作一个与之前讨论中制作的钻孔块几乎相同的试坑块。GP_先生，帮我在上面画一个实心图案。但是当我试图在新的lisp中创建实体图案填充时，它不起作用。所以需要帮助来完成这个附加的lisp，如所附的图片所示。请告诉我在制作entmake函数时的重要想法。

copy

   
   ;;===============================================;;
   ;; Example by Lee Mac 2011  -  [url="http://www.lee-mac.com"]www.lee-mac.com[/url]   ;;
   ;;===============================================;;
(defun c:tpb ( )
   
   (if (not (tblsearch "BLOCK" "TPBLK"))
       (progn
           (if (not (tblsearch "STYLE" "Gen-Text"))
               (entmake
                   (list
                       (cons 0 "STYLE")
                       (cons 100 "AcDbSymbolTableRecord")
                       (cons 100 "AcDbTextStyleTableRecord")
                       (cons 2 "Gen-Text")
                       (cons 70 0)
                       (cons 40 2.5)
                       (cons 3 "Arial.ttf")
                   )
               )
           )
           
           (entmake
               (list
                   (cons 0 "BLOCK")
                   (cons 8 "0")
                   (cons 370 0)
                   (cons 2 "TPBLK")
                   (cons 70 2)
                   (cons 4 "Block to Place Trial pit Locations")
                   (list 10 0.0 0.0 0.0)
               )
           )
           (entmake
              (list
                  (cons 0 "LWPOLYLINE")
                  (cons 100 "AcDbEntity")
                  (cons 100 "AcDbPolyline")
                  (cons 8 "0")
                  (cons 90 4)
                  (cons 70 1)
                  (list 10 -2.0 2.0)
                  (list 10  2.0 2.0)
                  (list 10  2.0 -2.0)
                  (list 10 -2.0 -2.0)
              )
           )
           
           (entmake
               (list
                   (cons 0 "LINE")
                   (cons 8 "0")
                   (cons 6 "Continuous")
                   (cons 370 0)
                   (list 10 0.0 -3.0 0.0)
                   (list 11 0.0 3.0 0.0)                    
               )
           )
           
           (entmake
               (list
                   (cons 0 "LINE")
                   (cons 8 "0")
                   (cons 6 "Continuous")
                   (cons 370 0)
                   (list 10 -3.0 0.0 0.0)
                   (list 11 3.0 0.0 0.0)                    
               )
           )            
   
           (entmake
               (list
                   (cons 0 "ATTDEF")
                   (cons 8 "0")
                   (cons 370 0)
                   (cons 7 "Gen-Text")
                   (list 10 2.5 3.5 0.0)
                   (list 11 2.5 3.5 0.0)
                   (cons 40 3.5)
                   (cons 1 "TP-00")
                   (cons 3 "Trial pit Location")
                   (cons 2 "TP")
                   (cons 70 0)
                   (cons 72 0)
                   (cons 74 2)
               )
           )
           
           (entmake
               (list
                   (cons 0 "ENDBLK")
                   (cons 8 "0")
               )
           )
         
       )
   )
   (princ)
)

谢谢和问候
比乔伊。v、 m

VVA · 发表于 2022-7-6 09:45:19

copy


(defun c:tpb ( )
   
   (if (not (tblsearch "BLOCK" "TPBLK"))
       (progn
           (if (not (tblsearch "STYLE" "Gen-Text"))
               (entmake
                   (list
                       (cons 0 "STYLE")
                       (cons 100 "AcDbSymbolTableRecord")
                       (cons 100 "AcDbTextStyleTableRecord")
                       (cons 2 "Gen-Text")
                       (cons 70 0)
                       (cons 40 2.5)
                       (cons 3 "Arial.ttf")
                   )
               )
           )
           
           (entmake
               (list
                   (cons 0 "BLOCK")
                   (cons 8 "0")
                   (cons 370 0)
                   (cons 2 "TPBLK")
                   (cons 70 2)
                   (cons 4 "Block to Place Trial pit Locations")
                   (list 10 0.0 0.0 0.0)
               )
           )
           (entmake
              (list
                  (cons 0 "LWPOLYLINE")
                  (cons 100 "AcDbEntity")
                  (cons 100 "AcDbPolyline")
                  (cons 8 "0")
                  (cons 90 4)
                  (cons 70 1)
                  (list 10 -2.0 2.0)
                  (list 10  2.0 2.0)
                  (list 10  2.0 -2.0)
                  (list 10 -2.0 -2.0)
              )
           )
           
           (entmake
               (list
                   (cons 0 "LINE")
                   (cons 8 "0")
                   (cons 6 "Continuous")
                   (cons 370 0)
                   (list 10 0.0 -3.0 0.0)
                   (list 11 0.0 3.0 0.0)                    
               )
           )
           
           (entmake
               (list
                   (cons 0 "LINE")
                   (cons 8 "0")
                   (cons 6 "Continuous")
                   (cons 370 0)
                   (list 10 -3.0 0.0 0.0)
                   (list 11 3.0 0.0 0.0)                    
               )
           )            
   
           (entmake
               (list
                   (cons 0 "ATTDEF")
                   (cons 8 "0")
                   (cons 370 0)
                   (cons 7 "Gen-Text")
                   (list 10 2.5 3.5 0.0)
                   (list 11 2.5 3.5 0.0)
                   (cons 40 3.5)
                   (cons 1 "TP-00")
                   (cons 3 "Trial pit Location")
                   (cons 2 "TP")
                   (cons 70 0)
                   (cons 72 0)
                   (cons 74 2)
               )
           )
           (entmakex-solidhatch
             (list
               (list
                 '(0.0 2.0 0.0)
                 '(-2.0 2.0 0.0)
                 '(-2.0 0.0 0.0)
                 '(0.0 0.0 0.0)
                 )
               (list
                 '(2.0 0.0 0.0)
                 '(2.0 -2.0 0.0)
                 '(0.0 -2.0 0.0)
                 '(0.0 0.0 0.0)
                 )
              )
             )
           (entmake
               (list
                   (cons 0 "ENDBLK")
                   (cons 8 "0")
               )
           )
         
       )
   )
   (princ)
)

entmakex solidhatch从#8获取

[编程交流] 如何通过u创建实体图案填充

发表回复

精选推荐