不知道怎么不能把创建的物体移动到制定的图层呢？

bingshuier

(defun c:b2()
  (setq dimline_pt1 (getpoint "第一点")
        dimline_pt2 (getpoint dimline_pt1 "第二点")
        )
  (command "dimlinear" dimline_pt1 dimline_pt2 "t" "\\u+00848@200(2)")
  (abc)
  (princ)
)

(defun abc()
  (setq a1 (entget(entlast)))
  (setq a2 (assoc 8 a1))
  (setq a3 (cons 8 "0_MV"))
  (setq a1 (subst a3 a2 a1))
  (entmod a1)
  (princ)
  )
想把标注挪动到指定的图层，当指定的图层不存在时又是怎么处理的呢？？

ZZXXQQ

如果用ENTMAKE建立物体，可以不管图层是否存在。也可以在不存在时就建立。

Andyhon

指定的图层不存在 先Make Layer

(setvar "Clayer" "DIM")  ; DIM or Waht...

xyp1964

;;先设定图层

2. (defun c:tt ()
   
3.   (defun mkLa (la)
   
4.     (if (= (tblsearch "layer" la) nil)
   
5.       (Command "-layer" "m" la "")
   
6.       (Command "-layer" "t" la "")
   
7.     )
   
8.     (setvar "clayer" la)
   
9.   )
   
10.   (MkLa "0_MV")
    
11.   (setq p1 (getpoint "第一点")
    
12.         p2 (getpoint p1 "第二点")
    
13.   )
    
14.   (command "dimlinear" p1 p2 "t" "\\u+00848@200(2)")
    
15.   (princ)
    
16. )

(defun c:tt ()<br />   (defun mkLa (la)<br />     (if (= (tblsearch "layer" la) nil)<br />       (Command "-layer" "m" la "")<br />       (Command "-layer" "t" la "")<br />     )<br />     (setvar "clayer" la)<br />   )<br />   (MkLa "0_MV")<br />   (setq p1 (getpoint "第一点")<br />         p2 (getpoint p1 "第二点")<br />   )<br />   (command "dimlinear" p1 p2 "t" "\\u+00848@200(2)")<br />   (princ)<br /> )

gcho

1. 我也遇到相同的问题，我的程序是与贱人工具箱里的图层自动切换命令有冲突，下面的lsp程序运行时必须把贱人工具箱里自动切换关闭掉才能达到我想要的结果，自动切换若开启时辅助标注就不能放置在“辅助层”中，请高手们指点一下吧（不知道用ENTMAKE能不能避开贱人工具箱的反应器问题）！

复制代码

gcho

2. (defun newer2(s)
   
3.     (progn
   
4.        (setq *error* older2)
   
5.        (if oldlayer (setvar "clayer" oldlayer))
   
6.        (if olddimstyle (command "dimstyle" "r" olddimstyle))
   
7.     )
   
8.    (princ)
   
9. )
   
10. (defun C:FB( / yss2 dimname2   )
    
11. (progn
    
12.     (setq older2 *error*)   ;保存原有*error*函数
    
13.      (setvar "CMDECHO" 0)
    
14.     (command "_.UNDO" "_BEGIN")
    
15.     (setq oldlayer (getvar "clayer"));_记录当前图层
    
16.     (setq olddimstyle (getvar "dimstyle"));_记录当前标注样式
    
17.     (setq *error* newer2)
    
18.          (if (not (tblsearch "layer" "辅助层")) ;;判断是否存在辅助层,无则创建
    
19.            (command "layer" "m" "辅助层" "c" "8" "" "l" "continuous" "" "")
    
20.          )
    
21.   )
    
22.   
    
23. (if
    
24.       (and (princ "\n选择标注样式 :") (setq yss2 (ssget ":S" '((0 . "DIMENSION")))));选择标注样式
    
25. (progn
    
26.     (setq dimname2 (cdr(assoc 3 (entget(ssname yss2  0)))));提取目标标注样式名称
    
27.       (command "layer" "s" "辅助层" "");将辅助层置为当前,再标注
    
28.       (command "dimstyle" "r" dimname2 );将目标标注样式置为当前
    
29.     (command "dimaligned"); getpoint );开始标注,估计问题发生在这个getpoint上
    
30.         ;(while (= (logand (getvar "CmdActive") 1) 1) (command pause))
    
31.           (while (> (getvar "CMDACTIVE") 0) (command PAUSE))        
    
32.            (while T  
    
33.            (command "dimaligned");
    
34.           (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
    
35.       )
    
36. )
    
37. )
    
38.     (command "_.UNDO" "_END")
    
39.   (command "dimstyle" "r" olddimstyle )
    
40.     (setvar "clayer" oldlayer);_还原图层
    
41.     (setq *error* older2)
    
42.     (setvar "cmdecho" 1);_打开命令提示
    
43.     (princ)
    
44. )
    

(defun newer2(s)<br />     (progn<br />        (setq *error* older2)<br />        (if oldlayer (setvar "clayer" oldlayer))<br />        (if olddimstyle (command "dimstyle" "r" olddimstyle))<br />     )<br />    (princ)<br /> )<br /> (defun C:FB( / yss2 dimname2   )<br /> (progn<br />     (setq older2 *error*)   ;保存原有*error*函数 <br />      (setvar "CMDECHO" 0)<br />     (command "_.UNDO" "_BEGIN")<br />     (setq oldlayer (getvar "clayer"));_记录当前图层<br />     (setq olddimstyle (getvar "dimstyle"));_记录当前标注样式<br />     (setq *error* newer2)<br />          (if (not (tblsearch "layer" "辅助层")) ;;判断是否存在辅助层,无则创建<br />            (command "layer" "m" "辅助层" "c" "8" "" "l" "continuous" "" "")<br />          )<br />   )<br />   <br /> (if<br />       (and (princ "\n选择标注样式 :") (setq yss2 (ssget ":S" '((0 . "DIMENSION")))));选择标注样式<br /> (progn<br />     (setq dimname2 (cdr(assoc 3 (entget(ssname yss2  0)))));提取目标标注样式名称<br />       (command "layer" "s" "辅助层" "");将辅助层置为当前,再标注<br />       (command "dimstyle" "r" dimname2 );将目标标注样式置为当前<br />     (command "dimaligned"); getpoint );开始标注,估计问题发生在这个getpoint上<br />         ;(while (= (logand (getvar "CmdActive") 1) 1) (command pause))<br />           (while (> (getvar "CMDACTIVE") 0) (command PAUSE))        <br />            (while T  <br />            (command "dimaligned");<br />           (while (> (getvar "CMDACTIVE") 0) (command PAUSE))<br />       ) <br /> )<br /> )<br />     (command "_.UNDO" "_END")<br />   (command "dimstyle" "r" olddimstyle )<br />     (setvar "clayer" oldlayer);_还原图层<br />     (setq *error* older2)<br />     (setvar "cmdecho" 1);_打开命令提示<br />     (princ)<br /> )<br />

bingshuier

gcho 发表于 2014-7-18 15:40

(setq *error* older2)
(setq *error* newer2)
(command PAUSE))
(command "_.UNDO" "_BEGIN")   (command "_.UNDO" "_END")
这些语句是什么意思呢，我是新手不怎么不得懂呢，还有第一个函数newer2,是为了实现什么功能呢？谢谢

xyp1964

gcho 发表于 2014-7-18 15:40

2. (defun c:tt ()
   
3.   (if (not (tblsearch "layer" "辅助层"))
   
4.     (command "layer" "m" "辅助层" "c" "8" "" "l" "continuous" "" "")
   
5.   )
   
6.    (command "layer" "s" "辅助层" "")
   
7.    (command "dimaligned" pause pause pause)
   
8.    (princ)
   
9. )

(defun c:tt ()<br />   (if (not (tblsearch "layer" "辅助层"))<br />     (command "layer" "m" "辅助层" "c" "8" "" "l" "continuous" "" "")<br />   )<br />    (command "layer" "s" "辅助层" "")<br />    (command "dimaligned" pause pause pause)<br />    (princ)<br /> )