[求助]：关于entnext

心梦相随 · 发表于 2004-3-13 19:42:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

entnext是求下一个实体名，有什么好的方法可以得到前一个实体名呢？
或帮忙写一个吧，先谢谢了。

eachy · 发表于 2004-3-13 20:39:38

最初由心梦相随发布
[B]entnext是求下一个实体名，有什么好的方法可以得到前一个实体名呢？
或帮忙写一个吧，先谢谢了。 [/B]

用句柄往前找最近的一个。

lsjjm · 发表于 2004-3-14 13:11:07

最初由心梦相随发布
[B]entnext是求下一个实体名，有什么好的方法可以得到前一个实体名呢？帮忙写一个吧，先谢谢了。 [/B]

下面的程序返回倒数第n 个实体：
(defun test (ln)
  (vl-load-com)
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (if (= (vla-get-ActiveSpace doc) acModelSpace)
(setq entity (vla-get-ModelSpace doc))
(setq entity (vla-get-PaperSpace doc))
  )
  (setq ent (vlax-vla-object->ename
      (vla-Item entity (- (vla-get-count entity) ln))))
)

心梦相随 · 发表于 2004-3-15 20:32:11

each斑竹，怎么对付头痛的句柄计算啊？
好象LISP无法处理十六进制的啊//

aeo · 发表于 2004-3-15 22:28:58

最初由心梦相随发布
[B]each斑竹，怎么对付头痛的句柄计算啊？
好象LISP无法处理十六进制的啊// [/B]

在cad帮助Visual LISP Developer's Guide里面有.

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

[求助] [求助]：关于entnext

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [求助]：关于entnext

Re: [求助]：关于entnext

浏览过的版块