本帖最后由 _rocky 于 2025-11-5 17:34 编辑

  2. (entmake
  3.   (list
  4.     (cons 0 "LAYER")
  5.     (cons 100 "AcDbSymbolTableRecord")
  6.     (cons 100 "AcDbLayerTableRecord")
  7.     '(2 . "WINDOW")
  8.     '(70 . 0)
  9.     '(62 . 4)
  10.     '(6 . "Continuous")
  11.   )
  12. )
  13. (entmake (list (cons 0 "BLOCK") '(2 . "$DorLib2D$00000009") '(70 . 0) '(4 . "") '(10 0.0 0.0 0.0)))
  14. (entmake
  15.   (list
  16.     (cons 0 "ARC")
  17.     (cons 100 "AcDbEntity")
  18.     (cons 67 0)
  19.     (cons 8 "0")
  20.     (cons 370 13)
  21.     (cons 100 "AcDbCircle")
  22.     (cons 10 '(0.37165 0.0817319 0.0))
  23.     (cons 40 0.824561)
  24.     (cons 210 '(0.0 0.0 1.0))
  25.     (cons 100 "AcDbArc")
  26.     (cons 50 1.52077)
  27.     (cons 51 3.14284)
  28.   )
  29. )
  30. (entmake
  31.   (list
  32.     (cons 0 "LINE")
  33.     (cons 100 "AcDbEntity")
  34.     (cons 67 0)
  35.     (cons 8 "0")
  36.     (cons 100 "AcDbLine")
  37.     (cons 10 '(0.454107 0.0807006 0.0))
  38.     (cons 11 '(0.454107 0.905262 0.0))
  39.     (cons 210 '(0.0 0.0 1.0))
  40.   )
  41. )
  42. (entmake
  43.   (list
  44.     (cons 0 "LINE")
  45.     (cons 100 "AcDbEntity")
  46.     (cons 67 0)
  47.     (cons 8 "0")
  48.     (cons 100 "AcDbLine")
  49.     (cons 10 '(0.412878 0.905262 0.0))
  50.     (cons 11 '(0.412878 0.0807006 0.0))
  51.     (cons 210 '(0.0 0.0 1.0))
  52.   )
  53. )
  54. (entmake
  55.   (list
  56.     (cons 0 "LINE")
  57.     (cons 100 "AcDbEntity")
  58.     (cons 67 0)
  59.     (cons 8 "0")
  60.     (cons 100 "AcDbLine")
  61.     (cons 10 '(0.412878 0.0807006 0.0))
  62.     (cons 11 '(0.454107 0.0807006 0.0))
  63.     (cons 210 '(0.0 0.0 1.0))
  64.   )
  65. )
  66. (entmake
  67.   (list
  68.     (cons 0 "LINE")
  69.     (cons 100 "AcDbEntity")
  70.     (cons 67 0)
  71.     (cons 8 "0")
  72.     (cons 100 "AcDbLine")
  73.     (cons 10 '(0.495335 -0.00175559 0.0))
  74.     (cons 11 '(0.495335 0.0807006 0.0))
  75.     (cons 210 '(0.0 0.0 1.0))
  76.   )
  77. )
  78. (entmake
  79.   (list
  80.     (cons 0 "LINE")
  81.     (cons 100 "AcDbEntity")
  82.     (cons 67 0)
  83.     (cons 8 "0")
  84.     (cons 100 "AcDbLine")
  85.     (cons 10 '(0.495335 0.0807006 0.0))
  86.     (cons 11 '(0.454107 0.0807006 0.0))
  87.     (cons 210 '(0.0 0.0 1.0))
  88.   )
  89. )
  90. (entmake
  91.   (list
  92.     (cons 0 "LINE")
  93.     (cons 100 "AcDbEntity")
  94.     (cons 67 0)
  95.     (cons 8 "0")
  96.     (cons 100 "AcDbLine")
  97.     (cons 10 '(0.454107 0.0807006 0.0))
  98.     (cons 11 '(0.454107 0.0394725 0.0))
  99.     (cons 210 '(0.0 0.0 1.0))
  100.   )
  101. )
  102. (entmake
  103.   (list
  104.     (cons 0 "LINE")
  105.     (cons 100 "AcDbEntity")
  106.     (cons 67 0)
  107.     (cons 8 "0")
  108.     (cons 100 "AcDbLine")
  109.     (cons 10 '(0.454107 0.0394725 0.0))
  110.     (cons 11 '(0.412878 0.0394725 0.0))
  111.     (cons 210 '(0.0 0.0 1.0))
  112.   )
  113. )
  114. (entmake
  115.   (list
  116.     (cons 0 "LINE")
  117.     (cons 100 "AcDbEntity")
  118.     (cons 67 0)
  119.     (cons 8 "0")
  120.     (cons 100 "AcDbLine")
  121.     (cons 10 '(0.412878 -0.00175559 0.0))
  122.     (cons 11 '(0.495335 -0.00175559 0.0))
  123.     (cons 210 '(0.0 0.0 1.0))
  124.   )
  125. )
  126. (entmake
  127.   (list
  128.     (cons 0 "LINE")
  129.     (cons 100 "AcDbEntity")
  130.     (cons 67 0)
  131.     (cons 8 "0")
  132.     (cons 100 "AcDbLine")
  133.     (cons 10 '(0.495335 -0.00175559 0.0))
  134.     (cons 11 '(0.495335 -0.00175559 0.0))
  135.     (cons 210 '(0.0 0.0 1.0))
  136.   )
  137. )
  138. (entmake
  139.   (list
  140.     (cons 0 "LINE")
  141.     (cons 100 "AcDbEntity")
  142.     (cons 67 0)
  143.     (cons 8 "0")
  144.     (cons 100 "AcDbLine")
  145.     (cons 10 '(0.412878 0.0394725 0.0))
  146.     (cons 11 '(0.412878 -0.00175559 0.0))
  147.     (cons 210 '(0.0 0.0 1.0))
  148.   )
  149. )
  150. (entmake
  151.   (list
  152.     (cons 0 "LINE")
  153.     (cons 100 "AcDbEntity")
  154.     (cons 67 0)
  155.     (cons 8 "0")
  156.     (cons 370 13)
  157.     (cons 100 "AcDbLine")
  158.     (cons 10 '(0.378004 0.782157 0.0))
  159.     (cons 11 '(0.378004 0.623508 0.0))
  160.     (cons 210 '(0.0 0.0 1.0))
  161.   )
  162. )
  163. (entmake
  164.   (list
  165.     (cons 0 "LINE")
  166.     (cons 100 "AcDbEntity")
  167.     (cons 67 0)
  168.     (cons 8 "0")
  169.     (cons 370 13)
  170.     (cons 100 "AcDbLine")
  171.     (cons 10 '(0.488981 0.782157 0.0))
  172.     (cons 11 '(0.488981 0.623508 0.0))
  173.     (cons 210 '(0.0 0.0 1.0))
  174.   )
  175. )
  176. (entmake
  177.   (list
  178.     (cons 0 "LINE")
  179.     (cons 100 "AcDbEntity")
  180.     (cons 67 0)
  181.     (cons 8 "0")
  182.     (cons 100 "AcDbLine")
  183.     (cons 10 '(0.454107 0.905262 0.0))
  184.     (cons 11 '(0.412878 0.905262 0.0))
  185.     (cons 210 '(0.0 0.0 1.0))
  186.   )
  187. )
  188. (entmake
  189.   (list
  190.     (cons 0 "LINE")
  191.     (cons 100 "AcDbEntity")
  192.     (cons 67 0)
  193.     (cons 8 "0")
  194.     (cons 100 "AcDbLine")
  195.     (cons 10 '(-0.494139 -0.00175559 0.0))
  196.     (cons 11 '(-0.494139 -0.00175559 0.0))
  197.     (cons 210 '(0.0 0.0 1.0))
  198.   )
  199. )
  200. (entmake
  201.   (list
  202.     (cons 0 "LINE")
  203.     (cons 100 "AcDbEntity")
  204.     (cons 67 0)
  205.     (cons 8 "0")
  206.     (cons 100 "AcDbLine")
  207.     (cons 10 '(-0.411683 -0.00175559 0.0))
  208.     (cons 11 '(-0.494139 -0.00175559 0.0))
  209.     (cons 210 '(0.0 0.0 1.0))
  210.   )
  211. )
  212. (entmake
  213.   (list
  214.     (cons 0 "LINE")
  215.     (cons 100 "AcDbEntity")
  216.     (cons 67 0)
  217.     (cons 8 "0")
  218.     (cons 100 "AcDbLine")
  219.     (cons 10 '(-0.411683 0.0394725 0.0))
  220.     (cons 11 '(-0.411683 -0.00175559 0.0))
  221.     (cons 210 '(0.0 0.0 1.0))
  222.   )
  223. )
  224. (entmake
  225.   (list
  226.     (cons 0 "LINE")
  227.     (cons 100 "AcDbEntity")
  228.     (cons 67 0)
  229.     (cons 8 "0")
  230.     (cons 100 "AcDbLine")
  231.     (cons 10 '(-0.452911 0.0394725 0.0))
  232.     (cons 11 '(-0.411683 0.0394725 0.0))
  233.     (cons 210 '(0.0 0.0 1.0))
  234.   )
  235. )
  236. (entmake
  237.   (list
  238.     (cons 0 "LINE")
  239.     (cons 100 "AcDbEntity")
  240.     (cons 67 0)
  241.     (cons 8 "0")
  242.     (cons 100 "AcDbLine")
  243.     (cons 10 '(-0.452911 0.0807006 0.0))
  244.     (cons 11 '(-0.452911 0.0394725 0.0))
  245.     (cons 210 '(0.0 0.0 1.0))
  246.   )
  247. )
  248. (entmake
  249.   (list
  250.     (cons 0 "LINE")
  251.     (cons 100 "AcDbEntity")
  252.     (cons 67 0)
  253.     (cons 8 "0")
  254.     (cons 100 "AcDbLine")
  255.     (cons 10 '(-0.494139 0.0807006 0.0))
  256.     (cons 11 '(-0.452911 0.0807006 0.0))
  257.     (cons 210 '(0.0 0.0 1.0))
  258.   )
  259. )
  260. (entmake
  261.   (list
  262.     (cons 0 "LINE")
  263.     (cons 100 "AcDbEntity")
  264.     (cons 67 0)
  265.     (cons 8 "0")
  266.     (cons 100 "AcDbLine")
  267.     (cons 10 '(-0.494139 -0.00175559 0.0))
  268.     (cons 11 '(-0.494139 0.0807006 0.0))
  269.     (cons 210 '(0.0 0.0 1.0))
  270.   )
  271. )
  272. (entmake
  273.   (list
  274.     (cons 0 "LINE")
  275.     (cons 100 "AcDbEntity")
  276.     (cons 67 0)
  277.     (cons 8 "0")
  278.     (cons 100 "AcDbLine")
  279.     (cons 10 '(0.488981 0.782157 0.0))
  280.     (cons 11 '(0.454107 0.782157 0.0))
  281.     (cons 210 '(0.0 0.0 1.0))
  282.   )
  283. )
  284. (entmake
  285.   (list
  286.     (cons 0 "LINE")
  287.     (cons 100 "AcDbEntity")
  288.     (cons 67 0)
  289.     (cons 8 "0")
  290.     (cons 100 "AcDbLine")
  291.     (cons 10 '(0.488981 0.623508 0.0))
  292.     (cons 11 '(0.454107 0.623508 0.0))
  293.     (cons 210 '(0.0 0.0 1.0))
  294.   )
  295. )
  296. (entmake
  297.   (list
  298.     (cons 0 "LINE")
  299.     (cons 100 "AcDbEntity")
  300.     (cons 67 0)
  301.     (cons 8 "0")
  302.     (cons 100 "AcDbLine")
  303.     (cons 10 '(0.412878 0.782157 0.0))
  304.     (cons 11 '(0.378004 0.782157 0.0))
  305.     (cons 210 '(0.0 0.0 1.0))
  306.   )
  307. )
  308. (entmake
  309.   (list
  310.     (cons 0 "LINE")
  311.     (cons 100 "AcDbEntity")
  312.     (cons 67 0)
  313.     (cons 8 "0")
  314.     (cons 100 "AcDbLine")
  315.     (cons 10 '(0.412878 0.623508 0.0))
  316.     (cons 11 '(0.378004 0.623508 0.0))
  317.     (cons 210 '(0.0 0.0 1.0))
  318.   )
  319. )
  320. (entmake '((0 . "ENDBLK")))
  321. (entmake
  322.   (list
  323.     (cons 0 "INSERT")
  324.     (cons 100 "AcDbEntity")
  325.     (cons 67 0)
  326.     (cons 410 "Model")
  327.     (cons 8 "WINDOW")
  328.     (cons 100 "AcDbBlockReference")
  329.     (cons 66 1)
  330.     (cons 2 "$DorLib2D$00000009")
  331.     (cons 10 '(37101.6 265828.0 0.0))
  332.     (cons 41 900.0)
  333.     (cons 42 -900.0)
  334.     (cons 43 900.0)
  335.     (cons 50 1.5708)
  336.     (cons 70 0)
  337.     (cons 71 0)
  338.     (cons 44 0.0)
  339.     (cons 45 0.0)
  340.     (cons 210 '(0.0 0.0 1.0))
  341.   )
  342. )

  344. )
复制代码


网友答: 用这个
  1. ;;;插入块
  2. (defun imblk (name pt sc ang / mspace 3dp blk ename)
  3.   (setq        mspace (vla-get-modelspace
  4.                  (vla-get-activedocument (vlax-get-acad-object))
  5.                )
  6.   )
  7.   (setq 3dp (vlax-3D-point pt))
  8.   (and
  9.     (or        (tblsearch "block" name)
  10.         (if (findfile (strcat name ".dwg"))
  11.           (progn
  12.             (setvar 'cmdecho 0)
  13.             (command "-insert" name ^e)
  14.             (setvar 'cmdecho 1)
  15.           )
  16.         )
  17.     )
  18.     (and
  19.       (tblsearch "block" name)
  20.       (setq vlblk (vla-InsertBlock mspace 3dp name sc sc sc ang))
  21.       (setq ename (vlax-vla-object->ename vlblk))
  22.     )
  23.   )
  24.   ename
  25. )


网友答:
_rocky 发表于 2025-11-4 15:55
(tblsearch "block" name) 是存在的
entmake插入实现不了时因为块丢失了属性，原因在于遍历BLOCK实体的 ...

块的属性有两种情况，一种情况块本身是没有属性的，通过(66 . 1)方式插入块参照后继续追加属性直到(entmake '((0 . "SEQEND")))结束，这种情况通过tbl相关的函数是获取不到关于属性的任何信息；另一种是定认块主体的时候，和在块内添加一般图元对象一样，通过AddAttribute方法增加属性对象，或者使用相应的entmake也是一样的效果，这样的属性是能通过tbl相关函数获取属性的定义数据的，注意是定义数据，因为插入块参照后，它的属性一般情况下是可以修改的，有可能每个参照的同一属性，值各不相同，比如cass的高程点的高程注记属性（它是通过插入普通的GC200后继续追加的属性）
对于插入参照后追加的属性，需要对块参照图元通过entnext来查询它的后续图元是否为该参照的子图元（属性）来获取，

网友答:
_rocky 发表于 2025-11-4 13:35
这个块通过快编辑器打开后找不到属性定义，
请问 ，怎么找到通过代码找到它的属性定义？

  1. (defun getatts(blk)
  2.   (if(equal(VL-CATCH-ALL-APPLY'vlax-get-property(list(setq blk(if(=(type blk)'ename)(vlax-ename->vla-object blk)blk))'HasAttributes)):vlax-true)
  3.     (mapcar(function(lambda(x)(list(vla-get-TagString x)(vla-get-TextString x)x)))(vlax-safearray->list(vlax-variant-value(vlax-invoke-method blk'GetAttributes))))))

GETATTS
_$ (GETATTS(car(entsel)))
(("A" "GM-0921" #<VLA-OBJECT IAcadAttributeReference2 04f74b24>))
函数返回属性的TAG,值，对象，可以自行通过对象获取它的坐标以及属性文字的字体样式，大小，对齐方式等格式相关数据

网友答: 其中定义图块正常，插入图块不显示，同样方法定义，其他图块能正常定义和插入，问题出在哪？

网友答: (cons 66 1)是属性块吧？
可以参考一下http://bbs.xdcad.net/forum.php?m ... E%E6%80%A7%E5%9D%97

网友答: 本帖最后由 _rocky 于 2025-11-4 13:49 编辑
自贡黄明儒 发表于 2025-11-4 11:51
(cons 66 1)是属性块吧？
可以参考一下http://bbs.xdcad.net/forum.php?mod=viewthread&tid=678178&highli ...

明白了  丢属性数据了  感谢



网友答:
自贡黄明儒 发表于 2025-11-4 11:51
(cons 66 1)是属性块吧？
可以参考一下http://bbs.xdcad.net/forum.php?mod=viewthread&tid=678178&highli ...

这个块通过快编辑器打开后找不到属性定义，
请问 ，怎么找到通过代码找到它的属性定义？

网友答: 参见    entnext e

网友答: 本帖最后由 _rocky 于 2025-11-4 14:01 编辑
自贡黄明儒 发表于 2025-11-4 13:47
参见    entnext e

http://bbs.xdcad.net/forum.php?m ... E%E6%80%A7%E5%9D%97

拿这个函数试过了，也同样丢失属性

上面帖子5楼有把块的cad文件附上，请参照

网友答: 你先用(tblsearch "block" name) 看这个块是否存在，假如不存在insert假装插入导入属性，再用entmake插入，插入完之后 attsync一下，或者insert直接插入

网友答:
菜卷鱼 发表于 2025-11-4 15:32
你先用(tblsearch "block" name) 看这个块是否存在，假如不存在insert假装插入导入属性，再用entmake插入， ...

(tblsearch "block" name) 是存在的
entmake插入实现不了时因为块丢失了属性，原因在于遍历BLOCK实体的时候，找不到属性
attsync解决的是属性成功创建，更新属性，没有属性attsync就没有效果
  • 上一篇：关于风之影Lisp大挑战的一个建议：图形填充
  • 下一篇：没有了
    CAD技术交流中心 | 建筑CAD | 给排水CAD | 暖通CAD | 电气CAD | 电力CAD | 机械CAD | CAD母线槽 | CAD看图
    Copyright © 2019 - 2025