可不可以指定块插入的图层
<p>可不可以指定块插入的图层？ 如果可以insert 后面接什么，谢谢！</p> 本帖最后由 作者 于 2009-6-25 9:56:00 编辑 <br /><br /> <p>一般说来，插入块总是在当前图层的。要指定块插入的图层，比较简单的方法是：先在工具面板中添加块，再在工具面板右击该块，在快捷菜单中选择“特性”。在特性表中，可以指定该块插入时默认的图层、颜色、线型、线宽、比例等项。通过工具板面插入指定默认特性的块时，无论当前图层是哪个层，当前特性是什么，都会按指定的图层和特性来插入。</p> CAD2005可以吗 今天又学了一招，谢谢2楼！ (command "_chprop" (entlast) "" "la" "图层名字" "" ) print1985 发表于 2011-8-15 15:40 static/image/common/back.gif(command "_chprop" (entlast) "" "la" "图层名字" "" )
插入的块图层能不能随插入点图元的图层指定？比如将一个图块插入到一条直线上，直线图层为a，则图块变到图层aa；若直线图层为b，则图块变到图层bb上，当然，a、aa、b、bb这些图层的对应规则可以自定义 半听可乐 发表于 2013-5-11 10:25 static/image/common/back.gif
插入的块图层能不能随插入点图元的图层指定？比如将一个图块插入到一条直线上，直线图层为a，则图块变到图 ...
试试，图块名、图层名自己改(defun c:111() (crtk "图块名1" "1" "1")) ;格式：图块名、x轴比例、y轴比例
(defun c:222() (crtk "图块名2" "2" "2"))
;插入图块到特定图层子程序
(defun crtk (tkm x y / lay p1 ss)
(setvar "cmdecho" 0)
(command "_.undo" "_begin")
(if (setq p1 (getpoint "\n指定插入点:"))
(progn
(if (ssget p1)
(setq ss (ssget p1)
lay (cdr (assoc 8 (entget (ssname ss 0))))
)
)
(command "-insert" tkm p1 x y "0")
(if ss
(cond
((= lay "a")(command "_chprop" (entlast) "" "la" "aa" ""));a、aa为图层名字，自己改
((= lay "b")(command "_chprop" (entlast) "" "la" "bb" ""))
((= lay "c")(command "_chprop" (entlast) "" "la" "cc" ""))
)
)
)
)
(command "_.undo" "_end")
(setvar "cmdecho" 1)
(princ)
) 本帖最后由 半听可乐 于 2013-5-12 15:46 编辑
print1985 发表于 2013-5-12 00:47 static/image/common/back.gif
试试，图块名、图层名自己改
就是想要这个效果，还有点小问题：
1.插入的图块中如果有两个图元（不相连）则只改变与插入点相连的图元的图层？
2.插入的图块有点微微倾斜
图中带引线的注释是作为块插入品红色的直线上，引线图层变了，文字没变，整个块有点倾斜（源图块是正的） 半听可乐 发表于 2013-5-11 21:44 static/image/common/back.gif
就是想要这个效果，还有点小问题：
1.插入的图块中如果有两个图元（不相连）则只改变与插入点相连的图元 ...
这样做有啥意义? 1993063 发表于 2013-5-12 16:47 static/image/common/back.gif
这样做有啥意义?
希望注释文字能够进入各种专业的图层，比如消防、给水、排水，这样图层控制起来一目了然，插入图块时若能自动根据插入点所属系统变层，那就省了手动变图层这些繁琐的操作
页:
[1]
2