求助大家一个这样对象的属性lisp

Smile cop · 发表于 2013-4-29 16:23:57

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

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

×

能够获取选择对象的属性，并把他提取出来，置为当前，就像附件动画，谢谢！！！

Lispboy · 发表于 2013-4-29 17:17:30

没看到附件呀~

wowan1314 · 发表于 2013-4-29 20:36:56

[pcode=lisp,true]
;;----------------------
;;将所选实体层置为当前层
;;----------------------
(defun c:cl (/ ent ent_data clay olay)
  (setq olay (getvar "clayer"))
  (setq ent (car (entsel (strcat "\n选择物体/当前层为<" olay ">:"))))
  (if (/= nil ent)
(progn
   (setq ent_data (entget ent))
   (setq clay (cdr (assoc 8 ent_data)))
   (setvar "clayer" clay)
   (prompt (strcat "\n成功将图层设为<" clay ">："))
)
  )
)
[/pcode]
其他类似！
呵呵！

XDSoft · 发表于 2013-4-29 21:04:24

我没看明白你的意思。:L

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

[编程申请] 求助大家一个这样对象的属性lisp

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

相关帖子

评分