[求助]难道没有高手可以解决这个难题??

wwwliuyu · 发表于 2008-5-22 12:28

本帖最后由作者于 2008-5-24 23:28:46 编辑

请教各位高手,已知一图元名,如何用程序做一个默认值和这个图元图层关联的属性块??

wwwliuyu · 发表于 2008-5-22 22:37

自己顶一下,期待高手帮忙.

wwwliuyu · 发表于 2008-5-23 22:22

期待高手出现!

xxsheng · 发表于 2008-5-24 10:09

;;作来有什么用啊???
(defun c:test( / adwg layer blkname blk)
(setq adwg(vlax-get (vlax-get-acad-object) "Activedocument")
    layer(cdr(assoc 8(entget(car(entsel "\n选择要属性关联的对象:")))))
    blkname(rtos (getvar "cdate") 2 8)
    )
(setq blk(vla-add (vlax-get adwg "blocks") (vlax-3d-point (list 0 0 0)) blkname))
(vla-addattribute blk 140 acAttributeModePreset "" (vlax-3d-point (list 0 0 0)) "AA" layer)
(vl-cmdf "_.insert" blkname (getpoint "\n选择插入点：") 1 1 0)
)

wwwliuyu · 发表于 2008-5-24 12:29

谢谢楼上的xxsheng,但你的程序没有达到我预期的效果?这种属性块是AutoCAD2005以后的版本才出现的,当关联的对象改变时,保存后块的默认值也会跟着变.我想利用这个方法做一个智能性的标题栏.希望高手们指点一下小弟.谢谢!

wwwliuyu · 发表于 2008-5-24 23:30

顶到高手出现.

祥子 · 发表于 2008-5-25 13:35

你说的功能可以用 vlr-* 反应器功能实现，较为麻烦，可以在帮助中了解下。

wwwliuyu · 发表于 2008-5-25 17:45

可这AutoCAD本就有的呀,为什么要用到反应器呢?看图元的DXF组码多了一段102的102 .
"{ACAD_XDICTIONARY") (360 . <图元名: 7ef711a0>) (102 . "}"),看帮助了解到是扩展词典,但却不知是如何添加的.望高手出来指点下.

狂刀无痕 · 发表于 2008-5-25 17:58

用字段行不？

龙龙仔 · 发表于 2008-5-26 08:15

;;只是把屬性值用fieldcode來寫而已,不值一提!

账号		自动登录	找回密码
密码			注册

[求助]难道没有高手可以解决这个难题??

本帖子中包含更多资源