Entmake图案填充

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

我正在尝试创建一个块定义，其中包括一些实体图案填充，参考此线程：

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程序

copy


(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程序

copy


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

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

copy


(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

一个更好的常规疗法——我上瘾太快了。。。

还涉及子对象：

copy


(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，它们用于实体名称

[编程交流] Entmake图案填充

发表回复

精选推荐