[原创]：拉件号

elmar

机械绘图中，经常要拉件号，然后在材料表中指出对应件号的零件的材料、图号等。我的这个小程序就是用来拉件号的。请大家帮我看看。

XDSoft

有什么问题吗？详细说说

elmar

没有已知错误，呵呵

elmar

附图1

elmar

我把这种件号标注看作是一种标注，所以设置中输入的半径、高度等都只是相对值，最后要乘上标注样式中的全局比例。现在功能都已经实现了，但还有几个问题：
1. 件号实体实际上是无名块，里面的件号值可以编辑。但是编辑时我让用户选择一个实体(entsel)后，怎么让选中的实体高亮显示呢？
2. 设置选项时，输入半径、高度后焦点转移，这时我检测了一下输入值的合法性。但是如果用户输入错误值后，不想改变设置值而选择了取消，怎么不让程序弹出出错框？（如图）

ll_j

最初由 elmar 发布
我把这种件号标注看作是一种标注，所以设置中输入的半径、高度等都只是相对值，最后要乘上标注样式中的全局比例。现在功能都已经实现了，但还有几个问题：
1. 件号实体实际上是无名块，里面的件号值可以编辑。但是?..

1.可以用(redraw (car (entsel)) 3)，对块中实体是nentsel，注意操作完成后需要恢复。
2.以下函数供参考

2. 
   
3.   (defun tt_stile(til til[ / bt)          ；字符串处理
   
4.     (if (and (/= (setq bt (get_tile til)) nil)
   
5.              (/= bt "")
   
6.         )
   
7.       (set_tile til bt)
   
8.       (progn
   
9.         (alert "不能为空！")       ;提示
   
10.         (set_tile til til[)
    
11.         (mode_tile til 2)
    
12.       )
    
13.     )
    
14.   )
    
15. 
    
16.   (defun tt_tile(til / bt)               ;数字处理，无效字符为"0.0"
    
17.     (if (/= (setq bt (get_tile til)) nil) (set_tile til (rtos (atof bt))))
    
18.   )
    
19. 
    
20. ...
    
21.     (action_tile "fn" "(tt_stile "fn" fname) (setq fname (get_tile "fn"))")
    
22.     (action_tile "lh" "(tt_tile "lh") (setq tt:lh (atof $value))")
    
23. ...
    

<br />   (defun tt_stile(til til[ / bt)          ；字符串处理<br />     (if (and (/= (setq bt (get_tile til)) nil)<br />              (/= bt "")<br />         )<br />       (set_tile til bt)<br />       (progn<br />         (alert "不能为空！")       ;提示<br />         (set_tile til til[)<br />         (mode_tile til 2)<br />       )<br />     )<br />   )<br /> <br />   (defun tt_tile(til / bt)               ;数字处理，无效字符为"0.0"<br />     (if (/= (setq bt (get_tile til)) nil) (set_tile til (rtos (atof bt))))<br />   )<br /> <br /> ...<br />     (action_tile "fn" "(tt_stile "fn" fname) (setq fname (get_tile "fn"))")<br />     (action_tile "lh" "(tt_tile "lh") (setq tt:lh (atof $value))")<br /> ...<br />

elmar

问题1已经解决了，又学到一个新函数，谢谢！文件我已经更新过了。
对于问题2，我原先的想法是当文本框lost focus时检测其中数据是否合法，这好像是帮助文件里建议这样做的，所以当时就这么写了。后来发现按“取消”时也会发生这些事件。于是想判断紧接着接受焦点的是不是“取消”按钮，如果是，则不检测数据，因为错误数据不会被接受；否则检测。但好像挺困难的，我不知道有什么函数可以这样做。现在提供的code，好像也没有解决这个问题。也许我们应该换一种思路：干脆在按“确定”时检测数据。

ll_j

最初由 elmar 发布
问题1已经解决了，又学到一个新函数，谢谢！文件我已经更新过了。
对于问题2，我原先的想法是当文本框lost focus时检测其中数据是否合法，这好像是帮助文件里建议这样做的，所以当时就这么写了。后来发现按“取消”...

我的文件中的一段代码，供参考：

2. 
   
3. ....
   
4.     (action_tile "05" "(done_dialog 3)")
   
5. ....
   
6.     (action_tile "pik" "(done_dialog 4)")
   
7. ....
   
8. [color=red]    (action_tile "accept" "(done_dialog 1)")
   
9.     (action_tile "cancel" "(done_dialog 2)")[/color]
   
10. ....
    
11. 
    
12. 
    
13. ....
    
14.   (while (or (= what_ 3) (= what_ 4))
    
15.     (if        (not (new_dialog "tt" dcl_id)) (exit))
    
16.     (tt_dia)
    
17.     (tt_act)
    
18.     (setq what_ (start_dialog))
    
19.     (if (= what_ 3) (tt_05))
    
20.     (if        (= what_ 4) (tt_pik))
    
21.   )
    
22.   (if (= what_ 1)
    
23.     (progn
    
24.       (if (= 06[ 1)
    
25.         (command "_.pspace")
    
26.         (command "_.mspace")
    
27.       )
    
28.       (tt_se1)
    
29.     )
    
30.     (princ "\n取消统计。")
    
31.   )
    
32. ....
    

<br /> ....<br />     (action_tile "05" "(done_dialog 3)")<br /> ....<br />     (action_tile "pik" "(done_dialog 4)")<br /> ....<br /> [color=red]    (action_tile "accept" "(done_dialog 1)")<br />     (action_tile "cancel" "(done_dialog 2)")[/color]<br /> ....<br /> <br /> <br /> ....<br />   (while (or (= what_ 3) (= what_ 4))<br />     (if        (not (new_dialog "tt" dcl_id)) (exit))<br />     (tt_dia)<br />     (tt_act)<br />     (setq what_ (start_dialog))<br />     (if (= what_ 3) (tt_05))<br />     (if        (= what_ 4) (tt_pik))<br />   )<br />   (if (= what_ 1)<br />     (progn<br />       (if (= 06[ 1)<br />         (command "_.pspace")<br />         (command "_.mspace")<br />       )<br />       (tt_se1)<br />     )<br />     (princ "\n取消统计。")<br />   )<br /> ....<br />