[编程申请]：请编一个小程序

wcf · 发表于 2003-8-26 07:29:29

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

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

×

如何把图中某中颜色的文本转换为指定的一个层

fjw_ok · 发表于 2003-8-26 07:32:12

这个CAD自己就可以啊
快速选择

wcf · 发表于 2003-8-26 12:40:02

我用的是R14版本没有此功能

lsjjm · 发表于 2003-8-27 08:34:55

You can try this code:
(defun C:test ()
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (cond
( (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 "X" '((0 . "TEXT")(62 . 1))))
      (setq i 0)
      (vla-StartUndoMark adoc)
      (repeat (sslength ss)
         (vla-put-layer (vlax-ename->vla-object (ssname ss i)) lay)
         (setq i (1+ i))
      )
      (vla-EndUndoMark adoc)
      )
   )
)
  )
  (vlax-release-object adoc)
  (princ)
)

kfx2002 · 发表于 2003-9-2 20:34:41

用过滤功能就可以了嘛，

li_seagull · 发表于 2004-9-22 12:42:11

十分感谢

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

[编程申请]：请编一个小程序

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

相关帖子