[编程申请]：判断在那个图层

cuihongwei · 发表于 2006-11-22 23:43:46

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

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

×

想实现这样的功能：

在图纸上，任意选取一个图元，比如直线、圆或者字，就可以知道它是那个图层上！并将这个图层至于当前！

qjcpj · 发表于 2006-11-23 07:08:03

使用entsel并配合entget取出dxf中的8子项，并置为当前层即可。

kohi · 发表于 2006-11-23 07:40:23

([php]
defun c:test ()
(setq lay (cdr (assoc 8 (entget (car (entsel))))))
;;or (setq lay (vla-get-layer (vlax-ename->vla-object (car (entsel)))))
(setvar "clayer" lay)
)
[/php]

cuihongwei · 发表于 2006-11-23 08:46:17

先谢谢楼上两位

我只会使用autolisp，我先回去试一试！

qiaqiadeng · 发表于 2006-11-26 11:44:23

(princ "\ntd  设置当前图层")
(defun c:td (/ ent entlist lname)
  (prompt "设置当前图层\n")
  (setq ent (entsel))
  (setq entlist (entget (car ent)))
  (cdr (assoc '2 entlist))
  (setq lname (cdr (assoc 8 entlist)))
  (setvar "clayer" lname)
  (princ)
)

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

[编程申请]：判断在那个图层

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

相关帖子

浏览过的版块