[求助]：对象捕捉自动清除了，寻求解决？

柔柔

哈哈，要知道，看别人的程序是最头痛的事。
就说你在8楼的程序吧，既没有出错处理，又没有把变量限制成局部变量（容易造成内存中的变量冲突），还有，每次都要重新设置字体样式（应该加个判断，即“如果没有某字体样式则设置，否则就使用”），这么多问题，不算什么好程序。

cdhua001

正因为不是好程序才请你修改啊。
变量是我自己加的，本来只有2个，代码是“33”，我嫌少了就添了几个上去。看来不是越多越好：）
字体样式也是我找人帮我加的。

唉，外行就是外行啊，我全部改错了：（

柔柔

提供一下思路
1，你这个程序好像是把坐标点值写出来，那我要问你了，所谓坐标值就是相对于坐标原点的，如果你想人为定某个点为基准点，标出相对于这个基准点的“坐标”值就不行了。
所以，程序一开始要有一个“选取基准点 <0,0>：”选项。当然，这样做后，x=x-x0,y=y-y0了。
2，把所有变量设成局部变量，程序一结束，变量清零。
方法很简单，就是第一句改成
(defun c:zb (/ os x y ...)
3，要用户做的事先提，程序做的事后做，就是先取得pt，pt1，然后由pt,pt1求得x,y,x1,y1.这样做的目的是让用户感觉速度很快（大型程序就要考虑用户的感受）
4，字体样式名不要用系统缺省的Standard，并且用下面这个语句判断是否已经存在
  (if  (null (setq elist (tblsearch "style" "Times")))
    (command "_style"  "Times"    "Times.ttf"    "0.0"   ""   "0.0"   ""  ""  )
  )
  (setvar "TEXTSTYLE" "Times")

cdhua001

思路？我是个绝对外行，思路没用啊*-*2

这个程序我是用来标注地形图上的绝对坐标的，所以没有指定基点。
按照你的意思，我改了一下，还要麻烦你帮忙看看。
（首先声明，我是外行，不要笑我。）[/COLOR]

[PHP];;;    此小程序为将坐标写在CAD中
(defun c:zb (/ os x y ...))
  (setvar "cmdecho" 0)
(setq os (getvar "osmode"))   
(setvar "osmode" 4271)
(setq pt (getpoint "\n拾取需要标注的点:"))
(setq y (car pt))
(setq x (cadr pt))
(setq pt1 (getpoint pt "\n拾取标注线起点:"))
(setq x1 (car pt1))
(setq y1 (cadr pt1))
  (setq y2 y1)
  (if (> x1 y)     
      (setq x2 (+ x1 16)
        xx2 (+ x1 0.5))
      (setq x2 (- x1 16)
        xx2 (+ x2 0.5)))
(setvar "osmode" 0)
(setq pt2 (list x2 y2))
(command "line" pt pt1 pt2 "")
(if (null (setq elist (tblsearch "style" "Times")))
(command "_style" "Times" "Times.ttf" "0.0" "" "0.0" "" "" )
)
(setvar "TEXTSTYLE" "Times")
  (setq dis (getvar "dimzin"))
  (setvar "dimzin" 1)
(command "text" "ml" (list xx2 (+ y1 1.625)) 2 0 (strcat "X " (rtos x 2 3)))
(command "text" "ml" (list xx2 (- y1 1.625)) 2 0 (strcat "Y " (rtos y 2 3)))
(setvar "osmode" os)
  (setvar "dimzin" dis)
  (princ)
)

;;-------------------------------------------
(defun xxx_err (s)
(setvar "osmode" os)
(command "_.UNDO" "_E")
)

;;=============== Main program ============

(defun c:xxx (/ ...)
(setq *error* xxx_err)
(setq os (getvar "osmode")
)
(setvar "osmode" 0)
......
(setvar "osmode" os)
(princ)
) [/PHP]


[B]另外，请版主把这个主题移动到LISP版块吧。[/B]

柔柔

改了一下，没测试

2. 
   
3.   [FONT=courier new]
   
4. ;;;    此小程序为将坐标写在CAD中
   
5. ;; pt0_zb_cdhuaoo1 标注基准点,全局变量
   
6. ;;-------------------------------------------
   
7. (defun zb_err (s)
   
8.   (if (/= s "Function cancelled")
   
9.     (princ (strcat "\nError: " s))
   
10.   )
    
11.   (setvar "osmode" os)
    
12.   (setvar "dimzin" dis)
    
13.   (setvar "cmdecho" cmd)
    
14.   (command "_.UNDO" "_E")
    
15. )
    
16. 
    
17. ;;=============== Main program ============
    
18. 
    
19. (defun c:zb (/ cmd os pt x y pt1 x1 y1 xx2 pt2 dis)
    
20.   (setq *error* zb_err)
    
21.   (setq cmd (getvar "cmdecho"))
    
22.   (setvar "cmdecho" 0)
    
23.   (setq os (getvar "osmode"))
    
24.   (setvar "osmode" 4271)
    
25.   (if (= pt0_zb_cdhuaoo1 nil)
    
26.     (setq pt0_zb_cdhuaoo1 (getpoint "\n拾取标注基准点<0,0>:"))
    
27.   )
    
28.   (setq        pt  (getpoint "\n拾取需要标注的点:")
    
29.         pt1 (getpoint pt "\n拾取标注线起点:")
    
30.   )
    
31. 
    
32.   (setq        y  (car pt)
    
33.         x  (cadr pt)
    
34.         x1 (car pt1)
    
35.         y1 (cadr pt1)
    
36.         y2 y1
    
37.   )
    
38.   (if pt0_zb_cdhuaoo1
    
39.     (setq x (- x (car pt0_zb_cdhuaoo1))
    
40.           y (- y (cadr pt0_zb_cdhuaoo1))
    
41.     )
    
42.   )
    
43.   (if (> x1 y)
    
44.     (setq x2  (+ x1 16)
    
45.           xx2 (+ x1 0.5)
    
46.     )
    
47.     (setq x2  (- x1 16)
    
48.           xx2 (+ x2 0.5)
    
49.     )
    
50.   )
    
51.   (setvar "osmode" 0)
    
52.   (setq pt2 (list x2 y2))
    
53.   (command "line" pt pt1 pt2 "")
    
54.   (if (null (setq elist (tblsearch "style" "Times")))
    
55.     (command "_style" "Times" "Times.ttf" "0.0" "" "0.0" "" "")
    
56.   )
    
57.   (setvar "TEXTSTYLE" "Times")
    
58.   (setq dis (getvar "dimzin"))
    
59.   (setvar "dimzin" 1)
    
60.   (command "text"
    
61.            "ml"
    
62.            (list xx2 (+ y1 1.625))
    
63.            2
    
64.            0
    
65.            (strcat "X " (rtos x 2 3))
    
66.   )
    
67.   (command "text"
    
68.            "ml"
    
69.            (list xx2 (- y1 1.625))
    
70.            2
    
71.            0
    
72.            (strcat "Y " (rtos y 2 3))
    
73.   )
    
74.   (setvar "osmode" os)
    
75.   (setvar "dimzin" dis)
    
76.   (setvar "cmdecho" cmd)
    
77.   (princ)
    
78. )
    
79. 
    
80. 
    
81.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;    此小程序为将坐标写在CAD中<br /> ;; pt0_zb_cdhuaoo1 标注基准点,全局变量<br /> ;;------------------------------------------- <br /> (defun zb_err (s)<br />   (if (/= s "Function cancelled")<br />     (princ (strcat "\nError: " s))<br />   )<br />   (setvar "osmode" os)<br />   (setvar "dimzin" dis)<br />   (setvar "cmdecho" cmd)<br />   (command "_.UNDO" "_E")<br /> )<br /> <br /> ;;=============== Main program ============ <br /> <br /> (defun c:zb (/ cmd os pt x y pt1 x1 y1 xx2 pt2 dis)<br />   (setq *error* zb_err)<br />   (setq cmd (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 4271)<br />   (if (= pt0_zb_cdhuaoo1 nil)<br />     (setq pt0_zb_cdhuaoo1 (getpoint "\n拾取标注基准点<0,0>:"))<br />   )<br />   (setq        pt  (getpoint "\n拾取需要标注的点:")<br />         pt1 (getpoint pt "\n拾取标注线起点:")<br />   )<br /> <br />   (setq        y  (car pt)<br />         x  (cadr pt)<br />         x1 (car pt1)<br />         y1 (cadr pt1)<br />         y2 y1<br />   )<br />   (if pt0_zb_cdhuaoo1<br />     (setq x (- x (car pt0_zb_cdhuaoo1))<br />           y (- y (cadr pt0_zb_cdhuaoo1))<br />     )<br />   )<br />   (if (> x1 y)<br />     (setq x2  (+ x1 16)<br />           xx2 (+ x1 0.5)<br />     )<br />     (setq x2  (- x1 16)<br />           xx2 (+ x2 0.5)<br />     )<br />   )<br />   (setvar "osmode" 0)<br />   (setq pt2 (list x2 y2))<br />   (command "line" pt pt1 pt2 "")<br />   (if (null (setq elist (tblsearch "style" "Times")))<br />     (command "_style" "Times" "Times.ttf" "0.0" "" "0.0" "" "")<br />   )<br />   (setvar "TEXTSTYLE" "Times")<br />   (setq dis (getvar "dimzin"))<br />   (setvar "dimzin" 1)<br />   (command "text"<br />            "ml"<br />            (list xx2 (+ y1 1.625))<br />            2<br />            0<br />            (strcat "X " (rtos x 2 3))<br />   )<br />   (command "text"<br />            "ml"<br />            (list xx2 (- y1 1.625))<br />            2<br />            0<br />            (strcat "Y " (rtos y 2 3))<br />   )<br />   (setvar "osmode" os)<br />   (setvar "dimzin" dis)<br />   (setvar "cmdecho" cmd)<br />   (princ)<br /> )<br /> <br /> <br />   [/FONT]<br />

狂刀

一个“门外汉”能写出这样的程序？看来不算嘛
(command "_.UNDO" "_E")　？？？

cdhua001

柔柔大侠，还有点小问题：
1、我不需要指定坐标原点。
2、方向有点问题。

柔柔

那就去掉下面列出的语句
;; pt0_zb_cdhuaoo1 标注基准点,全局变量

  (if (= pt0_zb_cdhuaoo1 nil)
    (setq pt0_zb_cdhuaoo1 (getpoint "\n拾取标注基准点<0,0>:"))
  )


  (if pt0_zb_cdhuaoo1
    (setq x (- x (car pt0_zb_cdhuaoo1))
          y (- y (cadr pt0_zb_cdhuaoo1))
    )
  )
另外，我没测试程序，原来程序内容没仔细看

cdhua001

前面的两个问题都OK了。
试验了一下强行终止程序，得到如下提示，不知是否正常：
　Error: 函数被取消; 错误: *error* 函数中出错AutoCAD 变量设置被拒绝: "dimzin" nil

ll_j

这是程序终止发生在变量“dimzin”被保存之前的缘故，将出错函数中“(setvar "dimzin" dis)”改为“(if dis (setvar "dimzin" dis))”即可。
另外，我理解，这个程序是从一个大程序中截取的，或者是由另外的程序修改的，程序中“(command "_.UNDO" "_E") ”一句是undo处理，应该是与“(command "_.UNDO" "_BE") ”对应的，对于使用了较多“command”函数的程序一般这样处理。本程序可以在开始（第一句）加上“(command "_.UNDO" "_BE") ”，在最后（“(princ)”之前）加上“(command "_.UNDO" "_E") ”。

xiaotang

最初由 ll_j 发布
[B]这是程序终止发生在变量“dimzin”被保存之前的缘故，将出错函数中“(setvar "dimzin" dis)”改为“(if dis (setvar "dimzin" dis))”即可。
另外，我理解，这个程序是从一个大程序中截取的，或者是由另外的程序修?.. [/B]

这里前后共有两段setvar "dimzin" dis，不知改哪一个？
另外，这段“本程序可以在开始（第一句）加上“(command "_.UNDO" "_BE") ”，在最后（“(princ)”之前）加上“(command "_.UNDO" "_E") ”。”
该怎样操作，请贴图帮助好吗，谢谢

ll_j

这样
[php];;;    此小程序为将坐标写在CAD中
;; pt0_zb_cdhuaoo1 标注基准点,全局变量
;;-------------------------------------------
(defun zb_err (s)
  (if (/= s "Function cancelled")
    (princ (strcat "\nError: " s))
  )
  (setvar "osmode" os)
  (if dis (setvar "dimzin" dis))                  ;****
  (setvar "cmdecho" cmd)
  (command "_.UNDO" "_E")
)

;;=============== Main program ============

(defun c:zb (/ cmd os pt x y pt1 x1 y1 xx2 pt2 dis)
  (command "_.UNDO" "_BE")      ;*****
  (setq *error* zb_err)
  (setq cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq os (getvar "osmode"))
  (setvar "osmode" 4271)
  (if (= pt0_zb_cdhuaoo1 nil)
    (setq pt0_zb_cdhuaoo1 (getpoint "\n拾取标注基准点<0,0>:"))
  )
  (setq        pt  (getpoint "\n拾取需要标注的点:")
        pt1 (getpoint pt "\n拾取标注线起点:")
  )

  (setq        y  (car pt)
        x  (cadr pt)
        x1 (car pt1)
        y1 (cadr pt1)
        y2 y1
  )
  (if pt0_zb_cdhuaoo1
    (setq x (- x (car pt0_zb_cdhuaoo1))
          y (- y (cadr pt0_zb_cdhuaoo1))
    )
  )
  (if (> x1 y)
    (setq x2  (+ x1 16)
          xx2 (+ x1 0.5)
    )
    (setq x2  (- x1 16)
          xx2 (+ x2 0.5)
    )
  )
  (setvar "osmode" 0)
  (setq pt2 (list x2 y2))
  (command "line" pt pt1 pt2 "")
  (if (null (setq elist (tblsearch "style" "Times")))
    (command "_style" "Times" "Times.ttf" "0.0" "" "0.0" "" "")
  )
  (setvar "TEXTSTYLE" "Times")
  (setq dis (getvar "dimzin"))
  (setvar "dimzin" 1)
  (command "text"
           "ml"
           (list xx2 (+ y1 1.625))
           2
           0
           (strcat "X " (rtos x 2 3))
  )
  (command "text"
           "ml"
           (list xx2 (- y1 1.625))
           2
           0
           (strcat "Y " (rtos y 2 3))
  )
  (setvar "osmode" os)
  (setvar "dimzin" dis)
  (setvar "cmdecho" cmd)
  (command "_.UNDO" "_E")     ;****
  (princ)
)

[/php]

xiaotang

最初由 cdhua001 发布
[B]查了一下，应该是这句：
(setvar "osmode" os) [/B]

坐标标注的问题是解决了，可我的对象捕捉自动消失的问题还没解决，我将楼主这句话加在两个LISP文件中，都没反应，请楼主再帮助一下，谢谢

xiaotang

最初由 柔柔 发布
[B]提供一下思路
1，你这个程序好像是把坐标点值写出来，那我要问你了，所谓坐标值就是相对于坐标原点的，如果你想人为定某个点为基准点，标出相对于这个基准点的“坐标”值就不行了。
所以，程序一开始要有一个“选?.. [/B]

输入样板文件名或 [.(表示无)] :.
正在重生成模型。
拾取需要标注的点:
拾取标注线起点:
字体文件不存在。未知命令“0.0”。按 F1 查看帮助。
未知命令“ZZ”。按 F1 查看帮助。
未知命令“0.0”。按 F1 查看帮助。
未知命令“ZZ”。按 F1 查看帮助。
未知命令“ZZ”。按 F1 查看帮助。
Error: AutoCAD 变量设置被拒绝: "TEXTSTYLE" "S2"
我的字体样式是S2，当新建文件样板文件名是“无”时，不能自动建立新字体样式S2，请问怎样解决这个问题？我都是复制一个S2样式的文字，然后再使用标注就正常了，就是麻烦一些，能不能将文字样式S2设置到样本“无”里面？
另外，标注坐标，能否加上设置比例，这样可在任意比例图形中实现自动标注，谢谢

梁桥

我看到那些密密麻麻的英文字，我头都晕了。还要看程序啊！！