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

更改外部参照图层线型

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

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

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

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

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

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

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

(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

太棒了！非常感谢！
页: [1]
查看完整版本: 更改外部参照图层线型