[求助]如何将取得属性块的属性提示值输入到用属性块制作的表单中

liushengri · 发表于 2007-12-3 23:19

本帖最后由作者于 2007-12-3 23:27:59 编辑

如何将取得属性块的属性提示值输入到用属性块制作的表单中

leo_zp_yang · 发表于 2007-12-4 08:32

我也很想知道，盼望哪位大侠能帮忙解答！

liushengri · 发表于 2007-12-4 22:02

自己把它顶起来,希望高手解决

weidesign669 · 发表于 2008-6-6 09:53

何将取得属性块的属性提示值输入到用属性块制作的表单中，希望有哪位大哥帮忙写一下程序谢谢

byghbcx · 发表于 2008-6-6 17:44

不知道什么是属性块制作的"表单"?是用属性提示值填写到插入块的属性中吗?试试这个能行不

(defun c:ttt( / ss ent blk en blk_en blk_ent blk_list blk_ent_2 blk_ent_3 pt);用属性提示值插入块
(if (setq ss (ssget ":S" '((0 . "insert") (66 . 1) )))
(progn
(setq ent (entget (setq en (ssname ss 0))))
(setq blk (cdr (assoc 2 ent)))
(setq blk_en (cdr (assoc -2 (tblsearch "block" blk))) blk_list '())
(while blk_en
(setq blk_ent (entget blk_en))
(if (= (cdr (assoc 0 blk_ent)) "ATTDEF")
(progn
(setq blk_ent_3 (cdr (assoc 3 blk_ent)))
(setq blk_ent_2 (cdr (assoc 2 blk_ent)))
(setq blk_list (cons (list blk_ent_2 blk_ent_3) blk_list))
)
)
(setq blk_en (entnext blk_en))
)
)
)
(setq blk_list (reverse blk_list))
(setq pt (getpoint "\n请输入图块插入点"))
(command "_insert" blk pt 1 "" 0)
(mapcar '(lambda(x) (command (cadr x))) blk_list)
(princ)
)

树点 · 发表于 2010-10-1 00:10

看不懂

树点 · 发表于 2010-10-1 00:14

没有土块

仲文玉 · 发表于 2011-8-17 11:12

应该是框选把每个属性块里的属性1 、属性2、属性3、、、、、分别按列提取到表格吧

LLXXZZ · 发表于 2011-8-21 17:43

楼主试试,我写它的目的是做图框目录的.估计也能满足你的要求.
不使用.代码不难是体力活,没给源码,
需要源码,联系本人.

LLXXZZ · 发表于 2011-8-24 19:39

怪事,放个程序没人下.
程序简介:
批量修改页码.提取属性块中的属性列表显示.

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