大家看看有什么问题？

newer · 发表于 2014-12-8 19:08:51

本帖最后由 newer 于 2014-12-8 19:10 编辑

st788796 发表于 2014-12-8 19:02
怎么是(last e)

xdrx_object_next 返回的是表：

("AcDbBlockReference" <图元名: -149990>)
("AcDbLine" <图元名: -1499d0>)
("AcDbBlockReference" <图元名: -1499c8>)
(AcDbLine <图元名: -1499f0>)
("AcDbPolyline" <图元名: -1499c0>)

st788796 · 发表于 2014-12-8 19:17:49

newer 发表于 2014-12-8 19:08
xdrx_object_next 返回的是表：

("AcDbBlockReference" )

好久不用这个函数了，记得以前只是返回entity

hwwrrbb · 发表于 2014-12-9 16:02:37

st788796 发表于 2014-12-8 13:59
这样试试

多谢！昨天下午试了许多次，发现有时提示错误，不知道原因。今天试了下的确存在块内只有1个实体时得到的ENT并不是表而产生错误，多谢提醒。

hwwrrbb · 发表于 2014-12-9 16:06:29

newer 发表于 2014-12-8 18:56
用老的方法，你试试这样写：

多谢！也试过了，大地形图处理完全可以的。

hwwrrbb · 发表于 2014-12-12 09:10:12

newer 发表于 2014-12-8 18:56
用老的方法，你试试这样写：

里面加了一条判断块内有多个重复子块的语句(红色的)，就出现问题（有时是执行过程出问题，有时是执行完退出时出问题），高手能分析一下吗？

登录/注册后可看大图
(defun c:bch (/ bname e ename layname bts) ; -------
登录/注册后可看大图
(defun en-bl (bname layname / e)
(setq bts (cons bname bts))
登录/注册后可看大图
(xdrx_object_get "block" bname)
登录/注册后可看大图
(while (setq e (xdrx_object_next))
登录/注册后可看大图
(if (= (xdrx_GetEntDxf 0) "INSERT") ; 嵌套块
登录/注册后可看大图
(if (not (member (xdrx_GetEntDxf 2) bts))
登录/注册后可看大图
(en-bl (xdrx_GetEntDxf 2) layname)
登录/注册后可看大图
)
登录/注册后可看大图
(progn
登录/注册后可看大图
(xdrx_setenttodb (last e))
登录/注册后可看大图
(xdrx_ModEnt 8 layname 62 256) ; 老命令
登录/注册后可看大图
)
登录/注册后可看大图
) ; if
登录/注册后可看大图
) ; while
登录/注册后可看大图
(print)
登录/注册后可看大图
) ; defun
登录/注册后可看大图
; ------------------------------
(setq bts (list))
登录/注册后可看大图
(setq ename (car (xdrx_entsel "\n选择块:" '((0 . "INSERT")))))
登录/注册后可看大图
(xdrx_SetEntToDb ename)
登录/注册后可看大图
(setq bname (xdrx_GetEntDxf 2))
登录/注册后可看大图
(en-bl bname "DX")
登录/注册后可看大图
(xdrx_object_regen)
登录/注册后可看大图
(princ)
登录/注册后可看大图
)

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

[求助] 大家看看有什么问题？