Lee Mac 发表于 2022-7-6 14:44:32

Entmake图案填充

我正在尝试创建一个块定义，其中包括一些实体图案填充，参考此线程：
 
http://www.cadtutor.net/forum/showthread.php?t=35213
 
然而，我不知道要在entmake列表中指定哪些参数。
 
关于如何创建必要的表，我很乐意提供任何帮助
 
我感谢你的时间和耐心。
 
干杯
 
李
 
编辑：我自己设法解决了这个问题，但欢迎任何人提供任何提示或建议

The Buzzard 发表于 2022-7-6 14:48:56

李，
 
附件是一个典型的块定义，带有阴影，供您参考。
 
 
还需要什么吗，朱斯克问。
秃鹰
语音数据出口Flor DEF。txt文件

The Buzzard 发表于 2022-7-6 14:51:50

还要注意，DXF信息的顺序对其操作至关重要

The Buzzard 发表于 2022-7-6 14:56:32

我使用附带的代码提取DXF信息，并按显示顺序使用它。
打印DXF2.LSP

Lee Mac 发表于 2022-7-6 15:00:13

非常感谢Buzzard-我选择了手动创建的图案填充，并最终将其用作参考-但它正在决定哪些值不需要出现在导致问题的entmake参考中-但感谢您的参考和LISP
 
哦，顺便说一句，我为你更简洁地改写了你的Lisp程序
 

(defun c:pdxf (/ pick)
(if (setq pick (car (entsel "\nSelect Object: ")))
   (foreach x (entget pick)
   (print x)))
(princ))

Lee Mac 发表于 2022-7-6 15:02:04

非常感谢Buzzard-我选择了手动创建的图案填充，并最终将其用作参考-但它正在决定哪些值不需要出现在导致问题的entmake参考中-但感谢您的参考和LISP
 
哦，顺便说一句，我为你更简洁地改写了你的Lisp程序
 

(defun c:pdxf (/ pick)
(if (setq pick (car (entsel "\nSelect Object: ")))
   (foreach x (entget pick)
   (print x)))
(princ))

 
或者，如果您想要文本屏幕：
 

(defun C:pdxf (/ pick)
(if (setq pick (car (entsel "\nSelect Object: ")))
   (progn (textscr)
   (foreach x (entget pick)
   (print x))))
(princ))

The Buzzard 发表于 2022-7-6 15:06:21

注意我使用的值与程序提供的值。
在数据的顶部，我相信只有一个值需要删除。
实体制作中的图案填充在某种程度上是非常感性的，可以重新创建。

The Buzzard 发表于 2022-7-6 15:06:55

谢谢你的例行修复。

Lee Mac 发表于 2022-7-6 15:11:17

一个更好的常规疗法——我上瘾太快了。。。
 
还涉及子对象：
 

(defun c:en (/ Obj eNxt)
(if (setq Obj (car (entsel "\nSelect Object: ")))
   (progn (textscr)
   (foreach x (entget Obj)
       (print x))
   (if (setq eNxt (entnext Obj))
       (while (not (eq "SEQEND" (cdadr (entget eNxt))))
         (princ "\n\nSub:\n")
         (foreach x (entget eNxt)
         (print x)) (setq eNxt (entnext eNxt)))))) (princ))

The Buzzard 发表于 2022-7-6 15:13:15

您省略了DXF数据-1和330，它们用于实体名称
页: [1] 2
查看完整版本: Entmake图案填充