请教各位老师，怎样用lisp得到图块的属性呢？

raohuan · 发表于 2003-5-12 19:45:00

taoyimaier · 发表于 2003-5-12 20:59:00

(defun c:getatt (/ blk ent totalstr)
  (while (setq blk (car (entsel "\n选择块参照")))
(setq totalstr "")
(if (/= (cdr (assoc '0 (entget blk))) "INSERT")
   (alert "你选的不是块参照，重新选择")
   (progn
(if (not (setq ent (entnext blk)))
   (alert
      "你选的块参照不包含属性参照，重新选择"
   )
   (progn
      (while (/= (cdr (assoc '0 (entget ent))) "SEQEND")
      (setq totalstr (strcat totalstr
      "\n"
      (cdr (assoc '1 (entget ent)))
      )
      )
      (setq ent (entnext ent))
      )
      (alert totalstr)
   )
)
   )
)
  )
)

我也是在这个网站上学到的这个东西，只是把程序写了下来

raohuan · 发表于 2003-5-13 22:30:00

真的非常感谢你！！！我下去试试看。

dwgplt · 发表于 2003-5-14 18:19:00

提示: 作者被禁止或删除内容自动屏蔽

Taoyimaier · 发表于 2003-5-14 20:46:00

本帖最后由作者于 2003-5-14 20:46:16 编辑

文件长了些，可能排版起来格式不堪入目，呵呵，如果想看，请下载
其实这个问题很好解决的，查差组码，或者作一些有区别块参照，看他们的组码差异，不难得出，实在不行，用activex也很容易解决，只是在不支持activex的14版本中就用lisp难了，

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

请教各位老师，怎样用lisp得到图块的属性呢？

试试看

真的非常感谢你！！！我下去试试看。

这样应该没有问题了

本帖子中包含更多资源

浏览过的版块

dwgplt dwgplt 当前离线积分 1369 明经币个注册时间 2002-9-15 在线时间小时威望金钱个贡献激情	发表于 2003-5-14 18:19:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡