[求助]：请教如何用vlisp访问图块中的子对象？

Archli · 发表于 2007-4-23 11:58:45

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

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

×

如题，例如，我想修改一个块中每个对象的图层，如何在vlisp中访问这些子对象呢

xshrimp · 发表于 2007-4-23 23:01:18

entsel

carrot1983 · 发表于 2007-4-24 08:12:26

楼上是不是误解了，楼主说的是子对象啊。。。。
就是相当于你把块炸掉后的对象吧。。。
不懂。。。哈

Archli · 发表于 2007-4-24 09:45:28

我的意恩是块本身是一个对象的集合，就是在不把块炸开的情况下访问子对象。
在lisp中已经能够访问了，只是不清楚vlisp中有没有好的方法，谢谢大家了

carrot1983 · 发表于 2007-4-24 10:19:32

lisp中已经能够访问,怎么做到的？？？教教我

Hossman · 发表于 2007-4-30 11:56:03

一个小例子
[php]
(defun change-subobject-property (/ subentp subent ent lst oldlyr subentp2 newlyr)
  ;;(onerror)
  (setq subentp (nentsel "\nSelect the Subobject u wanna change:"))
  (if (and subentp (= 4 (length subentp)))
   (progn
      (setq subent (car subentp)
            ent (car (nth 3 subentp))
            lst (entget subent)
            oldlyr (assoc 8 lst))
      (setq subentp2 (nentsel "\nSelect the Object u wanna change to:"))
      (if subentp2
         (setq newlyr (assoc 8 (entget (car subentp2)))
               lst (subst newlyr oldlyr lst)))
      (entmod lst)
      (entupd ent))
(prompt "\nSelect a complex entity."))
  ;;(restore)
  (princ))
[/php]

carrot1983 · 发表于 2007-5-2 22:42:20

学习受教了。。。
nentsel这个从来没有用过。。。单单简单的lisp函数我有一半都没有用过。。。呵呵。
vlisp更不是很懂。反应器只能学习论坛一些程序。。。

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

[求助] [求助]：请教如何用vlisp访问图块中的子对象？

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

相关帖子