[LISP程序]：批处理多图形文件创建新图层

lsjjm · 发表于 2004-9-20 07:01:14

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

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

×

批处理多图形文件创建新图层
[php]
(defun c:test ()
  ;(vl-load-com)
  (setq layname (getstring "\n Input the Name of Layer: "))
  (setq col (getstring "\nColor Number: "))
  (setq lty (getstring "\nLinetype<Continuous>: "))
  (if (= lty "")(setq lty "Continuous"))
  (vlax-for i (vla-get-Documents (vlax-get-acad-object))
(if (vl-catch-all-error-p
      (setq
         olayer
         (vl-catch-all-apply 'vla-add
      (list (vla-get-layers i) layname)
         )
      )
      )
   nil
   (cond (olayer (vla-put-color olayer col)(vla-put-linetype olayer lty)))
)
  )
)
[/php]

JOSDENNIS · 发表于 2004-9-20 13:52:27

樓主應用在哪方面?

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

[LISP程序]：批处理多图形文件创建新图层

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

相关帖子