程序中途出错，如何修改

gcho

1、TT的目的是想提取目标标注样式后在“辅助层”图层中针对性的标注，程序结束后返回程序开始前的标注样式和图层，估计问题是发生在getpoint上，这个地方该怎么修改才能达到目的呢；
2、想用while连续去标注，知道程序退出，该怎么加呢？

谢谢大家！

1. (defun newer2(s)
   
2.     (progn
   
3.        (setq *error* older2)
   
4.        (if oldlayer (setvar "clayer" oldlayer))
   
5.        (if olddimstyle (setvar "dimstyle" olddimstyle))
   
6.     )
   
7.    (princ)
   
8. )
   
9. 
   
10. (defun C:TT( /    )
    
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. (progn
    
24.       (and (princ "\n选择标注样式 :") (setq yss2 (ssget ":S" '((0 . "DIMENSION")))));选择标注样式
    
25.     (setq dimname2 (cdr(assoc 3 (entget(ssname yss2  0)))));提取目标标注样式名称
    
26.       (command "layer" "s" "辅助层" "");将辅助层置为当前,再标注
    
27.       (command "dimstyle" "r" dimname2 );将目标标注样式置为当前
    
28.       (command "dimaligned" getpoint );开始标注,估计问题发生在这个getpoint上
    
29.   )
    
30.     (command "_.UNDO" "_END")
    
31.     (setvar "dimstyle" olddimstyle);_还原标注样式样式
    
32.     (setvar "clayer" oldlayer);_还原图层
    
33.     (setq *error* older2)
    
34.      (setvar "cmdecho" 1);_打开命令提示
    
35.     (princ)
    
36. )

(defun newer2(s)<br />     (progn<br />        (setq *error* older2)<br />        (if oldlayer (setvar "clayer" oldlayer))<br />        (if olddimstyle (setvar "dimstyle" olddimstyle))<br />     )<br />    (princ)<br /> )<br /> <br /> (defun C:TT( /    )<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 /> (progn<br />       (and (princ "\n选择标注样式 :") (setq yss2 (ssget ":S" '((0 . "DIMENSION")))));选择标注样式<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 />   )<br />     (command "_.UNDO" "_END")<br />     (setvar "dimstyle" olddimstyle);_还原标注样式样式<br />     (setvar "clayer" oldlayer);_还原图层<br />     (setq *error* older2)<br />      (setvar "cmdecho" 1);_打开命令提示<br />     (princ)<br /> )

Andyhon

没调试,您先试这样改

(command "dimaligned")
(while (= (logand (getvar "CmdActive") 1) 1) (command pause))

gcho

Andyhon 发表于 2014-4-2 08:13
没调试,您先试这样改

(command "dimaligned")

谢谢Andyhon，改为(command "dimaligned")，仍然不行，出现如下信息：
: tt

选择标注样式 :
选择对象:

输入点无效。; 错误: *error* 函数中出错AutoCAD 变量设置被拒绝: "dimstyle" "1：200"

Andyhon

;;(setvar "dimstyle" olddimstyle) ;_还原标注样式样式

The DIMSTYLE system variable is read-only; to change the current dimension style, use the DIMSTYLE command.

ZZXXQQ

2. (defun newer2(s)
   
3.     (progn
   
4.        (setq *error* older2)
   
5.        (if oldlayer (setvar "clayer" oldlayer))
   
6.        (if olddimstyle (setvar "dimstyle" olddimstyle))
   
7.     )
   
8.    (princ)
   
9. )
   
10. (defun C:TT( /    )
    
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 newer2 *error*)
    
18.          (if (not (tblsearch "layer" "辅助层")) ;;判断是否存在辅助层,无则创建
    
19.            (command "layer" "m" "辅助层" "c" "8" "" "")
    
20.          )
    
21.   )
    
22. (if
    
23.       (and (princ "\n选择标注样式 :") (setq yss2 (ssget ":S" '((0 . "DIMENSION")))));选择标注样式
    
24. (progn
    
25.     (setq dimname2 (cdr(assoc 3 (entget(ssname yss2  0)))));提取目标标注样式名称
    
26.       (command "-layer" "s" "辅助层" "");将辅助层置为当前,再标注
    
27.       (command "-DIMSTYLE" "r" dimname2);将目标标注样式置为当前
    
28.       (command "dimaligned"); getpoint );开始标注,估计问题发生在这个getpoint上
    
29.       (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
    
30.           (command "dimcontinue");连续标注
    
31. ;(command "dimbaseline");或基线标注
    
32.           (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
    
33.   ))
    
34.     (command "_.UNDO" "_END")
    
35.     (command "-DIMSTYLE" "r" olddimstyle);_还原标注样式样式
    
36.     (setvar "CLAYER" oldlayer);_还原图层
    
37.     (setq *error* older2)
    
38.     (setvar "CMDECHO" 1);_打开命令提示
    
39.     (princ)
    
40. )
    

(defun newer2(s)<br />     (progn<br />        (setq *error* older2)<br />        (if oldlayer (setvar "clayer" oldlayer))<br />        (if olddimstyle (setvar "dimstyle" olddimstyle))<br />     )<br />    (princ)<br /> )<br /> (defun C:TT( /    )<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 newer2 *error*)<br />          (if (not (tblsearch "layer" "辅助层")) ;;判断是否存在辅助层,无则创建<br />            (command "layer" "m" "辅助层" "c" "8" "" "")<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 (> (getvar "CMDACTIVE") 0) (command PAUSE))<br />           (command "dimcontinue");连续标注<br /> ;(command "dimbaseline");或基线标注<br />           (while (> (getvar "CMDACTIVE") 0) (command PAUSE))<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 />

gcho

ZZXXQQ 发表于 2014-4-2 09:07

谢谢版主出手，测试了一下，出现两个问题：
1、程序结束时不能还原程序开始之前的标注样式（图层可以还原），调试过程中也出现如下错误提示：
: tt
选择标注样式 :
选择对象:
; 错误: *error* 函数中出错AutoCAD 变量设置被拒绝: "dimstyle" "1：200"

2、我把连续标注dimcontinue改为继续标注dimcontinue，可是只能继续一次，怎么才能多次。

gcho

Andyhon 发表于 2014-4-2 09:03
;;(setvar "dimstyle" olddimstyle) ;_还原标注样式样式

The DIMSTYLE system variable is read-only; t ...

你是说还原标注样式要用(command "dimstyle" "r" "原标注样式名"),是吗？

gcho

ZZXXQQ 发表于 2014-4-2 09:07

看到版主修改后的代码了，能成功返回程序开始之前的的图层和标注样式了，现在仍然有两个问题：
1、若把while后的连续标注"dimcontinue”改为对齐标注"dimaligned“,程序最多能对齐标注两次；
2、若在标注过程中使用Esc中途退出，则不能成功返回程序开始之前的的图层和标注样式，估计出错函数还需完善。

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

gcho

ZZXXQQ 发表于 2014-4-4 21:03
[/post]

版主的可以达到循环标注的目的，只不过有一点美中不足的是不能用右键退出循环，用键盘Esc可以达到，算了，那就这样吧，感谢版主一直的帮助！