天正对象Lisp函数-散水

brainstorm

1. ;;说明:
   
2. ;;参数:o:
   
3. ;;返回:
   
4. (defun Zgx:GetTchApron:CloseFlag(o)
   
5.   (or
   
6.     (eq (type o)'VLA-OBJECT)
   
7.     (setq o(vlax-ename->vla-object o))  
   
8.   )
   
9.   (vlax-get-property o 'CloseFlag)
   
10. )
    
11. 
    
12. ;;说明:
    
13. ;;参数:o:
    
14. ;;返回:
    
15. (defun Zgx:SetTchApron:CloseFlag(o value)
    
16.   (or
    
17.     (eq (type o)'VLA-OBJECT)
    
18.     (setq o(vlax-ename->vla-object o))  
    
19.   )
    
20.   (vlax-put-property o 'CloseFlag value)
    
21. )
    
22. 
    
23. ;;说明:
    
24. ;;参数:o:
    
25. ;;返回:
    
26. (defun Zgx:GetTchApron:Dists(o)
    
27.   (or
    
28.     (eq (type o)'VLA-OBJECT)
    
29.     (setq o(vlax-ename->vla-object o))  
    
30.   )
    
31.   (vlax-get-property o 'Dists)
    
32. )
    
33. 
    
34. ;;说明:
    
35. ;;参数:o:
    
36. ;;返回:
    
37. (defun Zgx:SetTchApron:Dists(o value)
    
38.   (or
    
39.     (eq (type o)'VLA-OBJECT)
    
40.     (setq o(vlax-ename->vla-object o))  
    
41.   )
    
42.   (vlax-put-property o 'Dists value)
    
43. )
    
44. 
    
45. ;;说明:
    
46. ;;参数:o:
    
47. ;;返回:
    
48. (defun Zgx:GetTchApron:Document(o)
    
49.   (or
    
50.     (eq (type o)'VLA-OBJECT)
    
51.     (setq o(vlax-ename->vla-object o))  
    
52.   )
    
53.   (vlax-get-property o 'Document)
    
54. )
    
55. 
    
56. 
    
57. ;;说明:
    
58. ;;参数:o:
    
59. ;;返回:
    
60. (defun Zgx:GetTchApron:Elev(o)
    
61.   (or
    
62.     (eq (type o)'VLA-OBJECT)
    
63.     (setq o(vlax-ename->vla-object o))  
    
64.   )
    
65.   (vlax-get-property o 'Elev)
    
66. )
    
67. 
    
68. ;;说明:
    
69. ;;参数:o:
    
70. ;;返回:
    
71. (defun Zgx:SetTchApron:Elev(o value)
    
72.   (or
    
73.     (eq (type o)'VLA-OBJECT)
    
74.     (setq o(vlax-ename->vla-object o))  
    
75.   )
    
76.   (vlax-put-property o 'Elev value)
    
77. )
    
78. 
    
79. ;;说明:
    
80. ;;参数:o:
    
81. ;;返回:
    
82. (defun Zgx:GetTchApron:EntityTransparency(o)
    
83.   (or
    
84.     (eq (type o)'VLA-OBJECT)
    
85.     (setq o(vlax-ename->vla-object o))  
    
86.   )
    
87.   (vlax-get-property o 'EntityTransparency)
    
88. )
    
89. 
    
90. ;;说明:
    
91. ;;参数:o:
    
92. ;;返回:
    
93. (defun Zgx:SetTchApron:EntityTransparency(o value)
    
94.   (or
    
95.     (eq (type o)'VLA-OBJECT)
    
96.     (setq o(vlax-ename->vla-object o))  
    
97.   )
    
98.   (vlax-put-property o 'EntityTransparency value)
    
99. )
    
100. 
     
101. ;;说明:
     
102. ;;参数:o:
     
103. ;;返回:
     
104. (defun Zgx:GetTchApron:Handle(o)
     
105.   (or
     
106.     (eq (type o)'VLA-OBJECT)
     
107.     (setq o(vlax-ename->vla-object o))  
     
108.   )
     
109.   (vlax-get-property o 'Handle)
     
110. )
     
111. 
     
112. 
     
113. ;;说明:
     
114. ;;参数:o:
     
115. ;;返回:
     
116. (defun Zgx:GetTchApron:HasExtensionDictionary(o)
     
117.   (or
     
118.     (eq (type o)'VLA-OBJECT)
     
119.     (setq o(vlax-ename->vla-object o))  
     
120.   )
     
121.   (vlax-get-property o 'HasExtensionDictionary)
     
122. )
     
123. 
     
124. 
     
125. ;;说明:
     
126. ;;参数:o:
     
127. ;;返回:
     
128. (defun Zgx:GetTchApron:Hyperlinks(o)
     
129.   (or
     
130.     (eq (type o)'VLA-OBJECT)
     
131.     (setq o(vlax-ename->vla-object o))  
     
132.   )
     
133.   (vlax-get-property o 'Hyperlinks)
     
134. )
     
135. 
     
136. 
     
137. ;;说明:
     
138. ;;参数:o:
     
139. ;;返回:
     
140. (defun Zgx:GetTchApron:InHeight(o)
     
141.   (or
     
142.     (eq (type o)'VLA-OBJECT)
     
143.     (setq o(vlax-ename->vla-object o))  
     
144.   )
     
145.   (vlax-get-property o 'InHeight)
     
146. )
     
147. 
     
148. ;;说明:
     
149. ;;参数:o:
     
150. ;;返回:
     
151. (defun Zgx:SetTchApron:InHeight(o value)
     
152.   (or
     
153.     (eq (type o)'VLA-OBJECT)
     
154.     (setq o(vlax-ename->vla-object o))  
     
155.   )
     
156.   (vlax-put-property o 'InHeight value)
     
157. )
     
158. 
     
159. ;;说明:
     
160. ;;参数:o:
     
161. ;;返回:
     
162. (defun Zgx:GetTchApronayer(o)
     
163.   (or
     
164.     (eq (type o)'VLA-OBJECT)
     
165.     (setq o(vlax-ename->vla-object o))  
     
166.   )
     
167.   (vlax-get-property o 'Layer)
     
168. )
     
169. 
     
170. 
     
171. ;;说明:
     
172. ;;参数:o:
     
173. ;;返回:
     
174. (defun Zgx:GetTchApronayoutRotation(o)
     
175.   (or
     
176.     (eq (type o)'VLA-OBJECT)
     
177.     (setq o(vlax-ename->vla-object o))  
     
178.   )
     
179.   (vlax-get-property o 'LayoutRotation)
     
180. )
     
181. 
     
182. ;;说明:
     
183. ;;参数:o:
     
184. ;;返回:
     
185. (defun Zgx:SetTchApronayoutRotation(o value)
     
186.   (or
     
187.     (eq (type o)'VLA-OBJECT)
     
188.     (setq o(vlax-ename->vla-object o))  
     
189.   )
     
190.   (vlax-put-property o 'LayoutRotation value)
     
191. )
     
192. 
     
193. ;;说明:
     
194. ;;参数:o:
     
195. ;;返回:
     
196. (defun Zgx:GetTchAproninetype(o)
     
197.   (or
     
198.     (eq (type o)'VLA-OBJECT)
     
199.     (setq o(vlax-ename->vla-object o))  
     
200.   )
     
201.   (vlax-get-property o 'Linetype)
     
202. )
     
203. 
     
204. ;;说明:
     
205. ;;参数:o:
     
206. ;;返回:
     
207. (defun Zgx:SetTchAproninetype(o value)
     
208.   (or
     
209.     (eq (type o)'VLA-OBJECT)
     
210.     (setq o(vlax-ename->vla-object o))  
     
211.   )
     
212.   (vlax-put-property o 'Linetype value)
     
213. )
     
214. 
     
215. ;;说明:
     
216. ;;参数:o:
     
217. ;;返回:
     
218. (defun Zgx:GetTchAproninetypeScale(o)
     
219.   (or
     
220.     (eq (type o)'VLA-OBJECT)
     
221.     (setq o(vlax-ename->vla-object o))  
     
222.   )
     
223.   (vlax-get-property o 'LinetypeScale)
     
224. )
     
225. 
     
226. ;;说明:
     
227. ;;参数:o:
     
228. ;;返回:
     
229. (defun Zgx:SetTchAproninetypeScale(o value)
     
230.   (or
     
231.     (eq (type o)'VLA-OBJECT)
     
232.     (setq o(vlax-ename->vla-object o))  
     
233.   )
     
234.   (vlax-put-property o 'LinetypeScale value)
     
235. )
     
236. 
     
237. ;;说明:
     
238. ;;参数:o:
     
239. ;;返回:
     
240. (defun Zgx:GetTchApronineweight(o)
     
241.   (or
     
242.     (eq (type o)'VLA-OBJECT)
     
243.     (setq o(vlax-ename->vla-object o))  
     
244.   )
     
245.   (vlax-get-property o 'Lineweight)
     
246. )
     
247. 
     
248. ;;说明:
     
249. ;;参数:o:
     
250. ;;返回:
     
251. (defun Zgx:SetTchApronineweight(o value)
     
252.   (or
     
253.     (eq (type o)'VLA-OBJECT)
     
254.     (setq o(vlax-ename->vla-object o))  
     
255.   )
     
256.   (vlax-put-property o 'Lineweight value)
     
257. )
     
258. 
     
259. ;;说明:
     
260. ;;参数:o:
     
261. ;;返回:
     
262. (defun Zgx:GetTchApron:Material(o)
     
263.   (or
     
264.     (eq (type o)'VLA-OBJECT)
     
265.     (setq o(vlax-ename->vla-object o))  
     
266.   )
     
267.   (vlax-get-property o 'Material)
     
268. )
     
269. 
     
270. ;;说明:
     
271. ;;参数:o:
     
272. ;;返回:
     
273. (defun Zgx:SetTchApron:Material(o value)
     
274.   (or
     
275.     (eq (type o)'VLA-OBJECT)
     
276.     (setq o(vlax-ename->vla-object o))  
     
277.   )
     
278.   (vlax-put-property o 'Material value)
     
279. )
     
280. 
     
281. ;;说明:
     
282. ;;参数:o:
     
283. ;;返回:
     
284. (defun Zgx:GetTchApron:ObjectID(o)
     
285.   (or
     
286.     (eq (type o)'VLA-OBJECT)
     
287.     (setq o(vlax-ename->vla-object o))  
     
288.   )
     
289.   (vlax-get-property o 'ObjectID)
     
290. )
     
291. 
     
292. 
     
293. ;;说明:
     
294. ;;参数:o:
     
295. ;;返回:
     
296. (defun Zgx:GetTchApron:ObjectID32(o)
     
297.   (or
     
298.     (eq (type o)'VLA-OBJECT)
     
299.     (setq o(vlax-ename->vla-object o))  
     
300.   )
     
301.   (vlax-get-property o 'ObjectID32)
     
302. )
     
303. 
     
304. 
     
305. ;;说明:
     
306. ;;参数:o:
     
307. ;;返回:
     
308. (defun Zgx:GetTchApron:ObjectName(o)
     
309.   (or
     
310.     (eq (type o)'VLA-OBJECT)
     
311.     (setq o(vlax-ename->vla-object o))  
     
312.   )
     
313.   (vlax-get-property o 'ObjectName)
     
314. )
     
315. 
     
316. 
     
317. ;;说明:
     
318. ;;参数:o:
     
319. ;;返回:
     
320. (defun Zgx:GetTchApron:OutHeight(o)
     
321.   (or
     
322.     (eq (type o)'VLA-OBJECT)
     
323.     (setq o(vlax-ename->vla-object o))  
     
324.   )
     
325.   (vlax-get-property o 'OutHeight)
     
326. )
     
327. 
     
328. ;;说明:
     
329. ;;参数:o:
     
330. ;;返回:
     
331. (defun Zgx:SetTchApron:OutHeight(o value)
     
332.   (or
     
333.     (eq (type o)'VLA-OBJECT)
     
334.     (setq o(vlax-ename->vla-object o))  
     
335.   )
     
336.   (vlax-put-property o 'OutHeight value)
     
337. )
     
338. 
     
339. ;;说明:
     
340. ;;参数:o:
     
341. ;;返回:
     
342. (defun Zgx:GetTchApron:OwnerID(o)
     
343.   (or
     
344.     (eq (type o)'VLA-OBJECT)
     
345.     (setq o(vlax-ename->vla-object o))  
     
346.   )
     
347.   (vlax-get-property o 'OwnerID)
     
348. )
     
349. 
     
350. 
     
351. ;;说明:
     
352. ;;参数:o:
     
353. ;;返回:
     
354. (defun Zgx:GetTchApron:OwnerID32(o)
     
355.   (or
     
356.     (eq (type o)'VLA-OBJECT)
     
357.     (setq o(vlax-ename->vla-object o))  
     
358.   )
     
359.   (vlax-get-property o 'OwnerID32)
     
360. )
     
361. 
     
362. 
     
363. ;;说明:
     
364. ;;参数:o:
     
365. ;;返回:
     
366. (defun Zgx:GetTchApron:PathLength(o)
     
367.   (or
     
368.     (eq (type o)'VLA-OBJECT)
     
369.     (setq o(vlax-ename->vla-object o))  
     
370.   )
     
371.   (vlax-get-property o 'PathLength)
     
372. )
     
373. 
     
374. 
     
375. ;;说明:
     
376. ;;参数:o:
     
377. ;;返回:
     
378. (defun Zgx:GetTchApron:PlotStyleName(o)
     
379.   (or
     
380.     (eq (type o)'VLA-OBJECT)
     
381.     (setq o(vlax-ename->vla-object o))  
     
382.   )
     
383.   (vlax-get-property o 'PlotStyleName)
     
384. )
     
385. 
     
386. ;;说明:
     
387. ;;参数:o:
     
388. ;;返回:
     
389. (defun Zgx:SetTchApron:PlotStyleName(o value)
     
390.   (or
     
391.     (eq (type o)'VLA-OBJECT)
     
392.     (setq o(vlax-ename->vla-object o))  
     
393.   )
     
394.   (vlax-put-property o 'PlotStyleName value)
     
395. )
     
396. 
     
397. ;;说明:
     
398. ;;参数:o:
     
399. ;;返回:
     
400. (defun Zgx:GetTchApron:Scale(o)
     
401.   (or
     
402.     (eq (type o)'VLA-OBJECT)
     
403.     (setq o(vlax-ename->vla-object o))  
     
404.   )
     
405.   (vlax-get-property o 'Scale)
     
406. )
     
407. 
     
408. ;;说明:
     
409. ;;参数:o:
     
410. ;;返回:
     
411. (defun Zgx:SetTchApron:Scale(o value)
     
412.   (or
     
413.     (eq (type o)'VLA-OBJECT)
     
414.     (setq o(vlax-ename->vla-object o))  
     
415.   )
     
416.   (vlax-put-property o 'Scale value)
     
417. )
     
418. 
     
419. ;;说明:
     
420. ;;参数:o:
     
421. ;;返回:
     
422. (defun Zgx:GetTchApron:SideArea(o)
     
423.   (or
     
424.     (eq (type o)'VLA-OBJECT)
     
425.     (setq o(vlax-ename->vla-object o))  
     
426.   )
     
427.   (vlax-get-property o 'SideArea)
     
428. )
     
429. 
     
430. 
     
431. ;;说明:
     
432. ;;参数:o:
     
433. ;;返回:
     
434. (defun Zgx:GetTchApron:TrueColor(o)
     
435.   (or
     
436.     (eq (type o)'VLA-OBJECT)
     
437.     (setq o(vlax-ename->vla-object o))  
     
438.   )
     
439.   (vlax-get-property o 'TrueColor)
     
440. )
     
441. 
     
442. ;;说明:
     
443. ;;参数:o:
     
444. ;;返回:
     
445. (defun Zgx:SetTchApron:TrueColor(o value)
     
446.   (or
     
447.     (eq (type o)'VLA-OBJECT)
     
448.     (setq o(vlax-ename->vla-object o))  
     
449.   )
     
450.   (vlax-put-property o 'TrueColor value)
     
451. )
     
452. 
     
453. ;;说明:
     
454. ;;参数:o:
     
455. ;;返回:
     
456. (defun Zgx:GetTchApron:Vertex(o)
     
457.   (or
     
458.     (eq (type o)'VLA-OBJECT)
     
459.     (setq o(vlax-ename->vla-object o))  
     
460.   )
     
461.   (vlax-get-property o 'Vertex)
     
462. )
     
463. 
     
464. ;;说明:
     
465. ;;参数:o:
     
466. ;;返回:
     
467. (defun Zgx:SetTchApron:Vertex(o value)
     
468.   (or
     
469.     (eq (type o)'VLA-OBJECT)
     
470.     (setq o(vlax-ename->vla-object o))  
     
471.   )
     
472.   (vlax-put-property o 'Vertex value)
     
473. )
     
474. 
     
475. ;;说明:
     
476. ;;参数:o:
     
477. ;;返回:
     
478. (defun Zgx:GetTchApron:Visible(o)
     
479.   (or
     
480.     (eq (type o)'VLA-OBJECT)
     
481.     (setq o(vlax-ename->vla-object o))  
     
482.   )
     
483.   (vlax-get-property o 'Visible)
     
484. )
     
485. 
     
486. ;;说明:
     
487. ;;参数:o:
     
488. ;;返回:
     
489. (defun Zgx:SetTchApron:Visible(o value)
     
490.   (or
     
491.     (eq (type o)'VLA-OBJECT)
     
492.     (setq o(vlax-ename->vla-object o))  
     
493.   )
     
494.   (vlax-put-property o 'Visible value)
     
495. )
     
496. 
     

;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:CloseFlag(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'CloseFlag)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchApron:CloseFlag(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'CloseFlag value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:Dists(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Dists)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchApron:Dists(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Dists value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:Document(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Document)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:Elev(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Elev)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchApron:Elev(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Elev value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:EntityTransparency(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'EntityTransparency)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchApron:EntityTransparency(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'EntityTransparency value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:Handle(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Handle)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:HasExtensionDictionary(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'HasExtensionDictionary)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:Hyperlinks(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Hyperlinks)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:InHeight(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'InHeight)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchApron:InHeight(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'InHeight value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />ayer(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Layer)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />ayoutRotation(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'LayoutRotation)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchApron<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />ayoutRotation(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'LayoutRotation value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />inetype(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Linetype)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchApron<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />inetype(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Linetype value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />inetypeScale(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'LinetypeScale)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchApron<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />inetypeScale(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'LinetypeScale value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />ineweight(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Lineweight)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchApron<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />ineweight(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Lineweight value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:Material(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Material)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchApron:Material(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Material value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:ObjectID(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'ObjectID)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:ObjectID32(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'ObjectID32)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:ObjectName(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'ObjectName)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:OutHeight(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'OutHeight)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchApron:OutHeight(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'OutHeight value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:OwnerID(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'OwnerID)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:OwnerID32(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'OwnerID32)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:PathLength(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'PathLength)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:PlotStyleName(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'PlotStyleName)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchApron:PlotStyleName(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'PlotStyleName value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:Scale(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Scale)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchApron:Scale(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Scale value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:SideArea(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'SideArea)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:TrueColor(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'TrueColor)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchApron:TrueColor(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'TrueColor value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:Vertex(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Vertex)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchApron:Vertex(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Vertex value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchApron:Visible(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Visible)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchApron:Visible(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Visible value)<br /> )<br /> <br />

lxl217114

原码大放送，点赞收藏