图块与AutoLisp/Visual_lisp

yedajiang

请教两个困扰已久的问题：

1、如何使用AutoLisp/Visual_lisp提取块中图元的组码，比如块中有一圆把此圆的组码数据((-1 . <图元名: 7ef56e90>) (0 . "CIRCLE") (330 . <图元名: 7ef56d08>)
(5 . "5A") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "BOU") (100 .
"AcDbCircle") (10 277.747 132.771 0.0) (40 . 12.0777) (210 0.0 0.0 1.0))提取出来

2、如何更新块中的属性值。填入时我采用的是用insert命令，把属性定义的“预置”取消，在插入块时按顺序把各属性填入。有没有办法用entmod或entupd等函数直接进行属性的更新？

有AutoCAD开发的问题，或需要一些什么样的程序（ARX除外，我不会），也可以和我联系。我有的一定可以提供。xmltc@163.com

秋枫

1. 使用nentsel

2. 得到块，然后(EntNext Blockent)就可以得到Atributes。通用函数可以在http://mjtd.com/function　下载。

yedajiang

是这个函数吗？

(defun listblockrefs (blkName / lst)
  (setqlst (entget
      (cdr
(assoc 330 (entget (tblobjname "block" blkName)))
      )
    )
  )
  (apply
    'append
    (mapcar '(lambda (x)
       (if (entget (cdr x))
(list (cdr x))
       )
     )
    (repeat 2
      (setq lst (reverse (cdr (member (assoc 102 lst) lst))))
    )
    )
  )
)

这个函数只能得到块的，不能得到块中的图元。

yedajiang

2、如何更新块中的属性值。填入时我采用的是用insert命令，把属性定义的“预置”取消，在插入块时按顺序把各属性填入。有没有办法用entmod或entupd等函数直接进行属性的更新？

这个问题有没有人会？斑竹能不能解决一下？

无痕

你是要在插入时候自动填还是要插入后更新？

yedajiang

要插入后进行更新。最好能用Entmod或entupd进行更新。关键是没办法获取dxf组码。

meflying

DXF使用entget...

修改属性块,双击就可以了

yedajiang

meflying发表于2005-9-12 12:43:00 DXF使用entget... 修改属性块,双击就可以了

我现在做的是技术工艺数据，存在Access数据库中，提取出来后填入块中。

当前我的做法只能是在提取Access数据库数据后插入块，同时填入数据。

希望的操作是：提取数据后（或之前）选择块，然后把Access数据填入块中。

meflying

看2楼

yedajiang

秋枫发表于2005-9-10 9:18:00 1. 使用nentsel 2. 得到块，然后(EntNext Blockent)就可以得到Atributes。通用函数可以在<A href=\"http://mjtd.com/function\" target=\"_blan...

blockent 是用nentsel获取对象组码？