command命令格式，改为entmake格式后，有bug，哪位帮忙改改

wjnnan

参考网上兄弟做的初始化软件，原来使用command命令，后来嫌速度慢，又改为了entmake格式的，测试了下，在标注设置部分有bug，哪位仁兄帮忙给改一下，下面是源码

2. ;0-初始化-csh
   
3. ;csh.lsp
   
4. ;对CAD绘图的环境进行初始化，建立必要的图层及字体和标注样式
   
5. ;2014/08/07 by wjnnan 整理
   
6. ;2014/08/14 修改为entmake格式
   
7. ;感谢原作者wxh5330 和 tranney
   
8. 
   
9. (defun c:csh ( / orig_blip orig_cmd orig_osnap orig_layer); 指定函式名称
   
10.        (prinC "\n绘图环境初始化开始")
    
11.        (setvar "CURSORSIZE" 100)             ;将屏幕十字光标的大小设为100%
    
12.        (setvar "ACADLSPASDOC" 1)             ;将 acad.lsp 载入到每一个打开的图形中
    
13.        (setvar "ANGDIR" 1)                   ;设置正角度的方向为顺时针
    
14.        (setvar "AUNITS" 0)                   ;设置角度单位为十进位度数
    
15.        (setvar "CMLSCALE" 20.0000)           ;设线宽为公制              
    
16.        (setvar "GRIDMODE" 0)                 ;关闭栅格
    
17.        (setvar "LTSCALE" 1.0000)             ;设置全局线型比例为1.0000
    
18.        (setvar "LUNITS" 2)                   ;设置线性单位为小数
    
19.        (setvar "LWDISPLAY" 1)                ;显示线宽
    
20.        (setvar "LWDEFAULT" 25)               ;设置默认线宽的值为25
    
21.        (setvar "LWUNITS" 1)                  ;设线宽单位以毫米显示
    
22.        (setvar "MEASUREINIT" 1)              ;设置初始图形单位为公制
    
23.        (setvar "PSLTSCALE" 1)                ;设图纸空间的线型比例为1：1
    
24.        (setvar "SNAPMODE" 0)                 ;关闭"捕捉"方式
    
25.        (setvar "TOOLTIPS" 1)                 ;显示工具栏提示
    
26.        (setvar "TRACEWID" 0.2)               ;设置宽线的默认宽度为0.2MM
    
27.        (setvar "TRAYICONS" 1)                ;控制是否在状态栏上显示系统托盘
    
28.        (setvar "TRAYNOTIFY" 1)               ;控制是否在状态栏系统托盘上显示服务通知
    
29.        (setvar "ISAVEBAK" 1)                 ;控制备份文件 (BAK) 的创建。    1，创建    0，不创建         
    
30.        (setvar "SAVETIME" 15)                ;设置自动保存时间
    
31.        ;(setvar "VIEWRES" 5000)               ;设置圆弧和圆的平滑度
    
32.        (setvar "FILEDIA" 1)                  ;0,为命令行提示;1,为对话框提示
    
33. (setvar "APERTURE" 25)                ;以像素为单位设置靶框显示尺寸。靶框是绘图命令中使用的选择工具。初始值：10
    
34.        (setvar "PICKBOX" 8)                  ;控制拾取框大小
    
35.        (setvar "Vtenable" 0)                 ;窗口缓冲速度
    
36.        (setvar "qaflags" 0)                  ;取消选择先后顺序
    
37.        (setenv "DefaultFormatForSave" "24") ;设置默认保存格式2004 24的16进制=0x18 格式2000 12的16进制=0x0C 格式R12 1的16进制=01
    
38.        (COMMAND  "OSMODE"  "4279" )           ;常用捕捉打开
    
39.        (command "VIEWRES" "y" 5000 )          ;设置圆弧和圆的平滑度
    
40.     (setq orig_blip (getvar "blipmode")); 获取系统变数的初始值
    
41.     (setq orig_cmd (getvar "cmdecho"))
    
42.     (setq orig_osnap (getvar "osmode"))
    
43.     (setq orig_layer (getvar "clayer"))
    
44.     (setvar "blipmode" 0); 设置系统变数
    
45.     (setvar "cmdecho" 0)
    
46.     (setvar "osmode" 0)
    
47. 
    
48. ;;;;判断及创建图层
    
49. ;;;(defun csh_lay()
    
50. ;;;(setvar "cmdecho" 0)
    
51. ;;;(if (= (tblsearch "layer" "AXIS") nil)
    
52. ;;;  (command "layer" "m" "AXIS" "c" "1" "" "lt" "ACAD_ISo04W100" "" ""));                  轴线
    
53. ;;;
    
54. ;;;(if (= (tblsearch "layer" "AXIS_DIM") nil)  
    
55. ;;;(command "layer" "m" "AXIS_DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));          轴线标注
    
56. ;;;
    
57. ;;;(if (= (tblsearch "layer" "AXIS_TEXT") nil)   
    
58. ;;;(command "layer" "m" "AXIS_TEXT" "c" "2" "" "lt" "CONTINUOUS" "" ""));         轴线编号
    
59. ;;;
    
60. ;;;(if (= (tblsearch "layer" "COLU") nil)
    
61. ;;;(command "layer" "m" "COLU" "c" "11" "" "lt" "CONTINUOUS" "" ""));             柱子
    
62. ;;;
    
63. ;;;(if (= (tblsearch "layer" "COLU_DASH") nil)   
    
64. ;;;(command "layer" "m" "COLU_DASH" "c" "11" "" "lt" "DASHED" "" ""));              柱子虚线
    
65. ;;;  
    
66. ;;;(if (= (tblsearch "layer" "COLU_BR") nil)  
    
67. ;;;(command "layer" "m" "COLU_BR" "c" "52" "" "lt" "CONTINUOUS" "" ""));          构造柱
    
68. ;;;
    
69. ;;;(if (= (tblsearch "layer" "COLU_NUM") nil)  
    
70. ;;;  (command "layer" "m" "COLU_NUM" "c" "2" "" "lt" "CONTINUOUS" "" ""));          柱子编号
    
71. ;;;  
    
72. ;;;(if (= (tblsearch "layer" "COLU_HATCH") nil)  
    
73. ;;;(command "layer" "m" "COLU_HATCH" "c" "8" "" "lt" "CONTINUOUS" "" ""));        柱子填充
    
74. ;;;
    
75. ;;;(if (= (tblsearch "layer" "BEAM") nil)  
    
76. ;;;  (command "layer" "m" "BEAM" "c" "4" "" "lt" "DASHED" "" ""));                    主梁
    
77. ;;;  
    
78. ;;;(if (= (tblsearch "layer" "BEAM_CON") nil)  
    
79. ;;;(command "layer" "m" "BEAM_CON" "c" "4" "" "lt" "CONTINUOUS" "" ""));          主梁实线
    
80. ;;;  
    
81. ;;;(if (= (tblsearch "layer" "BEAM_TEXT_HOR") nil)  
    
82. ;;;(command "layer" "m" "BEAM_TEXT_HOR" "c" "2" "" "lt" "CONTINUOUS" "" ""));     主梁水平文字
    
83. ;;;  
    
84. ;;;(if (= (tblsearch "layer" "BEAM_TEXT_VER") nil)
    
85. ;;;(command "layer" "m" "BEAM_TEXT_VER" "c" "100" "" "lt" "CONTINUOUS" "" ""));   主梁竖直文字
    
86. ;;;
    
87. ;;;(if (= (tblsearch "layer" "BEAM_WA") nil)
    
88. ;;; (command "layer" "m" "BEAM_WA" "c" "21" "" "lt" "DASHED" "" ""));                连梁
    
89. ;;;
    
90. ;;;(if (= (tblsearch "layer" "BEAM_WA_CON") nil)
    
91. ;;;  (command "layer" "m" "BEAM_WA_CON" "c" "21" "" "lt" "CONTINUOUS" "" ""));      连梁实线
    
92. ;;;  
    
93. ;;;(if (= (tblsearch "layer" "BEAM_WA_TEXT") nil)
    
94. ;;;(command "layer" "m" "BEAM_WA_TEXT" "c" "100" "" "lt" "CONTINUOUS" "" ""));    连梁文字
    
95. ;;;
    
96. ;;;
    
97. ;;;(if (= (tblsearch "layer" "BEAM_SE") nil)
    
98. ;;;  (command "layer" "m" "BEAM_SE" "c" "144" "" "lt" "DASHED" "" ""));                次梁
    
99. ;;;  
    
100. ;;;(if (= (tblsearch "layer" "BEAM_SE_CON") nil)
     
101. ;;;(command "layer" "m" "BEAM_SE_CON" "c" "144" "" "lt" "CONTINUOUS" "" ""));      次梁实线
     
102. ;;;  
     
103. ;;;(if (= (tblsearch "layer" "BEAM_SE_TEXT_HOR") nil)
     
104. ;;;(command "layer" "m" "BEAM_SE_TEXT_HOR" "c" "100" "" "lt" "CONTINUOUS" "" "")); 次梁水平文字
     
105. ;;;(if (= (tblsearch "layer" "BEAM_SE_TEXT_VER") nil)  
     
106. ;;;(command "layer" "m" "BEAM_SE_TEXT_VER" "c" "2" "" "lt" "CONTINUOUS" "" ""));   次梁竖直文字
     
107. ;;;
     
108. ;;;  ;(command "layer" "m" "S_WALL" "c" "94" "" "lt" "CONTINUOUS" "" "");           砼墙
     
109. ;;;  ;(command "layer" "m" "S_WALL_DASH" "c" "94" "" "lt" "DASHED" "" "");            砼墙虚线
     
110. ;;;  ;(command "layer" "m" "S_WALL_DIM" "c" "7" "" "lt" "CONTINUOUS" "" "");        砼墙标注
     
111. ;;;  ;(command "layer" "m" "S_WALL_NUM" "c" "100" "" "lt" "CONTINUOUS" "" "");      砼墙编号
     
112. ;;;  ;(command "layer" "m" "S_WALL_HATCH" "c" "8" "" "lt" "CONTINUOUS" "" "");      砼墙填充
     
113. ;;;  ;(command "layer" "m" "S_WALL_BR" "c" "52" "" "lt" "CONTINUOUS" "" "");        砖墙
     
114. ;;;  ;(command "layer" "m" "S_WALL_BR_DASH" "c" "52" "" "lt" "DASHED" "" "");         砖墙虚线
     
115. ;;;
     
116. ;;;  ;(command "layer" "m" "STAIR" "c" "3" "" "lt" "CONTINUOUS" "" "");             楼梯
     
117. ;;;  ;(command "layer" "m" "STAIR_TEXT" "c" "2" "" "lt" "CONTINUOUS" "" "");        楼梯文字
     
118. ;;;  ;(command "layer" "m" "STAIR_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");         楼梯标注
     
119. ;;;
     
120. ;;;
     
121. ;;;(if (= (tblsearch "layer" "FLOOR") nil)  
     
122. ;;;  (command "layer" "m" "FLOOR" "c" "124" "" "lt" "CONTINUOUS" "" ""));           楼板
     
123. ;;;  
     
124. ;;;(if (= (tblsearch "layer" "FLOOR_DOWN_REIN") nil)  
     
125. ;;;(command "layer" "m" "FLOOR_DOWN_REIN" "c" "15" "" "lt" "CONTINUOUS" "" ""));  楼板正筋
     
126. ;;;  
     
127. ;;;(if (= (tblsearch "layer" "FLOOR_DOWN_DIM") nil)  
     
128. ;;;(command "layer" "m" "FLOOR_DOWN_DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));    楼板正筋标注
     
129. ;;;
     
130. ;;;(if (= (tblsearch "layer" "FLOOR_DOWN_NUM") nil)  
     
131. ;;; (command "layer" "m" "FLOOR_DOWN_NUM" "c" "2" "" "lt" "CONTINUOUS" "" ""));    楼板正筋文字
     
132. ;;;
     
133. ;;;(if (= (tblsearch "layer" "FLOOR_UP_REIN") nil)  
     
134. ;;;  (command "layer" "m" "FLOOR_UP_REIN" "c" "1" "" "lt" "CONTINUOUS" "" ""));     楼板负筋
     
135. ;;;
     
136. ;;;(if (= (tblsearch "layer" "FLOOR_UP_DIM") nil)  
     
137. ;;; (command "layer" "m" "FLOOR_UP_DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));      楼板负筋标注
     
138. ;;;  
     
139. ;;;(if (= (tblsearch "layer" "FLOOR_UP_NUM") nil)
     
140. ;;;(command "layer" "m" "FLOOR_UP_NUM" "c" "100" "" "lt" "CONTINUOUS" "" ""));    楼板负筋文字
     
141. ;;;
     
142. ;;;
     
143. ;;;  ;(command "layer" "m" "HOLE" "c" "190" "" "lt" "CONTINUOUS" "" "");            洞口
     
144. ;;;  ;(command "layer" "m" "HOLE_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          洞口标注
     
145. ;;;  ;(command "layer" "m" "HOLE_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          洞口编号
     
146. ;;;  ;(command "layer" "m" "HOLE_HATCH" "c" "9" "" "lt" "CONTINUOUS" "" "");        洞口填充
     
147. ;;;
     
148. ;;;(if (= (tblsearch "layer" "BASE") nil)
     
149. ;;;  (command "layer" "m" "BASE" "c" "4" "" "lt" "CONTINUOUS" "" ""));              基础
     
150. ;;;  
     
151. ;;;(if (= (tblsearch "layer" "BASE_DIM") nil)
     
152. ;;;(command "layer" "m" "BASE_DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));          基础标注
     
153. ;;;  
     
154. ;;;(if (= (tblsearch "layer" "BASE_NUM") nil)
     
155. ;;;(command "layer" "m" "BASE_NUM" "c" "2" "" "lt" "CONTINUOUS" "" ""));          基础编号
     
156. ;;;
     
157. ;;;(if (= (tblsearch "layer" "PILE") nil)
     
158. ;;;  (command "layer" "m" "PILE" "c" "150" "" "lt" "CONTINUOUS" "" ""));            桩
     
159. ;;;  
     
160. ;;;(if (= (tblsearch "layer" "PILE_DASH") nil)
     
161. ;;;(command "layer" "m" "PILE_DASH" "c" "150" "" "lt" "DASHED" "" ""));             桩虚线
     
162. ;;;
     
163. ;;;
     
164. ;;;  ;(command "layer" "m" "STEEL" "c" "60" "" "lt" "CONTINUOUS" "" "");            钢结构实线
     
165. ;;;  ;(command "layer" "m" "STEEL_DASH" "c" "60" "" "lt" "DASHED" "" "");             钢结构虚线
     
166. ;;;
     
167. ;;;  ;(command "layer" "m" "BOLT" "c" "6" "" "lt" "CONTINUOUS" "" "");              螺栓
     
168. ;;;  ;(command "layer" "m" "BOLT_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          螺栓标注
     
169. ;;;  ;(command "layer" "m" "BOLT_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          螺栓编号
     
170. ;;;
     
171. ;;;  ;(command "layer" "m" "WELD" "c" "40" "" "lt" "CONTINUOUS" "" "");             焊缝
     
172. ;;;  ;(command "layer" "m" "WELD_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          焊缝标注
     
173. ;;;  ;(command "layer" "m" "WELD_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          焊缝文字
     
174. ;;;
     
175. ;;;  ;(command "layer" "m" "BURY" "c" "140" "" "lt" "CONTINUOUS" "" "");            预埋件
     
176. ;;;  ;(command "layer" "m" "BURY_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          预埋件标注
     
177. ;;;  ;(command "layer" "m" "BURY_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          预埋件编号
     
178. ;;;
     
179. ;;;  ;(command "layer" "m" "TAB" "c" "7" "" "lt" "CONTINUOUS" "" "");               表格线
     
180. ;;;  ;(command "layer" "m" "TAB_TEXT" "c" "2" "" "lt" "CONTINUOUS" "" "");          表格文字
     
181. ;;;
     
182. ;;;(if (= (tblsearch "layer" "REIN") nil)
     
183. ;;;  (command "layer" "m" "REIN" "c" "1" "" "lt" "CONTINUOUS" "" ""));              钢筋
     
184. ;;;  
     
185. ;;;(if (= (tblsearch "layer" "TEXT") nil)
     
186. ;;;(command "layer" "m" "TEXT" "c" "7" "" "lt" "CONTINUOUS" "" ""));              文字
     
187. ;;;
     
188. ;;;(if (= (tblsearch "layer" "DIM") nil)
     
189. ;;; (command "layer" "m" "DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));               尺寸
     
190. ;;;  
     
191. ;;;(if (= (tblsearch "layer" "NUM") nil)
     
192. ;;;(command "layer" "m" "NUM" "c" "2" "" "lt" "CONTINUOUS" "" ""));               编号
     
193. ;;;  
     
194. ;;;;(command "layer" "m" "FRAME" "c" "7" "" "lt" "CONTINUOUS" "" "");             图框
     
195. ;;;  ;(command "layer" "m" "THICK" "c" "7" "" "lt" "CONTINUOUS" "" "");             粗线
     
196. ;;;  ;(command "layer" "m" "THIN" "c" "7" "" "lt" "CONTINUOUS" "" "");              细线
     
197. ;;;
     
198. ;;;  ;(command "layer" "m" "EDGE" "c" "100" "" "lt" "CONTINUOUS" "" "");            轮廓线
     
199. ;;;  ;(command "layer" "m" "NOTE" "c" "100" "" "lt" "CONTINUOUS" "" "");            文字说明
     
200. ;;;  ;(command "layer" "m" "HATCH2" "c" "254" "" "lt" "CONTINUOUS" "" "");          图例填充
     
201. ;;;
     
202. ;;;(if (= (tblsearch "layer" "st") nil)  
     
203. ;;;(command "layer" "m" "st" "c" "6" "" "lt" "CONTINUOUS" "" "p" "n" "" "")); 修改、修订（不打印）
     
204. ;;;  
     
205. ;;;(if (= (tblsearch "layer" "NO_PLOT") nil)  
     
206. ;;;(command "layer" "m" "NO_PLOT" "c" "14" "" "lt" "CONTINUOUS" "" "p" "n" "" ""));打印线（不打印）
     
207. ;;;)
     
208. ;;;   
     
209. ;;;
     
210. ;;;
     
211. ;;;;判断及创建字体
     
212. ;;;(defun csh_sty()
     
213. ;;;  (if (= (tblsearch "style" "TSSD_Rein") nil)
     
214. ;;;    (progn
     
215. ;;;      (princ "\n建立TSSD_Rein字体并设为当前")
     
216. ;;;      (command "style" "TSSD_Rein" "tssdeng.shx,hztxt.shx" "0.0" "0.7" "" "" "" "")
     
217. ;;;    )
     
218. ;;;    (progn
     
219. ;;;       (command "style" "TSSD_Rein" "tssdeng.shx,hztxt.shx" "0.0" "0.7" "" "" "" "")
     
220. ;;;      
     
221. ;;;      (princ "\n检测到TSSD_Rein字体，将其设为当前。")
     
222. ;;;    )
     
223. ;;;  )
     
224. ;;;(if (= (tblsearch "STYLE" "hz") nil);"判断hz字型是否存在"      
     
225. ;;;  (command "style" "hz" "txt.shx,hztxt.shx" 250 0.7 0 "n" "n" "n");"设置字型hz"
     
226. ;;;  )
     
227. ;;;
     
228. ;;;(if (= (tblsearch "STYLE" "hx") nil);"判断hx字型是否存在"   
     
229. ;;;  (command "style" "hx" "huaxin.shx,hxhztxt.shx" 250 0.7 0 "n" "n" "n");"设置字型hx"
     
230. ;;;  )
     
231. ;;;
     
232. ;;;(if (= (tblsearch "STYLE" "STANDARD") nil);"判断hx字型是否存在"   
     
233. ;;;   (command "style" "STANDARD" "tssdeng.shx,hztxt.shx" "0.0" "0.7" "" "" "" "");"设置字型STANDARD"
     
234. ;;;  )
     
235. ;;;)
     
236. ;;;
     
237. ;;;
     
238. ;;;
     
239. ;;;
     
240. ;;;
     
241. ;;;
     
242. 
     
243. ;判断及创建图层
     
244. (defun csh_lay()
     
245. (setvar "cmdecho" 0)
     
246. ;创建线型，点划线
     
247.   (entmake
     
248.     (list '(0 . "LTYPE")
     
249.         '(100 . "AcDbSymbolTableRecord")
     
250.         '(100 . "AcDbLinetypeTableRecord")
     
251.         (cons 2 "ACAD_ISO04W100")
     
252.         '(3 . "ACAD_ISO04W100 ___ . ___ . ___ . ___ . ___")
     
253.         '(70 . 0)
     
254.         '(73 . 4)
     
255.         '(40 . 18.5)
     
256.         '(49 . 15)
     
257.         '(74 . 0)
     
258.         '(49 . -1.5)
     
259.         '(74 . 0)
     
260.         '(49 . 0.5)
     
261.         '(74 . 0)
     
262.         '(49 . -1.5)
     
263.         '(74 . 0)
     
264.   )
     
265. )
     
266. ;创建线型，虚线
     
267. (entmake
     
268.   (list        '(0 . "LTYPE")
     
269.         '(100 . "AcDbSymbolTableRecord")
     
270.         '(100 . "AcDbLinetypeTableRecord")
     
271.         (cons 2 "DASHED")
     
272.         '(3 . "DASHED __ __ __ __ __ __ __ __ __")
     
273.         '(70 . 0)
     
274.         '(73 . 2)
     
275.         '(40 . 6.0)
     
276.         '(49 . 4.0)
     
277.         '(74 . 0)
     
278.         '(49 . -2.0)
     
279.         '(74 . 0)
     
280.   )
     
281. )
     
282. ;轴线
     
283. (if (null (tblobjname "LAYER" "AXIS") )
     
284. (entmake (list '(0 . "LAYER")
     
285.         '(100 . "AcDbSymbolTableRecord")
     
286.         '(100 . "AcDbLayerTableRecord")
     
287.         '(70 . 0)
     
288.         '(6 . "ACAD_ISO04W100")   ;线型
     
289.         (cons 2 "AXIS")
     
290.     '(62 . 1)  ;颜色
     
291.         )
     
292.     )
     
293. );if
     
294. ;柱子
     
295. (if (null (tblobjname "LAYER" "COLU") )
     
296. (entmake (list '(0 . "LAYER")
     
297.         '(100 . "AcDbSymbolTableRecord")
     
298.         '(100 . "AcDbLayerTableRecord")
     
299.         '(70 . 0)
     
300.         '(6 . "CONTINUOUS")   ;线型
     
301.         (cons 2 "COLU")
     
302.     '(62 . 7)  ;颜色
     
303.         )
     
304.     )
     
305. );if
     
306. ;柱子填充
     
307. (if (null (tblobjname "LAYER" "COLU_HATCH") )
     
308. (entmake (list '(0 . "LAYER")
     
309.         '(100 . "AcDbSymbolTableRecord")
     
310.         '(100 . "AcDbLayerTableRecord")
     
311.         '(70 . 0)
     
312.         '(6 . "CONTINUOUS")   ;线型
     
313.         (cons 2 "COLU_HATCH")
     
314.     '(62 . 2)  ;颜色
     
315.         )
     
316.     )
     
317. );if
     
318. ;柱子编号
     
319. (if (null (tblobjname "LAYER" "COLU_NUM") )
     
320. (entmake (list '(0 . "LAYER")
     
321.         '(100 . "AcDbSymbolTableRecord")
     
322.         '(100 . "AcDbLayerTableRecord")
     
323.         '(70 . 0)
     
324.         '(6 . "CONTINUOUS")   ;线型
     
325.         (cons 2 "COLU_NUM")
     
326.     '(62 . 2)  ;颜色
     
327.         )
     
328.     )
     
329. );if
     
330. ;主梁虚线
     
331. (if (null (tblobjname "LAYER" "BEAM") )
     
332. (entmake (list '(0 . "LAYER")
     
333.         '(100 . "AcDbSymbolTableRecord")
     
334.         '(100 . "AcDbLayerTableRecord")
     
335.         '(70 . 0)
     
336.         '(6 . "DASHED")   ;线型
     
337.         (cons 2 "BEAM")
     
338.     '(62 . 4)  ;颜色
     
339.         )
     
340.     )
     
341. );if
     
342. ;主梁实线
     
343. (if (null (tblobjname "LAYER" "BEAM_CON") )
     
344. (entmake (list '(0 . "LAYER")
     
345.         '(100 . "AcDbSymbolTableRecord")
     
346.         '(100 . "AcDbLayerTableRecord")
     
347.         '(70 . 0)
     
348.         '(6 . "CONTINUOUS")   ;线型
     
349.         (cons 2 "BEAM_CON")
     
350.     '(62 . 4)  ;颜色
     
351.         )
     
352.     )
     
353. );if
     
354. ;主梁水平文字
     
355. (if (null (tblobjname "LAYER" "BEAM_TEXT_HOR") )
     
356. (entmake (list '(0 . "LAYER")
     
357.         '(100 . "AcDbSymbolTableRecord")
     
358.         '(100 . "AcDbLayerTableRecord")
     
359.         '(70 . 0)
     
360.         '(6 . "CONTINUOUS")   ;线型
     
361.         (cons 2 "BEAM_TEXT_HOR")
     
362.     '(62 . 2)  ;颜色
     
363.         )
     
364.     )
     
365. );if
     
366. ;主梁垂直文字
     
367. (if (null (tblobjname "LAYER" "BEAM_TEXT_VER") )
     
368. (entmake (list '(0 . "LAYER")
     
369.         '(100 . "AcDbSymbolTableRecord")
     
370.         '(100 . "AcDbLayerTableRecord")
     
371.         '(70 . 0)
     
372.         '(6 . "CONTINUOUS")   ;线型
     
373.         (cons 2 "BEAM_TEXT_VER")
     
374.     '(62 . 100)  ;颜色
     
375.         )
     
376.     )
     
377. );if
     
378. ;次梁虚线
     
379. (if (null (tblobjname "LAYER" "BEAM_SE") )
     
380. (entmake (list '(0 . "LAYER")
     
381.         '(100 . "AcDbSymbolTableRecord")
     
382.         '(100 . "AcDbLayerTableRecord")
     
383.         '(70 . 0)
     
384.         '(6 . "DASHED")   ;线型
     
385.         (cons 2 "BEAM_SE")
     
386.     '(62 . 144)  ;颜色
     
387.         )
     
388.     )
     
389. );if
     
390. ;次梁实线
     
391. (if (null (tblobjname "LAYER" "BEAM_SE_CON") )
     
392. (entmake (list '(0 . "LAYER")
     
393.         '(100 . "AcDbSymbolTableRecord")
     
394.         '(100 . "AcDbLayerTableRecord")
     
395.         '(70 . 0)
     
396.         '(6 . "CONTINUOUS")   ;线型
     
397.         (cons 2 "BEAM_SE_CON")
     
398.     '(62 . 144)  ;颜色
     
399.         )
     
400.     )
     
401. );if
     
402. ;次梁水平文字
     
403. (if (null (tblobjname "LAYER" "BEAM_SE_TEXT_HOR") )
     
404. (entmake (list '(0 . "LAYER")
     
405.         '(100 . "AcDbSymbolTableRecord")
     
406.         '(100 . "AcDbLayerTableRecord")
     
407.         '(70 . 0)
     
408.         '(6 . "CONTINUOUS")   ;线型
     
409.         (cons 2 "BEAM_SE_TEXT_HOR")
     
410.     '(62 . 100)  ;颜色
     
411.         )
     
412.     )
     
413. );if
     
414. ;次梁垂直文字
     
415. (if (null (tblobjname "LAYER" "BEAM_SE_TEXT_VER") )
     
416. (entmake (list '(0 . "LAYER")
     
417.         '(100 . "AcDbSymbolTableRecord")
     
418.         '(100 . "AcDbLayerTableRecord")
     
419.         '(70 . 0)
     
420.         '(6 . "CONTINUOUS")   ;线型
     
421.         (cons 2 "BEAM_SE_TEXT_VER")
     
422.     '(62 . 2)  ;颜色
     
423.         )
     
424.     )
     
425. );if
     
426. ;连梁虚线
     
427. (if (null (tblobjname "LAYER" "BEAM_WA") )
     
428. (entmake (list '(0 . "LAYER")
     
429.         '(100 . "AcDbSymbolTableRecord")
     
430.         '(100 . "AcDbLayerTableRecord")
     
431.         '(70 . 0)
     
432.         '(6 . "DASHED")   ;线型
     
433.         (cons 2 "BEAM_WA")
     
434.     '(62 . 21)  ;颜色
     
435.         )
     
436.     )
     
437. );if
     
438. ;连梁实线
     
439. (if (null (tblobjname "LAYER" "BEAM_WA_CON") )
     
440. (entmake (list '(0 . "LAYER")
     
441.         '(100 . "AcDbSymbolTableRecord")
     
442.         '(100 . "AcDbLayerTableRecord")
     
443.         '(70 . 0)
     
444.         '(6 . "CONTINUOUS")   ;线型
     
445.         (cons 2 "BEAM_WA_CON")
     
446.     '(62 . 21)  ;颜色
     
447.         )
     
448.     )
     
449. );if
     
450. ;楼板
     
451. (if (null (tblobjname "LAYER" "FLOOR") )
     
452. (entmake (list '(0 . "LAYER")
     
453.         '(100 . "AcDbSymbolTableRecord")
     
454.         '(100 . "AcDbLayerTableRecord")
     
455.         '(70 . 0)
     
456.         '(6 . "CONTINUOUS")   ;线型
     
457.         (cons 2 "FLOOR")
     
458.     '(62 . 124)  ;颜色
     
459.         )
     
460.     )
     
461. );if
     
462. ;楼板正筋
     
463. (if (null (tblobjname "LAYER" "FLOOR_DOWN_REIN") )
     
464. (entmake (list '(0 . "LAYER")
     
465.         '(100 . "AcDbSymbolTableRecord")
     
466.         '(100 . "AcDbLayerTableRecord")
     
467.         '(70 . 0)
     
468.         '(6 . "CONTINUOUS")   ;线型
     
469.         (cons 2 "FLOOR_DOWN_REIN")
     
470.     '(62 . 15)  ;颜色
     
471.         )
     
472.     )
     
473. );if
     
474. ;楼板正筋标注
     
475. (if (null (tblobjname "LAYER" "FLOOR_DOWN_DIM") )
     
476. (entmake (list '(0 . "LAYER")
     
477.         '(100 . "AcDbSymbolTableRecord")
     
478.         '(100 . "AcDbLayerTableRecord")
     
479.         '(70 . 0)
     
480.         '(6 . "CONTINUOUS")   ;线型
     
481.         (cons 2 "FLOOR_DOWN_DIM")
     
482.     '(62 . 3)  ;颜色
     
483.         )
     
484.     )
     
485. );if
     
486. ;楼板正筋文字
     
487. (if (null (tblobjname "LAYER" "FLOOR_DOWN_NUM") )
     
488. (entmake (list '(0 . "LAYER")
     
489.         '(100 . "AcDbSymbolTableRecord")
     
490.         '(100 . "AcDbLayerTableRecord")
     
491.         '(70 . 0)
     
492.         '(6 . "CONTINUOUS")   ;线型
     
493.         (cons 2 "FLOOR_DOWN_NUM")
     
494.     '(62 . 2)  ;颜色
     
495.         )
     
496.     )
     
497. );if
     
498. ;楼板负筋
     
499. (if (null (tblobjname "LAYER" "FLOOR_UP_REIN") )
     
500. (entmake (list '(0 . "LAYER")
     
501.         '(100 . "AcDbSymbolTableRecord")
     
502.         '(100 . "AcDbLayerTableRecord")
     
503.         '(70 . 0)
     
504.         '(6 . "CONTINUOUS")   ;线型
     
505.         (cons 2 "FLOOR_UP_REIN")
     
506.     '(62 . 1)  ;颜色
     
507.         )
     
508.     )
     
509. );if
     
510. ;楼板负筋标注
     
511. (if (null (tblobjname "LAYER" "FLOOR_UP_DIM") )
     
512. (entmake (list '(0 . "LAYER")
     
513.         '(100 . "AcDbSymbolTableRecord")
     
514.         '(100 . "AcDbLayerTableRecord")
     
515.         '(70 . 0)
     
516.         '(6 . "CONTINUOUS")   ;线型
     
517.         (cons 2 "FLOOR_UP_DIM")
     
518.     '(62 . 3)  ;颜色
     
519.         )
     
520.     )
     
521. );if
     
522. ;楼板负筋文字
     
523. (if (null (tblobjname "LAYER" "FLOOR_UP_NUM") )
     
524. (entmake (list '(0 . "LAYER")
     
525.         '(100 . "AcDbSymbolTableRecord")
     
526.         '(100 . "AcDbLayerTableRecord")
     
527.         '(70 . 0)
     
528.         '(6 . "CONTINUOUS")   ;线型
     
529.         (cons 2 "FLOOR_UP_NUM")
     
530.     '(62 . 100)  ;颜色
     
531.         )
     
532.     )
     
533. );if
     
534. ;文字
     
535. (if (null (tblobjname "LAYER" "TEXT") )
     
536. (entmake (list '(0 . "LAYER")
     
537.         '(100 . "AcDbSymbolTableRecord")
     
538.         '(100 . "AcDbLayerTableRecord")
     
539.         '(70 . 0)
     
540.         '(6 . "CONTINUOUS")   ;线型
     
541.         (cons 2 "TEXT")
     
542.     '(62 . 7)  ;颜色
     
543.         )
     
544.     )
     
545. );if
     
546. ;尺寸标注
     
547. (if (null (tblobjname "LAYER" "DIM") )
     
548. (entmake (list '(0 . "LAYER")
     
549.         '(100 . "AcDbSymbolTableRecord")
     
550.         '(100 . "AcDbLayerTableRecord")
     
551.         '(70 . 0)
     
552.         '(6 . "CONTINUOUS")   ;线型
     
553.         (cons 2 "DIM")
     
554.     '(62 . 3)  ;颜色
     
555.         )
     
556.     )
     
557. );if
     
558. ;编号
     
559. (if (null (tblobjname "LAYER" "NUM") )
     
560. (entmake (list '(0 . "LAYER")
     
561.         '(100 . "AcDbSymbolTableRecord")
     
562.         '(100 . "AcDbLayerTableRecord")
     
563.         '(70 . 0)
     
564.         '(6 . "CONTINUOUS")   ;线型
     
565.         (cons 2 "NUM")
     
566.     '(62 . 2)  ;颜色
     
567.         )
     
568.     )
     
569. );if
     
570. ;审图（不打印）
     
571. (if (null (tblobjname "LAYER" "审图（不打印）") )
     
572. (entmake (list '(0 . "LAYER")
     
573.         '(100 . "AcDbSymbolTableRecord")
     
574.         '(100 . "AcDbLayerTableRecord")
     
575.         '(70 . 0)
     
576.         '(6 . "CONTINUOUS")   ;线型
     
577.         (cons 2 "审图（不打印）")
     
578.      '(62 . 6)  ;颜色
     
579.      '(290 . 0) ;0为此图层不打印
     
580.         )
     
581.     )
     
582. );if
     
583. ;钢筋
     
584. (if (null (tblobjname "LAYER" "REIN") )
     
585. (entmake (list '(0 . "LAYER")
     
586.         '(100 . "AcDbSymbolTableRecord")
     
587.         '(100 . "AcDbLayerTableRecord")
     
588.         '(70 . 0)
     
589.         '(6 . "CONTINUOUS")   ;线型
     
590.         (cons 2 "REIN")
     
591.     '(62 . 1)  ;颜色
     
592. 
     
593.         )
     
594.     )
     
595. );if
     
596. );defun csh_lay
     
597. 
     
598. 
     
599. ;判断及创建字体
     
600. (defun csh_sty()
     
601. (if (null (tblobjname "STYLE" "TSSD_Rein") )
     
602. (progn
     
603.       (princ "\n建立TSSD_Rein字体并设为当前")
     
604. 
     
605. (entmake (list '(0 . "STYLE")
     
606.         '(100 . "AcDbSymbolTableRecord")
     
607.         '(100 . "AcDbTextStyleTableRecord")
     
608.         '(70 . 0)
     
609.     '(42 . 250) ;默认字高
     
610.     '(3 . "tssdeng.shx")
     
611.     '(4 . "hztxt.shx")
     
612.         (cons 2 "TSSD_Rein")
     
613.     '(40 . 250) ;字高
     
614.     '(41 . 0.7) ;字宽比例
     
615.     '(50 . 0.0) ;默认旋转角度
     
616.         )
     
617.     ))
     
618. (progn
     
619. (entmake (list '(0 . "STYLE")
     
620.         '(100 . "AcDbSymbolTableRecord")
     
621.         '(100 . "AcDbTextStyleTableRecord")
     
622.         '(70 . 0)
     
623.     '(42 . 250) ;默认字高
     
624.     '(3 . "tssdeng.shx")
     
625.     '(4 . "hztxt.shx")
     
626.         (cons 2 "TSSD_Rein")
     
627.     '(40 . 250) ;字高
     
628.     '(41 . 0.7) ;字宽比例
     
629.     '(50 . 0.0) ;默认旋转角度
     
630.         )
     
631.     )
     
632.     (princ "\n检测到TSSD_Rein字体，将其设为当前字体")
     
633.     )
     
634. );if
     
635. 
     
636. (if (null (tblobjname "STYLE" "hz") )
     
637. (entmake (list '(0 . "STYLE")
     
638.         '(100 . "AcDbSymbolTableRecord")
     
639.         '(100 . "AcDbTextStyleTableRecord")
     
640.         '(70 . 0)
     
641.     '(42 . 250) ;默认字高
     
642.     '(3 . "txt.shx")
     
643.     '(4 . "hztxt.shx")
     
644.         (cons 2 "hz")
     
645.     '(40 . 250) ;字高
     
646.     '(41 . 0.7) ;字宽比例
     
647.     '(50 . 0.0) ;默认旋转角度
     
648.         )
     
649.     )
     
650. );if
     
651. 
     
652. 
     
653. (if (null (tblobjname "STYLE" "hx") )
     
654. (entmake (list '(0 . "STYLE")
     
655.         '(100 . "AcDbSymbolTableRecord")
     
656.         '(100 . "AcDbTextStyleTableRecord")
     
657.         '(70 . 0)
     
658.     '(42 . 250) ;默认字高
     
659.     '(3 . "huaxin.shx")
     
660.     '(4 . "hxhztxt.shx")
     
661.         (cons 2 "hx")
     
662.     '(40 . 250) ;字高
     
663.     '(41 . 0.7) ;字宽比例
     
664.     '(50 . 0.0) ;默认旋转角度
     
665.         )
     
666.     )
     
667. );if
     
668. (if (null (tblobjname "STYLE" "STANDARD") )
     
669. (entmake (list '(0 . "STYLE")
     
670.         '(100 . "AcDbSymbolTableRecord")
     
671.         '(100 . "AcDbTextStyleTableRecord")
     
672.         '(70 . 0)
     
673.     '(42 . 250) ;默认字高
     
674.     '(3 . "tssdeng.shx")
     
675.     '(4 . "hztxt.shx")
     
676.         (cons 2 "STANDARD")
     
677.     '(40 . 250) ;字高
     
678.     '(41 . 0.7) ;字宽比例
     
679.     '(50 . 0.0) ;默认旋转角度
     
680.         )
     
681.     )
     
682. );if
     
683. );defun csh_sty
     
684. 
     
685. 
     
686. 
     
687. 
     
688. ； 建立DIM层，归并标注到DIM层
     
689. (defun csh_bzgc(/ s2)
     
690.    (setvar "cmdecho" 0)
     
691. ；这部分:确定是否建立新图层
     
692.    (if (= (tblsearch "layer" "DIM") nil) ;检查DIM层是否存在
     
693. (entmake (list '(0 . "LAYER")
     
694.         '(100 . "AcDbSymbolTableRecord")
     
695.         '(100 . "AcDbLayerTableRecord")
     
696.         '(70 . 0)
     
697.         '(6 . "CONTINUOUS")   ;线型
     
698.         (cons 2 "DIM")
     
699.         '(62 . 3)  ;颜色
     
700.         )
     
701.     ));if
     
702. ；这部分主程序
     
703.    (setq s2 (ssget "X" '((-4 . "<or")(0 . "leader")(0 . "dimension")(0 . "arc_dimension")(-4 . "or>"))))
     
704.    (if (= s2 nil) (princ "")
     
705.        (progn
     
706.           (command "change" s2 "" "P" "la" "0" ""   ;改变对象图层
     
707.                           "_setbylayer" s2 "" "y" "y"      ;线型改为随层
     
708.                           "change" s2 "" "P" "la" "DIM" "")  ;改变对象图层
     
709.         );progn
     
710.     );if   
     
711.    (princ)
     
712. );defun
     
713. 
     
714. 
     
715. ;建立建筑标注标注界限块
     
716. (defun dimblk1(/ p1 p2 mp p3 p4 ent1 ent2 ifdimblk )
     
717.   (setq p1 (list 0 0)
     
718. p2 (polar p1 (* 0.25 pi) 2)
     
719. mp (list (* 0.5 (car p2)) (* 0.5 (cadr p2)))
     
720. p3(list (- (car mp) 1.5) (cadr mp))
     
721. p4(list (+ (car mp) 1.5) (cadr mp))
     
722.    )
     
723.   (command "line" p3 p4 "")
     
724.   (setq ent1 (entlast))
     
725.   (command "pline" p1 "w" 0.5 0.5 p2 "")
     
726.   (setq ent2 (entlast))
     
727.   (setq ifdimblk (tblsearch "block" "ccjzDIM"))
     
728.   (if ifdimblk (command "block" "ccjzDIM" "y" mp ent1 ent2 "")
     
729.                (command "block" "ccjzDIM" mp ent1 ent2 "")
     
730.   )
     
731.   (princ)
     
732. )
     
733. 
     
734. 
     
735. ;标注部分设置
     
736. ;;;(defun csh_ccbz (/ cm)
     
737. ;;;  (setq cm (getvar "cmdecho"))
     
738. ;;;  ;(setvar "cmdecho" 0)
     
739. ;;;  (csh_sty)
     
740. ;;;  (dimblk1)
     
741. ;;;  (if (= (tblsearch "dimstyle" "TSSD_100_100") nil)
     
742. ;;;    (progn (command "dimstyle" "s" "TSSD_100_100")
     
743. ;;;    (setvar "DIMDSEP" ".") ;小数分隔符
     
744. ;;;    (setvar "DIMADEC" 1)  ;角度小数位数
     
745. ;;;    (setvar "DIMALT" 0)  ;选定的换算单位
     
746. ;;;    (setvar "DIMALTD" 2)  ;换算单位小数位数
     
747. ;;;    (setvar "DIMALTF" 25.4000) ;换算单位比例因子
     
748. ;;;    (setvar "DIMALTRND" 0.0000) ;换算单位舍入值
     
749. ;;;    (setvar "DIMALTTD" 2) ;换算公差小数位数
     
750. ;;;    (setvar "DIMALTTZ" 0) ;换算公差消零
     
751. ;;;    (setvar "DIMALTU" 2)  ;换算单位
     
752. ;;;    (setvar "DIMALTZ" 0)  ;换算单位消零
     
753. ;;;    (setvar "DIMASZ" 80) ;箭头大小
     
754. ;;;    (setvar "DIMATFIT" 3) ;箭头和文字调整
     
755. ;;;    (setvar "DIMAUNIT" 0) ;角度单位格式
     
756. ;;;    (setvar "DIMAZIN" 2)  ;角度消零
     
757. ;;;    (setvar "DIMBLK" "ccjzDIM") ;箭头块名
     
758. ;;;    (setvar "DIMBLK1" "ccjzDIM") ;第一个箭头块名
     
759. ;;;    (setvar "DIMBLK2" "ccjzDIM") ;第二个箭头块名
     
760. ;;;    (setvar "DIMCEN" 0.0900) ;圆心标记大小
     
761. ;;;    (setvar "DIMCLRD" 3)  ;尺寸线和引线颜色(绿色)
     
762. ;;;    (setvar "DIMCLRE" 3)  ;尺寸界线颜色(绿色)
     
763. ;;;    (setvar "DIMCLRT" 7)  ;标注文字颜色(绿色)
     
764. ;;;    (setvar "DIMDEC" 0)  ;小数位数
     
765. ;;;    (setvar "DIMDLE" 0.0000) ;尺寸线
     
766. ;;;    (setvar "DIMDLI" 0.0000) ;尺寸线间距
     
767. ;;;    (setvar "DIMEXE" 100) ;尺寸界线在尺寸线上
     
768. ;;;    (setvar "DIMEXO" 100) ;尺寸界线原点偏移
     
769. ;;;    (setvar "DIMFRAC" 0)  ;分数格式
     
770. ;;;    (setvar "DIMGAP" 50) ;尺寸线和文字的间距
     
771. ;;;    (setvar "DIMJUST" 0)  ;尺寸线上的文字对正
     
772. ;;;    (setvar "DIMLDRBLK" ".") ;引线块名
     
773. ;;;    (setvar "DIMLFAC" (getvar "DIMLFAC")) ;线性单位比例因子
     
774. ;;;    (setvar "DIMLIM" 0)  ;生成标注界限
     
775. ;;;    (setvar "DIMLUNIT" 2) ;线性单位格式
     
776. ;;;    (setvar "DIMLWD" -2)  ;尺寸线和引线线宽
     
777. ;;;    (setvar "DIMLWE" -2)  ;尺寸界线线宽
     
778. ;;;    (setvar "DIMRND" 0.0000) ;舍入值
     
779. ;;;    (setvar "DIMSAH" 0)  ;独立的箭头块
     
780. ;;;    (setvar "DIMSCALE" (getvar "dimscale")) ;全局比例因子
     
781. ;;;    (setvar "DIMSD1" 0)  ;隐藏第一条尺寸线
     
782. ;;;    (setvar "DIMSD2" 0)  ;隐藏第二条尺寸线
     
783. ;;;    (setvar "DIMSE1" 0)  ;隐藏第一条尺寸界线
     
784. ;;;    (setvar "DIMSE2" 0)  ;隐藏第二条尺寸界线
     
785. ;;;    (setvar "DIMSOXD" 0)  ;隐藏外侧尺寸线
     
786. ;;;    (setvar "DIMTAD" 1)         ;文字位于尺寸线上方
     
787. ;;;    (setvar "DIMTDEC" 1)  ;公差小数位数
     
788. ;;;    (setvar "DIMTFAC" 1.0000) ;公差文字高度比例因子
     
789. ;;;    (setvar "DIMTIH" 0)  ;尺寸界线内侧的文字水平放置
     
790. ;;;    (setvar "DIMTIX" 1)  ;将文字放置于尺寸界线内侧
     
791. ;;;    (setvar "DIMTM" 0.0000) ;下偏差
     
792. ;;;    (setvar "DIMTMOVE" 2) ;文字移动
     
793. ;;;    (setvar "DIMTOFL" 1)  ;强制在尺寸界线内侧画尺寸线
     
794. ;;;    (setvar "DIMTOH" 0)  ;外侧文字水平放置
     
795. ;;;    (setvar "DIMTOL" 0)  ;公差标注
     
796. ;;;    (setvar "DIMTOLJ" 1)  ;公差垂直对齐
     
797. ;;;    (setvar "DIMTP" 0.0000) ;上偏差
     
798. ;;;    (setvar "DIMTSZ" 0.0000) ;标记大小
     
799. ;;;    (setvar "DIMTVP" 0.0000) ;文字垂直位置
     
800. ;;;    (setvar "DIMTXSTY" "TSSD_Rein") ;文字样式
     
801. ;;;    (setvar "DIMTXT" 250) ;文字高度
     
802. ;;;    (setvar "DIMTZIN" 0)  ;公差消零
     
803. ;;;    (setvar "DIMUPT" 0)  ;用户定位的文字
     
804. ;;;    (setvar "DIMZIN" 8)  ;消零
     
805. ;;;    (princ "\n已新建标注样式TSSD_100_100，该样式符合本院标准，默认全局比例为1，修改比例请输入DIMSCALE。")
     
806. ;;;    )
     
807. ;;;    (progn
     
808. ;;;    ;;;(command "dimstyle" "s" "TSSD_100_100")
     
809. ;;;      (setvar "DIMDSEP" ".")  ;小数分隔符
     
810. ;;;      (setvar "DIMADEC" 1)  ;角度小数位数
     
811. ;;;      (setvar "DIMALT" 0)  ;选定的换算单位
     
812. ;;;      (setvar "DIMALTD" 2)  ;换算单位小数位数
     
813. ;;;      (setvar "DIMALTF" 25.4000) ;换算单位比例因子
     
814. ;;;      (setvar "DIMALTRND" 0.0000) ;换算单位舍入值
     
815. ;;;      (setvar "DIMALTTD" 2)  ;换算公差小数位数
     
816. ;;;      (setvar "DIMALTTZ" 0)  ;换算公差消零
     
817. ;;;      (setvar "DIMALTU" 2)  ;换算单位
     
818. ;;;      (setvar "DIMALTZ" 0)  ;换算单位消零
     
819. ;;;      (setvar "DIMASZ" 80)  ;箭头大小
     
820. ;;;      (setvar "DIMATFIT" 3)  ;箭头和文字调整
     
821. ;;;      (setvar "DIMAUNIT" 0)  ;角度单位格式
     
822. ;;;      (setvar "DIMAZIN" 2)  ;角度消零
     
823. ;;;      (setvar "DIMBLK" "ccjzDIM")  ;箭头块名
     
824. ;;;      (setvar "DIMBLK1" "ccjzDIM")  ;第一个箭头块名
     
825. ;;;      (setvar "DIMBLK2" "ccjzDIM")  ;第二个箭头块名
     
826. ;;;      (setvar "DIMCEN" 0.0900)  ;圆心标记大小
     
827. ;;;      (setvar "DIMCLRD" 3)  ;尺寸线和引线颜色(绿色)
     
828. ;;;      (setvar "DIMCLRE" 3)  ;尺寸界线颜色(绿色)
     
829. ;;;      (setvar "DIMCLRT" 7)  ;标注文字颜色(绿色)
     
830. ;;;      (setvar "DIMDEC" 0)  ;小数位数
     
831. ;;;      (setvar "DIMDLE" 0.0000)  ;尺寸线
     
832. ;;;      (setvar "DIMDLI" 0.0000)  ;尺寸线间距
     
833. ;;;      (setvar "DIMEXE" 100)  ;尺寸界线在尺寸线上
     
834. ;;;      (setvar "DIMEXO" 100)  ;尺寸界线原点偏移
     
835. ;;;      (setvar "DIMFRAC" 0)  ;分数格式
     
836. ;;;      (setvar "DIMGAP" 50)  ;尺寸线和文字的间距
     
837. ;;;      (setvar "DIMJUST" 0)  ;尺寸线上的文字对正
     
838. ;;;      (setvar "DIMLDRBLK" ".")  ;引线块名
     
839. ;;;      (setvar "DIMLFAC" (getvar "DIMLFAC"))  ;线性单位比例因子
     
840. ;;;      (setvar "DIMLIM" 0)  ;生成标注界限
     
841. ;;;      (setvar "DIMLUNIT" 2)  ;线性单位格式
     
842. ;;;      (setvar "DIMLWD" -2)  ;尺寸线和引线线宽
     
843. ;;;      (setvar "DIMLWE" -2)  ;尺寸界线线宽
     
844. ;;;      (setvar "DIMRND" 0.0000)  ;舍入值
     
845. ;;;      (setvar "DIMSAH" 0)  ;独立的箭头块
     
846. ;;;      (setvar "DIMSCALE" (getvar "dimscale")) ;全局比例因子
     
847. ;;;      (setvar "DIMSD1" 0)  ;隐藏第一条尺寸线
     
848. ;;;      (setvar "DIMSD2" 0)  ;隐藏第二条尺寸线
     
849. ;;;      (setvar "DIMSE1" 0)  ;隐藏第一条尺寸界线
     
850. ;;;      (setvar "DIMSE2" 0)  ;隐藏第二条尺寸界线
     
851. ;;;      (setvar "DIMSOXD" 0)  ;隐藏外侧尺寸线
     
852. ;;;      (setvar "DIMTAD" 1)  ;文字位于尺寸线上方
     
853. ;;;      (setvar "DIMTDEC" 1)  ;公差小数位数
     
854. ;;;      (setvar "DIMTFAC" 1.0000)  ;公差文字高度比例因子
     
855. ;;;      (setvar "DIMTIH" 0)  ;尺寸界线内侧的文字水平放置
     
856. ;;;      (setvar "DIMTIX" 1)  ;将文字放置于尺寸界线内侧
     
857. ;;;      (setvar "DIMTM" 0.0000)  ;下偏差
     
858. ;;;      (setvar "DIMTMOVE" 2)  ;文字移动
     
859. ;;;      (setvar "DIMTOFL" 1)  ;强制在尺寸界线内侧画尺寸线
     
860. ;;;      (setvar "DIMTOH" 0)  ;外侧文字水平放置
     
861. ;;;      (setvar "DIMTOL" 0)  ;公差标注
     
862. ;;;      (setvar "DIMTOLJ" 1)  ;公差垂直对齐
     
863. ;;;      (setvar "DIMTP" 0.0000)  ;上偏差
     
864. ;;;      (setvar "DIMTSZ" 0.0000)  ;标记大小
     
865. ;;;      (setvar "DIMTVP" 0.0000)  ;文字垂直位置
     
866. ;;;      (setvar "DIMTXSTY" "TSSD_Rein") ;文字样式
     
867. ;;;      (setvar "DIMTXT" 250)  ;文字高度
     
868. ;;;      (setvar "DIMTZIN" 0)  ;公差消零
     
869. ;;;      (setvar "DIMUPT" 0)  ;用户定位的文字
     
870. ;;;      (setvar "DIMZIN" 8)  ;消零
     
871. ;;;      (princ "\n检测到标注样式：“TSSD_100_100”，为防止样式被改动，程序自动将其还原(全局比例不变)。")
     
872. ;;;    )
     
873. ;;;  )
     
874. ;;;  (command "_.DIMSTYLE" "_SAVE" "TSSD_100_100" "y" "")
     
875. ;;;  ;(setvar "cmdecho" cm)
     
876. ;;;  (princ)
     
877. ;;;  (csh_dimdayang)
     
878. ;;;)
     
879. 
     
880. (defun csh_ccbz (/ cm)
     
881.   (setq cm (getvar "cmdecho"))
     
882.   ;(setvar "cmdecho" 0)
     
883.   ;(csh_sty)
     
884.     (csh_sty)
     
885.   (dimblk1)
     
886. (if (= (tblsearch "dimstyle" "TSSD_100_100") nil)
     
887. ;(entmake (list '(0 ."DIMENSION")
     
888. (entmake (list '(0 . "DIMSTYLE")
     
889.                '(100 . "AcDbSymbolTableRecord")
     
890.                '(100 . "AcDbDimStyleTableRecord")      
     
891.                 '(70 . 0)                ;标注类型
     
892.                 (cons 2 "tssd_100_100")   ; 标注样式名
     
893.                 '(67 .0)     ;模型空间,0
     
894.                 '(8 . "DIM") ;图层DIM
     
895.                 '(1 . "<>") ; 标注值，默认为测量值
     
896.                 '(176 . 7)  ; 尺寸线颜色1-红色，2-黄色，3-绿色，4-青色，5-蓝色，6-洋红，7-白色
     
897.                 '(371 . -2) ;尺寸线线宽        
     
898.                 '(46 . 0)   ;尺寸线线宽
     
899.                 '(43 . 0)   ;基线间距
     
900.                 '(281 . 0)  ;隐藏第一条尺寸线
     
901.                 '(282 . 0)  ;隐藏第二条尺寸线
     
902.                 '(177 . 7)  ;尺寸界线颜色1-红色，2-黄色，3-绿色，4-青色，5-蓝色，6-洋红，7-白色
     
903.                 '(372 . -2) ;尺寸界线线宽
     
904.                 '(44 . 100) ;超出尺寸线        
     
905.                 '(42 . 100) ;起点偏移量
     
906.                 '(75 . 0)   ;隐藏第一条尺寸界线
     
907.                 '(76 . 0)   ;隐藏第二条尺寸界线?
     
908.                
     
909. ;;;                 (cons 6  "_ARCHTICK")    ;建筑标记
     
910. ;;;                (cons 341  "_ARCHTICK")    ;建筑标记
     
911. 
     
912. 
     
913.          
     
914.                  (cons 6  "dimblk1")    ;建筑标记
     
915.                 (cons 341  "dimblk1")    ;建筑标记
     
916.                 '(41 . 80)  ; 箭头大小
     
917.                 '(141 .100) ; 圆心标记大小
     
918.                  (cons 340 (tblobjname "style" "TSSD_Rein")) ; 文字样式名
     
919.                 '(178 . 7)  ;标注文字颜色1-红色，2-黄色，3-绿色，4-青色，5-蓝色，6-洋红，7-白色
     
920.                 '(140 . 250) ; 标注文字高度        
     
921.                 '(77 . 1)  ; 文字在尺寸线上方
     
922.                 '(280 . 0)  ;标注文字 位置水平置中
     
923.                 '(147 . 50)   ; 文字从尺寸线偏移
     
924.                 '(73 . 0)     ;尺寸界线内侧的文字水平放置
     
925.                 '(74 . 0)     ;外侧文字水平放置
     
926.                 '(277 . 2)    ;线性单位格式,小数
     
927.                 '(271 . 1)    ; 线性标注精度
     
928.                 '(144 . 1)    ; 测量单位比例因子
     
929.                 '(78 . 8)     ; 测量单位比例，消零
     
930.                 '(275 . 0)    ; 角度标注单位格式，十进制     
     
931.                 '(179 . 0)    ;角度标注精度，整数
     
932.                 '(79 . 0)     ;角度标注，消零                  
     
933.                 '(40 . 0.0)   ;全局比例因子
     
934.                 '(279 . 21)   ;文字移动
     
935.                 '(173 . 0)    ;独立的箭头块               
     
936.                 '(172 . 2)    ; 尺寸界线间连线              
     
937.                 '(271 . 1)    ; 尺寸标注精度
     
938.                 '(288 . 1)    ; 手动放置尺寸               
     
939.   );list
     
940.   );entmake
     
941. );if
     
942.   (command "_.DIMSTYLE" "_SAVE" "TSSD_100_100" "y" "")
     
943.   ;(setvar "cmdecho" cm)
     
944.   (princ)
     
945.   (csh_dimdayang)
     
946.   );defun
     
947. 
     
948.   
     
949. ;建立各种比例大样图所需的标注样式
     
950. (defun csh_dimdayang(/ ACADDOCUMENT ACADOBJECT CURRDIMSTYLE MSPACE)
     
951.   (PRINC "\n模型空间中，建立各种比例大样图所需的标注样式 :")
     
952. ;;; 首先,返回当前的标注的样式
     
953. ;;; 接着,设定新的样式。
     
954. ;;; 最后,将样式恢复为原来的设定值。
     
955.   (VL-LOAD-COM)
     
956.   (setq AcadObject(vlax-get-acad-object)
     
957.         AcadDocument(vla-get-ActiveDocument AcadObject)
     
958.         mSpace(vla-get-ModelSpace AcadDocument)
     
959.   )
     
960. ;;; 返回激活文件当前的标注样式
     
961. (setq currDimStyle(vla-get-ActiveDimStyle AcadDocument))
     
962. ;(princ "当前的标注型式是 ")(princ (vla-get-name currDimStyle))
     
963. ;;; 建立标注样式 TSSD_10_100
     
964.   (setvar "dimlfac" 0.1);因为图元放大了10倍
     
965.   (setvar "DIMCLRD" 1);改变颜色以区分
     
966.   (setvar "dimclre" 1)
     
967.   (if (not (tblsearch "dimstyle" "TSSD_10_100"))
     
968.       (command "-dimstyle" "s" "TSSD_10_100")
     
969.       (command "-dimstyle" "s" "TSSD_10_100" "y")
     
970.   )
     
971.   ;;; 建立标注样式 TSSD_20_100
     
972.   (setvar "dimlfac" 0.20)
     
973.   (setvar "DIMCLRD" 2)
     
974.     (setvar "dimclre" 2)
     
975.   (if (not (tblsearch "dimstyle" "TSSD_20_100"))
     
976.       (command "-dimstyle" "s" "TSSD_20_100")
     
977.       (command "-dimstyle" "s" "TSSD_20_100" "y")
     
978.   )
     
979.   ;;; 建立标注样式 TSSD_25_100
     
980.   (setvar "dimlfac" 0.25)
     
981.   (setvar "DIMCLRD" 4)
     
982.     (setvar "dimclre" 4)
     
983.   (if (not (tblsearch "dimstyle" "TSSD_25_100"))
     
984.       (command "-dimstyle" "s" "TSSD_25_100")
     
985.       (command "-dimstyle" "s" "TSSD_25_100" "y")
     
986.   )
     
987.     ;;; 建立标注样式 TSSD_50_100
     
988.   (setvar "dimlfac" 0.5)
     
989.   (setvar "DIMCLRD" 6)
     
990.     (setvar "dimclre" 6)
     
991.   (if (not (tblsearch "dimstyle" "TSSD_50_100"))
     
992.       (command "-dimstyle" "s" "TSSD_50_100")
     
993.       (command "-dimstyle" "s" "TSSD_50_100" "y")
     
994.   )
     
995.   (vla-put-ActiveDimStyle AcadDocument currDimStyle);; 将标注样式设回原来的标注样式
     
996.   ;(princ "标注型式重设为 ")(princ (vla-get-name currDimStyle))
     
997.   (princ)
     
998. )
     
999. 
     
1000.     (setvar "blipmode" orig_blip); 还原系统变数的设定值
      
1001.     (setvar "cmdecho" orig_cmd)
      
1002.     (setvar "osmode" orig_osnap)
      
1003.     (setvar "clayer" orig_layer)
      
1004. 
      
1005. ;    (command "osmode" "191"); 打开端点,中点,中心,象限点,交点及垂点捕捉
      
1006. ;    (command "units" "2" "2" "" "" "" "")
      
1007. ;    (command "chamfera" "0"); 将chamfer命令的第一点D值设为0
      
1008. ;    (command "chamferb" "0"); 将chamfer命令的第二点D值设为0
      
1009. ;    (command "filletrad" "0"); 将fillet命令的半径R值设为0
      
1010. (csh_lay)
      
1011. (csh_sty)
      
1012. (csh_bzgc)
      
1013. (csh_ccbz)
      
1014. (princ "\n***  绘图环境初始化完成  **** 命令: csh ***")
      
1015.     (princ)
      
1016. ); csh.lsp命令结束   
      
1017.     (princ)
      
1018. 
      
1019. 
      
1020. (defun c:d10 ()(command "-DIMSTYLE" "R" "TSSD_10_100")(princ "\n当前标注样式:TSSD_10_100")(princ))
      
1021. (defun c:d20 ()(command "-DIMSTYLE" "R" "TSSD_20_100")(princ "\n当前标注样式:TSSD_20_100")(princ))
      
1022. (defun c:d25 ()(command "-DIMSTYLE" "R" "TSSD_25_100")(princ "\n当前标注样式:TSSD_25_100")(princ))
      
1023. (defun c:d50 ()(command "-DIMSTYLE" "R" "TSSD_50_100")(princ "\n当前标注样式:TSSD_50_100")(princ))
      
1024. (defun c:d100 ()(command "-DIMSTYLE" "R" "TSSD_100_100")(princ "\n当前标注样式:TSSD_100_100")(princ))
      

;0-初始化-csh<br /> ;csh.lsp<br /> ;对CAD绘图的环境进行初始化，建立必要的图层及字体和标注样式<br /> ;2014/08/07 by wjnnan 整理<br /> ;2014/08/14 修改为entmake格式<br /> ;感谢原作者wxh5330 和 tranney<br /> <br /> (defun c:csh ( / orig_blip orig_cmd orig_osnap orig_layer); 指定函式名称<br />        (prinC "\n绘图环境初始化开始")<br />        (setvar "CURSORSIZE" 100)             ;将屏幕十字光标的大小设为100%<br />        (setvar "ACADLSPASDOC" 1)             ;将 acad.lsp 载入到每一个打开的图形中<br />        (setvar "ANGDIR" 1)                   ;设置正角度的方向为顺时针<br />        (setvar "AUNITS" 0)                   ;设置角度单位为十进位度数<br />        (setvar "CMLSCALE" 20.0000)           ;设线宽为公制              <br />        (setvar "GRIDMODE" 0)                 ;关闭栅格<br />        (setvar "LTSCALE" 1.0000)             ;设置全局线型比例为1.0000<br />        (setvar "LUNITS" 2)                   ;设置线性单位为小数<br />        (setvar "LWDISPLAY" 1)                ;显示线宽<br />        (setvar "LWDEFAULT" 25)               ;设置默认线宽的值为25<br />        (setvar "LWUNITS" 1)                  ;设线宽单位以毫米显示<br />        (setvar "MEASUREINIT" 1)              ;设置初始图形单位为公制<br />        (setvar "PSLTSCALE" 1)                ;设图纸空间的线型比例为1：1<br />        (setvar "SNAPMODE" 0)                 ;关闭"捕捉"方式<br />        (setvar "TOOLTIPS" 1)                 ;显示<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>栏提示<br />        (setvar "TRACEWID" 0.2)               ;设置宽线的默认宽度为0.2MM<br />        (setvar "TRAYICONS" 1)                ;控制是否在状态栏上显示系统托盘<br />        (setvar "TRAYNOTIFY" 1)               ;控制是否在状态栏系统托盘上显示服务通知<br />        (setvar "ISAVEBAK" 1)                 ;控制备份文件 (BAK) 的创建。    1，创建    0，不创建         <br />        (setvar "SAVETIME" 15)                ;设置自动保存时间<br />        ;(setvar "VIEWRES" 5000)               ;设置圆弧和圆的平滑度<br />        (setvar "FILEDIA" 1)                  ;0,为命令行提示;1,为对话框提示<br /> (setvar "APERTURE" 25)                ;以像素为单位设置靶框显示尺寸。靶框是绘图命令中使用的选择工具。初始值：10<br />        (setvar "PICKBOX" 8)                  ;控制拾取框大小<br />        (setvar "Vtenable" 0)                 ;窗口缓冲速度<br />        (setvar "qaflags" 0)                  ;取消选择先后顺序<br />        (setenv "DefaultFormatForSave" "24") ;设置默认保存格式2004 24的16进制=0x18 格式2000 12的16进制=0x0C 格式R12 1的16进制=01<br />        (COMMAND  "OSMODE"  "4279" )           ;常用捕捉打开<br />        (command "VIEWRES" "y" 5000 )          ;设置圆弧和圆的平滑度<br />     (setq orig_blip (getvar "blipmode")); 获取系统变数的初始值<br />     (setq orig_cmd (getvar "cmdecho"))<br />     (setq orig_osnap (getvar "osmode"))<br />     (setq orig_layer (getvar "clayer"))<br />     (setvar "blipmode" 0); 设置系统变数<br />     (setvar "cmdecho" 0)<br />     (setvar "osmode" 0)<br /> <br /> ;;;;判断及创建图层<br /> ;;;(defun csh_lay()<br /> ;;;(setvar "cmdecho" 0)<br /> ;;;(if (= (tblsearch "layer" "AXIS") nil)<br /> ;;;  (command "layer" "m" "AXIS" "c" "1" "" "lt" "ACAD_ISo04W100" "" ""));                  轴线<br /> ;;;<br /> ;;;(if (= (tblsearch "layer" "AXIS_DIM") nil)  <br /> ;;;(command "layer" "m" "AXIS_DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));          轴线标注<br /> ;;;<br /> ;;;(if (= (tblsearch "layer" "AXIS_TEXT") nil)    <br /> ;;;(command "layer" "m" "AXIS_TEXT" "c" "2" "" "lt" "CONTINUOUS" "" ""));         轴线编号<br /> ;;;<br /> ;;;(if (= (tblsearch "layer" "COLU") nil) <br /> ;;;(command "layer" "m" "COLU" "c" "11" "" "lt" "CONTINUOUS" "" ""));             柱子<br /> ;;;<br /> ;;;(if (= (tblsearch "layer" "COLU_DASH") nil)   <br /> ;;;(command "layer" "m" "COLU_DASH" "c" "11" "" "lt" "DASHED" "" ""));              柱子虚线<br /> ;;;  <br /> ;;;(if (= (tblsearch "layer" "COLU_BR") nil)  <br /> ;;;(command "layer" "m" "COLU_BR" "c" "52" "" "lt" "CONTINUOUS" "" ""));          构造柱<br /> ;;;<br /> ;;;(if (= (tblsearch "layer" "COLU_NUM") nil)  <br /> ;;;  (command "layer" "m" "COLU_NUM" "c" "2" "" "lt" "CONTINUOUS" "" ""));          柱子编号<br /> ;;;  <br /> ;;;(if (= (tblsearch "layer" "COLU_HATCH") nil)  <br /> ;;;(command "layer" "m" "COLU_HATCH" "c" "8" "" "lt" "CONTINUOUS" "" ""));        柱子填充<br /> ;;;<br /> ;;;(if (= (tblsearch "layer" "BEAM") nil)  <br /> ;;;  (command "layer" "m" "BEAM" "c" "4" "" "lt" "DASHED" "" ""));                    主梁<br /> ;;;  <br /> ;;;(if (= (tblsearch "layer" "BEAM_CON") nil)  <br /> ;;;(command "layer" "m" "BEAM_CON" "c" "4" "" "lt" "CONTINUOUS" "" ""));          主梁实线<br /> ;;;  <br /> ;;;(if (= (tblsearch "layer" "BEAM_TEXT_HOR") nil)  <br /> ;;;(command "layer" "m" "BEAM_TEXT_HOR" "c" "2" "" "lt" "CONTINUOUS" "" ""));     主梁水平文字<br /> ;;;  <br /> ;;;(if (= (tblsearch "layer" "BEAM_TEXT_VER") nil)<br /> ;;;(command "layer" "m" "BEAM_TEXT_VER" "c" "100" "" "lt" "CONTINUOUS" "" ""));   主梁竖直文字<br /> ;;; <br /> ;;;(if (= (tblsearch "layer" "BEAM_WA") nil)<br /> ;;; (command "layer" "m" "BEAM_WA" "c" "21" "" "lt" "DASHED" "" ""));                连梁<br /> ;;;<br /> ;;;(if (= (tblsearch "layer" "BEAM_WA_CON") nil)<br /> ;;;  (command "layer" "m" "BEAM_WA_CON" "c" "21" "" "lt" "CONTINUOUS" "" ""));      连梁实线<br /> ;;;  <br /> ;;;(if (= (tblsearch "layer" "BEAM_WA_TEXT") nil)<br /> ;;;(command "layer" "m" "BEAM_WA_TEXT" "c" "100" "" "lt" "CONTINUOUS" "" ""));    连梁文字<br /> ;;;<br /> ;;;<br /> ;;;(if (= (tblsearch "layer" "BEAM_SE") nil)<br /> ;;;  (command "layer" "m" "BEAM_SE" "c" "144" "" "lt" "DASHED" "" ""));                次梁<br /> ;;;  <br /> ;;;(if (= (tblsearch "layer" "BEAM_SE_CON") nil)<br /> ;;;(command "layer" "m" "BEAM_SE_CON" "c" "144" "" "lt" "CONTINUOUS" "" ""));      次梁实线<br /> ;;;  <br /> ;;;(if (= (tblsearch "layer" "BEAM_SE_TEXT_HOR") nil)<br /> ;;;(command "layer" "m" "BEAM_SE_TEXT_HOR" "c" "100" "" "lt" "CONTINUOUS" "" "")); 次梁水平文字<br /> ;;;(if (= (tblsearch "layer" "BEAM_SE_TEXT_VER") nil)  <br /> ;;;(command "layer" "m" "BEAM_SE_TEXT_VER" "c" "2" "" "lt" "CONTINUOUS" "" ""));   次梁竖直文字<br /> ;;;<br /> ;;;  ;(command "layer" "m" "S_WALL" "c" "94" "" "lt" "CONTINUOUS" "" "");           砼墙<br /> ;;;  ;(command "layer" "m" "S_WALL_DASH" "c" "94" "" "lt" "DASHED" "" "");            砼墙虚线<br /> ;;;  ;(command "layer" "m" "S_WALL_DIM" "c" "7" "" "lt" "CONTINUOUS" "" "");        砼墙标注<br /> ;;;  ;(command "layer" "m" "S_WALL_NUM" "c" "100" "" "lt" "CONTINUOUS" "" "");      砼墙编号<br /> ;;;  ;(command "layer" "m" "S_WALL_HATCH" "c" "8" "" "lt" "CONTINUOUS" "" "");      砼墙填充<br /> ;;;  ;(command "layer" "m" "S_WALL_BR" "c" "52" "" "lt" "CONTINUOUS" "" "");        砖墙<br /> ;;;  ;(command "layer" "m" "S_WALL_BR_DASH" "c" "52" "" "lt" "DASHED" "" "");         砖墙虚线<br /> ;;;<br /> ;;;  ;(command "layer" "m" "STAIR" "c" "3" "" "lt" "CONTINUOUS" "" "");             楼梯<br /> ;;;  ;(command "layer" "m" "STAIR_TEXT" "c" "2" "" "lt" "CONTINUOUS" "" "");        楼梯文字<br /> ;;;  ;(command "layer" "m" "STAIR_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");         楼梯标注<br /> ;;;<br /> ;;;<br /> ;;;(if (= (tblsearch "layer" "FLOOR") nil)  <br /> ;;;  (command "layer" "m" "FLOOR" "c" "124" "" "lt" "CONTINUOUS" "" ""));           楼板<br /> ;;;  <br /> ;;;(if (= (tblsearch "layer" "FLOOR_DOWN_REIN") nil)  <br /> ;;;(command "layer" "m" "FLOOR_DOWN_REIN" "c" "15" "" "lt" "CONTINUOUS" "" ""));  楼板正筋<br /> ;;;  <br /> ;;;(if (= (tblsearch "layer" "FLOOR_DOWN_DIM") nil)  <br /> ;;;(command "layer" "m" "FLOOR_DOWN_DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));    楼板正筋标注<br /> ;;; <br /> ;;;(if (= (tblsearch "layer" "FLOOR_DOWN_NUM") nil)  <br /> ;;; (command "layer" "m" "FLOOR_DOWN_NUM" "c" "2" "" "lt" "CONTINUOUS" "" ""));    楼板正筋文字<br /> ;;;<br /> ;;;(if (= (tblsearch "layer" "FLOOR_UP_REIN") nil)  <br /> ;;;  (command "layer" "m" "FLOOR_UP_REIN" "c" "1" "" "lt" "CONTINUOUS" "" ""));     楼板负筋<br /> ;;; <br /> ;;;(if (= (tblsearch "layer" "FLOOR_UP_DIM") nil)  <br /> ;;; (command "layer" "m" "FLOOR_UP_DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));      楼板负筋标注<br /> ;;;  <br /> ;;;(if (= (tblsearch "layer" "FLOOR_UP_NUM") nil) <br /> ;;;(command "layer" "m" "FLOOR_UP_NUM" "c" "100" "" "lt" "CONTINUOUS" "" ""));    楼板负筋文字<br /> ;;;<br /> ;;;<br /> ;;;  ;(command "layer" "m" "HOLE" "c" "190" "" "lt" "CONTINUOUS" "" "");            洞口<br /> ;;;  ;(command "layer" "m" "HOLE_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          洞口标注<br /> ;;;  ;(command "layer" "m" "HOLE_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          洞口编号<br /> ;;;  ;(command "layer" "m" "HOLE_HATCH" "c" "9" "" "lt" "CONTINUOUS" "" "");        洞口填充<br /> ;;;<br /> ;;;(if (= (tblsearch "layer" "BASE") nil) <br /> ;;;  (command "layer" "m" "BASE" "c" "4" "" "lt" "CONTINUOUS" "" ""));              基础<br /> ;;;  <br /> ;;;(if (= (tblsearch "layer" "BASE_DIM") nil)<br /> ;;;(command "layer" "m" "BASE_DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));          基础标注<br /> ;;;  <br /> ;;;(if (= (tblsearch "layer" "BASE_NUM") nil)<br /> ;;;(command "layer" "m" "BASE_NUM" "c" "2" "" "lt" "CONTINUOUS" "" ""));          基础编号<br /> ;;;<br /> ;;;(if (= (tblsearch "layer" "PILE") nil)<br /> ;;;  (command "layer" "m" "PILE" "c" "150" "" "lt" "CONTINUOUS" "" ""));            桩<br /> ;;;  <br /> ;;;(if (= (tblsearch "layer" "PILE_DASH") nil)<br /> ;;;(command "layer" "m" "PILE_DASH" "c" "150" "" "lt" "DASHED" "" ""));             桩虚线<br /> ;;;<br /> ;;;<br /> ;;;  ;(command "layer" "m" "STEEL" "c" "60" "" "lt" "CONTINUOUS" "" "");            钢结构实线<br /> ;;;  ;(command "layer" "m" "STEEL_DASH" "c" "60" "" "lt" "DASHED" "" "");             钢结构虚线<br /> ;;;<br /> ;;;  ;(command "layer" "m" "BOLT" "c" "6" "" "lt" "CONTINUOUS" "" "");              螺栓<br /> ;;;  ;(command "layer" "m" "BOLT_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          螺栓标注<br /> ;;;  ;(command "layer" "m" "BOLT_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          螺栓编号<br /> ;;;<br /> ;;;  ;(command "layer" "m" "WELD" "c" "40" "" "lt" "CONTINUOUS" "" "");             焊缝<br /> ;;;  ;(command "layer" "m" "WELD_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          焊缝标注<br /> ;;;  ;(command "layer" "m" "WELD_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          焊缝文字<br /> ;;;<br /> ;;;  ;(command "layer" "m" "BURY" "c" "140" "" "lt" "CONTINUOUS" "" "");            预埋件<br /> ;;;  ;(command "layer" "m" "BURY_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          预埋件标注<br /> ;;;  ;(command "layer" "m" "BURY_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          预埋件编号<br /> ;;;<br /> ;;;  ;(command "layer" "m" "TAB" "c" "7" "" "lt" "CONTINUOUS" "" "");               表格线<br /> ;;;  ;(command "layer" "m" "TAB_TEXT" "c" "2" "" "lt" "CONTINUOUS" "" "");          表格文字<br /> ;;;<br /> ;;;(if (= (tblsearch "layer" "REIN") nil)<br /> ;;;  (command "layer" "m" "REIN" "c" "1" "" "lt" "CONTINUOUS" "" ""));              钢筋<br /> ;;;  <br /> ;;;(if (= (tblsearch "layer" "TEXT") nil)<br /> ;;;(command "layer" "m" "TEXT" "c" "7" "" "lt" "CONTINUOUS" "" ""));              文字<br /> ;;;<br /> ;;;(if (= (tblsearch "layer" "DIM") nil) <br /> ;;; (command "layer" "m" "DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));               尺寸<br /> ;;;  <br /> ;;;(if (= (tblsearch "layer" "NUM") nil)<br /> ;;;(command "layer" "m" "NUM" "c" "2" "" "lt" "CONTINUOUS" "" ""));               编号<br /> ;;;  <br /> ;;;;(command "layer" "m" "FRAME" "c" "7" "" "lt" "CONTINUOUS" "" "");             图框<br /> ;;;  ;(command "layer" "m" "THICK" "c" "7" "" "lt" "CONTINUOUS" "" "");             粗线<br /> ;;;  ;(command "layer" "m" "THIN" "c" "7" "" "lt" "CONTINUOUS" "" "");              细线<br /> ;;;<br /> ;;;  ;(command "layer" "m" "EDGE" "c" "100" "" "lt" "CONTINUOUS" "" "");            轮廓线<br /> ;;;  ;(command "layer" "m" "NOTE" "c" "100" "" "lt" "CONTINUOUS" "" "");            文字说明<br /> ;;;  ;(command "layer" "m" "HATCH2" "c" "254" "" "lt" "CONTINUOUS" "" "");          图例填充<br /> ;;;<br /> ;;;(if (= (tblsearch "layer" "st") nil)  <br /> ;;;(command "layer" "m" "st" "c" "6" "" "lt" "CONTINUOUS" "" "p" "n" "" "")); 修改、修订（不打印）<br /> ;;;  <br /> ;;;(if (= (tblsearch "layer" "NO_PLOT") nil)  <br /> ;;;(command "layer" "m" "NO_PLOT" "c" "14" "" "lt" "CONTINUOUS" "" "p" "n" "" ""));打印线（不打印）<br /> ;;;)<br /> ;;;   <br /> ;;;<br /> ;;;<br /> ;;;;判断及创建字体<br /> ;;;(defun csh_sty() <br /> ;;;  (if (= (tblsearch "style" "TSSD_Rein") nil)<br /> ;;;    (progn<br /> ;;;      (princ "\n建立TSSD_Rein字体并设为当前")<br /> ;;;      (command "style" "TSSD_Rein" "tssdeng.shx,hztxt.shx" "0.0" "0.7" "" "" "" "")<br /> ;;;    )<br /> ;;;    (progn<br /> ;;;       (command "style" "TSSD_Rein" "tssdeng.shx,hztxt.shx" "0.0" "0.7" "" "" "" "")<br /> ;;;      <br /> ;;;      (princ "\n检测到TSSD_Rein字体，将其设为当前。")<br /> ;;;    )<br /> ;;;  )<br /> ;;;(if (= (tblsearch "STYLE" "hz") nil);"判断hz字型是否存在"      <br /> ;;;  (command "style" "hz" "txt.shx,hztxt.shx" 250 0.7 0 "n" "n" "n");"设置字型hz"<br /> ;;;  )<br /> ;;;<br /> ;;;(if (= (tblsearch "STYLE" "hx") nil);"判断hx字型是否存在"   <br /> ;;;  (command "style" "hx" "huaxin.shx,hxhztxt.shx" 250 0.7 0 "n" "n" "n");"设置字型hx"<br /> ;;;  )<br /> ;;;<br /> ;;;(if (= (tblsearch "STYLE" "STANDARD") nil);"判断hx字型是否存在"   <br /> ;;;   (command "style" "STANDARD" "tssdeng.shx,hztxt.shx" "0.0" "0.7" "" "" "" "");"设置字型STANDARD"<br /> ;;;  )<br /> ;;;)<br /> ;;;<br /> ;;;<br /> ;;;<br /> ;;;<br /> ;;;<br /> ;;;<br /> <br /> ;判断及创建图层<br /> (defun csh_lay()<br /> (setvar "cmdecho" 0)<br /> ;创建线型，点划线 <br />   (entmake<br />     (list '(0 . "LTYPE")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLinetypeTableRecord")<br />         (cons 2 "ACAD_ISO04W100")<br />         '(3 . "ACAD_ISO04W100 ___ . ___ . ___ . ___ . ___")<br />         '(70 . 0)<br />         '(73 . 4)<br />         '(40 . 18.5)<br />         '(49 . 15)<br />         '(74 . 0)<br />         '(49 . -1.5)<br />         '(74 . 0)<br />         '(49 . 0.5)<br />         '(74 . 0)<br />         '(49 . -1.5)<br />         '(74 . 0)<br />   )<br /> )<br /> ;创建线型，虚线 <br /> (entmake<br />   (list        '(0 . "LTYPE")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLinetypeTableRecord")<br />         (cons 2 "DASHED")<br />         '(3 . "DASHED __ __ __ __ __ __ __ __ __")<br />         '(70 . 0)<br />         '(73 . 2)<br />         '(40 . 6.0)<br />         '(49 . 4.0)<br />         '(74 . 0)<br />         '(49 . -2.0)<br />         '(74 . 0)<br />   )<br /> )<br /> ;轴线<br /> (if (null (tblobjname "LAYER" "AXIS") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "ACAD_ISO04W100")   ;线型<br />         (cons 2 "AXIS")<br />     '(62 . 1)  ;颜色<br />         )<br />     )<br /> );if <br /> ;柱子<br /> (if (null (tblobjname "LAYER" "COLU") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "COLU")<br />     '(62 . 7)  ;颜色<br />         )<br />     )<br /> );if <br /> ;柱子填充<br /> (if (null (tblobjname "LAYER" "COLU_HATCH") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "COLU_HATCH")<br />     '(62 . 2)  ;颜色<br />         )<br />     )<br /> );if <br /> ;柱子编号<br /> (if (null (tblobjname "LAYER" "COLU_NUM") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "COLU_NUM")<br />     '(62 . 2)  ;颜色<br />         )<br />     )<br /> );if <br /> ;主梁虚线<br /> (if (null (tblobjname "LAYER" "BEAM") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "DASHED")   ;线型<br />         (cons 2 "BEAM")<br />     '(62 . 4)  ;颜色<br />         )<br />     )<br /> );if <br /> ;主梁实线<br /> (if (null (tblobjname "LAYER" "BEAM_CON") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "BEAM_CON")<br />     '(62 . 4)  ;颜色<br />         )<br />     )<br /> );if <br /> ;主梁水平文字<br /> (if (null (tblobjname "LAYER" "BEAM_TEXT_HOR") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "BEAM_TEXT_HOR")<br />     '(62 . 2)  ;颜色<br />         )<br />     )<br /> );if <br /> ;主梁垂直文字<br /> (if (null (tblobjname "LAYER" "BEAM_TEXT_VER") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "BEAM_TEXT_VER")<br />     '(62 . 100)  ;颜色<br />         )<br />     )<br /> );if <br /> ;次梁虚线<br /> (if (null (tblobjname "LAYER" "BEAM_SE") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "DASHED")   ;线型<br />         (cons 2 "BEAM_SE")<br />     '(62 . 144)  ;颜色<br />         )<br />     )<br /> );if <br /> ;次梁实线<br /> (if (null (tblobjname "LAYER" "BEAM_SE_CON") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "BEAM_SE_CON")<br />     '(62 . 144)  ;颜色<br />         )<br />     )<br /> );if <br /> ;次梁水平文字<br /> (if (null (tblobjname "LAYER" "BEAM_SE_TEXT_HOR") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "BEAM_SE_TEXT_HOR")<br />     '(62 . 100)  ;颜色<br />         )<br />     )<br /> );if <br /> ;次梁垂直文字<br /> (if (null (tblobjname "LAYER" "BEAM_SE_TEXT_VER") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "BEAM_SE_TEXT_VER")<br />     '(62 . 2)  ;颜色<br />         )<br />     )<br /> );if <br /> ;连梁虚线<br /> (if (null (tblobjname "LAYER" "BEAM_WA") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "DASHED")   ;线型<br />         (cons 2 "BEAM_WA")<br />     '(62 . 21)  ;颜色<br />         )<br />     )<br /> );if <br /> ;连梁实线<br /> (if (null (tblobjname "LAYER" "BEAM_WA_CON") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "BEAM_WA_CON")<br />     '(62 . 21)  ;颜色<br />         )<br />     )<br /> );if <br /> ;楼板<br /> (if (null (tblobjname "LAYER" "FLOOR") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "FLOOR")<br />     '(62 . 124)  ;颜色<br />         )<br />     )<br /> );if <br /> ;楼板正筋<br /> (if (null (tblobjname "LAYER" "FLOOR_DOWN_REIN") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "FLOOR_DOWN_REIN")<br />     '(62 . 15)  ;颜色<br />         )<br />     )<br /> );if <br /> ;楼板正筋标注<br /> (if (null (tblobjname "LAYER" "FLOOR_DOWN_DIM") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "FLOOR_DOWN_DIM")<br />     '(62 . 3)  ;颜色<br />         )<br />     )<br /> );if <br /> ;楼板正筋文字<br /> (if (null (tblobjname "LAYER" "FLOOR_DOWN_NUM") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "FLOOR_DOWN_NUM")<br />     '(62 . 2)  ;颜色<br />         )<br />     )<br /> );if <br /> ;楼板负筋<br /> (if (null (tblobjname "LAYER" "FLOOR_UP_REIN") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "FLOOR_UP_REIN")<br />     '(62 . 1)  ;颜色<br />         )<br />     )<br /> );if <br /> ;楼板负筋标注<br /> (if (null (tblobjname "LAYER" "FLOOR_UP_DIM") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "FLOOR_UP_DIM")<br />     '(62 . 3)  ;颜色<br />         )<br />     )<br /> );if <br /> ;楼板负筋文字<br /> (if (null (tblobjname "LAYER" "FLOOR_UP_NUM") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "FLOOR_UP_NUM")<br />     '(62 . 100)  ;颜色<br />         )<br />     )<br /> );if <br /> ;文字<br /> (if (null (tblobjname "LAYER" "TEXT") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "TEXT")<br />     '(62 . 7)  ;颜色<br />         )<br />     )<br /> );if <br /> ;尺寸标注<br /> (if (null (tblobjname "LAYER" "DIM") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "DIM")<br />     '(62 . 3)  ;颜色<br />         )<br />     )<br /> );if <br /> ;编号<br /> (if (null (tblobjname "LAYER" "NUM") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "NUM")<br />     '(62 . 2)  ;颜色<br />         )<br />     )<br /> );if <br /> ;审图（不打印）<br /> (if (null (tblobjname "LAYER" "审图（不打印）") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "审图（不打印）")<br />      '(62 . 6)  ;颜色<br />      '(290 . 0) ;0为此图层不打印<br />         )<br />     )<br /> );if <br /> ;钢筋<br /> (if (null (tblobjname "LAYER" "REIN") )<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "REIN")<br />     '(62 . 1)  ;颜色<br /> <br />         )<br />     )<br /> );if<br /> );defun csh_lay <br /> <br /> <br /> ;判断及创建字体<br /> (defun csh_sty() <br /> (if (null (tblobjname "STYLE" "TSSD_Rein") )<br /> (progn<br />       (princ "\n建立TSSD_Rein字体并设为当前")<br /> <br /> (entmake (list '(0 . "STYLE")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbTextStyleTableRecord")<br />         '(70 . 0)<br />     '(42 . 250) ;默认字高<br />     '(3 . "tssdeng.shx") <br />     '(4 . "hztxt.shx")<br />         (cons 2 "TSSD_Rein")<br />     '(40 . 250) ;字高<br />     '(41 . 0.7) ;字宽比例<br />     '(50 . 0.0) ;默认旋转角度<br />         )<br />     ))<br /> (progn<br /> (entmake (list '(0 . "STYLE")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbTextStyleTableRecord")<br />         '(70 . 0)<br />     '(42 . 250) ;默认字高<br />     '(3 . "tssdeng.shx") <br />     '(4 . "hztxt.shx")<br />         (cons 2 "TSSD_Rein")<br />     '(40 . 250) ;字高<br />     '(41 . 0.7) ;字宽比例<br />     '(50 . 0.0) ;默认旋转角度<br />         )<br />     )<br />     (princ "\n检测到TSSD_Rein字体，将其设为当前字体")<br />     )<br /> );if<br /> <br /> (if (null (tblobjname "STYLE" "hz") )<br /> (entmake (list '(0 . "STYLE")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbTextStyleTableRecord")<br />         '(70 . 0)<br />     '(42 . 250) ;默认字高<br />     '(3 . "txt.shx") <br />     '(4 . "hztxt.shx")<br />         (cons 2 "hz")<br />     '(40 . 250) ;字高<br />     '(41 . 0.7) ;字宽比例<br />     '(50 . 0.0) ;默认旋转角度<br />         )<br />     )<br /> );if <br /> <br /> <br /> (if (null (tblobjname "STYLE" "hx") )<br /> (entmake (list '(0 . "STYLE")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbTextStyleTableRecord")<br />         '(70 . 0)<br />     '(42 . 250) ;默认字高<br />     '(3 . "huaxin.shx") <br />     '(4 . "hxhztxt.shx")<br />         (cons 2 "hx")<br />     '(40 . 250) ;字高<br />     '(41 . 0.7) ;字宽比例<br />     '(50 . 0.0) ;默认旋转角度<br />         )<br />     )<br /> );if <br /> (if (null (tblobjname "STYLE" "STANDARD") )<br /> (entmake (list '(0 . "STYLE")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbTextStyleTableRecord")<br />         '(70 . 0)<br />     '(42 . 250) ;默认字高<br />     '(3 . "tssdeng.shx") <br />     '(4 . "hztxt.shx")<br />         (cons 2 "STANDARD")<br />     '(40 . 250) ;字高<br />     '(41 . 0.7) ;字宽比例<br />     '(50 . 0.0) ;默认旋转角度<br />         )<br />     )<br /> );if <br /> );defun csh_sty<br /> <br /> <br /> <br /> <br /> ； 建立DIM层，归并标注到DIM层<br /> (defun csh_bzgc(/ s2)<br />    (setvar "cmdecho" 0)<br /> ；这部分:确定是否建立新图层<br />    (if (= (tblsearch "layer" "DIM") nil) ;检查DIM层是否存在<br /> (entmake (list '(0 . "LAYER")<br />         '(100 . "AcDbSymbolTableRecord")<br />         '(100 . "AcDbLayerTableRecord")<br />         '(70 . 0)<br />         '(6 . "CONTINUOUS")   ;线型<br />         (cons 2 "DIM")<br />         '(62 . 3)  ;颜色<br />         )<br />     ));if<br /> ；这部分主程序<br />    (setq s2 (ssget "X" '((-4 . "<or")(0 . "leader")(0 . "dimension")(0 . "arc_dimension")(-4 . "or>"))))<br />    (if (= s2 nil) (princ "")<br />        (progn<br />           (command "change" s2 "" "P" "la" "0" ""   ;改变对象图层<br />                           "_setbylayer" s2 "" "y" "y"      ;线型改为随层<br />                           "change" s2 "" "P" "la" "DIM" "")  ;改变对象图层<br />         );progn<br />     );if   <br />    (princ)<br /> );defun<br /> <br /> <br /> ;建立建筑标注标注界限块<br /> (defun dimblk1(/ p1 p2 mp p3 p4 ent1 ent2 ifdimblk )<br />   (setq p1 (list 0 0)<br /> p2 (polar p1 (* 0.25 pi) 2)<br /> mp (list (* 0.5 (car p2)) (* 0.5 (cadr p2)))<br /> p3(list (- (car mp) 1.5) (cadr mp))<br /> p4(list (+ (car mp) 1.5) (cadr mp))<br />    )<br />   (command "line" p3 p4 "")<br />   (setq ent1 (entlast))<br />   (command "pline" p1 "w" 0.5 0.5 p2 "")<br />   (setq ent2 (entlast))<br />   (setq ifdimblk (tblsearch "block" "ccjzDIM"))<br />   (if ifdimblk (command "block" "ccjzDIM" "y" mp ent1 ent2 "")<br />                (command "block" "ccjzDIM" mp ent1 ent2 "")<br />   )<br />   (princ)<br /> )<br /> <br /> <br /> ;标注部分设置<br /> ;;;(defun csh_ccbz (/ cm)<br /> ;;;  (setq cm (getvar "cmdecho"))<br /> ;;;  ;(setvar "cmdecho" 0)<br /> ;;;  (csh_sty)<br /> ;;;  (dimblk1)<br /> ;;;  (if (= (tblsearch "dimstyle" "TSSD_100_100") nil)<br /> ;;;    (progn (command "dimstyle" "s" "TSSD_100_100")<br /> ;;;    (setvar "DIMDSEP" ".") ;小数分隔符<br /> ;;;    (setvar "DIMADEC" 1)  ;角度小数位数<br /> ;;;    (setvar "DIMALT" 0)  ;选定的换算单位<br /> ;;;    (setvar "DIMALTD" 2)  ;换算单位小数位数<br /> ;;;    (setvar "DIMALTF" 25.4000) ;换算单位比例因子<br /> ;;;    (setvar "DIMALTRND" 0.0000) ;换算单位舍入值<br /> ;;;    (setvar "DIMALTTD" 2) ;换算公差小数位数<br /> ;;;    (setvar "DIMALTTZ" 0) ;换算公差消零<br /> ;;;    (setvar "DIMALTU" 2)  ;换算单位<br /> ;;;    (setvar "DIMALTZ" 0)  ;换算单位消零<br /> ;;;    (setvar "DIMASZ" 80) ;箭头大小<br /> ;;;    (setvar "DIMATFIT" 3) ;箭头和文字调整<br /> ;;;    (setvar "DIMAUNIT" 0) ;角度单位格式<br /> ;;;    (setvar "DIMAZIN" 2)  ;角度消零<br /> ;;;    (setvar "DIMBLK" "ccjzDIM") ;箭头块名<br /> ;;;    (setvar "DIMBLK1" "ccjzDIM") ;第一个箭头块名<br /> ;;;    (setvar "DIMBLK2" "ccjzDIM") ;第二个箭头块名<br /> ;;;    (setvar "DIMCEN" 0.0900) ;圆心标记大小<br /> ;;;    (setvar "DIMCLRD" 3)  ;尺寸线和引线颜色(绿色)<br /> ;;;    (setvar "DIMCLRE" 3)  ;尺寸界线颜色(绿色)<br /> ;;;    (setvar "DIMCLRT" 7)  ;标注文字颜色(绿色)<br /> ;;;    (setvar "DIMDEC" 0)  ;小数位数<br /> ;;;    (setvar "DIMDLE" 0.0000) ;尺寸线<br /> ;;;    (setvar "DIMDLI" 0.0000) ;尺寸线间距<br /> ;;;    (setvar "DIMEXE" 100) ;尺寸界线在尺寸线上<br /> ;;;    (setvar "DIMEXO" 100) ;尺寸界线原点偏移<br /> ;;;    (setvar "DIMFRAC" 0)  ;分数格式<br /> ;;;    (setvar "DIMGAP" 50) ;尺寸线和文字的间距<br /> ;;;    (setvar "DIMJUST" 0)  ;尺寸线上的文字对正<br /> ;;;    (setvar "DIMLDRBLK" ".") ;引线块名<br /> ;;;    (setvar "DIMLFAC" (getvar "DIMLFAC")) ;线性单位比例因子<br /> ;;;    (setvar "DIMLIM" 0)  ;生成标注界限<br /> ;;;    (setvar "DIMLUNIT" 2) ;线性单位格式<br /> ;;;    (setvar "DIMLWD" -2)  ;尺寸线和引线线宽<br /> ;;;    (setvar "DIMLWE" -2)  ;尺寸界线线宽<br /> ;;;    (setvar "DIMRND" 0.0000) ;舍入值<br /> ;;;    (setvar "DIMSAH" 0)  ;独立的箭头块<br /> ;;;    (setvar "DIMSCALE" (getvar "dimscale")) ;全局比例因子<br /> ;;;    (setvar "DIMSD1" 0)  ;隐藏第一条尺寸线<br /> ;;;    (setvar "DIMSD2" 0)  ;隐藏第二条尺寸线<br /> ;;;    (setvar "DIMSE1" 0)  ;隐藏第一条尺寸界线<br /> ;;;    (setvar "DIMSE2" 0)  ;隐藏第二条尺寸界线<br /> ;;;    (setvar "DIMSOXD" 0)  ;隐藏外侧尺寸线<br /> ;;;    (setvar "DIMTAD" 1)         ;文字位于尺寸线上方<br /> ;;;    (setvar "DIMTDEC" 1)  ;公差小数位数<br /> ;;;    (setvar "DIMTFAC" 1.0000) ;公差文字高度比例因子<br /> ;;;    (setvar "DIMTIH" 0)  ;尺寸界线内侧的文字水平放置<br /> ;;;    (setvar "DIMTIX" 1)  ;将文字放置于尺寸界线内侧<br /> ;;;    (setvar "DIMTM" 0.0000) ;下偏差<br /> ;;;    (setvar "DIMTMOVE" 2) ;文字移动<br /> ;;;    (setvar "DIMTOFL" 1)  ;强制在尺寸界线内侧画尺寸线<br /> ;;;    (setvar "DIMTOH" 0)  ;外侧文字水平放置<br /> ;;;    (setvar "DIMTOL" 0)  ;公差标注<br /> ;;;    (setvar "DIMTOLJ" 1)  ;公差垂直对齐<br /> ;;;    (setvar "DIMTP" 0.0000) ;上偏差<br /> ;;;    (setvar "DIMTSZ" 0.0000) ;标记大小<br /> ;;;    (setvar "DIMTVP" 0.0000) ;文字垂直位置<br /> ;;;    (setvar "DIMTXSTY" "TSSD_Rein") ;文字样式<br /> ;;;    (setvar "DIMTXT" 250) ;文字高度<br /> ;;;    (setvar "DIMTZIN" 0)  ;公差消零<br /> ;;;    (setvar "DIMUPT" 0)  ;用户定位的文字<br /> ;;;    (setvar "DIMZIN" 8)  ;消零<br /> ;;;    (princ "\n已新建标注样式TSSD_100_100，该样式符合本院标准，默认全局比例为1，修改比例请输入DIMSCALE。")<br /> ;;;    )<br /> ;;;    (progn<br /> ;;;    ;;;(command "dimstyle" "s" "TSSD_100_100")<br /> ;;;      (setvar "DIMDSEP" ".")  ;小数分隔符<br /> ;;;      (setvar "DIMADEC" 1)  ;角度小数位数<br /> ;;;      (setvar "DIMALT" 0)  ;选定的换算单位<br /> ;;;      (setvar "DIMALTD" 2)  ;换算单位小数位数<br /> ;;;      (setvar "DIMALTF" 25.4000) ;换算单位比例因子<br /> ;;;      (setvar "DIMALTRND" 0.0000) ;换算单位舍入值<br /> ;;;      (setvar "DIMALTTD" 2)  ;换算公差小数位数<br /> ;;;      (setvar "DIMALTTZ" 0)  ;换算公差消零<br /> ;;;      (setvar "DIMALTU" 2)  ;换算单位<br /> ;;;      (setvar "DIMALTZ" 0)  ;换算单位消零<br /> ;;;      (setvar "DIMASZ" 80)  ;箭头大小<br /> ;;;      (setvar "DIMATFIT" 3)  ;箭头和文字调整<br /> ;;;      (setvar "DIMAUNIT" 0)  ;角度单位格式<br /> ;;;      (setvar "DIMAZIN" 2)  ;角度消零<br /> ;;;      (setvar "DIMBLK" "ccjzDIM")  ;箭头块名<br /> ;;;      (setvar "DIMBLK1" "ccjzDIM")  ;第一个箭头块名<br /> ;;;      (setvar "DIMBLK2" "ccjzDIM")  ;第二个箭头块名<br /> ;;;      (setvar "DIMCEN" 0.0900)  ;圆心标记大小<br /> ;;;      (setvar "DIMCLRD" 3)  ;尺寸线和引线颜色(绿色)<br /> ;;;      (setvar "DIMCLRE" 3)  ;尺寸界线颜色(绿色)<br /> ;;;      (setvar "DIMCLRT" 7)  ;标注文字颜色(绿色)<br /> ;;;      (setvar "DIMDEC" 0)  ;小数位数<br /> ;;;      (setvar "DIMDLE" 0.0000)  ;尺寸线<br /> ;;;      (setvar "DIMDLI" 0.0000)  ;尺寸线间距<br /> ;;;      (setvar "DIMEXE" 100)  ;尺寸界线在尺寸线上<br /> ;;;      (setvar "DIMEXO" 100)  ;尺寸界线原点偏移<br /> ;;;      (setvar "DIMFRAC" 0)  ;分数格式<br /> ;;;      (setvar "DIMGAP" 50)  ;尺寸线和文字的间距<br /> ;;;      (setvar "DIMJUST" 0)  ;尺寸线上的文字对正<br /> ;;;      (setvar "DIMLDRBLK" ".")  ;引线块名<br /> ;;;      (setvar "DIMLFAC" (getvar "DIMLFAC"))  ;线性单位比例因子<br /> ;;;      (setvar "DIMLIM" 0)  ;生成标注界限<br /> ;;;      (setvar "DIMLUNIT" 2)  ;线性单位格式<br /> ;;;      (setvar "DIMLWD" -2)  ;尺寸线和引线线宽<br /> ;;;      (setvar "DIMLWE" -2)  ;尺寸界线线宽<br /> ;;;      (setvar "DIMRND" 0.0000)  ;舍入值<br /> ;;;      (setvar "DIMSAH" 0)  ;独立的箭头块<br /> ;;;      (setvar "DIMSCALE" (getvar "dimscale")) ;全局比例因子<br /> ;;;      (setvar "DIMSD1" 0)  ;隐藏第一条尺寸线<br /> ;;;      (setvar "DIMSD2" 0)  ;隐藏第二条尺寸线<br /> ;;;      (setvar "DIMSE1" 0)  ;隐藏第一条尺寸界线<br /> ;;;      (setvar "DIMSE2" 0)  ;隐藏第二条尺寸界线<br /> ;;;      (setvar "DIMSOXD" 0)  ;隐藏外侧尺寸线<br /> ;;;      (setvar "DIMTAD" 1)  ;文字位于尺寸线上方<br /> ;;;      (setvar "DIMTDEC" 1)  ;公差小数位数<br /> ;;;      (setvar "DIMTFAC" 1.0000)  ;公差文字高度比例因子<br /> ;;;      (setvar "DIMTIH" 0)  ;尺寸界线内侧的文字水平放置<br /> ;;;      (setvar "DIMTIX" 1)  ;将文字放置于尺寸界线内侧<br /> ;;;      (setvar "DIMTM" 0.0000)  ;下偏差<br /> ;;;      (setvar "DIMTMOVE" 2)  ;文字移动<br /> ;;;      (setvar "DIMTOFL" 1)  ;强制在尺寸界线内侧画尺寸线<br /> ;;;      (setvar "DIMTOH" 0)  ;外侧文字水平放置<br /> ;;;      (setvar "DIMTOL" 0)  ;公差标注<br /> ;;;      (setvar "DIMTOLJ" 1)  ;公差垂直对齐<br /> ;;;      (setvar "DIMTP" 0.0000)  ;上偏差<br /> ;;;      (setvar "DIMTSZ" 0.0000)  ;标记大小<br /> ;;;      (setvar "DIMTVP" 0.0000)  ;文字垂直位置<br /> ;;;      (setvar "DIMTXSTY" "TSSD_Rein") ;文字样式<br /> ;;;      (setvar "DIMTXT" 250)  ;文字高度<br /> ;;;      (setvar "DIMTZIN" 0)  ;公差消零<br /> ;;;      (setvar "DIMUPT" 0)  ;用户定位的文字<br /> ;;;      (setvar "DIMZIN" 8)  ;消零<br /> ;;;      (princ "\n检测到标注样式：“TSSD_100_100”，为防止样式被改动，程序自动将其还原(全局比例不变)。")<br /> ;;;    )<br /> ;;;  )<br /> ;;;  (command "_.DIMSTYLE" "_SAVE" "TSSD_100_100" "y" "")<br /> ;;;  ;(setvar "cmdecho" cm)<br /> ;;;  (princ)<br /> ;;;  (csh_dimdayang)<br /> ;;;)<br /> <br /> (defun csh_ccbz (/ cm)<br />   (setq cm (getvar "cmdecho"))<br />   ;(setvar "cmdecho" 0)<br />   ;(csh_sty)<br />     (csh_sty)<br />   (dimblk1)<br /> (if (= (tblsearch "dimstyle" "TSSD_100_100") nil)<br /> ;(entmake (list '(0 ."DIMENSION")<br /> (entmake (list '(0 . "DIMSTYLE")<br />                '(100 . "AcDbSymbolTableRecord")<br />                '(100 . "AcDbDimStyleTableRecord")      <br />                 '(70 . 0)                ;标注类型<br />                 (cons 2 "tssd_100_100")   ; 标注样式名<br />                 '(67 .0)     ;模型空间,0<br />                 '(8 . "DIM") ;图层DIM<br />                 '(1 . "<>") ; 标注值，默认为测量值<br />                 '(176 . 7)  ; 尺寸线颜色1-红色，2-黄色，3-绿色，4-青色，5-蓝色，6-洋红，7-白色<br />                 '(371 . -2) ;尺寸线线宽        <br />                 '(46 . 0)   ;尺寸线线宽<br />                 '(43 . 0)   ;基线间距<br />                 '(281 . 0)  ;隐藏第一条尺寸线<br />                 '(282 . 0)  ;隐藏第二条尺寸线<br />                 '(177 . 7)  ;尺寸界线颜色1-红色，2-黄色，3-绿色，4-青色，5-蓝色，6-洋红，7-白色<br />                 '(372 . -2) ;尺寸界线线宽<br />                 '(44 . 100) ;超出尺寸线        <br />                 '(42 . 100) ;起点偏移量<br />                 '(75 . 0)   ;隐藏第一条尺寸界线<br />                 '(76 . 0)   ;隐藏第二条尺寸界线?<br />                 <br /> ;;;                 (cons 6  "_ARCHTICK")    ;建筑标记<br /> ;;;                (cons 341  "_ARCHTICK")    ;建筑标记<br /> <br /> <br />          <br />                  (cons 6  "dimblk1")    ;建筑标记<br />                 (cons 341  "dimblk1")    ;建筑标记<br />                 '(41 . 80)  ; 箭头大小<br />                 '(141 .100) ; 圆心标记大小<br />                  (cons 340 (tblobjname "style" "TSSD_Rein")) ; 文字样式名<br />                 '(178 . 7)  ;标注文字颜色1-红色，2-黄色，3-绿色，4-青色，5-蓝色，6-洋红，7-白色<br />                 '(140 . 250) ; 标注文字高度        <br />                 '(77 . 1)  ; 文字在尺寸线上方<br />                 '(280 . 0)  ;标注文字 位置水平置中<br />                 '(147 . 50)   ; 文字从尺寸线偏移<br />                 '(73 . 0)     ;尺寸界线内侧的文字水平放置<br />                 '(74 . 0)     ;外侧文字水平放置<br />                 '(277 . 2)    ;线性单位格式,小数<br />                 '(271 . 1)    ; 线性标注精度<br />                 '(144 . 1)    ; 测量单位比例因子<br />                 '(78 . 8)     ; 测量单位比例，消零<br />                 '(275 . 0)    ; 角度标注单位格式，十进制     <br />                 '(179 . 0)    ;角度标注精度，整数<br />                 '(79 . 0)     ;角度标注，消零                  <br />                 '(40 . 0.0)   ;全局比例因子<br />                 '(279 . 21)   ;文字移动<br />                 '(173 . 0)    ;独立的箭头块               <br />                 '(172 . 2)    ; 尺寸界线间连线              <br />                 '(271 . 1)    ; 尺寸标注精度<br />                 '(288 . 1)    ; 手动放置尺寸                <br />   );list<br />   );entmake<br /> );if<br />   (command "_.DIMSTYLE" "_SAVE" "TSSD_100_100" "y" "")<br />   ;(setvar "cmdecho" cm)<br />   (princ)<br />   (csh_dimdayang)<br />   );defun<br /> <br />   <br /> ;建立各种比例大样图所需的标注样式<br /> (defun csh_dimdayang(/ ACADDOCUMENT ACADOBJECT CURRDIMSTYLE MSPACE)<br />   (PRINC "\n模型空间中，建立各种比例大样图所需的标注样式 :")<br /> ;;; 首先,返回当前的标注的样式<br /> ;;; 接着,设定新的样式。<br /> ;;; 最后,将样式恢复为原来的设定值。<br />   (VL-LOAD-COM)<br />   (setq AcadObject(vlax-get-acad-object)<br />         AcadDocument(vla-get-ActiveDocument AcadObject)<br />         mSpace(vla-get-ModelSpace AcadDocument)<br />   )<br /> ;;; 返回激活文件当前的标注样式 <br /> (setq currDimStyle(vla-get-ActiveDimStyle AcadDocument))<br /> ;(princ "当前的标注型式是 ")(princ (vla-get-name currDimStyle))<br /> ;;; 建立标注样式 TSSD_10_100<br />   (setvar "dimlfac" 0.1);因为图元放大了10倍<br />   (setvar "DIMCLRD" 1);改变颜色以区分<br />   (setvar "dimclre" 1)<br />   (if (not (tblsearch "dimstyle" "TSSD_10_100"))<br />       (command "-dimstyle" "s" "TSSD_10_100")<br />       (command "-dimstyle" "s" "TSSD_10_100" "y")<br />   )<br />   ;;; 建立标注样式 TSSD_20_100<br />   (setvar "dimlfac" 0.20)<br />   (setvar "DIMCLRD" 2)<br />     (setvar "dimclre" 2)<br />   (if (not (tblsearch "dimstyle" "TSSD_20_100"))<br />       (command "-dimstyle" "s" "TSSD_20_100")<br />       (command "-dimstyle" "s" "TSSD_20_100" "y")<br />   )<br />   ;;; 建立标注样式 TSSD_25_100<br />   (setvar "dimlfac" 0.25)<br />   (setvar "DIMCLRD" 4)<br />     (setvar "dimclre" 4)<br />   (if (not (tblsearch "dimstyle" "TSSD_25_100"))<br />       (command "-dimstyle" "s" "TSSD_25_100")<br />       (command "-dimstyle" "s" "TSSD_25_100" "y")<br />   )<br />     ;;; 建立标注样式 TSSD_50_100<br />   (setvar "dimlfac" 0.5)<br />   (setvar "DIMCLRD" 6)<br />     (setvar "dimclre" 6)<br />   (if (not (tblsearch "dimstyle" "TSSD_50_100"))<br />       (command "-dimstyle" "s" "TSSD_50_100")<br />       (command "-dimstyle" "s" "TSSD_50_100" "y")<br />   )<br />   (vla-put-ActiveDimStyle AcadDocument currDimStyle);; 将标注样式设回原来的标注样式<br />   ;(princ "标注型式重设为 ")(princ (vla-get-name currDimStyle))<br />   (princ)<br /> )<br /> <br />     (setvar "blipmode" orig_blip); 还原系统变数的设定值<br />     (setvar "cmdecho" orig_cmd)<br />     (setvar "osmode" orig_osnap)<br />     (setvar "clayer" orig_layer)<br /> <br /> ;    (command "osmode" "191"); 打开端点,中点,中心,象限点,交点及垂点捕捉<br /> ;    (command "units" "2" "2" "" "" "" "")<br /> ;    (command "chamfera" "0"); 将chamfer命令的第一点D值设为0<br /> ;    (command "chamferb" "0"); 将chamfer命令的第二点D值设为0<br /> ;    (command "filletrad" "0"); 将fillet命令的半径R值设为0<br /> (csh_lay)<br /> (csh_sty)<br /> (csh_bzgc)<br /> (csh_ccbz)<br /> (princ "\n***  绘图环境初始化完成  **** 命令: csh ***")<br />     (princ)<br /> ); csh.lsp命令结束   <br />     (princ) <br /> <br /> <br /> (defun c:d10 ()(command "-DIMSTYLE" "R" "TSSD_10_100")(princ "\n当前标注样式:TSSD_10_100")(princ))<br /> (defun c:d20 ()(command "-DIMSTYLE" "R" "TSSD_20_100")(princ "\n当前标注样式:TSSD_20_100")(princ))<br /> (defun c:d25 ()(command "-DIMSTYLE" "R" "TSSD_25_100")(princ "\n当前标注样式:TSSD_25_100")(princ))<br /> (defun c:d50 ()(command "-DIMSTYLE" "R" "TSSD_50_100")(princ "\n当前标注样式:TSSD_50_100")(princ))<br /> (defun c:d100 ()(command "-DIMSTYLE" "R" "TSSD_100_100")(princ "\n当前标注样式:TSSD_100_100")(princ))<br />

1993063

看起来好像很利害的样子.代码这么长,

修刀人

好厉害，看不懂

1993063

一个简单的创建标注样例:
(Defun C:BZ (/ *error* vl ov dm_scl dm_Name)
  (defun *error* (x) (and ov (Mapcar 'Setvar vl ov)))
  (setq vl '("CMDECHO" "EXPERT") ov (Mapcar 'Getvar vl))
  (Mapcar 'Setvar vl '(0 5))
  (setq dm_scl (getint "\r →输入全局比例因子: "))
  (setq dm_Name (strcat "标注-" (itoa dm_scl) ""))
  (setvar "DIMSCALE" dm_scl)
  (vl-cmdf "_dimstyle" "_save" dm_Name)
  (Mapcar 'Setvar vl ov)
  (princ)
) 参照修改!