可不可以指定块插入的图层

kingerst

可不可以指定块插入的图层？ 如果可以insert 后面接什么，谢谢！

pym

一般说来，插入块总是在当前图层的。要指定块插入的图层，比较简单的方法是：先在工具面板中添加块，再在工具面板右击该块，在快捷菜单中选择“特性”。在特性表中，可以指定该块插入时默认的图层、颜色、线型、线宽、比例等项。通过工具板面插入指定默认特性的块时，无论当前图层是哪个层，当前特性是什么，都会按指定的图层和特性来插入。

我情真无痕

CAD2005可以吗

非凡如意

今天又学了一招，谢谢2楼！

print1985

(command "_chprop" (entlast) "" "la" "图层名字" "" )

半听可乐

print1985 发表于 2011-8-15 15:40
(command "_chprop" (entlast) "" "la" "图层名字" "" )

插入的块图层能不能随插入点图元的图层指定？比如将一个图块插入到一条直线上，直线图层为a，则图块变到图层aa；若直线图层为b，则图块变到图层bb上，当然，a、aa、b、bb这些图层的对应规则可以自定义

print1985

半听可乐 发表于 2013-5-11 10:25
插入的块图层能不能随插入点图元的图层指定？比如将一个图块插入到一条直线上，直线图层为a，则图块变到图 ...

试试，图块名、图层名自己改

2. (defun c:111() (crtk "图块名1" "1" "1")) ;格式：图块名、x轴比例、y轴比例
   
3. (defun c:222() (crtk "图块名2" "2" "2"))
   
4. 
   
5. ;插入图块到特定图层子程序
   
6. (defun crtk (tkm x y / lay p1 ss)
   
7.   (setvar "cmdecho" 0)
   
8.   (command "_.undo" "_begin")
   
9.   (if (setq p1 (getpoint "\n指定插入点:"))
   
10.     (progn
    
11.       (if (ssget p1)
    
12.         (setq ss (ssget p1)
    
13.               lay (cdr (assoc 8 (entget (ssname ss 0))))
    
14.         )
    
15.       )
    
16.       (command "-insert" tkm p1 x y "0")
    
17.       (if ss
    
18.         (cond
    
19.           ((= lay "a")(command "_chprop" (entlast) "" "la" "aa" ""));a、aa为图层名字，自己改
    
20.           ((= lay "b")(command "_chprop" (entlast) "" "la" "bb" ""))
    
21.           ((= lay "c")(command "_chprop" (entlast) "" "la" "cc" ""))
    
22.         )
    
23.       )
    
24.     )
    
25.   )
    
26.   (command "_.undo" "_end")
    
27.   (setvar "cmdecho" 1)
    
28.   (princ)
    
29. )

(defun c:111() (crtk "图块名1" "1" "1")) ;格式：图块名、x轴比例、y轴比例<br /> (defun c:222() (crtk "图块名2" "2" "2")) <br /> <br /> ;插入图块到特定图层子程序<br /> (defun crtk (tkm x y / lay p1 ss)<br />   (setvar "cmdecho" 0)<br />   (command "_.undo" "_begin")<br />   (if (setq p1 (getpoint "\n指定插入点:"))<br />     (progn<br />       (if (ssget p1)<br />         (setq ss (ssget p1)<br />               lay (cdr (assoc 8 (entget (ssname ss 0))))<br />         )<br />       )<br />       (command "-insert" tkm p1 x y "0")<br />       (if ss<br />         (cond<br />           ((= lay "a")(command "_chprop" (entlast) "" "la" "aa" ""));a、aa为图层名字，自己改<br />           ((= lay "b")(command "_chprop" (entlast) "" "la" "bb" ""))<br />           ((= lay "c")(command "_chprop" (entlast) "" "la" "cc" ""))<br />         )<br />       )<br />     )<br />   )<br />   (command "_.undo" "_end")<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )

半听可乐

print1985 发表于 2013-5-12 00:47
试试，图块名、图层名自己改

就是想要这个效果，还有点小问题：
1.插入的图块中如果有两个图元（不相连）则只改变与插入点相连的图元的图层？
2.插入的图块有点微微倾斜

图中带引线的注释是作为块插入品红色的直线上，引线图层变了，文字没变，整个块有点倾斜（源图块是正的）

1993063

半听可乐 发表于 2013-5-11 21:44
就是想要这个效果，还有点小问题：
1.插入的图块中如果有两个图元（不相连）则只改变与插入点相连的图元 ...

这样做有啥意义?

半听可乐

1993063 发表于 2013-5-12 16:47
这样做有啥意义?

希望注释文字能够进入各种专业的图层，比如消防、给水、排水，这样图层控制起来一目了然，插入图块时若能自动根据插入点所属系统变层，那就省了手动变图层这些繁琐的操作