[已解决][求助]如何用LISP设置线型By Layer？

dinosaurhxe2 · 发表于 2007-12-14 12:40:00

本帖最后由作者于 2007-12-14 13:31:18 编辑

如题，谢谢！

caoyin · 发表于 2007-12-14 12:54:00

本帖最后由作者于 2007-12-14 13:17:09 编辑

(if (setq e (entsel))
(vla-put-linetype (vlax-ename->vla-object (car e)) "bylayer")
)

dinosaurhxe2 · 发表于 2007-12-14 13:04:00

必须得用VL函数吗？图元表行不行？　

caoyin · 发表于 2007-12-14 13:12:00

(if (setq e (entsel))
(progn
(setq e (entget (car e)))
(entmod (subst '(6 . "bylayer") (assoc 6 e) e))
)
)

dinosaurhxe2 · 发表于 2007-12-14 13:15:00

我把linetype改成了color，结果

; 错误: 此类型的 LISP 值不能强制转换成 VARIANT: "ByLayer"

caoyin · 发表于 2007-12-14 13:18:00

(if (setq e (entsel))
(vla-put-color (vlax-ename->vla-object (car e)) "256")
)

dinosaurhxe2 · 发表于 2007-12-14 13:19:00

本帖最后由作者于 2007-12-14 13:20:24 编辑

256就相当于ByLayer？　

那图元表里(62 . "256")？

caoyin · 发表于 2007-12-14 13:21:00

acByLayer 或 256 或"256" 都可以，其实常量 acByLayer 本身就是等于256

dinosaurhxe2 · 发表于 2007-12-14 13:30:00

明白，谢谢！

zwf100 · 发表于 2009-11-26 22:30:00

学习了。。。

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