ENTMAKE块

satishrajdev · 发表于 2022-7-6 06:35:02

大家好，

回来时还有一个问题：-

我创建了以下代码来生成块，我有以下疑问：-
1.LWPOLYLINE有问题，有人能纠正吗？？？
2.需要DXF代码将块颜色更改为“ByBlock”

非常感谢：）


(entmake '((0 . "LWPOLYLINE")
(100 . "AcDbEntity")
(67 . 0)
(8 . "0")
(100 . "AcDbTrace")
(91 . 3)
(10 0 0 0)
(10 -1 0.3322 0)
(10 -1 -0.3322 0)
(210 0 0 0)
(39 . 0)
)
)

pBe · 发表于 2022-7-6 06:48:15

copy

(entmake '((0 . "LWPOLYLINE")
              (100 . "AcDbEntity")
              (100 . "AcDbPolyline")
              (67 . 0)
              (8 . "0")
              (91 . 3)
              (10 0 0 0)
              (10 -1 0.3322 0)
              (10 -1 -0.3322 0)
              (210  0 0 0)
              (39 . 0)
             )
   )

satishrajdev · 发表于 2022-7-6 06:56:49

非常感谢pBe，我急切地等待着，因为我发布了。。。。

但是如何将块颜色更改为Byblock，有什么方法吗

pBe · 发表于 2022-7-6 07:04:38

(62 . 0);

我相信你会明白的satishrajdev

Stefan BMR · 发表于 2022-7-6 07:08:02

copy

(entmake '((0 . "LWPOLYLINE")
(100 . "AcDbEntity")
(67 . 0)
(8 . "0")
[color=red](100 . "AcDbPolyline")
(90 . 3)
(70 . 1)[/color]
(10 0 0 0)
(10 -1 0.3322 0)
(10 -1 -0.3322 0)
(210 0 0 1)
(39 . 0)
)
)

satishrajdev · 发表于 2022-7-6 07:16:10

非常感谢pBe。。。。。

我使用了以下代码。这有点忙：_

copy

      (command "bedit" "SS")
     (command "chprop" "all" "" "c" "byblock" "")
     (command "bclose" "s")

satishrajdev · 发表于 2022-7-6 07:22:53

非常感谢Stefan的更正。。。。。。我的代码终于完成了。。。。。。

pBe · 发表于 2022-7-6 07:29:01

在任何情况下，如果该块确实存在并且不是byblock，那么您可能必须执行您发布的代码段。。。或者更好的是，运行（entmake….）行，不管它是否存在。不，如果是的话，有点重新定义块。你的选择。

satishrajdev · 发表于 2022-7-6 07:41:57

是的，pBe，我已经按照你的建议（62.0）修改了我的代码，它对我来说非常适合。线条实际上是无关紧要的，但保留下来以供选择更改填充图案。

谢谢你们抽出时间。。。。。。

[编程交流] ENTMAKE块

发表回复

精选推荐