插入带有

Cholomanchuten · 发表于 2022-7-6 11:27:47

谢谢大家。事实上，第一个答案之一对我很有效。
这个scr包含以下代码：

（命令“_text”“10001000,0”“40”“0”“TEXTLINE”）

适用于Autocad 2008。

谢谢，祝你好运！

Lee Mac · 发表于 2022-7-6 11:29:04

这会给你在绘图中使用不同的文本样式带来问题——我倾向于使用entmake。

CHLUCFENG · 发表于 2022-7-6 11:33:15

根据我的建议，我已经开始了理解entmake的旅程，并将努力摆脱使用（命令…）的旧习惯总是

李，我有你指示我去的entmakex实体的列表，谢谢。我决定采用每个实体类型，并尝试通过将正确的参数传递给entmake引擎来调用它们。简单的实体（线、圆、文本等）是我可以实现的。然而，区块仍然是一个谜。我查看了一些不同的代码，认为如果先定义块，然后定义子实体，然后关闭（结束）块定义，我应该会看到块出现在屏幕上。

该代码在图形数据库中创建块图元的实例，但不会显示在屏幕上。

copy

 
(defun c:LOLLIPOP ()
 (entmake '((0 . "BLOCK")
     (100 . "AcDbEntity")
     (67 . 0)
     (8 . "0")
     (100 . "AcDbBlockReference")
     (66 . 1)
     (2 . "LOLLIPOP")
     (10 0.0 0.0 0.0)
     (70 . 2)
    )
 )
 (entmake '((0 . "CIRCLE")
     (100 . "AcDbEntity")
     (67 . 0)
     (8 . "NewLayer1")
     (100 . "AcDbCircle")
     (10 0.0 3.0 0.0)
     (40 . 1.0)
    )
 )
 (entmake '((0 . "LINE")
     (100 . "AcDbEntity")
     (67 . 0)
     (8 . "NewLayer2")
     (100 . "AcDbLine")
     (10 0.0 0.0 0.0)
     (11 0.0 2.0 0.0)
    )
 )
 (entmake '((0 . "ATTDEF")
     (100 . "AcDbEntity")
     (67 . 0)
     (8 . "NewLayer3")
     (100 . "AcDbText")
     (10 -0.375 2.4375 0.0)
     (40 . 1.125)
     (1 . "X")
     (50 . 0.0)
     (41 . 1.0)
     (51 . 0.0)
     (7 . "MONOSIFR")
     (71 . 0)
     (72 . 4)
     (11 0.0 3.0 0.0)
     (100 . "AcDbAttributeDefinition")
     (3 . "PROMPT X:")
     (2 . "TAGX")
     (70 . 0)
     (73 . 0)
     (74 . 0)
    )
 )
 (entmake '((0 . "ENDBLK") (100 . "AcDbBlockEnd") (8 . "0")))
 (command "_.Layer" "c" "1" "NewLayer1" "c" "2" "NewLayer2" "c" "3" "NewLayer3" "")
 (princ)
)

为什么不显示？此外，我使用命令更改图层颜色。我研究了entmod，但它并没有解释修改层属性。有没有更合适的方法可以在不使用命令调用的情况下修改图层特性？

fixo · 发表于 2022-7-6 11:35:54

只是一个快速而肮脏的版本
（更改代码中的textstyle名称）

copy


(defun emake_lollipop (p)
 (entmake (list (cons 0 "INSERT")
  (cons 2 "LOLLIPOP")
  (cons 10 p)
  (cons 66 1)
                (cons 62 256)
                (cons 39 0)
                (cons 6 "BYLAYER"))
   )
 (entmake (list (cons 0 "ATTRIB")
                (cons 8  "NewLayer3")
                (cons 10 (mapcar '+ p '(-0.375 2.4375 0.0)))
                (cons 11 (mapcar '+ p '(0.0 3.0 0.0)))
                (cons 40 1)
                (cons 1 "Blablabla")
                (cons 2 "TAGX")
                (cons 70 0)
                (cons 73 0)
                (cons 50 0)
                (cons 41 1)
                (cons 51 0)
                (cons 7 "STANDARD")
                (cons 71 0)
                (cons 72 0)
                (cons 210 (list 0 0 1))
                (cons 73 0)
                (cons 62 256)
                (cons 39 0)
                (cons 6 "BYLAYER"))
   )
 (entmake (list
     (cons 0 "SEQEND")
     (cons 8 "0"))
   )
   )
(defun c:LOLLIPOP ()
 (command "_.Layer" "m" "NewLayer1" "c" "1" "NewLayer1"
   "m" "NewLayer2" "c" "2" "NewLayer2"
   "m" "NewLayer3" "c" "3" "NewLayer3" "")
   (if (not (tblsearch "block" "lollipop"))
   (progn
   (entmake '((0 . "BLOCK")
     (100 . "AcDbEntity")
     (67 . 0)
     (8 . "0")
     (100 . "AcDbBlockReference")
     (66 . 1)
     (2 . "LOLLIPOP")
     (10 0.0 0.0 0.0)
     (70 . 2)
    )
 )
 (entmake '((0 . "CIRCLE")
     (100 . "AcDbEntity")
     (67 . 0)
     (8 . "NewLayer1")
     (100 . "AcDbCircle")
     (10 0.0 3.0 0.0)
     (40 . 1.0)
    )
 )
 (entmake '((0 . "LINE")
     (100 . "AcDbEntity")
     (67 . 0)
     (8 . "NewLayer2")
     (100 . "AcDbLine")
     (10 0.0 0.0 0.0)
     (11 0.0 2.0 0.0)
    )
 )
 (entmake '((0 . "ATTDEF")
     (100 . "AcDbEntity")
     (67 . 0)
     (8 . "NewLayer3")
     (100 . "AcDbText")
     (10 -0.375 2.4375 0.0)
     (40 . 1.125)
     (1 . "X")
     (50 . 0.0)
     (41 . 1.0)
     (51 . 0.0)
     (7 . "STANDARD")
     (71 . 0)
     (72 . 4)
     (11 0.0 3.0 0.0)
     (100 . "AcDbAttributeDefinition")
     (3 . "PROMPT X:")
     (2 . "TAGX")
     (70 . 0)
     (73 . 0)
     (74 . 0)
    )
 )
 (entmake '((0 . "ENDBLK")  (8 . "0"))
   )
)
     )
(while
(setq p (getpoint "\nPick insertion point >> "))
(emake_lollipop p)
)
 (princ)
)