天正li对象sp函数

brainstorm

天正门窗lisp函数

1. ;;说明:
   
2. ;;参数:o:
   
3. ;;返回:
   
4. (defun Zgx:GetTchOpening:AreaRatio(o)
   
5.   (or
   
6.     (eq (type o)'VLA-OBJECT)
   
7.     (setq o(vlax-ename->vla-object o))  
   
8.   )
   
9.   (vlax-get-property o 'AreaRatio)
   
10. )
    
11. 
    
12. ;;说明:
    
13. ;;参数:o:
    
14. ;;返回:
    
15. (defun Zgx:SetTchOpening:AreaRatio(o value)
    
16.   (or
    
17.     (eq (type o)'VLA-OBJECT)
    
18.     (setq o(vlax-ename->vla-object o))  
    
19.   )
    
20.   (vlax-put-property o 'AreaRatio value)
    
21. )
    
22. 
    
23. ;;说明:
    
24. ;;参数:o:
    
25. ;;返回:
    
26. (defun Zgx:GetTchOpening:BayThick(o)
    
27.   (or
    
28.     (eq (type o)'VLA-OBJECT)
    
29.     (setq o(vlax-ename->vla-object o))  
    
30.   )
    
31.   (vlax-get-property o 'BayThick)
    
32. )
    
33. 
    
34. ;;说明:
    
35. ;;参数:o:
    
36. ;;返回:
    
37. (defun Zgx:SetTchOpening:BayThick(o value)
    
38.   (or
    
39.     (eq (type o)'VLA-OBJECT)
    
40.     (setq o(vlax-ename->vla-object o))  
    
41.   )
    
42.   (vlax-put-property o 'BayThick value)
    
43. )
    
44. 
    
45. ;;说明:
    
46. ;;参数:o:
    
47. ;;返回:
    
48. (defun Zgx:GetTchOpening:color(o)
    
49.   (or
    
50.     (eq (type o)'VLA-OBJECT)
    
51.     (setq o(vlax-ename->vla-object o))  
    
52.   )
    
53.   (vlax-get-property o 'color)
    
54. )
    
55. 
    
56. ;;说明:
    
57. ;;参数:o:
    
58. ;;返回:
    
59. (defun Zgx:SetTchOpening:color(o value)
    
60.   (or
    
61.     (eq (type o)'VLA-OBJECT)
    
62.     (setq o(vlax-ename->vla-object o))  
    
63.   )
    
64.   (vlax-put-property o 'color value)
    
65. )
    
66. 
    
67. ;;说明:
    
68. ;;参数:o:
    
69. ;;返回:
    
70. (defun Zgx:GetTchOpening:Conductivity(o)
    
71.   (or
    
72.     (eq (type o)'VLA-OBJECT)
    
73.     (setq o(vlax-ename->vla-object o))  
    
74.   )
    
75.   (vlax-get-property o 'Conductivity)
    
76. )
    
77. 
    
78. ;;说明:
    
79. ;;参数:o:
    
80. ;;返回:
    
81. (defun Zgx:SetTchOpening:Conductivity(o value)
    
82.   (or
    
83.     (eq (type o)'VLA-OBJECT)
    
84.     (setq o(vlax-ename->vla-object o))  
    
85.   )
    
86.   (vlax-put-property o 'Conductivity value)
    
87. )
    
88. 
    
89. ;;说明:
    
90. ;;参数:o:
    
91. ;;返回:
    
92. (defun Zgx:GetTchOpening:DoorLine(o)
    
93.   (or
    
94.     (eq (type o)'VLA-OBJECT)
    
95.     (setq o(vlax-ename->vla-object o))  
    
96.   )
    
97.   (vlax-get-property o 'DoorLine)
    
98. )
    
99. 
    
100. ;;说明:
     
101. ;;参数:o:
     
102. ;;返回:
     
103. (defun Zgx:SetTchOpening:DoorLine(o value)
     
104.   (or
     
105.     (eq (type o)'VLA-OBJECT)
     
106.     (setq o(vlax-ename->vla-object o))  
     
107.   )
     
108.   (vlax-put-property o 'DoorLine value)
     
109. )
     
110. 
     
111. ;;说明:
     
112. ;;参数:o:
     
113. ;;返回:
     
114. (defun Zgx:GetTchOpening:DoorSill(o)
     
115.   (or
     
116.     (eq (type o)'VLA-OBJECT)
     
117.     (setq o(vlax-ename->vla-object o))  
     
118.   )
     
119.   (vlax-get-property o 'DoorSill)
     
120. )
     
121. 
     
122. ;;说明:
     
123. ;;参数:o:
     
124. ;;返回:
     
125. (defun Zgx:SetTchOpening:DoorSill(o value)
     
126.   (or
     
127.     (eq (type o)'VLA-OBJECT)
     
128.     (setq o(vlax-ename->vla-object o))  
     
129.   )
     
130.   (vlax-put-property o 'DoorSill value)
     
131. )
     
132. 
     
133. ;;说明:
     
134. ;;参数:o:
     
135. ;;返回:
     
136. (defun Zgx:GetTchOpening:EntityName(o)
     
137.   (or
     
138.     (eq (type o)'VLA-OBJECT)
     
139.     (setq o(vlax-ename->vla-object o))  
     
140.   )
     
141.   (vlax-get-property o 'EntityName)
     
142. )
     
143. 
     
144. ;;说明:
     
145. ;;参数:o:
     
146. ;;返回:
     
147. (defun Zgx:SetTchOpening:EntityName(o value)
     
148.   (or
     
149.     (eq (type o)'VLA-OBJECT)
     
150.     (setq o(vlax-ename->vla-object o))  
     
151.   )
     
152.   (vlax-put-property o 'EntityName value)
     
153. )
     
154. 
     
155. ;;说明:
     
156. ;;参数:o:
     
157. ;;返回:
     
158. (defun Zgx:GetTchOpening:EntityTransparency(o)
     
159.   (or
     
160.     (eq (type o)'VLA-OBJECT)
     
161.     (setq o(vlax-ename->vla-object o))  
     
162.   )
     
163.   (vlax-get-property o 'EntityTransparency)
     
164. )
     
165. 
     
166. ;;说明:
     
167. ;;参数:o:
     
168. ;;返回:
     
169. (defun Zgx:SetTchOpening:EntityTransparency(o value)
     
170.   (or
     
171.     (eq (type o)'VLA-OBJECT)
     
172.     (setq o(vlax-ename->vla-object o))  
     
173.   )
     
174.   (vlax-put-property o 'EntityTransparency value)
     
175. )
     
176. 
     
177. ;;说明:
     
178. ;;参数:o:
     
179. ;;返回:
     
180. (defun Zgx:GetTchOpening:ExtShading(o)
     
181.   (or
     
182.     (eq (type o)'VLA-OBJECT)
     
183.     (setq o(vlax-ename->vla-object o))  
     
184.   )
     
185.   (vlax-get-property o 'ExtShading)
     
186. )
     
187. 
     
188. ;;说明:
     
189. ;;参数:o:
     
190. ;;返回:
     
191. (defun Zgx:SetTchOpening:ExtShading(o value)
     
192.   (or
     
193.     (eq (type o)'VLA-OBJECT)
     
194.     (setq o(vlax-ename->vla-object o))  
     
195.   )
     
196.   (vlax-put-property o 'ExtShading value)
     
197. )
     
198. 
     
199. ;;说明:
     
200. ;;参数:o:
     
201. ;;返回:
     
202. (defun Zgx:GetTchOpening:FrameLayer(o)
     
203.   (or
     
204.     (eq (type o)'VLA-OBJECT)
     
205.     (setq o(vlax-ename->vla-object o))  
     
206.   )
     
207.   (vlax-get-property o 'FrameLayer)
     
208. )
     
209. 
     
210. ;;说明:
     
211. ;;参数:o:
     
212. ;;返回:
     
213. (defun Zgx:SetTchOpening:FrameLayer(o value)
     
214.   (or
     
215.     (eq (type o)'VLA-OBJECT)
     
216.     (setq o(vlax-ename->vla-object o))  
     
217.   )
     
218.   (vlax-put-property o 'FrameLayer value)
     
219. )
     
220. 
     
221. ;;说明:
     
222. ;;参数:o:
     
223. ;;返回:
     
224. (defun Zgx:GetTchOpening:GetKind(o)
     
225.   (or
     
226.     (eq (type o)'VLA-OBJECT)
     
227.     (setq o(vlax-ename->vla-object o))  
     
228.   )
     
229.   (vlax-get-property o 'GetKind)
     
230. )
     
231. 
     
232. ;;说明:
     
233. ;;参数:o:
     
234. ;;返回:
     
235. (defun Zgx:SetTchOpening:GetKind(o value)
     
236.   (or
     
237.     (eq (type o)'VLA-OBJECT)
     
238.     (setq o(vlax-ename->vla-object o))  
     
239.   )
     
240.   (vlax-put-property o 'GetKind value)
     
241. )
     
242. 
     
243. ;;说明:
     
244. ;;参数:o:
     
245. ;;返回:
     
246. (defun Zgx:GetTchOpening:GetSubKind(o)
     
247.   (or
     
248.     (eq (type o)'VLA-OBJECT)
     
249.     (setq o(vlax-ename->vla-object o))  
     
250.   )
     
251.   (vlax-get-property o 'GetSubKind)
     
252. )
     
253. 
     
254. ;;说明:
     
255. ;;参数:o:
     
256. ;;返回:
     
257. (defun Zgx:SetTchOpening:GetSubKind(o value)
     
258.   (or
     
259.     (eq (type o)'VLA-OBJECT)
     
260.     (setq o(vlax-ename->vla-object o))  
     
261.   )
     
262.   (vlax-put-property o 'GetSubKind value)
     
263. )
     
264. 
     
265. ;;说明:
     
266. ;;参数:o:
     
267. ;;返回:
     
268. (defun Zgx:GetTchOpening:GlassLayer(o)
     
269.   (or
     
270.     (eq (type o)'VLA-OBJECT)
     
271.     (setq o(vlax-ename->vla-object o))  
     
272.   )
     
273.   (vlax-get-property o 'GlassLayer)
     
274. )
     
275. 
     
276. ;;说明:
     
277. ;;参数:o:
     
278. ;;返回:
     
279. (defun Zgx:SetTchOpening:GlassLayer(o value)
     
280.   (or
     
281.     (eq (type o)'VLA-OBJECT)
     
282.     (setq o(vlax-ename->vla-object o))  
     
283.   )
     
284.   (vlax-put-property o 'GlassLayer value)
     
285. )
     
286. 
     
287. ;;说明:
     
288. ;;参数:o:
     
289. ;;返回:
     
290. (defun Zgx:GetTchOpening:Handle(o)
     
291.   (or
     
292.     (eq (type o)'VLA-OBJECT)
     
293.     (setq o(vlax-ename->vla-object o))  
     
294.   )
     
295.   (vlax-get-property o 'Handle)
     
296. )
     
297. 
     
298. ;;说明:
     
299. ;;参数:o:
     
300. ;;返回:
     
301. (defun Zgx:SetTchOpening:Handle(o value)
     
302.   (or
     
303.     (eq (type o)'VLA-OBJECT)
     
304.     (setq o(vlax-ename->vla-object o))  
     
305.   )
     
306.   (vlax-put-property o 'Handle value)
     
307. )
     
308. 
     
309. ;;说明:
     
310. ;;参数:o:
     
311. ;;返回:
     
312. (defun Zgx:GetTchOpening:HasExtensionDictionary(o)
     
313.   (or
     
314.     (eq (type o)'VLA-OBJECT)
     
315.     (setq o(vlax-ename->vla-object o))  
     
316.   )
     
317.   (vlax-get-property o 'HasExtensionDictionary)
     
318. )
     
319. 
     
320. ;;说明:
     
321. ;;参数:o:
     
322. ;;返回:
     
323. (defun Zgx:SetTchOpening:HasExtensionDictionary(o value)
     
324.   (or
     
325.     (eq (type o)'VLA-OBJECT)
     
326.     (setq o(vlax-ename->vla-object o))  
     
327.   )
     
328.   (vlax-put-property o 'HasExtensionDictionary value)
     
329. )
     
330. 
     
331. ;;说明:
     
332. ;;参数:o:
     
333. ;;返回:
     
334. (defun Zgx:GetTchOpening:Height(o)
     
335.   (or
     
336.     (eq (type o)'VLA-OBJECT)
     
337.     (setq o(vlax-ename->vla-object o))  
     
338.   )
     
339.   (vlax-get-property o 'Height)
     
340. )
     
341. 
     
342. ;;说明:
     
343. ;;参数:o:
     
344. ;;返回:
     
345. (defun Zgx:SetTchOpening:Height(o value)
     
346.   (or
     
347.     (eq (type o)'VLA-OBJECT)
     
348.     (setq o(vlax-ename->vla-object o))  
     
349.   )
     
350.   (vlax-put-property o 'Height value)
     
351. )
     
352. 
     
353. ;;说明:
     
354. ;;参数:o:
     
355. ;;返回:
     
356. (defun Zgx:GetTchOpening:HideLabel(o)
     
357.   (or
     
358.     (eq (type o)'VLA-OBJECT)
     
359.     (setq o(vlax-ename->vla-object o))  
     
360.   )
     
361.   (vlax-get-property o 'HideLabel)
     
362. )
     
363. 
     
364. ;;说明:
     
365. ;;参数:o:
     
366. ;;返回:
     
367. (defun Zgx:SetTchOpening:HideLabel(o value)
     
368.   (or
     
369.     (eq (type o)'VLA-OBJECT)
     
370.     (setq o(vlax-ename->vla-object o))  
     
371.   )
     
372.   (vlax-put-property o 'HideLabel value)
     
373. )
     
374. 
     
375. ;;说明:
     
376. ;;参数:o:
     
377. ;;返回:
     
378. (defun Zgx:GetTchOpening:IsHigh(o)
     
379.   (or
     
380.     (eq (type o)'VLA-OBJECT)
     
381.     (setq o(vlax-ename->vla-object o))  
     
382.   )
     
383.   (vlax-get-property o 'IsHigh)
     
384. )
     
385. 
     
386. ;;说明:
     
387. ;;参数:o:
     
388. ;;返回:
     
389. (defun Zgx:SetTchOpening:IsHigh(o value)
     
390.   (or
     
391.     (eq (type o)'VLA-OBJECT)
     
392.     (setq o(vlax-ename->vla-object o))  
     
393.   )
     
394.   (vlax-put-property o 'IsHigh value)
     
395. )
     
396. 
     
397. ;;说明:
     
398. ;;参数:o:
     
399. ;;返回:
     
400. (defun Zgx:GetTchOpeningabel(o)
     
401.   (or
     
402.     (eq (type o)'VLA-OBJECT)
     
403.     (setq o(vlax-ename->vla-object o))  
     
404.   )
     
405.   (vlax-get-property o 'Label)
     
406. )
     
407. 
     
408. ;;说明:
     
409. ;;参数:o:
     
410. ;;返回:
     
411. (defun Zgx:SetTchOpeningabel(o value)
     
412.   (or
     
413.     (eq (type o)'VLA-OBJECT)
     
414.     (setq o(vlax-ename->vla-object o))  
     
415.   )
     
416.   (vlax-put-property o 'Label value)
     
417. )
     
418. 
     
419. ;;说明:
     
420. ;;参数:o:
     
421. ;;返回:
     
422. (defun Zgx:GetTchOpeningayer(o)
     
423.   (or
     
424.     (eq (type o)'VLA-OBJECT)
     
425.     (setq o(vlax-ename->vla-object o))  
     
426.   )
     
427.   (vlax-get-property o 'Layer)
     
428. )
     
429. 
     
430. ;;说明:
     
431. ;;参数:o:
     
432. ;;返回:
     
433. (defun Zgx:SetTchOpeningayer(o value)
     
434.   (or
     
435.     (eq (type o)'VLA-OBJECT)
     
436.     (setq o(vlax-ename->vla-object o))  
     
437.   )
     
438.   (vlax-put-property o 'Layer value)
     
439. )
     
440. 
     
441. ;;说明:
     
442. ;;参数:o:
     
443. ;;返回:
     
444. (defun Zgx:GetTchOpeningayoutRotation(o)
     
445.   (or
     
446.     (eq (type o)'VLA-OBJECT)
     
447.     (setq o(vlax-ename->vla-object o))  
     
448.   )
     
449.   (vlax-get-property o 'LayoutRotation)
     
450. )
     
451. 
     
452. ;;说明:
     
453. ;;参数:o:
     
454. ;;返回:
     
455. (defun Zgx:SetTchOpeningayoutRotation(o value)
     
456.   (or
     
457.     (eq (type o)'VLA-OBJECT)
     
458.     (setq o(vlax-ename->vla-object o))  
     
459.   )
     
460.   (vlax-put-property o 'LayoutRotation value)
     
461. )
     
462. 
     
463. ;;说明:
     
464. ;;参数:o:
     
465. ;;返回:
     
466. (defun Zgx:GetTchOpeningeftSlab(o)
     
467.   (or
     
468.     (eq (type o)'VLA-OBJECT)
     
469.     (setq o(vlax-ename->vla-object o))  
     
470.   )
     
471.   (vlax-get-property o 'LeftSlab)
     
472. )
     
473. 
     
474. ;;说明:
     
475. ;;参数:o:
     
476. ;;返回:
     
477. (defun Zgx:SetTchOpeningeftSlab(o value)
     
478.   (or
     
479.     (eq (type o)'VLA-OBJECT)
     
480.     (setq o(vlax-ename->vla-object o))  
     
481.   )
     
482.   (vlax-put-property o 'LeftSlab value)
     
483. )
     
484. 
     
485. ;;说明:
     
486. ;;参数:o:
     
487. ;;返回:
     
488. (defun Zgx:GetTchOpeningineOffsetDist(o)
     
489.   (or
     
490.     (eq (type o)'VLA-OBJECT)
     
491.     (setq o(vlax-ename->vla-object o))  
     
492.   )
     
493.   (vlax-get-property o 'LineOffsetDist)
     
494. )
     
495. 
     
496. ;;说明:
     
497. ;;参数:o:
     
498. ;;返回:
     
499. (defun Zgx:SetTchOpeningineOffsetDist(o value)
     
500.   (or
     
501.     (eq (type o)'VLA-OBJECT)
     
502.     (setq o(vlax-ename->vla-object o))  
     
503.   )
     
504.   (vlax-put-property o 'LineOffsetDist value)
     
505. )
     
506. 
     
507. ;;说明:
     
508. ;;参数:o:
     
509. ;;返回:
     
510. (defun Zgx:GetTchOpeninginetype(o)
     
511.   (or
     
512.     (eq (type o)'VLA-OBJECT)
     
513.     (setq o(vlax-ename->vla-object o))  
     
514.   )
     
515.   (vlax-get-property o 'Linetype)
     
516. )
     
517. 
     
518. ;;说明:
     
519. ;;参数:o:
     
520. ;;返回:
     
521. (defun Zgx:SetTchOpeninginetype(o value)
     
522.   (or
     
523.     (eq (type o)'VLA-OBJECT)
     
524.     (setq o(vlax-ename->vla-object o))  
     
525.   )
     
526.   (vlax-put-property o 'Linetype value)
     
527. )
     
528. 
     
529. ;;说明:
     
530. ;;参数:o:
     
531. ;;返回:
     
532. (defun Zgx:GetTchOpeninginetypeScale(o)
     
533.   (or
     
534.     (eq (type o)'VLA-OBJECT)
     
535.     (setq o(vlax-ename->vla-object o))  
     
536.   )
     
537.   (vlax-get-property o 'LinetypeScale)
     
538. )
     
539. 
     
540. ;;说明:
     
541. ;;参数:o:
     
542. ;;返回:
     
543. (defun Zgx:SetTchOpeninginetypeScale(o value)
     
544.   (or
     
545.     (eq (type o)'VLA-OBJECT)
     
546.     (setq o(vlax-ename->vla-object o))  
     
547.   )
     
548.   (vlax-put-property o 'LinetypeScale value)
     
549. )
     
550. 
     
551. ;;说明:
     
552. ;;参数:o:
     
553. ;;返回:
     
554. (defun Zgx:GetTchOpeningineweight(o)
     
555.   (or
     
556.     (eq (type o)'VLA-OBJECT)
     
557.     (setq o(vlax-ename->vla-object o))  
     
558.   )
     
559.   (vlax-get-property o 'Lineweight)
     
560. )
     
561. 
     
562. ;;说明:
     
563. ;;参数:o:
     
564. ;;返回:
     
565. (defun Zgx:SetTchOpeningineweight(o value)
     
566.   (or
     
567.     (eq (type o)'VLA-OBJECT)
     
568.     (setq o(vlax-ename->vla-object o))  
     
569.   )
     
570.   (vlax-put-property o 'Lineweight value)
     
571. )
     
572. 
     
573. ;;说明:
     
574. ;;参数:o:
     
575. ;;返回:
     
576. (defun Zgx:GetTchOpening:Material(o)
     
577.   (or
     
578.     (eq (type o)'VLA-OBJECT)
     
579.     (setq o(vlax-ename->vla-object o))  
     
580.   )
     
581.   (vlax-get-property o 'Material)
     
582. )
     
583. 
     
584. ;;说明:
     
585. ;;参数:o:
     
586. ;;返回:
     
587. (defun Zgx:SetTchOpening:Material(o value)
     
588.   (or
     
589.     (eq (type o)'VLA-OBJECT)
     
590.     (setq o(vlax-ename->vla-object o))  
     
591.   )
     
592.   (vlax-put-property o 'Material value)
     
593. )
     
594. 
     
595. ;;说明:
     
596. ;;参数:o:
     
597. ;;返回:
     
598. (defun Zgx:GetTchOpening:ObjectID(o)
     
599.   (or
     
600.     (eq (type o)'VLA-OBJECT)
     
601.     (setq o(vlax-ename->vla-object o))  
     
602.   )
     
603.   (vlax-get-property o 'ObjectID)
     
604. )
     
605. 
     
606. ;;说明:
     
607. ;;参数:o:
     
608. ;;返回:
     
609. (defun Zgx:SetTchOpening:ObjectID(o value)
     
610.   (or
     
611.     (eq (type o)'VLA-OBJECT)
     
612.     (setq o(vlax-ename->vla-object o))  
     
613.   )
     
614.   (vlax-put-property o 'ObjectID value)
     
615. )
     
616. 
     
617. ;;说明:
     
618. ;;参数:o:
     
619. ;;返回:
     
620. (defun Zgx:GetTchOpening:ObjectID32(o)
     
621.   (or
     
622.     (eq (type o)'VLA-OBJECT)
     
623.     (setq o(vlax-ename->vla-object o))  
     
624.   )
     
625.   (vlax-get-property o 'ObjectID32)
     
626. )
     
627. 
     
628. ;;说明:
     
629. ;;参数:o:
     
630. ;;返回:
     
631. (defun Zgx:SetTchOpening:ObjectID32(o value)
     
632.   (or
     
633.     (eq (type o)'VLA-OBJECT)
     
634.     (setq o(vlax-ename->vla-object o))  
     
635.   )
     
636.   (vlax-put-property o 'ObjectID32 value)
     
637. )
     
638. 
     
639. ;;说明:
     
640. ;;参数:o:
     
641. ;;返回:
     
642. (defun Zgx:GetTchOpening:ObjectName(o)
     
643.   (or
     
644.     (eq (type o)'VLA-OBJECT)
     
645.     (setq o(vlax-ename->vla-object o))  
     
646.   )
     
647.   (vlax-get-property o 'ObjectName)
     
648. )
     
649. 
     
650. ;;说明:
     
651. ;;参数:o:
     
652. ;;返回:
     
653. (defun Zgx:SetTchOpening:ObjectName(o value)
     
654.   (or
     
655.     (eq (type o)'VLA-OBJECT)
     
656.     (setq o(vlax-ename->vla-object o))  
     
657.   )
     
658.   (vlax-put-property o 'ObjectName value)
     
659. )
     
660. 
     
661. ;;说明:
     
662. ;;参数:o:
     
663. ;;返回:
     
664. (defun Zgx:GetTchOpening:OutlineArea(o)
     
665.   (or
     
666.     (eq (type o)'VLA-OBJECT)
     
667.     (setq o(vlax-ename->vla-object o))  
     
668.   )
     
669.   (vlax-get-property o 'OutlineArea)
     
670. )
     
671. 
     
672. ;;说明:
     
673. ;;参数:o:
     
674. ;;返回:
     
675. (defun Zgx:SetTchOpening:OutlineArea(o value)
     
676.   (or
     
677.     (eq (type o)'VLA-OBJECT)
     
678.     (setq o(vlax-ename->vla-object o))  
     
679.   )
     
680.   (vlax-put-property o 'OutlineArea value)
     
681. )
     
682. 
     
683. ;;说明:
     
684. ;;参数:o:
     
685. ;;返回:
     
686. (defun Zgx:GetTchOpening:OutlineLength(o)
     
687.   (or
     
688.     (eq (type o)'VLA-OBJECT)
     
689.     (setq o(vlax-ename->vla-object o))  
     
690.   )
     
691.   (vlax-get-property o 'OutlineLength)
     
692. )
     
693. 
     
694. ;;说明:
     
695. ;;参数:o:
     
696. ;;返回:
     
697. (defun Zgx:SetTchOpening:OutlineLength(o value)
     
698.   (or
     
699.     (eq (type o)'VLA-OBJECT)
     
700.     (setq o(vlax-ename->vla-object o))  
     
701.   )
     
702.   (vlax-put-property o 'OutlineLength value)
     
703. )
     
704. 
     
705. ;;说明:
     
706. ;;参数:o:
     
707. ;;返回:
     
708. (defun Zgx:GetTchOpening:OwnerID(o)
     
709.   (or
     
710.     (eq (type o)'VLA-OBJECT)
     
711.     (setq o(vlax-ename->vla-object o))  
     
712.   )
     
713.   (vlax-get-property o 'OwnerID)
     
714. )
     
715. 
     
716. ;;说明:
     
717. ;;参数:o:
     
718. ;;返回:
     
719. (defun Zgx:SetTchOpening:OwnerID(o value)
     
720.   (or
     
721.     (eq (type o)'VLA-OBJECT)
     
722.     (setq o(vlax-ename->vla-object o))  
     
723.   )
     
724.   (vlax-put-property o 'OwnerID value)
     
725. )
     
726. 
     
727. ;;说明:
     
728. ;;参数:o:
     
729. ;;返回:
     
730. (defun Zgx:GetTchOpening:OwnerID32(o)
     
731.   (or
     
732.     (eq (type o)'VLA-OBJECT)
     
733.     (setq o(vlax-ename->vla-object o))  
     
734.   )
     
735.   (vlax-get-property o 'OwnerID32)
     
736. )
     
737. 
     
738. ;;说明:
     
739. ;;参数:o:
     
740. ;;返回:
     
741. (defun Zgx:SetTchOpening:OwnerID32(o value)
     
742.   (or
     
743.     (eq (type o)'VLA-OBJECT)
     
744.     (setq o(vlax-ename->vla-object o))  
     
745.   )
     
746.   (vlax-put-property o 'OwnerID32 value)
     
747. )
     
748. 
     
749. ;;说明:
     
750. ;;参数:o:
     
751. ;;返回:
     
752. (defun Zgx:GetTchOpening:PlotStyleName(o)
     
753.   (or
     
754.     (eq (type o)'VLA-OBJECT)
     
755.     (setq o(vlax-ename->vla-object o))  
     
756.   )
     
757.   (vlax-get-property o 'PlotStyleName)
     
758. )
     
759. 
     
760. ;;说明:
     
761. ;;参数:o:
     
762. ;;返回:
     
763. (defun Zgx:SetTchOpening:PlotStyleName(o value)
     
764.   (or
     
765.     (eq (type o)'VLA-OBJECT)
     
766.     (setq o(vlax-ename->vla-object o))  
     
767.   )
     
768.   (vlax-put-property o 'PlotStyleName value)
     
769. )
     
770. 
     
771. ;;说明:
     
772. ;;参数:o:
     
773. ;;返回:
     
774. (defun Zgx:GetTchOpening:ProWinSlabInsuThick(o)
     
775.   (or
     
776.     (eq (type o)'VLA-OBJECT)
     
777.     (setq o(vlax-ename->vla-object o))  
     
778.   )
     
779.   (vlax-get-property o 'ProWinSlabInsuThick)
     
780. )
     
781. 
     
782. ;;说明:
     
783. ;;参数:o:
     
784. ;;返回:
     
785. (defun Zgx:SetTchOpening:ProWinSlabInsuThick(o value)
     
786.   (or
     
787.     (eq (type o)'VLA-OBJECT)
     
788.     (setq o(vlax-ename->vla-object o))  
     
789.   )
     
790.   (vlax-put-property o 'ProWinSlabInsuThick value)
     
791. )
     
792. 
     
793. ;;说明:
     
794. ;;参数:o:
     
795. ;;返回:
     
796. (defun Zgx:GetTchOpening:ProWinSlabWidth(o)
     
797.   (or
     
798.     (eq (type o)'VLA-OBJECT)
     
799.     (setq o(vlax-ename->vla-object o))  
     
800.   )
     
801.   (vlax-get-property o 'ProWinSlabWidth)
     
802. )
     
803. 
     
804. ;;说明:
     
805. ;;参数:o:
     
806. ;;返回:
     
807. (defun Zgx:SetTchOpening:ProWinSlabWidth(o value)
     
808.   (or
     
809.     (eq (type o)'VLA-OBJECT)
     
810.     (setq o(vlax-ename->vla-object o))  
     
811.   )
     
812.   (vlax-put-property o 'ProWinSlabWidth value)
     
813. )
     
814. 
     
815. ;;说明:
     
816. ;;参数:o:
     
817. ;;返回:
     
818. (defun Zgx:GetTchOpening:RightSlab(o)
     
819.   (or
     
820.     (eq (type o)'VLA-OBJECT)
     
821.     (setq o(vlax-ename->vla-object o))  
     
822.   )
     
823.   (vlax-get-property o 'RightSlab)
     
824. )
     
825. 
     
826. ;;说明:
     
827. ;;参数:o:
     
828. ;;返回:
     
829. (defun Zgx:SetTchOpening:RightSlab(o value)
     
830.   (or
     
831.     (eq (type o)'VLA-OBJECT)
     
832.     (setq o(vlax-ename->vla-object o))  
     
833.   )
     
834.   (vlax-put-property o 'RightSlab value)
     
835. )
     
836. 
     
837. ;;说明:
     
838. ;;参数:o:
     
839. ;;返回:
     
840. (defun Zgx:GetTchOpening:Scale(o)
     
841.   (or
     
842.     (eq (type o)'VLA-OBJECT)
     
843.     (setq o(vlax-ename->vla-object o))  
     
844.   )
     
845.   (vlax-get-property o 'Scale)
     
846. )
     
847. 
     
848. ;;说明:
     
849. ;;参数:o:
     
850. ;;返回:
     
851. (defun Zgx:SetTchOpening:Scale(o value)
     
852.   (or
     
853.     (eq (type o)'VLA-OBJECT)
     
854.     (setq o(vlax-ename->vla-object o))  
     
855.   )
     
856.   (vlax-put-property o 'Scale value)
     
857. )
     
858. 
     
859. ;;说明:
     
860. ;;参数:o:
     
861. ;;返回:
     
862. (defun Zgx:GetTchOpening:ShadowType(o)
     
863.   (or
     
864.     (eq (type o)'VLA-OBJECT)
     
865.     (setq o(vlax-ename->vla-object o))  
     
866.   )
     
867.   (vlax-get-property o 'ShadowType)
     
868. )
     
869. 
     
870. ;;说明:
     
871. ;;参数:o:
     
872. ;;返回:
     
873. (defun Zgx:SetTchOpening:ShadowType(o value)
     
874.   (or
     
875.     (eq (type o)'VLA-OBJECT)
     
876.     (setq o(vlax-ename->vla-object o))  
     
877.   )
     
878.   (vlax-put-property o 'ShadowType value)
     
879. )
     
880. 
     
881. ;;说明:
     
882. ;;参数:o:
     
883. ;;返回:
     
884. (defun Zgx:GetTchOpening:SlabLayer(o)
     
885.   (or
     
886.     (eq (type o)'VLA-OBJECT)
     
887.     (setq o(vlax-ename->vla-object o))  
     
888.   )
     
889.   (vlax-get-property o 'SlabLayer)
     
890. )
     
891. 
     
892. ;;说明:
     
893. ;;参数:o:
     
894. ;;返回:
     
895. (defun Zgx:SetTchOpening:SlabLayer(o value)
     
896.   (or
     
897.     (eq (type o)'VLA-OBJECT)
     
898.     (setq o(vlax-ename->vla-object o))  
     
899.   )
     
900.   (vlax-put-property o 'SlabLayer value)
     
901. )
     
902. 
     
903. ;;说明:
     
904. ;;参数:o:
     
905. ;;返回:
     
906. (defun Zgx:GetTchOpening:SlabThickness(o)
     
907.   (or
     
908.     (eq (type o)'VLA-OBJECT)
     
909.     (setq o(vlax-ename->vla-object o))  
     
910.   )
     
911.   (vlax-get-property o 'SlabThickness)
     
912. )
     
913. 
     
914. ;;说明:
     
915. ;;参数:o:
     
916. ;;返回:
     
917. (defun Zgx:SetTchOpening:SlabThickness(o value)
     
918.   (or
     
919.     (eq (type o)'VLA-OBJECT)
     
920.     (setq o(vlax-ename->vla-object o))  
     
921.   )
     
922.   (vlax-put-property o 'SlabThickness value)
     
923. )
     
924. 
     
925. ;;说明:
     
926. ;;参数:o:
     
927. ;;返回:
     
928. (defun Zgx:GetTchOpening:Slot(o)
     
929.   (or
     
930.     (eq (type o)'VLA-OBJECT)
     
931.     (setq o(vlax-ename->vla-object o))  
     
932.   )
     
933.   (vlax-get-property o 'Slot)
     
934. )
     
935. 
     
936. ;;说明:
     
937. ;;参数:o:
     
938. ;;返回:
     
939. (defun Zgx:SetTchOpening:Slot(o value)
     
940.   (or
     
941.     (eq (type o)'VLA-OBJECT)
     
942.     (setq o(vlax-ename->vla-object o))  
     
943.   )
     
944.   (vlax-put-property o 'Slot value)
     
945. )
     
946. 
     
947. ;;说明:
     
948. ;;参数:o:
     
949. ;;返回:
     
950. (defun Zgx:GetTchOpening:SlotExt(o)
     
951.   (or
     
952.     (eq (type o)'VLA-OBJECT)
     
953.     (setq o(vlax-ename->vla-object o))  
     
954.   )
     
955.   (vlax-get-property o 'SlotExt)
     
956. )
     
957. 
     
958. ;;说明:
     
959. ;;参数:o:
     
960. ;;返回:
     
961. (defun Zgx:SetTchOpening:SlotExt(o value)
     
962.   (or
     
963.     (eq (type o)'VLA-OBJECT)
     
964.     (setq o(vlax-ename->vla-object o))  
     
965.   )
     
966.   (vlax-put-property o 'SlotExt value)
     
967. )
     
968. 
     
969. ;;说明:
     
970. ;;参数:o:
     
971. ;;返回:
     
972. (defun Zgx:GetTchOpening:SlotInsuCap(o)
     
973.   (or
     
974.     (eq (type o)'VLA-OBJECT)
     
975.     (setq o(vlax-ename->vla-object o))  
     
976.   )
     
977.   (vlax-get-property o 'SlotInsuCap)
     
978. )
     
979. 
     
980. ;;说明:
     
981. ;;参数:o:
     
982. ;;返回:
     
983. (defun Zgx:SetTchOpening:SlotInsuCap(o value)
     
984.   (or
     
985.     (eq (type o)'VLA-OBJECT)
     
986.     (setq o(vlax-ename->vla-object o))  
     
987.   )
     
988.   (vlax-put-property o 'SlotInsuCap value)
     
989. )
     
990. 
     
991. ;;说明:
     
992. ;;参数:o:
     
993. ;;返回:
     
994. (defun Zgx:GetTchOpening:SlotInsuThick(o)
     
995.   (or
     
996.     (eq (type o)'VLA-OBJECT)
     
997.     (setq o(vlax-ename->vla-object o))  
     
998.   )
     
999.   (vlax-get-property o 'SlotInsuThick)
     
1000. )
      
1001. 
      
1002. ;;说明:
      
1003. ;;参数:o:
      
1004. ;;返回:
      
1005. (defun Zgx:SetTchOpening:SlotInsuThick(o value)
      
1006.   (or
      
1007.     (eq (type o)'VLA-OBJECT)
      
1008.     (setq o(vlax-ename->vla-object o))  
      
1009.   )
      
1010.   (vlax-put-property o 'SlotInsuThick value)
      
1011. )
      
1012. 
      
1013. ;;说明:
      
1014. ;;参数:o:
      
1015. ;;返回:
      
1016. (defun Zgx:GetTchOpening:SlotMaterial(o)
      
1017.   (or
      
1018.     (eq (type o)'VLA-OBJECT)
      
1019.     (setq o(vlax-ename->vla-object o))  
      
1020.   )
      
1021.   (vlax-get-property o 'SlotMaterial)
      
1022. )
      
1023. 
      
1024. ;;说明:
      
1025. ;;参数:o:
      
1026. ;;返回:
      
1027. (defun Zgx:SetTchOpening:SlotMaterial(o value)
      
1028.   (or
      
1029.     (eq (type o)'VLA-OBJECT)
      
1030.     (setq o(vlax-ename->vla-object o))  
      
1031.   )
      
1032.   (vlax-put-property o 'SlotMaterial value)
      
1033. )
      
1034. 
      
1035. ;;说明:
      
1036. ;;参数:o:
      
1037. ;;返回:
      
1038. (defun Zgx:GetTchOpening:SlotWidth(o)
      
1039.   (or
      
1040.     (eq (type o)'VLA-OBJECT)
      
1041.     (setq o(vlax-ename->vla-object o))  
      
1042.   )
      
1043.   (vlax-get-property o 'SlotWidth)
      
1044. )
      
1045. 
      
1046. ;;说明:
      
1047. ;;参数:o:
      
1048. ;;返回:
      
1049. (defun Zgx:SetTchOpening:SlotWidth(o value)
      
1050.   (or
      
1051.     (eq (type o)'VLA-OBJECT)
      
1052.     (setq o(vlax-ename->vla-object o))  
      
1053.   )
      
1054.   (vlax-put-property o 'SlotWidth value)
      
1055. )
      
1056. 
      
1057. ;;说明:
      
1058. ;;参数:o:
      
1059. ;;返回:
      
1060. (defun Zgx:GetTchOpening:Structure(o)
      
1061.   (or
      
1062.     (eq (type o)'VLA-OBJECT)
      
1063.     (setq o(vlax-ename->vla-object o))  
      
1064.   )
      
1065.   (vlax-get-property o 'Structure)
      
1066. )
      
1067. 
      
1068. ;;说明:
      
1069. ;;参数:o:
      
1070. ;;返回:
      
1071. (defun Zgx:SetTchOpening:Structure(o value)
      
1072.   (or
      
1073.     (eq (type o)'VLA-OBJECT)
      
1074.     (setq o(vlax-ename->vla-object o))  
      
1075.   )
      
1076.   (vlax-put-property o 'Structure value)
      
1077. )
      
1078. 
      
1079. ;;说明:
      
1080. ;;参数:o:
      
1081. ;;返回:
      
1082. (defun Zgx:GetTchOpening:TextHeight(o)
      
1083.   (or
      
1084.     (eq (type o)'VLA-OBJECT)
      
1085.     (setq o(vlax-ename->vla-object o))  
      
1086.   )
      
1087.   (vlax-get-property o 'TextHeight)
      
1088. )
      
1089. 
      
1090. ;;说明:
      
1091. ;;参数:o:
      
1092. ;;返回:
      
1093. (defun Zgx:SetTchOpening:TextHeight(o value)
      
1094.   (or
      
1095.     (eq (type o)'VLA-OBJECT)
      
1096.     (setq o(vlax-ename->vla-object o))  
      
1097.   )
      
1098.   (vlax-put-property o 'TextHeight value)
      
1099. )
      
1100. 
      
1101. ;;说明:
      
1102. ;;参数:o:
      
1103. ;;返回:
      
1104. (defun Zgx:GetTchOpening:TextLayer(o)
      
1105.   (or
      
1106.     (eq (type o)'VLA-OBJECT)
      
1107.     (setq o(vlax-ename->vla-object o))  
      
1108.   )
      
1109.   (vlax-get-property o 'TextLayer)
      
1110. )
      
1111. 
      
1112. ;;说明:
      
1113. ;;参数:o:
      
1114. ;;返回:
      
1115. (defun Zgx:SetTchOpening:TextLayer(o value)
      
1116.   (or
      
1117.     (eq (type o)'VLA-OBJECT)
      
1118.     (setq o(vlax-ename->vla-object o))  
      
1119.   )
      
1120.   (vlax-put-property o 'TextLayer value)
      
1121. )
      
1122. 
      
1123. ;;说明:
      
1124. ;;参数:o:
      
1125. ;;返回:
      
1126. (defun Zgx:GetTchOpening:TextStyle(o)
      
1127.   (or
      
1128.     (eq (type o)'VLA-OBJECT)
      
1129.     (setq o(vlax-ename->vla-object o))  
      
1130.   )
      
1131.   (vlax-get-property o 'TextStyle)
      
1132. )
      
1133. 
      
1134. ;;说明:
      
1135. ;;参数:o:
      
1136. ;;返回:
      
1137. (defun Zgx:SetTchOpening:TextStyle(o value)
      
1138.   (or
      
1139.     (eq (type o)'VLA-OBJECT)
      
1140.     (setq o(vlax-ename->vla-object o))  
      
1141.   )
      
1142.   (vlax-put-property o 'TextStyle value)
      
1143. )
      
1144. 
      
1145. ;;说明:
      
1146. ;;参数:o:
      
1147. ;;返回:
      
1148. (defun Zgx:GetTchOpening:UFrame(o)
      
1149.   (or
      
1150.     (eq (type o)'VLA-OBJECT)
      
1151.     (setq o(vlax-ename->vla-object o))  
      
1152.   )
      
1153.   (vlax-get-property o 'UFrame)
      
1154. )
      
1155. 
      
1156. ;;说明:
      
1157. ;;参数:o:
      
1158. ;;返回:
      
1159. (defun Zgx:SetTchOpening:UFrame(o value)
      
1160.   (or
      
1161.     (eq (type o)'VLA-OBJECT)
      
1162.     (setq o(vlax-ename->vla-object o))  
      
1163.   )
      
1164.   (vlax-put-property o 'UFrame value)
      
1165. )
      
1166. 
      
1167. ;;说明:
      
1168. ;;参数:o:
      
1169. ;;返回:
      
1170. (defun Zgx:GetTchOpening:UpLevel(o)
      
1171.   (or
      
1172.     (eq (type o)'VLA-OBJECT)
      
1173.     (setq o(vlax-ename->vla-object o))  
      
1174.   )
      
1175.   (vlax-get-property o 'UpLevel)
      
1176. )
      
1177. 
      
1178. ;;说明:
      
1179. ;;参数:o:
      
1180. ;;返回:
      
1181. (defun Zgx:SetTchOpening:UpLevel(o value)
      
1182.   (or
      
1183.     (eq (type o)'VLA-OBJECT)
      
1184.     (setq o(vlax-ename->vla-object o))  
      
1185.   )
      
1186.   (vlax-put-property o 'UpLevel value)
      
1187. )
      
1188. 
      
1189. ;;说明:
      
1190. ;;参数:o:
      
1191. ;;返回:
      
1192. (defun Zgx:GetTchOpening:Usage(o)
      
1193.   (or
      
1194.     (eq (type o)'VLA-OBJECT)
      
1195.     (setq o(vlax-ename->vla-object o))  
      
1196.   )
      
1197.   (vlax-get-property o 'Usage)
      
1198. )
      
1199. 
      
1200. ;;说明:
      
1201. ;;参数:o:
      
1202. ;;返回:
      
1203. (defun Zgx:SetTchOpening:Usage(o value)
      
1204.   (or
      
1205.     (eq (type o)'VLA-OBJECT)
      
1206.     (setq o(vlax-ename->vla-object o))  
      
1207.   )
      
1208.   (vlax-put-property o 'Usage value)
      
1209. )
      
1210. 
      
1211. ;;说明:
      
1212. ;;参数:o:
      
1213. ;;返回:
      
1214. (defun Zgx:GetTchOpening:VFrame(o)
      
1215.   (or
      
1216.     (eq (type o)'VLA-OBJECT)
      
1217.     (setq o(vlax-ename->vla-object o))  
      
1218.   )
      
1219.   (vlax-get-property o 'VFrame)
      
1220. )
      
1221. 
      
1222. ;;说明:
      
1223. ;;参数:o:
      
1224. ;;返回:
      
1225. (defun Zgx:SetTchOpening:VFrame(o value)
      
1226.   (or
      
1227.     (eq (type o)'VLA-OBJECT)
      
1228.     (setq o(vlax-ename->vla-object o))  
      
1229.   )
      
1230.   (vlax-put-property o 'VFrame value)
      
1231. )
      
1232. 
      
1233. ;;说明:
      
1234. ;;参数:o:
      
1235. ;;返回:
      
1236. (defun Zgx:GetTchOpening:Visible(o)
      
1237.   (or
      
1238.     (eq (type o)'VLA-OBJECT)
      
1239.     (setq o(vlax-ename->vla-object o))  
      
1240.   )
      
1241.   (vlax-get-property o 'Visible)
      
1242. )
      
1243. 
      
1244. ;;说明:
      
1245. ;;参数:o:
      
1246. ;;返回:
      
1247. (defun Zgx:SetTchOpening:Visible(o value)
      
1248.   (or
      
1249.     (eq (type o)'VLA-OBJECT)
      
1250.     (setq o(vlax-ename->vla-object o))  
      
1251.   )
      
1252.   (vlax-put-property o 'Visible value)
      
1253. )
      
1254. 
      
1255. ;;说明:
      
1256. ;;参数:o:
      
1257. ;;返回:
      
1258. (defun Zgx:GetTchOpening:Width(o)
      
1259.   (or
      
1260.     (eq (type o)'VLA-OBJECT)
      
1261.     (setq o(vlax-ename->vla-object o))  
      
1262.   )
      
1263.   (vlax-get-property o 'Width)
      
1264. )
      
1265. 
      
1266. ;;说明:
      
1267. ;;参数:o:
      
1268. ;;返回:
      
1269. (defun Zgx:SetTchOpening:Width(o value)
      
1270.   (or
      
1271.     (eq (type o)'VLA-OBJECT)
      
1272.     (setq o(vlax-ename->vla-object o))  
      
1273.   )
      
1274.   (vlax-put-property o 'Width value)
      
1275. )
      
1276. 
      
1277. ;;说明:
      
1278. ;;参数:o:
      
1279. ;;返回:
      
1280. (defun Zgx:GetTchOpening:WinSill(o)
      
1281.   (or
      
1282.     (eq (type o)'VLA-OBJECT)
      
1283.     (setq o(vlax-ename->vla-object o))  
      
1284.   )
      
1285.   (vlax-get-property o 'WinSill)
      
1286. )
      
1287. 
      
1288. ;;说明:
      
1289. ;;参数:o:
      
1290. ;;返回:
      
1291. (defun Zgx:SetTchOpening:WinSill(o value)
      
1292.   (or
      
1293.     (eq (type o)'VLA-OBJECT)
      
1294.     (setq o(vlax-ename->vla-object o))  
      
1295.   )
      
1296.   (vlax-put-property o 'WinSill value)
      
1297. )
      
1298. 
      

;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:AreaRatio(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'AreaRatio)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:AreaRatio(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'AreaRatio value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:BayThick(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'BayThick)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:BayThick(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'BayThick value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:color(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'color)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:color(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'color value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:Conductivity(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Conductivity)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:Conductivity(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Conductivity value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:DoorLine(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'DoorLine)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:DoorLine(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'DoorLine value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:DoorSill(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'DoorSill)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:DoorSill(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'DoorSill value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:EntityName(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'EntityName)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:EntityName(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'EntityName value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening: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:SetTchOpening: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:GetTchOpening:ExtShading(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'ExtShading)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:ExtShading(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'ExtShading value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:FrameLayer(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'FrameLayer)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:FrameLayer(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'FrameLayer value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:GetKind(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'GetKind)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:GetKind(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'GetKind value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:GetSubKind(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'GetSubKind)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:GetSubKind(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'GetSubKind value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:GlassLayer(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'GlassLayer)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:GlassLayer(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'GlassLayer value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening: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 /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:Handle(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Handle value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening: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 /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:HasExtensionDictionary(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'HasExtensionDictionary value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:Height(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Height)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:Height(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Height value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:HideLabel(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'HideLabel)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:HideLabel(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'HideLabel value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:IsHigh(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'IsHigh)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:IsHigh(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'IsHigh value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />abel(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Label)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />abel(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Label value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening<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 /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />ayer(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Layer value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening<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:SetTchOpening<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:GetTchOpening<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />eftSlab(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'LeftSlab)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />eftSlab(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'LeftSlab value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />ineOffsetDist(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'LineOffsetDist)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />ineOffsetDist(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'LineOffsetDist value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening<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:SetTchOpening<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:GetTchOpening<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:SetTchOpening<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:GetTchOpening<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:SetTchOpening<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:GetTchOpening: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:SetTchOpening: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:GetTchOpening: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 /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:ObjectID(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'ObjectID value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening: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 /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:ObjectID32(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'ObjectID32 value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening: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 /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:ObjectName(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'ObjectName value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:OutlineArea(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'OutlineArea)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:OutlineArea(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'OutlineArea value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:OutlineLength(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'OutlineLength)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:OutlineLength(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'OutlineLength value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening: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 /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:OwnerID(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'OwnerID value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening: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 /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:OwnerID32(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'OwnerID32 value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening: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:SetTchOpening: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:GetTchOpening:ProWinSlabInsuThick(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'ProWinSlabInsuThick)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:ProWinSlabInsuThick(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'ProWinSlabInsuThick value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:ProWinSlabWidth(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'ProWinSlabWidth)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:ProWinSlabWidth(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'ProWinSlabWidth value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:RightSlab(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'RightSlab)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:RightSlab(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'RightSlab value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening: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:SetTchOpening: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:GetTchOpening:ShadowType(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'ShadowType)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:ShadowType(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'ShadowType value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:SlabLayer(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'SlabLayer)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:SlabLayer(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'SlabLayer value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:SlabThickness(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'SlabThickness)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:SlabThickness(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'SlabThickness value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:Slot(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Slot)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:Slot(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Slot value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:SlotExt(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'SlotExt)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:SlotExt(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'SlotExt value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:SlotInsuCap(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'SlotInsuCap)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:SlotInsuCap(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'SlotInsuCap value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:SlotInsuThick(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'SlotInsuThick)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:SlotInsuThick(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'SlotInsuThick value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:SlotMaterial(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'SlotMaterial)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:SlotMaterial(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'SlotMaterial value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:SlotWidth(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'SlotWidth)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:SlotWidth(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'SlotWidth value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:Structure(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Structure)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:Structure(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Structure value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:TextHeight(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'TextHeight)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:TextHeight(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'TextHeight value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:TextLayer(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'TextLayer)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:TextLayer(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'TextLayer value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:TextStyle(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'TextStyle)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:TextStyle(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'TextStyle value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:UFrame(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'UFrame)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:UFrame(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'UFrame value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:UpLevel(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'UpLevel)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:UpLevel(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'UpLevel value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:Usage(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Usage)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:Usage(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Usage value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:VFrame(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'VFrame)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:VFrame(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'VFrame value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening: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:SetTchOpening: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 /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:Width(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Width)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:Width(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Width value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchOpening:WinSill(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'WinSill)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchOpening:WinSill(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'WinSill value)<br /> )<br /> <br />

lxl217114

原码大放送，点赞收藏+3

Aries

这个厉害了

Wanda

这个好牛皮哦，只不过俺看不懂