【e派】工具箱函数再揭秘及应用实例

cable2004

我的心，在等待，永远在等待～～

仲文玉

又来观摩，感谢院长

杨如迁

支持院长

【KAIXIN】

xyp1964

lxtj(拉线台阶)

xuexicad1960

这里好热闹 ，院长的函数集原来在这里，谢谢院长！

500w008

院长 应该做的事情是 去物价局 提高下我们的设计费 不是 写程序了

xyp1964

;; ★U序列函数★  非常重要的函数

1. ;; ---------------------- UREAL ----------------------------
   
2. ;;                  实型数输入格式化                       
   
3. ;; 方式 : (setq no1 (ureal 1 "" "实数" no1))            
   
4. (defun ureal (bit kwd msg def / inp)
   
5.   (if def
   
6.     (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
   
7.           bit (* 2 (fix (/ bit 2)))
   
8.     )
   
9.     (setq msg (strcat "\n" msg ": "))
   
10.   )
    
11.   (initget bit kwd)
    
12.   (setq inp (getreal msg))
    
13.   (if inp inp def)
    
14. )
    
15. 
    
16. ;; ---------------------- USTR -----------------------------
    
17. ;;                  字符串输入格式化                       
    
18. ;; 方式 : (setq txt1 (ustr 1 "字符串" txt1 nil))        
    
19. (defun ustr (bit msg def spflag / inp nval)
    
20.   (if (and def (/= def ""))
    
21.     (setq msg (strcat "\n" msg "<" def ">: ")
    
22.           inp (getstring msg spflag)
    
23.           inp (if (= inp "")
    
24.                 def
    
25.                 inp
    
26.               )
    
27.     )
    
28.     (progn
    
29.       (setq msg (strcat "\n" msg ": "))
    
30.       (if (= bit 1)
    
31.         (while (= "" (setq inp (getstring msg spflag))))
    
32.         (setq inp (getstring msg spflag))
    
33.       )
    
34.     )
    
35.   )
    
36.   (if inp inp def)
    
37. )
    
38. 
    
39. ;; ---------------------- UDIST ---------------------------
    
40. ;;                  距离输入格式化                        
    
41. ;; 方式 : (setq dist1 (udist 1 "" "距离" dist1 '(0 0)))
    
42. (defun udist (bit kwd msg def bpt / inp)
    
43.   (if def
    
44.     (setq msg (strcat "\n" msg "<" (rtos def) ">: ")
    
45.           bit (* 2 (fix (/ bit 2)))
    
46.     )
    
47.     (setq msg (strcat "\n" msg ": "))
    
48.   )
    
49.   (initget bit kwd)
    
50.   (setq inp (if bpt (getdist msg bpt) (getdist msg)))
    
51.   (if inp inp def)
    
52. )
    
53. 
    
54. ;; ---------------------- UKWORD ---------------------------
    
55. ;;                    关键字输入格式化                     
    
56. ;; 方式 : (setq tx1 (ukword 1 "1 2" "1-任意点/2-中心点" tx1))
    
57. (defun ukword (bit kwd msg def / inp)
    
58.   (if (and def (/= def ""))
    
59.     (setq msg (strcat "\n" msg "<" def ">: ")
    
60.           bit (* 2 (fix (/ bit 2)))
    
61.     )
    
62.     (setq msg (strcat "\n" msg ": "))
    
63.   )
    
64.   (initget bit kwd)
    
65.   (setq inp (getkword msg))
    
66.   (if inp inp def)
    
67. )
    
68. 
    
69. ;; ---------------------- UINT -----------------------------
    
70. ;;                    整型数输入格式化                     
    
71. ;; 方式 : (setq no1 (uint 1 "" "整数" no1))            
    
72. (defun uint (bit kwd msg def / inp)
    
73.   (if def
    
74.     (setq msg (strcat "\n" msg "<" (itoa def) ">: ")
    
75.           bit (* 2 (fix (/ bit 2)))
    
76.     )
    
77.     (setq msg (strcat "\n" msg ": "))
    
78.   )
    
79.   (initget bit kwd)
    
80.   (setq inp (getint msg))
    
81.   (if inp inp def)
    
82. )
    
83. 
    
84. ;; ----------------------- UPOINT ---------------------------
    
85. ;;                       输入点格式化                        
    
86. ;; 方式 : (setq pt (upoint 1 "" "点" pt '(0 0)))   
    
87. (defun upoint (bit kwd msg def bpt / inp)
    
88.   (if def
    
89.     (setq pts (strcat
    
90.                 (rtos (car def))
    
91.                 ", "
    
92.                 (rtos (cadr def))
    
93.                 (if (and (caddr def) (= 0 (getvar "flatland")))
    
94.                   (strcat ", " (rtos (caddr def)))
    
95.                   ""
    
96.                 )
    
97.               )
    
98.           msg (strcat "\n" msg "<" pts ">: ")
    
99.           bit (* (fix (/ bit 2)))
    
100.     )
     
101.     (setq msg (strcat "\n" msg ": "))
     
102.   )
     
103.   (initget bit kwd)
     
104.   (setq inp (if bpt (getpoint msg bpt)(getpoint msg)))
     
105.   (if inp inp def)
     
106. )
     
107. 
     
108. ;; ----------------------- UANGLE ---------------------------
     
109. ;;          格式化输入角度然后返回以弧度表示的角度           
     
110. ;; 方式 : (setq ang (uangle 1 "" "角度" ang '(0 0)))
     
111. (defun uangle (bit kwd msg def bpt / inp)
     
112.   (if def
     
113.     (setq msg (strcat "\n" msg "<" (angtos def) ">: ")
     
114.           bit (* (fix (/ bit 2)))
     
115.     )
     
116.     (setq msg (strcat "\n" msg ": "))
     
117.   )
     
118.   (initget bit kwd)
     
119.   (setq inp (if bpt (getangle msg bpt)(getangle msg)))
     
120.   (if inp inp def)
     
121. )
     

;; ---------------------- UREAL ----------------------------<br /> ;;                  实型数输入格式化                       <br /> ;; 方式 : (setq no1 (ureal 1 "" "实数" no1))            <br /> (defun ureal (bit kwd msg def / inp)<br />   (if def<br />     (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")<br />           bit (* 2 (fix (/ bit 2)))<br />     )<br />     (setq msg (strcat "\n" msg ": "))<br />   )<br />   (initget bit kwd)<br />   (setq inp (getreal msg))<br />   (if inp inp def)<br /> )<br /> <br /> ;; ---------------------- USTR -----------------------------<br /> ;;                  字符串输入格式化                       <br /> ;; 方式 : (setq txt1 (ustr 1 "字符串" txt1 nil))        <br /> (defun ustr (bit msg def spflag / inp nval)<br />   (if (and def (/= def ""))<br />     (setq msg (strcat "\n" msg "<" def ">: ")<br />           inp (getstring msg spflag)<br />           inp (if (= inp "")<br />                 def<br />                 inp<br />               )<br />     )<br />     (progn<br />       (setq msg (strcat "\n" msg ": "))<br />       (if (= bit 1)<br />         (while (= "" (setq inp (getstring msg spflag))))<br />         (setq inp (getstring msg spflag))<br />       )<br />     )<br />   )<br />   (if inp inp def)<br /> )<br /> <br /> ;; ---------------------- UDIST ---------------------------<br /> ;;                  距离输入格式化                        <br /> ;; 方式 : (setq dist1 (udist 1 "" "距离" dist1 '(0 0)))<br /> (defun udist (bit kwd msg def bpt / inp)<br />   (if def<br />     (setq msg (strcat "\n" msg "<" (rtos def) ">: ")<br />           bit (* 2 (fix (/ bit 2)))<br />     )<br />     (setq msg (strcat "\n" msg ": "))<br />   )<br />   (initget bit kwd)<br />   (setq inp (if bpt (getdist msg bpt) (getdist msg)))<br />   (if inp inp def)<br /> )<br /> <br /> ;; ---------------------- UKWORD ---------------------------<br /> ;;                    关键字输入格式化                      <br /> ;; 方式 : (setq tx1 (ukword 1 "1 2" "1-任意点/2-中心点" tx1))<br /> (defun ukword (bit kwd msg def / inp)<br />   (if (and def (/= def ""))<br />     (setq msg (strcat "\n" msg "<" def ">: ")<br />           bit (* 2 (fix (/ bit 2)))<br />     )<br />     (setq msg (strcat "\n" msg ": "))<br />   )<br />   (initget bit kwd)<br />   (setq inp (getkword msg))<br />   (if inp inp def)<br /> )<br /> <br /> ;; ---------------------- UINT -----------------------------<br /> ;;                    整型数输入格式化                     <br /> ;; 方式 : (setq no1 (uint 1 "" "整数" no1))             <br /> (defun uint (bit kwd msg def / inp)<br />   (if def<br />     (setq msg (strcat "\n" msg "<" (itoa def) ">: ")<br />           bit (* 2 (fix (/ bit 2)))<br />     )<br />     (setq msg (strcat "\n" msg ": "))<br />   )<br />   (initget bit kwd)<br />   (setq inp (getint msg))<br />   (if inp inp def)<br /> )<br /> <br /> ;; ----------------------- UPOINT ---------------------------<br /> ;;                       输入点格式化                        <br /> ;; 方式 : (setq pt (upoint 1 "" "点" pt '(0 0)))    <br /> (defun upoint (bit kwd msg def bpt / inp)<br />   (if def<br />     (setq pts (strcat<br />                 (rtos (car def))<br />                 ", "<br />                 (rtos (cadr def))<br />                 (if (and (caddr def) (= 0 (getvar "flatland")))<br />                   (strcat ", " (rtos (caddr def)))<br />                   ""<br />                 )<br />               )<br />           msg (strcat "\n" msg "<" pts ">: ")<br />           bit (* (fix (/ bit 2)))<br />     )<br />     (setq msg (strcat "\n" msg ": "))<br />   )<br />   (initget bit kwd)<br />   (setq inp (if bpt (getpoint msg bpt)(getpoint msg)))<br />   (if inp inp def)<br /> )<br /> <br /> ;; ----------------------- UANGLE ---------------------------<br /> ;;          格式化输入角度然后返回以弧度表示的角度           <br /> ;; 方式 : (setq ang (uangle 1 "" "角度" ang '(0 0)))<br /> (defun uangle (bit kwd msg def bpt / inp)<br />   (if def<br />     (setq msg (strcat "\n" msg "<" (angtos def) ">: ")<br />           bit (* (fix (/ bit 2)))<br />     )<br />     (setq msg (strcat "\n" msg ": "))<br />   )<br />   (initget bit kwd)<br />   (setq inp (if bpt (getangle msg bpt)(getangle msg)))<br />   (if inp inp def)<br /> )<br />

x_s_s_1

此贴坚决跟顶

xiaotao

算法很不错！