更改外部参照图层线型

mstg007 · 发表于 2015-9-22 08:22:01

有没有办法使用脚本文件更改外部参照图层名称线型？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

ronjonp · 发表于 2015-9-22 08:37:56

是..使用-layer或vla-put-linetype或entmod。请确保首先加载线型。

mstg007 · 发表于 2015-9-22 08:47:22

因此，如果我有一个位于名为SAWCUT的xref中的层，它的线型是HIDDEN。我的脚本看起来很真实：

copy

-la
s
*|*sawcut
lt
continuous

当我这样做时，我得到一个无效的层名称。

ronjonp · 发表于 2015-9-22 10:02:52

copy

(defun foo (pat lt / l n)
  (while (setq l (tblnext "layer" (null l)))
    (if (and (wcmatch (strcase (setq n (cdr (assoc 2 l)))) (strcase pat))
             (setq n (tblobjname "layer" n))
        )
      (entmod (subst (cons 6 lt) (assoc 6 (entget n)) (entget n)))
    )
  )
)
;; (foo "*|*sawcut" "Continuous")

mstg007 · 发表于 2015-9-22 10:35:11

太棒了！非常感谢！

更改外部参照图层线型

发表回复

精选推荐