求教：entmake创建块问题

smartstar

如果图形中无 _ARCHTICK 块（标注尺寸箭头），怎么可以用lsp创建？

下面代码不知为何不能创建！
   (entmake (list
           '(0 . "BLOCK")
           '(100 . "AcDbEntity")
           '(67 . 0)
           '(8 . "0")
           '(100 . "AcDbBlockBegin")
           '(70 . 0)
           '(10 0.0 0.0 0.0)
           '(2 . "_ARCHTICK")
           '(1 . "")
         )
     )

1993063

entmake块要分三部分,块头,块数据,块尾......

smartstar

1993063 发表于 2013-12-17 17:20
entmake块要分三部分,块头,块数据,块尾......

能说详细些吗？

1993063

smartstar 发表于 2013-12-17 00:31
能说详细些吗？

一个简单的例子
(Defun MakSAH nil
        (Entmake '((0 . "Block") (100 . "AcDbEntity") (67 . 0) (8 . "0") (370 . -2) (100 . "AcDbBlockReference") (2 . "块名") (10 0 0 0) (70 . 0)))
        (Entmake '((0 . "LINE") (100 . "AcDbEntity") (67 . 0) (8 . "0") (62 . 0) (370 . -2) (100 . "AcDbLine") (10 2.199970234791862 0.166637200455256 0) (11 3.19994046958368 0 0)))
        (Entmake '((0 . "ENDBLK") (100 . "AcDbBlockEnd") (8 . "0")))
        (princ)
)

edata

entmake创建图元必要条件(慢慢更新) http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92482&extra=&mobile=yes (UC浏览器)

窗外流逝的时光

1993063 发表于 2013-12-17 19:14
一个简单的例子
(Defun MakSAH nil
        (Entmake '((0 . "Block") (100 . "AcDbEntity") (67 . 0) (8 . "0 ...

学习了！！！