[求助]有没有这样的程序？快速换层？

20020729

也就是说         我想实现1 控制对象到 红色线层


2 到黄色虚线层


3到绿色中心线层


4到青色线层

meflying

0~7挨个试一下就知道了。。。


256是BYLAYER

20020729

再请问怎么让cad2002 启动的时候自动给我加载好 center dashed phantom线型呢


？？？？？


谢谢

bh5280

参考acad2002doc.lsp文件中下列内容： ;;;===== AutoLoad LISP Applications =====
; Set help for those apps with a command line interface (autoload "edge" '("edge"))
(setfunhelp "C:edge" "" "edge") (autoload "3d" '("3d" "3d" "ai_box" "ai_pyramid" "ai_wedge" "ai_dome"
"ai_mesh" "ai_sphere" "ai_cone" "ai_torus" "ai_dish")
)

bh5280

(defun c:11 ()
(command "-linetype" "s" "center" "s" "dashed" "s" "phantom" "s" "bylayer" "")
(princ)
)