初始化绘图环境，里面的图层部分无反应，请大家帮忙看看

wjnnan

初始化绘图环境，里面的图层部分无反应，请大家帮忙看看，还有在cad中选项里，另存为其它版本的命令或系统变量是什么啊，我想在程序里定义成，另存为2004版的dwg文件，应该怎么编写啊，有哪位知道啊，请指教，下面是初始化的源码，

2. 
   
3. ;csh.lsp
   
4. ;对CAD绘图的环境进行初始化，建立必要的图层及字体和标注样式
   
5. ;2014/08/07
   
6. ;感谢原作者wxh5330 和 tranney
   
7. 
   
8. (defun c:csh ( / orig_blip orig_cmd orig_osnap orig_layer); 指定函式名称
   
9.        (prinC "常用设置")
   
10.        (setvar "CURSORSIZE" 100)             ;将屏幕十字光标的大小设为100%
    
11.        (setvar "ACADLSPASDOC" 1)             ;将 acad.lsp 载入到每一个打开的图形中
    
12.        (setvar "ANGDIR" 1)                   ;设置正角度的方向为顺时针
    
13.        (setvar "AUNITS" 0)                   ;设置角度单位为十进位度数
    
14.        (setvar "CMLSCALE" 20.0000)           ;设线宽为公制              
    
15.        (setvar "GRIDMODE" 0)                 ;关闭栅格
    
16.        (setvar "LTSCALE" 1.0000)             ;设置全局线型比例为1.0000
    
17.        (setvar "LUNITS" 2)                   ;设置线性单位为小数
    
18.        (setvar "LWDISPLAY" 1)                ;显示线宽
    
19.        (setvar "LWDEFAULT" 25)               ;设置默认线宽的值为25
    
20.        (setvar "LWUNITS" 1)                  ;设线宽单位以毫米显示
    
21.        (setvar "MEASUREINIT" 1)              ;设置初始图形单位为公制
    
22.        (setvar "PSLTSCALE" 1)                ;设图纸空间的线型比例为1：1
    
23.        (setvar "SNAPMODE" 0)                 ;关闭"捕捉"方式
    
24.        (setvar "TOOLTIPS" 1)                 ;显示工具栏提示
    
25.        (setvar "TRACEWID" 0.2)               ;设置宽线的默认宽度为0.2MM
    
26.        (setvar "TRAYICONS" 1)                ;控制是否在状态栏上显示系统托盘
    
27.        (setvar "TRAYNOTIFY" 1)               ;控制是否在状态栏系统托盘上显示服务通知
    
28.        (setvar "ISAVEBAK" 1)                 ;控制备份文件 (BAK) 的创建。    1，创建
    
29. 
    
30.    0，不创建         
    
31.        (setvar "SAVETIME" 15)                ;设置自动保存时间
    
32.        ;(setvar "VIEWRES" 5000)               ;设置圆弧和圆的平滑度
    
33.        (setvar "FILEDIA" 1)                  ;0,为命令行提示;1,为对话框提示
    
34. (setvar "APERTURE" 25)                ;以像素为单位设置靶框显示尺寸。靶框是绘图命令
    
35. 
    
36. 中使用的选择工具。初始值：10
    
37.        (setvar "PICKBOX" 8)                  ;控制拾取框大小
    
38.        (setvar "Vtenable" 0)                 ;窗口缓冲速度
    
39.        (setvar "qaflags" 0)                  ;取消选择先后顺序
    
40.        (COMMAND  "OSMODE"  "4279" )           ;常用捕捉打开
    
41.        (command "VIEWRES" "y" 5000 )          ;设置圆弧和圆的平滑度
    
42.     (setq orig_blip (getvar "blipmode")); 获取系统变数的初始值
    
43.     (setq orig_cmd (getvar "cmdecho"))
    
44.     (setq orig_osnap (getvar "osmode"))
    
45.     (setq orig_layer (getvar "clayer"))
    
46.     (setvar "blipmode" 0); 设置系统变数
    
47.     (setvar "cmdecho" 0)
    
48.     (setvar "osmode" 0)
    
49. 
    
50. 
    
51. (defun csh_lay()
    
52. (setvar "cmdecho" 0)
    
53. (if (= (tblsearch "layer" "AXIS") nil)
    
54.   (command "layer" "m" "AXIS" "c" "1" "" "lt" "ACAD_IS004W100" "" ""));              
    
55. 
    
56.     轴线
    
57. 
    
58. (if (= (tblsearch "layer" "AXIS_DIM") nil)  
    
59. (command "layer" "m" "AXIS_DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));          轴线
    
60. 
    
61. 标注
    
62. 
    
63. (if (= (tblsearch "layer" "AXIS_TEXT") nil)   
    
64. (command "layer" "m" "AXIS_TEXT" "c" "2" "" "lt" "CONTINUOUS" "" ""));         轴线
    
65. 
    
66. 编号
    
67. 
    
68. (if (= (tblsearch "layer" "COLU") nil)
    
69. (command "layer" "m" "COLU" "c" "11" "" "lt" "CONTINUOUS" "" ""));             柱子
    
70. 
    
71. (if (= (tblsearch "layer" "COLU_DASH") nil)   
    
72. (command "layer" "m" "COLU_DASH" "c" "11" "" "lt" "DASHED" "" ""));              柱
    
73. 
    
74. 子虚线
    
75.   
    
76. (if (= (tblsearch "layer" "COLU_BR") nil)  
    
77. (command "layer" "m" "COLU_BR" "c" "52" "" "lt" "CONTINUOUS" "" ""));          构造
    
78. 
    
79. 柱
    
80. 
    
81. (if (= (tblsearch "layer" "COLU_NUM") nil)  
    
82.   (command "layer" "m" "COLU_NUM" "c" "2" "" "lt" "CONTINUOUS" "" ""));          柱
    
83. 
    
84. 子编号
    
85.   
    
86. (if (= (tblsearch "layer" "COLU_HATCH") nil)  
    
87. (command "layer" "m" "COLU_HATCH" "c" "8" "" "lt" "CONTINUOUS" "" ""));        柱子
    
88. 
    
89. 填充
    
90. 
    
91. (if (= (tblsearch "layer" "BEAM") nil)  
    
92.   (command "layer" "m" "BEAM" "c" "4" "" "lt" "DASHED" "" ""));                    
    
93. 
    
94. 主梁
    
95.   
    
96. (if (= (tblsearch "layer" "BEAM_CON") nil)  
    
97. (command "layer" "m" "BEAM_CON" "c" "4" "" "lt" "CONTINUOUS" "" ""));          主梁
    
98. 
    
99. 实线
    
100.   
     
101. (if (= (tblsearch "layer" "BEAM_TEXT_HOR") nil)  
     
102. (command "layer" "m" "BEAM_TEXT_HOR" "c" "2" "" "lt" "CONTINUOUS" "" ""));     主梁
     
103. 
     
104. 水平文字
     
105.   
     
106. (if (= (tblsearch "layer" "BEAM_TEXT_VER") nil)
     
107. (command "layer" "m" "BEAM_TEXT_VER" "c" "100" "" "lt" "CONTINUOUS" "" ""));   主梁
     
108. 
     
109. 竖直文字
     
110. 
     
111. (if (= (tblsearch "layer" "BEAM_WA") nil)
     
112. (command "layer" "m" "BEAM_WA" "c" "21" "" "lt" "DASHED" "" ""));                连
     
113. 
     
114. 梁
     
115. 
     
116. (if (= (tblsearch "layer" "BEAM_WA_CON") nil)
     
117.   (command "layer" "m" "BEAM_WA_CON" "c" "21" "" "lt" "CONTINUOUS" "" ""));      连
     
118. 
     
119. 梁实线
     
120.   
     
121. (if (= (tblsearch "layer" "BEAM_WA_TEXT") nil)
     
122. (command "layer" "m" "BEAM_WA_TEXT" "c" "100" "" "lt" "CONTINUOUS" "" ""));    连梁
     
123. 
     
124. 文字
     
125. 
     
126. 
     
127. (if (= (tblsearch "layer" "BEAM_SE") nil)
     
128.   (command "layer" "m" "BEAM_SE" "c" "144" "" "lt" "DASHED" "" ""));               
     
129. 
     
130. 次梁
     
131.   
     
132. (if (= (tblsearch "layer" "BEAM_SE_CON") nil)
     
133. (command "layer" "m" "BEAM_SE_CON" "c" "144" "" "lt" "CONTINUOUS" "" ""));      次梁
     
134. 
     
135. 实线
     
136.   
     
137. (if (= (tblsearch "layer" "BEAM_SE_TEXT_HOR") nil)
     
138. (command "layer" "m" "BEAM_SE_TEXT_HOR" "c" "100" "" "lt" "CONTINUOUS" "" "")); 次梁
     
139. 
     
140. 水平文字
     
141. (if (= (tblsearch "layer" "BEAM_SE_TEXT_VER") nil)  
     
142. (command "layer" "m" "BEAM_SE_TEXT_VER" "c" "2" "" "lt" "CONTINUOUS" "" ""));   次梁
     
143. 
     
144. 竖直文字
     
145. 
     
146.   ;(command "layer" "m" "S_WALL" "c" "94" "" "lt" "CONTINUOUS" "" "");           砼
     
147. 
     
148. 墙
     
149.   ;(command "layer" "m" "S_WALL_DASH" "c" "94" "" "lt" "DASHED" "" "");            
     
150. 
     
151. 砼墙虚线
     
152.   ;(command "layer" "m" "S_WALL_DIM" "c" "7" "" "lt" "CONTINUOUS" "" "");        砼
     
153. 
     
154. 墙标注
     
155.   ;(command "layer" "m" "S_WALL_NUM" "c" "100" "" "lt" "CONTINUOUS" "" "");      砼
     
156. 
     
157. 墙编号
     
158.   ;(command "layer" "m" "S_WALL_HATCH" "c" "8" "" "lt" "CONTINUOUS" "" "");      砼
     
159. 
     
160. 墙填充
     
161.   ;(command "layer" "m" "S_WALL_BR" "c" "52" "" "lt" "CONTINUOUS" "" "");        砖
     
162. 
     
163. 墙
     
164.   ;(command "layer" "m" "S_WALL_BR_DASH" "c" "52" "" "lt" "DASHED" "" "");         
     
165. 
     
166. 砖墙虚线
     
167. 
     
168.   ;(command "layer" "m" "STAIR" "c" "3" "" "lt" "CONTINUOUS" "" "");             楼
     
169. 
     
170. 梯
     
171.   ;(command "layer" "m" "STAIR_TEXT" "c" "2" "" "lt" "CONTINUOUS" "" "");        楼
     
172. 
     
173. 梯文字
     
174.   ;(command "layer" "m" "STAIR_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");         楼
     
175. 
     
176. 梯标注
     
177. 
     
178. 
     
179. (if (= (tblsearch "layer" "FLOOR") nil)  
     
180.   (command "layer" "m" "FLOOR" "c" "124" "" "lt" "CONTINUOUS" "" ""));           楼
     
181. 
     
182. 板
     
183.   
     
184. (if (= (tblsearch "layer" "FLOOR_DOWN_REIN") nil)  
     
185. (command "layer" "m" "FLOOR_DOWN_REIN" "c" "15" "" "lt" "CONTINUOUS" "" ""));  楼板
     
186. 
     
187. 正筋
     
188.   
     
189. (if (= (tblsearch "layer" "FLOOR_DOWN_DIM") nil)  
     
190. (command "layer" "m" "FLOOR_DOWN_DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));    楼板
     
191. 
     
192. 正筋标注
     
193. 
     
194. (if (= (tblsearch "layer" "FLOOR_DOWN_NUM") nil)  
     
195. (command "layer" "m" "FLOOR_DOWN_NUM" "c" "2" "" "lt" "CONTINUOUS" "" ""));    楼板
     
196. 
     
197. 正筋文字
     
198. 
     
199. (if (= (tblsearch "layer" "FLOOR_UP_REIN") nil)  
     
200.   (command "layer" "m" "FLOOR_UP_REIN" "c" "1" "" "lt" "CONTINUOUS" "" ""));     楼
     
201. 
     
202. 板负筋
     
203. 
     
204. (if (= (tblsearch "layer" "FLOOR_UP_DIM") nil)  
     
205. (command "layer" "m" "FLOOR_UP_DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));      楼板
     
206. 
     
207. 负筋标注
     
208.   
     
209. (if (= (tblsearch "layer" "FLOOR_UP_NUM") nil)
     
210. (command "layer" "m" "FLOOR_UP_NUM" "c" "100" "" "lt" "CONTINUOUS" "" ""));    楼板
     
211. 
     
212. 负筋文字
     
213. 
     
214. 
     
215.   ;(command "layer" "m" "HOLE" "c" "190" "" "lt" "CONTINUOUS" "" "");            洞
     
216. 
     
217. 口
     
218.   ;(command "layer" "m" "HOLE_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          洞
     
219. 
     
220. 口标注
     
221.   ;(command "layer" "m" "HOLE_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          洞
     
222. 
     
223. 口编号
     
224.   ;(command "layer" "m" "HOLE_HATCH" "c" "9" "" "lt" "CONTINUOUS" "" "");        洞
     
225. 
     
226. 口填充
     
227. 
     
228. (if (= (tblsearch "layer" "BASE") nil)
     
229.   (command "layer" "m" "BASE" "c" "4" "" "lt" "CONTINUOUS" "" ""));              基
     
230. 
     
231. 础
     
232.   
     
233. (if (= (tblsearch "layer" "BASE_DIM") nil)
     
234. (command "layer" "m" "BASE_DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));          基础
     
235. 
     
236. 标注
     
237.   
     
238. (if (= (tblsearch "layer" "BASE_NUM") nil)
     
239. (command "layer" "m" "BASE_NUM" "c" "2" "" "lt" "CONTINUOUS" "" ""));          基础
     
240. 
     
241. 编号
     
242. 
     
243. (if (= (tblsearch "layer" "PILE") nil)
     
244.   (command "layer" "m" "PILE" "c" "150" "" "lt" "CONTINUOUS" "" ""));            桩
     
245.   
     
246. (if (= (tblsearch "layer" "PILE_DASH") nil)
     
247. (command "layer" "m" "PILE_DASH" "c" "150" "" "lt" "DASHED" "" ""));             桩
     
248. 
     
249. 虚线
     
250. 
     
251. 
     
252.   ;(command "layer" "m" "STEEL" "c" "60" "" "lt" "CONTINUOUS" "" "");            钢
     
253. 
     
254. 结构实线
     
255.   ;(command "layer" "m" "STEEL_DASH" "c" "60" "" "lt" "DASHED" "" "");            
     
256. 
     
257. 钢结构虚线
     
258. 
     
259.   ;(command "layer" "m" "BOLT" "c" "6" "" "lt" "CONTINUOUS" "" "");              螺
     
260. 
     
261. 栓
     
262.   ;(command "layer" "m" "BOLT_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          螺
     
263. 
     
264. 栓标注
     
265.   ;(command "layer" "m" "BOLT_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          螺
     
266. 
     
267. 栓编号
     
268. 
     
269.   ;(command "layer" "m" "WELD" "c" "40" "" "lt" "CONTINUOUS" "" "");             焊
     
270. 
     
271. 缝
     
272.   ;(command "layer" "m" "WELD_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          焊
     
273. 
     
274. 缝标注
     
275.   ;(command "layer" "m" "WELD_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          焊
     
276. 
     
277. 缝文字
     
278. 
     
279.   ;(command "layer" "m" "BURY" "c" "140" "" "lt" "CONTINUOUS" "" "");            预
     
280. 
     
281. 埋件
     
282.   ;(command "layer" "m" "BURY_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          预
     
283. 
     
284. 埋件标注
     
285.   ;(command "layer" "m" "BURY_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          预
     
286. 
     
287. 埋件编号
     
288. 
     
289.   ;(command "layer" "m" "TAB" "c" "7" "" "lt" "CONTINUOUS" "" "");               表
     
290. 
     
291. 格线
     
292.   ;(command "layer" "m" "TAB_TEXT" "c" "2" "" "lt" "CONTINUOUS" "" "");          表
     
293. 
     
294. 格文字
     
295. 
     
296. (if (= (tblsearch "layer" "REIN") nil)
     
297.   (command "layer" "m" "REIN" "c" "1" "" "lt" "CONTINUOUS" "" ""));              钢
     
298. 
     
299. 筋
     
300.   
     
301. (if (= (tblsearch "layer" "TEXT") nil)
     
302. (command "layer" "m" "TEXT" "c" "7" "" "lt" "CONTINUOUS" "" ""));              文字
     
303. 
     
304. (if (= (tblsearch "layer" "DIM") nil)
     
305. (command "layer" "m" "DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));               尺寸
     
306.   
     
307. (if (= (tblsearch "layer" "NUM") nil)
     
308. (command "layer" "m" "NUM" "c" "2" "" "lt" "CONTINUOUS" "" ""));               编号
     
309.   
     
310. ;(command "layer" "m" "FRAME" "c" "7" "" "lt" "CONTINUOUS" "" "");             图框
     
311.   ;(command "layer" "m" "THICK" "c" "7" "" "lt" "CONTINUOUS" "" "");             粗
     
312. 
     
313. 线
     
314.   ;(command "layer" "m" "THIN" "c" "7" "" "lt" "CONTINUOUS" "" "");              细
     
315. 
     
316. 线
     
317. 
     
318.   ;(command "layer" "m" "EDGE" "c" "100" "" "lt" "CONTINUOUS" "" "");            轮
     
319. 
     
320. 廓线
     
321.   ;(command "layer" "m" "NOTE" "c" "100" "" "lt" "CONTINUOUS" "" "");            文
     
322. 
     
323. 字说明
     
324.   ;(command "layer" "m" "HATCH2" "c" "254" "" "lt" "CONTINUOUS" "" "");          图
     
325. 
     
326. 例填充
     
327. 
     
328. (if (= (tblsearch "layer" "st") nil)  
     
329. (command "layer" "m" "st" "c" "6" "" "lt" "CONTINUOUS" "" "p" "n" "" "")); 修改、修
     
330. 
     
331. 订（不打印）
     
332.   
     
333. (if (= (tblsearch "layer" "NO_PLOT") nil)  
     
334. (command "layer" "m" "NO_PLOT" "c" "14" "" "lt" "CONTINUOUS" "" "p" "n" "" ""));打印
     
335. 
     
336. 线（不打印）
     
337. )
     
338.    
     
339. ;  (command "style" "STANDARD" "tssdeng,hztxt" "0" "0.7" "0" "" "" "");
     
340. ;  (command "style" "TSSD_Rein" "tssdeng,hztxt" "0" "0.7" "0" "" "" "");      建立
     
341. 
     
342. TSSD 字体
     
343. 
     
344. ;|(defun wz_sty ()
     
345.   (if (= (tblsearch "style" "TSSD_Rein") nil)
     
346.     (progn
     
347.       (princ "\n建立TSSD_Rein字体并设为当前")
     
348.       (command "style" "TSSD_Rein" "tssdeng.shx,hztxt.shx" "0.0" "0.7" "" "" "" "")
     
349.     )
     
350.     (progn
     
351.        (command "style" "TSSD_Rein" "tssdeng.shx,hztxt.shx" "0.0" "0.7" "" "" "" "")
     
352.       
     
353.       (princ "\n检测到TSSD_Rein字体，将其设为当前。")
     
354.     )
     
355.   )
     
356.   (princ)
     
357. )|;
     
358. 
     
359. (defun csh_sty()
     
360.   (if (= (tblsearch "style" "TSSD_Rein") nil)
     
361.     (progn
     
362.       (princ "\n建立TSSD_Rein字体并设为当前")
     
363.       (command "style" "TSSD_Rein" "tssdeng.shx,hztxt.shx" "0.0" "0.7" "" "" "" "")
     
364.     )
     
365.     (progn
     
366.        (command "style" "TSSD_Rein" "tssdeng.shx,hztxt.shx" "0.0" "0.7" "" "" "" "")
     
367.       
     
368.       (princ "\n检测到TSSD_Rein字体，将其设为当前。")
     
369.     )
     
370.   )
     
371. (if (= (tblsearch "STYLE" "hz") nil);"判断hz字型是否存在"      
     
372.   (command "style" "hz" "txt.shx,hztxt.shx" 250 0.7 0 "n" "n" "n");"设置字型hz"
     
373.   )
     
374. 
     
375. (if (= (tblsearch "STYLE" "hx") nil);"判断hx字型是否存在"   
     
376.   (command "style" "hx" "huaxin.shx,hxhztxt.shx" 250 0.7 0 "n" "n" "n");"设置字型hx"
     
377.   )
     
378. )
     
379. 
     
380. 
     
381. 
     
382. 
     
383. 
     
384. 
     
385. ;建立DIM层，归并标注到DIM层
     
386. (defun csh_bzgc(/ s2)
     
387.    (setvar "cmdecho" 0)
     
388. ;;这部分:确定是否建立新图层
     
389.    (if (= (tblsearch "layer" "DIM") nil) ;检查DIM层是否存在
     
390. (command "layer" "m" "DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));if
     
391. ;;;这部分主程序
     
392.    (setq s2 (ssget "X" '((-4 . "<or")(0 . "leader")(0 . "dimension")(0 .
     
393. 
     
394. "arc_dimension")(-4 . "or>"))))
     
395.    (if (= s2 nil) (princ "")
     
396.        (progn
     
397.           (command "change" s2 "" "P" "la" "0" ""   ;改变对象图层
     
398.                           "_setbylayer" s2 "" "y" "y"      ;线型改为随层
     
399.                           "change" s2 "" "P" "la" "DIM" "")  ;改变对象图层
     
400.         );progn
     
401.     );if
     
402.    (princ "\n标注已置于“DIM层”")
     
403.    (princ)
     
404. );defun
     
405. 
     
406. 
     
407. ;建立建筑标注标注界限块
     
408. (defun dimblk1(/ p1 p2 mp p3 p4 ent1 ent2 ifdimblk )
     
409.   (setq p1 (list 0 0)
     
410. p2 (polar p1 (* 0.25 pi) 2)
     
411. mp (list (* 0.5 (car p2)) (* 0.5 (cadr p2)))
     
412. p3(list (- (car mp) 1.5) (cadr mp))
     
413. p4(list (+ (car mp) 1.5) (cadr mp))
     
414.    )
     
415.   (command "line" p3 p4 "")
     
416.   (setq ent1 (entlast))
     
417.   (command "pline" p1 "w" 0.5 0.5 p2 "")
     
418.   (setq ent2 (entlast))
     
419.   (setq ifdimblk (tblsearch "block" "ccjzDIM"))
     
420.   (if ifdimblk (command "block" "ccjzDIM" "y" mp ent1 ent2 "")
     
421.                (command "block" "ccjzDIM" mp ent1 ent2 "")
     
422.   )
     
423.   (princ)
     
424. )
     
425. 
     
426. 
     
427. ;标注部分设置
     
428. (defun csh_ccbz (/ cm)
     
429.   (setq cm (getvar "cmdecho"))
     
430.   ;(setvar "cmdecho" 0)
     
431.   (csh_sty)
     
432.   (dimblk1)
     
433.   (if (= (tblsearch "dimstyle" "TSSD_100_100") nil)
     
434.     (progn (command "dimstyle" "s" "TSSD_100_100")
     
435.     (setvar "DIMDSEP" ".") ;小数分隔符
     
436.     (setvar "DIMADEC" 1)  ;角度小数位数
     
437.     (setvar "DIMALT" 0)  ;选定的换算单位
     
438.     (setvar "DIMALTD" 2)  ;换算单位小数位数
     
439.     (setvar "DIMALTF" 25.4000) ;换算单位比例因子
     
440.     (setvar "DIMALTRND" 0.0000) ;换算单位舍入值
     
441.     (setvar "DIMALTTD" 2) ;换算公差小数位数
     
442.     (setvar "DIMALTTZ" 0) ;换算公差消零
     
443.     (setvar "DIMALTU" 2)  ;换算单位
     
444.     (setvar "DIMALTZ" 0)  ;换算单位消零
     
445.     (setvar "DIMASZ" 80) ;箭头大小
     
446.     (setvar "DIMATFIT" 3) ;箭头和文字调整
     
447.     (setvar "DIMAUNIT" 0) ;角度单位格式
     
448.     (setvar "DIMAZIN" 2)  ;角度消零
     
449.     (setvar "DIMBLK" "ccjzDIM") ;箭头块名
     
450.     (setvar "DIMBLK1" "ccjzDIM") ;第一个箭头块名
     
451.     (setvar "DIMBLK2" "ccjzDIM") ;第二个箭头块名
     
452.     (setvar "DIMCEN" 0.0900) ;圆心标记大小
     
453.     (setvar "DIMCLRD" 3)  ;尺寸线和引线颜色(绿色)
     
454.     (setvar "DIMCLRE" 3)  ;尺寸界线颜色(绿色)
     
455.     (setvar "DIMCLRT" 7)  ;标注文字颜色(绿色)
     
456.     (setvar "DIMDEC" 0)  ;小数位数
     
457.     (setvar "DIMDLE" 0.0000) ;尺寸线
     
458.     (setvar "DIMDLI" 0.0000) ;尺寸线间距
     
459.     (setvar "DIMEXE" 100) ;尺寸界线在尺寸线上
     
460.     (setvar "DIMEXO" 100) ;尺寸界线原点偏移
     
461.     (setvar "DIMFRAC" 0)  ;分数格式
     
462.     (setvar "DIMGAP" 50) ;尺寸线和文字的间距
     
463.     (setvar "DIMJUST" 0)  ;尺寸线上的文字对正
     
464.     (setvar "DIMLDRBLK" ".") ;引线块名
     
465.     (setvar "DIMLFAC" (getvar "DIMLFAC")) ;线性单位比例因子
     
466.     (setvar "DIMLIM" 0)  ;生成标注界限
     
467.     (setvar "DIMLUNIT" 2) ;线性单位格式
     
468.     (setvar "DIMLWD" -2)  ;尺寸线和引线线宽
     
469.     (setvar "DIMLWE" -2)  ;尺寸界线线宽
     
470.     (setvar "DIMRND" 0.0000) ;舍入值
     
471.     (setvar "DIMSAH" 0)  ;独立的箭头块
     
472.     (setvar "DIMSCALE" (getvar "dimscale")) ;全局比例因子
     
473.     (setvar "DIMSD1" 0)  ;隐藏第一条尺寸线
     
474.     (setvar "DIMSD2" 0)  ;隐藏第二条尺寸线
     
475.     (setvar "DIMSE1" 0)  ;隐藏第一条尺寸界线
     
476.     (setvar "DIMSE2" 0)  ;隐藏第二条尺寸界线
     
477.     (setvar "DIMSOXD" 0)  ;隐藏外侧尺寸线
     
478.     (setvar "DIMTAD" 1)         ;文字位于尺寸线上方
     
479.     (setvar "DIMTDEC" 1)  ;公差小数位数
     
480.     (setvar "DIMTFAC" 1.0000) ;公差文字高度比例因子
     
481.     (setvar "DIMTIH" 0)  ;尺寸界线内侧的文字水平放置
     
482.     (setvar "DIMTIX" 1)  ;将文字放置于尺寸界线内侧
     
483.     (setvar "DIMTM" 0.0000) ;下偏差
     
484.     (setvar "DIMTMOVE" 2) ;文字移动
     
485.     (setvar "DIMTOFL" 1)  ;强制在尺寸界线内侧画尺寸线
     
486.     (setvar "DIMTOH" 0)  ;外侧文字水平放置
     
487.     (setvar "DIMTOL" 0)  ;公差标注
     
488.     (setvar "DIMTOLJ" 1)  ;公差垂直对齐
     
489.     (setvar "DIMTP" 0.0000) ;上偏差
     
490.     (setvar "DIMTSZ" 0.0000) ;标记大小
     
491.     (setvar "DIMTVP" 0.0000) ;文字垂直位置
     
492.     (setvar "DIMTXSTY" "TSSD_Rein") ;文字样式
     
493.     (setvar "DIMTXT" 250) ;文字高度
     
494.     (setvar "DIMTZIN" 0)  ;公差消零
     
495.     (setvar "DIMUPT" 0)  ;用户定位的文字
     
496.     (setvar "DIMZIN" 8)  ;消零
     
497.     (princ "\n已新建标注样式TSSD_100_100，该样式符合本院标准，默认全局比例为1，修改
     
498. 
     
499. 比例请输入DIMSCALE。")
     
500.     )
     
501.     (progn
     
502. ;;;      (command "dimstyle" "s" "TSSD_100_100")
     
503.       (setvar "DIMDSEP" ".")  ;小数分隔符
     
504.       (setvar "DIMADEC" 1)  ;角度小数位数
     
505.       (setvar "DIMALT" 0)  ;选定的换算单位
     
506.       (setvar "DIMALTD" 2)  ;换算单位小数位数
     
507.       (setvar "DIMALTF" 25.4000) ;换算单位比例因子
     
508.       (setvar "DIMALTRND" 0.0000) ;换算单位舍入值
     
509.       (setvar "DIMALTTD" 2)  ;换算公差小数位数
     
510.       (setvar "DIMALTTZ" 0)  ;换算公差消零
     
511.       (setvar "DIMALTU" 2)  ;换算单位
     
512.       (setvar "DIMALTZ" 0)  ;换算单位消零
     
513.       (setvar "DIMASZ" 80)  ;箭头大小
     
514.       (setvar "DIMATFIT" 3)  ;箭头和文字调整
     
515.       (setvar "DIMAUNIT" 0)  ;角度单位格式
     
516.       (setvar "DIMAZIN" 2)  ;角度消零
     
517.       (setvar "DIMBLK" "ccjzDIM")  ;箭头块名
     
518.       (setvar "DIMBLK1" "ccjzDIM")  ;第一个箭头块名
     
519.       (setvar "DIMBLK2" "ccjzDIM")  ;第二个箭头块名
     
520.       (setvar "DIMCEN" 0.0900)  ;圆心标记大小
     
521.       (setvar "DIMCLRD" 3)  ;尺寸线和引线颜色(绿色)
     
522.       (setvar "DIMCLRE" 3)  ;尺寸界线颜色(绿色)
     
523.       (setvar "DIMCLRT" 7)  ;标注文字颜色(绿色)
     
524.       (setvar "DIMDEC" 0)  ;小数位数
     
525.       (setvar "DIMDLE" 0.0000)  ;尺寸线
     
526.       (setvar "DIMDLI" 0.0000)  ;尺寸线间距
     
527.       (setvar "DIMEXE" 100)  ;尺寸界线在尺寸线上
     
528.       (setvar "DIMEXO" 100)  ;尺寸界线原点偏移
     
529.       (setvar "DIMFRAC" 0)  ;分数格式
     
530.       (setvar "DIMGAP" 50)  ;尺寸线和文字的间距
     
531.       (setvar "DIMJUST" 0)  ;尺寸线上的文字对正
     
532.       (setvar "DIMLDRBLK" ".")  ;引线块名
     
533.       (setvar "DIMLFAC" (getvar "DIMLFAC"))  ;线性单位比例因子
     
534.       (setvar "DIMLIM" 0)  ;生成标注界限
     
535.       (setvar "DIMLUNIT" 2)  ;线性单位格式
     
536.       (setvar "DIMLWD" -2)  ;尺寸线和引线线宽
     
537.       (setvar "DIMLWE" -2)  ;尺寸界线线宽
     
538.       (setvar "DIMRND" 0.0000)  ;舍入值
     
539.       (setvar "DIMSAH" 0)  ;独立的箭头块
     
540.       (setvar "DIMSCALE" (getvar "dimscale")) ;全局比例因子
     
541.       (setvar "DIMSD1" 0)  ;隐藏第一条尺寸线
     
542.       (setvar "DIMSD2" 0)  ;隐藏第二条尺寸线
     
543.       (setvar "DIMSE1" 0)  ;隐藏第一条尺寸界线
     
544.       (setvar "DIMSE2" 0)  ;隐藏第二条尺寸界线
     
545.       (setvar "DIMSOXD" 0)  ;隐藏外侧尺寸线
     
546.       (setvar "DIMTAD" 1)  ;文字位于尺寸线上方
     
547.       (setvar "DIMTDEC" 1)  ;公差小数位数
     
548.       (setvar "DIMTFAC" 1.0000)  ;公差文字高度比例因子
     
549.       (setvar "DIMTIH" 0)  ;尺寸界线内侧的文字水平放置
     
550.       (setvar "DIMTIX" 1)  ;将文字放置于尺寸界线内侧
     
551.       (setvar "DIMTM" 0.0000)  ;下偏差
     
552.       (setvar "DIMTMOVE" 2)  ;文字移动
     
553.       (setvar "DIMTOFL" 1)  ;强制在尺寸界线内侧画尺寸线
     
554.       (setvar "DIMTOH" 0)  ;外侧文字水平放置
     
555.       (setvar "DIMTOL" 0)  ;公差标注
     
556.       (setvar "DIMTOLJ" 1)  ;公差垂直对齐
     
557.       (setvar "DIMTP" 0.0000)  ;上偏差
     
558.       (setvar "DIMTSZ" 0.0000)  ;标记大小
     
559.       (setvar "DIMTVP" 0.0000)  ;文字垂直位置
     
560.       (setvar "DIMTXSTY" "TSSD_Rein") ;文字样式
     
561.       (setvar "DIMTXT" 250)  ;文字高度
     
562.       (setvar "DIMTZIN" 0)  ;公差消零
     
563.       (setvar "DIMUPT" 0)  ;用户定位的文字
     
564.       (setvar "DIMZIN" 8)  ;消零
     
565.       (princ "\n检测到标注样式：“TSSD_100_100”，为防止样式被改动，程序自动将其还原
     
566. 
     
567. (全局比例不变)。")
     
568.     )
     
569.   )
     
570.   (command "_.DIMSTYLE" "_SAVE" "TSSD_100_100" "y" "")
     
571.   ;(setvar "cmdecho" cm)
     
572.   (princ)
     
573.   (csh_dimdayang)
     
574. )
     
575. 
     
576. ;----------建立各种比例大样图所需的标注样式
     
577. (defun csh_dimdayang(/ ACADDOCUMENT ACADOBJECT CURRDIMSTYLE MSPACE)
     
578.   (PRINC "\n模型空间中，建立各种比例大样图所需的标注样式 :")
     
579. ;;; 首先,返回当前的标注的样式
     
580. ;;; 接着,设定新的样式。
     
581. ;;; 最后,将样式恢复为原来的设定值。
     
582.   (VL-LOAD-COM)
     
583.   (setq AcadObject(vlax-get-acad-object)
     
584.         AcadDocument(vla-get-ActiveDocument AcadObject)
     
585.         mSpace(vla-get-ModelSpace AcadDocument)
     
586.   )
     
587. ;;; 返回激活文件当前的标注样式
     
588. (setq currDimStyle(vla-get-ActiveDimStyle AcadDocument))
     
589. ;(princ "当前的标注型式是 ")(princ (vla-get-name currDimStyle))
     
590. ;;; 建立标注样式 TSSD_10_100
     
591.   (setvar "dimlfac" 0.1);因为图元放大了10倍
     
592.   (setvar "DIMCLRD" 1);改变颜色以区分
     
593.   (setvar "dimclre" 1)
     
594.   (if (not (tblsearch "dimstyle" "TSSD_10_100"))
     
595.       (command "-dimstyle" "s" "TSSD_10_100")
     
596.       (command "-dimstyle" "s" "TSSD_10_100" "y")
     
597.   )
     
598.   ;;; 建立标注样式 TSSD_20_100
     
599.   (setvar "dimlfac" 0.20)
     
600.   (setvar "DIMCLRD" 2)
     
601.     (setvar "dimclre" 2)
     
602.   (if (not (tblsearch "dimstyle" "TSSD_20_100"))
     
603.       (command "-dimstyle" "s" "TSSD_20_100")
     
604.       (command "-dimstyle" "s" "TSSD_20_100" "y")
     
605.   )
     
606.   ;;; 建立标注样式 TSSD_25_100
     
607.   (setvar "dimlfac" 0.25)
     
608.   (setvar "DIMCLRD" 4)
     
609.     (setvar "dimclre" 4)
     
610.   (if (not (tblsearch "dimstyle" "TSSD_25_100"))
     
611.       (command "-dimstyle" "s" "TSSD_25_100")
     
612.       (command "-dimstyle" "s" "TSSD_25_100" "y")
     
613.   )
     
614.     ;;; 建立标注样式 TSSD_50_100
     
615.   (setvar "dimlfac" 0.5)
     
616.   (setvar "DIMCLRD" 6)
     
617.     (setvar "dimclre" 6)
     
618.   (if (not (tblsearch "dimstyle" "TSSD_50_100"))
     
619.       (command "-dimstyle" "s" "TSSD_50_100")
     
620.       (command "-dimstyle" "s" "TSSD_50_100" "y")
     
621.   )
     
622.   (vla-put-ActiveDimStyle AcadDocument currDimStyle);; 将标注样式设回原来的标注样式
     
623.   ;(princ "标注型式重设为 ")(princ (vla-get-name currDimStyle))
     
624.   (princ)
     
625. )
     
626. 
     
627. 
     
628. 
     
629. 
     
630.     (setvar "blipmode" orig_blip); 还原系统变数的设定值
     
631.     (setvar "cmdecho" orig_cmd)
     
632.     (setvar "osmode" orig_osnap)
     
633.     (setvar "clayer" orig_layer)
     
634. 
     
635. ;    (command "osmode" "191"); 打开端点,中点,中心,象限点,交点及垂点捕捉
     
636. 
     
637. ;    (command "units" "2" "2" "" "" "" "")
     
638. 
     
639. ;    (command "chamfera" "0"); 将chamfer命令的第一点D值设为0
     
640. ;    (command "chamferb" "0"); 将chamfer命令的第二点D值设为0
     
641. ;    (command "filletrad" "0"); 将fillet命令的半径R值设为0
     
642. 
     
643. (csh_sty)
     
644. (csh_bzgc)
     
645. (csh_ccbz)
     
646. (princ "\n***绘图环境初始化完成 2014/08/07 **** 命令: csh ***")
     
647.     (princ)
     
648. ); csh.lsp命令结束   
     
649.     (princ)
     
650. 
     
651. 
     
652. (defun c:d10 ()(command "-DIMSTYLE" "R" "TSSD_10_100")(princ "\n当前标注样
     
653. 
     
654. 式:TSSD_10_100")(princ))
     
655. (defun c:d20 ()(command "-DIMSTYLE" "R" "TSSD_20_100")(princ "\n当前标注样
     
656. 
     
657. 式:TSSD_20_100")(princ))
     
658. (defun c:d25 ()(command "-DIMSTYLE" "R" "TSSD_25_100")(princ "\n当前标注样
     
659. 
     
660. 式:TSSD_25_100")(princ))
     
661. (defun c:d50 ()(command "-DIMSTYLE" "R" "TSSD_50_100")(princ "\n当前标注样
     
662. 
     
663. 式:TSSD_50_100")(princ))
     
664. (defun c:d100 ()(command "-DIMSTYLE" "R" "TSSD_100_100")(princ "\n当前标注样
     
665. 
     
666. 式:TSSD_100_100")(princ))
     

<br /> ;csh.lsp<br /> ;对CAD绘图的环境进行初始化，建立必要的图层及字体和标注样式<br /> ;2014/08/07<br /> ;感谢原作者wxh5330 和 tranney<br /> <br /> (defun c:csh ( / orig_blip orig_cmd orig_osnap orig_layer); 指定函式名称<br />        (prinC "常用设置")<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，创建 <br /> <br />    0，不创建         <br />        (setvar "SAVETIME" 15)                ;设置自动保存时间<br />        ;(setvar "VIEWRES" 5000)               ;设置圆弧和圆的平滑度<br />        (setvar "FILEDIA" 1)                  ;0,为命令行提示;1,为对话框提示<br /> (setvar "APERTURE" 25)                ;以像素为单位设置靶框显示尺寸。靶框是绘图命令<br /> <br /> 中使用的选择工具。初始值：10<br />        (setvar "PICKBOX" 8)                  ;控制拾取框大小<br />        (setvar "Vtenable" 0)                 ;窗口缓冲速度<br />        (setvar "qaflags" 0)                  ;取消选择先后顺序<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_IS004W100" "" ""));              <br /> <br />     轴线<br /> <br /> (if (= (tblsearch "layer" "AXIS_DIM") nil)  <br /> (command "layer" "m" "AXIS_DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));          轴线<br /> <br /> 标注<br /> <br /> (if (= (tblsearch "layer" "AXIS_TEXT") nil)    <br /> (command "layer" "m" "AXIS_TEXT" "c" "2" "" "lt" "CONTINUOUS" "" ""));         轴线<br /> <br /> 编号<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 /> 子虚线<br />   <br /> (if (= (tblsearch "layer" "COLU_BR") nil)  <br /> (command "layer" "m" "COLU_BR" "c" "52" "" "lt" "CONTINUOUS" "" ""));          构造<br /> <br /> 柱<br /> <br /> (if (= (tblsearch "layer" "COLU_NUM") nil)  <br />   (command "layer" "m" "COLU_NUM" "c" "2" "" "lt" "CONTINUOUS" "" ""));          柱<br /> <br /> 子编号<br />   <br /> (if (= (tblsearch "layer" "COLU_HATCH") nil)  <br /> (command "layer" "m" "COLU_HATCH" "c" "8" "" "lt" "CONTINUOUS" "" ""));        柱子<br /> <br /> 填充<br /> <br /> (if (= (tblsearch "layer" "BEAM") nil)  <br />   (command "layer" "m" "BEAM" "c" "4" "" "lt" "DASHED" "" ""));                    <br /> <br /> 主梁<br />   <br /> (if (= (tblsearch "layer" "BEAM_CON") nil)  <br /> (command "layer" "m" "BEAM_CON" "c" "4" "" "lt" "CONTINUOUS" "" ""));          主梁<br /> <br /> 实线<br />   <br /> (if (= (tblsearch "layer" "BEAM_TEXT_HOR") nil)  <br /> (command "layer" "m" "BEAM_TEXT_HOR" "c" "2" "" "lt" "CONTINUOUS" "" ""));     主梁<br /> <br /> 水平文字<br />   <br /> (if (= (tblsearch "layer" "BEAM_TEXT_VER") nil)<br /> (command "layer" "m" "BEAM_TEXT_VER" "c" "100" "" "lt" "CONTINUOUS" "" ""));   主梁<br /> <br /> 竖直文字<br /> <br /> (if (= (tblsearch "layer" "BEAM_WA") nil)<br /> (command "layer" "m" "BEAM_WA" "c" "21" "" "lt" "DASHED" "" ""));                连<br /> <br /> 梁<br /> <br /> (if (= (tblsearch "layer" "BEAM_WA_CON") nil)<br />   (command "layer" "m" "BEAM_WA_CON" "c" "21" "" "lt" "CONTINUOUS" "" ""));      连<br /> <br /> 梁实线<br />   <br /> (if (= (tblsearch "layer" "BEAM_WA_TEXT") nil)<br /> (command "layer" "m" "BEAM_WA_TEXT" "c" "100" "" "lt" "CONTINUOUS" "" ""));    连梁<br /> <br /> 文字<br /> <br /> <br /> (if (= (tblsearch "layer" "BEAM_SE") nil)<br />   (command "layer" "m" "BEAM_SE" "c" "144" "" "lt" "DASHED" "" ""));                <br /> <br /> 次梁<br />   <br /> (if (= (tblsearch "layer" "BEAM_SE_CON") nil)<br /> (command "layer" "m" "BEAM_SE_CON" "c" "144" "" "lt" "CONTINUOUS" "" ""));      次梁<br /> <br /> 实线<br />   <br /> (if (= (tblsearch "layer" "BEAM_SE_TEXT_HOR") nil)<br /> (command "layer" "m" "BEAM_SE_TEXT_HOR" "c" "100" "" "lt" "CONTINUOUS" "" "")); 次梁<br /> <br /> 水平文字<br /> (if (= (tblsearch "layer" "BEAM_SE_TEXT_VER") nil)  <br /> (command "layer" "m" "BEAM_SE_TEXT_VER" "c" "2" "" "lt" "CONTINUOUS" "" ""));   次梁<br /> <br /> 竖直文字<br /> <br />   ;(command "layer" "m" "S_WALL" "c" "94" "" "lt" "CONTINUOUS" "" "");           砼<br /> <br /> 墙<br />   ;(command "layer" "m" "S_WALL_DASH" "c" "94" "" "lt" "DASHED" "" "");            <br /> <br /> 砼墙虚线<br />   ;(command "layer" "m" "S_WALL_DIM" "c" "7" "" "lt" "CONTINUOUS" "" "");        砼<br /> <br /> 墙标注<br />   ;(command "layer" "m" "S_WALL_NUM" "c" "100" "" "lt" "CONTINUOUS" "" "");      砼<br /> <br /> 墙编号<br />   ;(command "layer" "m" "S_WALL_HATCH" "c" "8" "" "lt" "CONTINUOUS" "" "");      砼<br /> <br /> 墙填充<br />   ;(command "layer" "m" "S_WALL_BR" "c" "52" "" "lt" "CONTINUOUS" "" "");        砖<br /> <br /> 墙<br />   ;(command "layer" "m" "S_WALL_BR_DASH" "c" "52" "" "lt" "DASHED" "" "");         <br /> <br /> 砖墙虚线<br /> <br />   ;(command "layer" "m" "STAIR" "c" "3" "" "lt" "CONTINUOUS" "" "");             楼<br /> <br /> 梯<br />   ;(command "layer" "m" "STAIR_TEXT" "c" "2" "" "lt" "CONTINUOUS" "" "");        楼<br /> <br /> 梯文字<br />   ;(command "layer" "m" "STAIR_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");         楼<br /> <br /> 梯标注<br /> <br /> <br /> (if (= (tblsearch "layer" "FLOOR") nil)  <br />   (command "layer" "m" "FLOOR" "c" "124" "" "lt" "CONTINUOUS" "" ""));           楼<br /> <br /> 板<br />   <br /> (if (= (tblsearch "layer" "FLOOR_DOWN_REIN") nil)  <br /> (command "layer" "m" "FLOOR_DOWN_REIN" "c" "15" "" "lt" "CONTINUOUS" "" ""));  楼板<br /> <br /> 正筋<br />   <br /> (if (= (tblsearch "layer" "FLOOR_DOWN_DIM") nil)  <br /> (command "layer" "m" "FLOOR_DOWN_DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));    楼板<br /> <br /> 正筋标注<br /> <br /> (if (= (tblsearch "layer" "FLOOR_DOWN_NUM") nil)  <br /> (command "layer" "m" "FLOOR_DOWN_NUM" "c" "2" "" "lt" "CONTINUOUS" "" ""));    楼板<br /> <br /> 正筋文字<br /> <br /> (if (= (tblsearch "layer" "FLOOR_UP_REIN") nil)  <br />   (command "layer" "m" "FLOOR_UP_REIN" "c" "1" "" "lt" "CONTINUOUS" "" ""));     楼<br /> <br /> 板负筋<br /> <br /> (if (= (tblsearch "layer" "FLOOR_UP_DIM") nil)  <br /> (command "layer" "m" "FLOOR_UP_DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));      楼板<br /> <br /> 负筋标注<br />   <br /> (if (= (tblsearch "layer" "FLOOR_UP_NUM") nil) <br /> (command "layer" "m" "FLOOR_UP_NUM" "c" "100" "" "lt" "CONTINUOUS" "" ""));    楼板<br /> <br /> 负筋文字<br /> <br /> <br />   ;(command "layer" "m" "HOLE" "c" "190" "" "lt" "CONTINUOUS" "" "");            洞<br /> <br /> 口<br />   ;(command "layer" "m" "HOLE_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          洞<br /> <br /> 口标注<br />   ;(command "layer" "m" "HOLE_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          洞<br /> <br /> 口编号<br />   ;(command "layer" "m" "HOLE_HATCH" "c" "9" "" "lt" "CONTINUOUS" "" "");        洞<br /> <br /> 口填充<br /> <br /> (if (= (tblsearch "layer" "BASE") nil) <br />   (command "layer" "m" "BASE" "c" "4" "" "lt" "CONTINUOUS" "" ""));              基<br /> <br /> 础<br />   <br /> (if (= (tblsearch "layer" "BASE_DIM") nil)<br /> (command "layer" "m" "BASE_DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));          基础<br /> <br /> 标注<br />   <br /> (if (= (tblsearch "layer" "BASE_NUM") nil)<br /> (command "layer" "m" "BASE_NUM" "c" "2" "" "lt" "CONTINUOUS" "" ""));          基础<br /> <br /> 编号<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 /> <br /> <br />   ;(command "layer" "m" "STEEL" "c" "60" "" "lt" "CONTINUOUS" "" "");            钢<br /> <br /> 结构实线<br />   ;(command "layer" "m" "STEEL_DASH" "c" "60" "" "lt" "DASHED" "" "");             <br /> <br /> 钢结构虚线<br /> <br />   ;(command "layer" "m" "BOLT" "c" "6" "" "lt" "CONTINUOUS" "" "");              螺<br /> <br /> 栓<br />   ;(command "layer" "m" "BOLT_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          螺<br /> <br /> 栓标注<br />   ;(command "layer" "m" "BOLT_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          螺<br /> <br /> 栓编号<br /> <br />   ;(command "layer" "m" "WELD" "c" "40" "" "lt" "CONTINUOUS" "" "");             焊<br /> <br /> 缝<br />   ;(command "layer" "m" "WELD_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          焊<br /> <br /> 缝标注<br />   ;(command "layer" "m" "WELD_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          焊<br /> <br /> 缝文字<br /> <br />   ;(command "layer" "m" "BURY" "c" "140" "" "lt" "CONTINUOUS" "" "");            预<br /> <br /> 埋件<br />   ;(command "layer" "m" "BURY_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          预<br /> <br /> 埋件标注<br />   ;(command "layer" "m" "BURY_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          预<br /> <br /> 埋件编号<br /> <br />   ;(command "layer" "m" "TAB" "c" "7" "" "lt" "CONTINUOUS" "" "");               表<br /> <br /> 格线<br />   ;(command "layer" "m" "TAB_TEXT" "c" "2" "" "lt" "CONTINUOUS" "" "");          表<br /> <br /> 格文字<br /> <br /> (if (= (tblsearch "layer" "REIN") nil)<br />   (command "layer" "m" "REIN" "c" "1" "" "lt" "CONTINUOUS" "" ""));              钢<br /> <br /> 筋<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 /> <br /> 线<br />   ;(command "layer" "m" "THIN" "c" "7" "" "lt" "CONTINUOUS" "" "");              细<br /> <br /> 线<br /> <br />   ;(command "layer" "m" "EDGE" "c" "100" "" "lt" "CONTINUOUS" "" "");            轮<br /> <br /> 廓线<br />   ;(command "layer" "m" "NOTE" "c" "100" "" "lt" "CONTINUOUS" "" "");            文<br /> <br /> 字说明<br />   ;(command "layer" "m" "HATCH2" "c" "254" "" "lt" "CONTINUOUS" "" "");          图<br /> <br /> 例填充<br /> <br /> (if (= (tblsearch "layer" "st") nil)  <br /> (command "layer" "m" "st" "c" "6" "" "lt" "CONTINUOUS" "" "p" "n" "" "")); 修改、修<br /> <br /> 订（不打印）<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 /> ;  (command "style" "STANDARD" "tssdeng,hztxt" "0" "0.7" "0" "" "" ""); <br /> ;  (command "style" "TSSD_Rein" "tssdeng,hztxt" "0" "0.7" "0" "" "" "");      建立 <br /> <br /> TSSD 字体<br /> <br /> ;|(defun wz_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 />   (princ)<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 /> <br /> <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 /> (command "layer" "m" "DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));if<br /> ;;;这部分主程序<br />    (setq s2 (ssget "X" '((-4 . "<or")(0 . "leader")(0 . "dimension")(0 . <br /> <br /> "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 "\n标注已置于“DIM层”")<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，修改<br /> <br /> 比例请输入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 />     )<br />   )<br />   (command "_.DIMSTYLE" "_SAVE" "TSSD_100_100" "y" "")<br />   ;(setvar "cmdecho" cm)<br />   (princ)<br />   (csh_dimdayang)<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 /> <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 /> <br /> ;    (command "units" "2" "2" "" "" "" "")<br /> <br /> ;    (command "chamfera" "0"); 将chamfer命令的第一点D值设为0<br /> ;    (command "chamferb" "0"); 将chamfer命令的第二点D值设为0<br /> ;    (command "filletrad" "0"); 将fillet命令的半径R值设为0<br /> <br /> (csh_sty)<br /> (csh_bzgc)<br /> (csh_ccbz)<br /> (princ "\n***绘图环境初始化完成 2014/08/07 **** 命令: csh ***")<br />     (princ)<br /> ); csh.lsp命令结束   <br />     (princ) <br /> <br /> <br /> (defun c:d10 ()(command "-DIMSTYLE" "R" "TSSD_10_100")(princ "\n当前标注样<br /> <br /> 式:TSSD_10_100")(princ))<br /> (defun c:d20 ()(command "-DIMSTYLE" "R" "TSSD_20_100")(princ "\n当前标注样<br /> <br /> 式:TSSD_20_100")(princ))<br /> (defun c:d25 ()(command "-DIMSTYLE" "R" "TSSD_25_100")(princ "\n当前标注样<br /> <br /> 式:TSSD_25_100")(princ))<br /> (defun c:d50 ()(command "-DIMSTYLE" "R" "TSSD_50_100")(princ "\n当前标注样<br /> <br /> 式:TSSD_50_100")(princ))<br /> (defun c:d100 ()(command "-DIMSTYLE" "R" "TSSD_100_100")(princ "\n当前标注样<br /> <br /> 式:TSSD_100_100")(princ))<br />

edata

641行 添加

1. (csh_lay)

(csh_lay)

edata

1. (setenv "DefaultFormatForSave" "24") ;设置默认保存格式2004 24的16进制=0x18 格式2000 12的16进制=0x0C 格式R12 1的16进制=01

(setenv "DefaultFormatForSave" "24") ;设置默认保存格式2004 24的16进制=0x18 格式2000 12的16进制=0x0C 格式R12 1的16进制=01

wjnnan

edata 发表于 2014-8-8 10:17

太感谢了，以后就能省不少事了