[求助]：一个程序中，产生不同的图层，如何控制

zjdtm · 发表于 2004-7-30 11:14:36

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

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

×

刚学lisp，各位大侠不要见笑。
我有一个程序，我想修改一下。
把其中生成图形的部分不变，用默认的0层，标注改为dim层，请问应该怎样控制。

lsjjm · 发表于 2004-7-30 11:54:48

你说的是把已经生成的标注改为dim层呢? 还是想把dim层设置为当前层然后再标注?

zjdtm · 发表于 2004-7-30 11:58:50

这个程序应该是后一种，不过前一种怎么办，我在学习。

lsjjm · 发表于 2004-7-30 12:22:22

1. 把dim层设置为当前层: (setvar "clayer" "dim")
2. 把已经生成的标注改为dim层请参考
[php]
(defun c:test ( / ss)
  ;(vl-load-com)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq ent (entsel "\nSelect object on layer to copy from: "))
  (setq lay (vla-get-layer (vlax-ename->vla-object (car ent))))
  (cond
((setq ss (ssget))
   (setq i 0)
   (vla-StartUndoMark doc)
   (repeat (sslength ss)
      (vla-put-layer (vlax-ename->vla-object (ssname ss i)) lay)
      (setq i (1+ i))
   )
   (vla-EndUndoMark doc))
  )
  (vlax-release-object doc)
  (princ)
)
[/php]

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

[求助] [求助]：一个程序中，产生不同的图层，如何控制

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

相关帖子