天正对象lisp函数-房间

brainstorm

1. ;;说明:
   
2. ;;参数:o:
   
3. ;;返回:
   
4. (defun Zgx:GetTchSpace:AreaComputeType(o)
   
5.   (or
   
6.     (eq (type o)'VLA-OBJECT)
   
7.     (setq o(vlax-ename->vla-object o))  
   
8.   )
   
9.   (vlax-get-property o 'AreaComputeType)
   
10. )
    
11. 
    
12. ;;说明:
    
13. ;;参数:o:
    
14. ;;返回:
    
15. (defun Zgx:SetTchSpace:AreaComputeType(o value)
    
16.   (or
    
17.     (eq (type o)'VLA-OBJECT)
    
18.     (setq o(vlax-ename->vla-object o))  
    
19.   )
    
20.   (vlax-put-property o 'AreaComputeType value)
    
21. )
    
22. 
    
23. ;;说明:
    
24. ;;参数:o:
    
25. ;;返回:
    
26. (defun Zgx:GetTchSpace:AreaUnit(o)
    
27.   (or
    
28.     (eq (type o)'VLA-OBJECT)
    
29.     (setq o(vlax-ename->vla-object o))  
    
30.   )
    
31.   (vlax-get-property o 'AreaUnit)
    
32. )
    
33. 
    
34. ;;说明:
    
35. ;;参数:o:
    
36. ;;返回:
    
37. (defun Zgx:SetTchSpace:AreaUnit(o value)
    
38.   (or
    
39.     (eq (type o)'VLA-OBJECT)
    
40.     (setq o(vlax-ename->vla-object o))  
    
41.   )
    
42.   (vlax-put-property o 'AreaUnit value)
    
43. )
    
44. 
    
45. ;;说明:
    
46. ;;参数:o:
    
47. ;;返回:
    
48. (defun Zgx:GetTchSpace:Code(o)
    
49.   (or
    
50.     (eq (type o)'VLA-OBJECT)
    
51.     (setq o(vlax-ename->vla-object o))  
    
52.   )
    
53.   (vlax-get-property o 'Code)
    
54. )
    
55. 
    
56. ;;说明:
    
57. ;;参数:o:
    
58. ;;返回:
    
59. (defun Zgx:SetTchSpace:Code(o value)
    
60.   (or
    
61.     (eq (type o)'VLA-OBJECT)
    
62.     (setq o(vlax-ename->vla-object o))  
    
63.   )
    
64.   (vlax-put-property o 'Code value)
    
65. )
    
66. 
    
67. ;;说明:
    
68. ;;参数:o:
    
69. ;;返回:
    
70. (defun Zgx:GetTchSpace: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. ;;说明:
    
80. ;;参数:o:
    
81. ;;返回:
    
82. (defun Zgx:GetTchSpace:Conductivity2(o)
    
83.   (or
    
84.     (eq (type o)'VLA-OBJECT)
    
85.     (setq o(vlax-ename->vla-object o))  
    
86.   )
    
87.   (vlax-get-property o 'Conductivity2)
    
88. )
    
89. 
    
90. 
    
91. ;;说明:
    
92. ;;参数:o:
    
93. ;;返回:
    
94. (defun Zgx:GetTchSpace:DispMode(o)
    
95.   (or
    
96.     (eq (type o)'VLA-OBJECT)
    
97.     (setq o(vlax-ename->vla-object o))  
    
98.   )
    
99.   (vlax-get-property o 'DispMode)
    
100. )
     
101. 
     
102. ;;说明:
     
103. ;;参数:o:
     
104. ;;返回:
     
105. (defun Zgx:SetTchSpace:DispMode(o value)
     
106.   (or
     
107.     (eq (type o)'VLA-OBJECT)
     
108.     (setq o(vlax-ename->vla-object o))  
     
109.   )
     
110.   (vlax-put-property o 'DispMode value)
     
111. )
     
112. 
     
113. ;;说明:
     
114. ;;参数:o:
     
115. ;;返回:
     
116. (defun Zgx:GetTchSpace:Document(o)
     
117.   (or
     
118.     (eq (type o)'VLA-OBJECT)
     
119.     (setq o(vlax-ename->vla-object o))  
     
120.   )
     
121.   (vlax-get-property o 'Document)
     
122. )
     
123. 
     
124. 
     
125. ;;说明:
     
126. ;;参数:o:
     
127. ;;返回:
     
128. (defun Zgx:GetTchSpace:EntityTransparency(o)
     
129.   (or
     
130.     (eq (type o)'VLA-OBJECT)
     
131.     (setq o(vlax-ename->vla-object o))  
     
132.   )
     
133.   (vlax-get-property o 'EntityTransparency)
     
134. )
     
135. 
     
136. ;;说明:
     
137. ;;参数:o:
     
138. ;;返回:
     
139. (defun Zgx:SetTchSpace:EntityTransparency(o value)
     
140.   (or
     
141.     (eq (type o)'VLA-OBJECT)
     
142.     (setq o(vlax-ename->vla-object o))  
     
143.   )
     
144.   (vlax-put-property o 'EntityTransparency value)
     
145. )
     
146. 
     
147. ;;说明:
     
148. ;;参数:o:
     
149. ;;返回:
     
150. (defun Zgx:GetTchSpace:ExtDoorArea(o)
     
151.   (or
     
152.     (eq (type o)'VLA-OBJECT)
     
153.     (setq o(vlax-ename->vla-object o))  
     
154.   )
     
155.   (vlax-get-property o 'ExtDoorArea)
     
156. )
     
157. 
     
158. 
     
159. ;;说明:
     
160. ;;参数:o:
     
161. ;;返回:
     
162. (defun Zgx:GetTchSpace:ExtWallArea(o)
     
163.   (or
     
164.     (eq (type o)'VLA-OBJECT)
     
165.     (setq o(vlax-ename->vla-object o))  
     
166.   )
     
167.   (vlax-get-property o 'ExtWallArea)
     
168. )
     
169. 
     
170. 
     
171. ;;说明:
     
172. ;;参数:o:
     
173. ;;返回:
     
174. (defun Zgx:GetTchSpace:ExtWinArea(o)
     
175.   (or
     
176.     (eq (type o)'VLA-OBJECT)
     
177.     (setq o(vlax-ename->vla-object o))  
     
178.   )
     
179.   (vlax-get-property o 'ExtWinArea)
     
180. )
     
181. 
     
182. 
     
183. ;;说明:
     
184. ;;参数:o:
     
185. ;;返回:
     
186. (defun Zgx:GetTchSpace:Floor3D(o)
     
187.   (or
     
188.     (eq (type o)'VLA-OBJECT)
     
189.     (setq o(vlax-ename->vla-object o))  
     
190.   )
     
191.   (vlax-get-property o 'Floor3D)
     
192. )
     
193. 
     
194. ;;说明:
     
195. ;;参数:o:
     
196. ;;返回:
     
197. (defun Zgx:SetTchSpace:Floor3D(o value)
     
198.   (or
     
199.     (eq (type o)'VLA-OBJECT)
     
200.     (setq o(vlax-ename->vla-object o))  
     
201.   )
     
202.   (vlax-put-property o 'Floor3D value)
     
203. )
     
204. 
     
205. ;;说明:
     
206. ;;参数:o:
     
207. ;;返回:
     
208. (defun Zgx:GetTchSpace:FloorThickness(o)
     
209.   (or
     
210.     (eq (type o)'VLA-OBJECT)
     
211.     (setq o(vlax-ename->vla-object o))  
     
212.   )
     
213.   (vlax-get-property o 'FloorThickness)
     
214. )
     
215. 
     
216. ;;说明:
     
217. ;;参数:o:
     
218. ;;返回:
     
219. (defun Zgx:SetTchSpace:FloorThickness(o value)
     
220.   (or
     
221.     (eq (type o)'VLA-OBJECT)
     
222.     (setq o(vlax-ename->vla-object o))  
     
223.   )
     
224.   (vlax-put-property o 'FloorThickness value)
     
225. )
     
226. 
     
227. ;;说明:
     
228. ;;参数:o:
     
229. ;;返回:
     
230. (defun Zgx:GetTchSpace:FloorType(o)
     
231.   (or
     
232.     (eq (type o)'VLA-OBJECT)
     
233.     (setq o(vlax-ename->vla-object o))  
     
234.   )
     
235.   (vlax-get-property o 'FloorType)
     
236. )
     
237. 
     
238. ;;说明:
     
239. ;;参数:o:
     
240. ;;返回:
     
241. (defun Zgx:SetTchSpace:FloorType(o value)
     
242.   (or
     
243.     (eq (type o)'VLA-OBJECT)
     
244.     (setq o(vlax-ename->vla-object o))  
     
245.   )
     
246.   (vlax-put-property o 'FloorType value)
     
247. )
     
248. 
     
249. ;;说明:
     
250. ;;参数:o:
     
251. ;;返回:
     
252. (defun Zgx:GetTchSpace:Handle(o)
     
253.   (or
     
254.     (eq (type o)'VLA-OBJECT)
     
255.     (setq o(vlax-ename->vla-object o))  
     
256.   )
     
257.   (vlax-get-property o 'Handle)
     
258. )
     
259. 
     
260. 
     
261. ;;说明:
     
262. ;;参数:o:
     
263. ;;返回:
     
264. (defun Zgx:GetTchSpace:HasExtensionDictionary(o)
     
265.   (or
     
266.     (eq (type o)'VLA-OBJECT)
     
267.     (setq o(vlax-ename->vla-object o))  
     
268.   )
     
269.   (vlax-get-property o 'HasExtensionDictionary)
     
270. )
     
271. 
     
272. 
     
273. ;;说明:
     
274. ;;参数:o:
     
275. ;;返回:
     
276. (defun Zgx:GetTchSpace:HasRoof(o)
     
277.   (or
     
278.     (eq (type o)'VLA-OBJECT)
     
279.     (setq o(vlax-ename->vla-object o))  
     
280.   )
     
281.   (vlax-get-property o 'HasRoof)
     
282. )
     
283. 
     
284. ;;说明:
     
285. ;;参数:o:
     
286. ;;返回:
     
287. (defun Zgx:SetTchSpace:HasRoof(o value)
     
288.   (or
     
289.     (eq (type o)'VLA-OBJECT)
     
290.     (setq o(vlax-ename->vla-object o))  
     
291.   )
     
292.   (vlax-put-property o 'HasRoof value)
     
293. )
     
294. 
     
295. ;;说明:
     
296. ;;参数:o:
     
297. ;;返回:
     
298. (defun Zgx:GetTchSpace:HatchAngle(o)
     
299.   (or
     
300.     (eq (type o)'VLA-OBJECT)
     
301.     (setq o(vlax-ename->vla-object o))  
     
302.   )
     
303.   (vlax-get-property o 'HatchAngle)
     
304. )
     
305. 
     
306. ;;说明:
     
307. ;;参数:o:
     
308. ;;返回:
     
309. (defun Zgx:SetTchSpace:HatchAngle(o value)
     
310.   (or
     
311.     (eq (type o)'VLA-OBJECT)
     
312.     (setq o(vlax-ename->vla-object o))  
     
313.   )
     
314.   (vlax-put-property o 'HatchAngle value)
     
315. )
     
316. 
     
317. ;;说明:
     
318. ;;参数:o:
     
319. ;;返回:
     
320. (defun Zgx:GetTchSpace:HatchColor(o)
     
321.   (or
     
322.     (eq (type o)'VLA-OBJECT)
     
323.     (setq o(vlax-ename->vla-object o))  
     
324.   )
     
325.   (vlax-get-property o 'HatchColor)
     
326. )
     
327. 
     
328. ;;说明:
     
329. ;;参数:o:
     
330. ;;返回:
     
331. (defun Zgx:SetTchSpace:HatchColor(o value)
     
332.   (or
     
333.     (eq (type o)'VLA-OBJECT)
     
334.     (setq o(vlax-ename->vla-object o))  
     
335.   )
     
336.   (vlax-put-property o 'HatchColor value)
     
337. )
     
338. 
     
339. ;;说明:
     
340. ;;参数:o:
     
341. ;;返回:
     
342. (defun Zgx:GetTchSpace:HatchLayer(o)
     
343.   (or
     
344.     (eq (type o)'VLA-OBJECT)
     
345.     (setq o(vlax-ename->vla-object o))  
     
346.   )
     
347.   (vlax-get-property o 'HatchLayer)
     
348. )
     
349. 
     
350. ;;说明:
     
351. ;;参数:o:
     
352. ;;返回:
     
353. (defun Zgx:SetTchSpace:HatchLayer(o value)
     
354.   (or
     
355.     (eq (type o)'VLA-OBJECT)
     
356.     (setq o(vlax-ename->vla-object o))  
     
357.   )
     
358.   (vlax-put-property o 'HatchLayer value)
     
359. )
     
360. 
     
361. ;;说明:
     
362. ;;参数:o:
     
363. ;;返回:
     
364. (defun Zgx:GetTchSpace:HatchScale(o)
     
365.   (or
     
366.     (eq (type o)'VLA-OBJECT)
     
367.     (setq o(vlax-ename->vla-object o))  
     
368.   )
     
369.   (vlax-get-property o 'HatchScale)
     
370. )
     
371. 
     
372. ;;说明:
     
373. ;;参数:o:
     
374. ;;返回:
     
375. (defun Zgx:SetTchSpace:HatchScale(o value)
     
376.   (or
     
377.     (eq (type o)'VLA-OBJECT)
     
378.     (setq o(vlax-ename->vla-object o))  
     
379.   )
     
380.   (vlax-put-property o 'HatchScale value)
     
381. )
     
382. 
     
383. ;;说明:
     
384. ;;参数:o:
     
385. ;;返回:
     
386. (defun Zgx:GetTchSpace:HatchStyle(o)
     
387.   (or
     
388.     (eq (type o)'VLA-OBJECT)
     
389.     (setq o(vlax-ename->vla-object o))  
     
390.   )
     
391.   (vlax-get-property o 'HatchStyle)
     
392. )
     
393. 
     
394. ;;说明:
     
395. ;;参数:o:
     
396. ;;返回:
     
397. (defun Zgx:SetTchSpace:HatchStyle(o value)
     
398.   (or
     
399.     (eq (type o)'VLA-OBJECT)
     
400.     (setq o(vlax-ename->vla-object o))  
     
401.   )
     
402.   (vlax-put-property o 'HatchStyle value)
     
403. )
     
404. 
     
405. ;;说明:
     
406. ;;参数:o:
     
407. ;;返回:
     
408. (defun Zgx:GetTchSpace:Height(o)
     
409.   (or
     
410.     (eq (type o)'VLA-OBJECT)
     
411.     (setq o(vlax-ename->vla-object o))  
     
412.   )
     
413.   (vlax-get-property o 'Height)
     
414. )
     
415. 
     
416. ;;说明:
     
417. ;;参数:o:
     
418. ;;返回:
     
419. (defun Zgx:SetTchSpace:Height(o value)
     
420.   (or
     
421.     (eq (type o)'VLA-OBJECT)
     
422.     (setq o(vlax-ename->vla-object o))  
     
423.   )
     
424.   (vlax-put-property o 'Height value)
     
425. )
     
426. 
     
427. ;;说明:
     
428. ;;参数:o:
     
429. ;;返回:
     
430. (defun Zgx:GetTchSpace:Hyperlinks(o)
     
431.   (or
     
432.     (eq (type o)'VLA-OBJECT)
     
433.     (setq o(vlax-ename->vla-object o))  
     
434.   )
     
435.   (vlax-get-property o 'Hyperlinks)
     
436. )
     
437. 
     
438. 
     
439. ;;说明:
     
440. ;;参数:o:
     
441. ;;返回:
     
442. (defun Zgx:GetTchSpace:InertiaIndex2(o)
     
443.   (or
     
444.     (eq (type o)'VLA-OBJECT)
     
445.     (setq o(vlax-ename->vla-object o))  
     
446.   )
     
447.   (vlax-get-property o 'InertiaIndex2)
     
448. )
     
449. 
     
450. 
     
451. ;;说明:
     
452. ;;参数:o:
     
453. ;;返回:
     
454. (defun Zgx:GetTchSpace:Kickboard(o)
     
455.   (or
     
456.     (eq (type o)'VLA-OBJECT)
     
457.     (setq o(vlax-ename->vla-object o))  
     
458.   )
     
459.   (vlax-get-property o 'Kickboard)
     
460. )
     
461. 
     
462. 
     
463. ;;说明:
     
464. ;;参数:o:
     
465. ;;返回:
     
466. (defun Zgx:GetTchSpaceayer(o)
     
467.   (or
     
468.     (eq (type o)'VLA-OBJECT)
     
469.     (setq o(vlax-ename->vla-object o))  
     
470.   )
     
471.   (vlax-get-property o 'Layer)
     
472. )
     
473. 
     
474. ;;说明:
     
475. ;;参数:o:
     
476. ;;返回:
     
477. (defun Zgx:SetTchSpaceayer(o value)
     
478.   (or
     
479.     (eq (type o)'VLA-OBJECT)
     
480.     (setq o(vlax-ename->vla-object o))  
     
481.   )
     
482.   (vlax-put-property o 'Layer value)
     
483. )
     
484. 
     
485. ;;说明:
     
486. ;;参数:o:
     
487. ;;返回:
     
488. (defun Zgx:GetTchSpaceayoutRotation(o)
     
489.   (or
     
490.     (eq (type o)'VLA-OBJECT)
     
491.     (setq o(vlax-ename->vla-object o))  
     
492.   )
     
493.   (vlax-get-property o 'LayoutRotation)
     
494. )
     
495. 
     
496. ;;说明:
     
497. ;;参数:o:
     
498. ;;返回:
     
499. (defun Zgx:SetTchSpaceayoutRotation(o value)
     
500.   (or
     
501.     (eq (type o)'VLA-OBJECT)
     
502.     (setq o(vlax-ename->vla-object o))  
     
503.   )
     
504.   (vlax-put-property o 'LayoutRotation value)
     
505. )
     
506. 
     
507. ;;说明:
     
508. ;;参数:o:
     
509. ;;返回:
     
510. (defun Zgx:GetTchSpaceinetype(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:SetTchSpaceinetype(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:GetTchSpaceinetypeScale(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:SetTchSpaceinetypeScale(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:GetTchSpaceineweight(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:SetTchSpaceineweight(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:GetTchSpace:MaskFlag(o)
     
577.   (or
     
578.     (eq (type o)'VLA-OBJECT)
     
579.     (setq o(vlax-ename->vla-object o))  
     
580.   )
     
581.   (vlax-get-property o 'MaskFlag)
     
582. )
     
583. 
     
584. ;;说明:
     
585. ;;参数:o:
     
586. ;;返回:
     
587. (defun Zgx:SetTchSpace:MaskFlag(o value)
     
588.   (or
     
589.     (eq (type o)'VLA-OBJECT)
     
590.     (setq o(vlax-ename->vla-object o))  
     
591.   )
     
592.   (vlax-put-property o 'MaskFlag value)
     
593. )
     
594. 
     
595. ;;说明:
     
596. ;;参数:o:
     
597. ;;返回:
     
598. (defun Zgx:GetTchSpace:Material(o)
     
599.   (or
     
600.     (eq (type o)'VLA-OBJECT)
     
601.     (setq o(vlax-ename->vla-object o))  
     
602.   )
     
603.   (vlax-get-property o 'Material)
     
604. )
     
605. 
     
606. ;;说明:
     
607. ;;参数:o:
     
608. ;;返回:
     
609. (defun Zgx:SetTchSpace:Material(o value)
     
610.   (or
     
611.     (eq (type o)'VLA-OBJECT)
     
612.     (setq o(vlax-ename->vla-object o))  
     
613.   )
     
614.   (vlax-put-property o 'Material value)
     
615. )
     
616. 
     
617. ;;说明:
     
618. ;;参数:o:
     
619. ;;返回:
     
620. (defun Zgx:GetTchSpace:Name(o)
     
621.   (or
     
622.     (eq (type o)'VLA-OBJECT)
     
623.     (setq o(vlax-ename->vla-object o))  
     
624.   )
     
625.   (vlax-get-property o 'Name)
     
626. )
     
627. 
     
628. ;;说明:
     
629. ;;参数:o:
     
630. ;;返回:
     
631. (defun Zgx:SetTchSpace:Name(o value)
     
632.   (or
     
633.     (eq (type o)'VLA-OBJECT)
     
634.     (setq o(vlax-ename->vla-object o))  
     
635.   )
     
636.   (vlax-put-property o 'Name value)
     
637. )
     
638. 
     
639. ;;说明:
     
640. ;;参数:o:
     
641. ;;返回:
     
642. (defun Zgx:GetTchSpace:Name2(o)
     
643.   (or
     
644.     (eq (type o)'VLA-OBJECT)
     
645.     (setq o(vlax-ename->vla-object o))  
     
646.   )
     
647.   (vlax-get-property o 'Name2)
     
648. )
     
649. 
     
650. 
     
651. ;;说明:
     
652. ;;参数:o:
     
653. ;;返回:
     
654. (defun Zgx:GetTchSpace:NameType(o)
     
655.   (or
     
656.     (eq (type o)'VLA-OBJECT)
     
657.     (setq o(vlax-ename->vla-object o))  
     
658.   )
     
659.   (vlax-get-property o 'NameType)
     
660. )
     
661. 
     
662. ;;说明:
     
663. ;;参数:o:
     
664. ;;返回:
     
665. (defun Zgx:SetTchSpace:NameType(o value)
     
666.   (or
     
667.     (eq (type o)'VLA-OBJECT)
     
668.     (setq o(vlax-ename->vla-object o))  
     
669.   )
     
670.   (vlax-put-property o 'NameType value)
     
671. )
     
672. 
     
673. ;;说明:
     
674. ;;参数:o:
     
675. ;;返回:
     
676. (defun Zgx:GetTchSpace:ObjectID(o)
     
677.   (or
     
678.     (eq (type o)'VLA-OBJECT)
     
679.     (setq o(vlax-ename->vla-object o))  
     
680.   )
     
681.   (vlax-get-property o 'ObjectID)
     
682. )
     
683. 
     
684. 
     
685. ;;说明:
     
686. ;;参数:o:
     
687. ;;返回:
     
688. (defun Zgx:GetTchSpace:ObjectID32(o)
     
689.   (or
     
690.     (eq (type o)'VLA-OBJECT)
     
691.     (setq o(vlax-ename->vla-object o))  
     
692.   )
     
693.   (vlax-get-property o 'ObjectID32)
     
694. )
     
695. 
     
696. 
     
697. ;;说明:
     
698. ;;参数:o:
     
699. ;;返回:
     
700. (defun Zgx:GetTchSpace:ObjectName(o)
     
701.   (or
     
702.     (eq (type o)'VLA-OBJECT)
     
703.     (setq o(vlax-ename->vla-object o))  
     
704.   )
     
705.   (vlax-get-property o 'ObjectName)
     
706. )
     
707. 
     
708. 
     
709. ;;说明:
     
710. ;;参数:o:
     
711. ;;返回:
     
712. (defun Zgx:GetTchSpace:OccuArea(o)
     
713.   (or
     
714.     (eq (type o)'VLA-OBJECT)
     
715.     (setq o(vlax-ename->vla-object o))  
     
716.   )
     
717.   (vlax-get-property o 'OccuArea)
     
718. )
     
719. 
     
720. 
     
721. ;;说明:
     
722. ;;参数:o:
     
723. ;;返回:
     
724. (defun Zgx:GetTchSpace:OwnerID(o)
     
725.   (or
     
726.     (eq (type o)'VLA-OBJECT)
     
727.     (setq o(vlax-ename->vla-object o))  
     
728.   )
     
729.   (vlax-get-property o 'OwnerID)
     
730. )
     
731. 
     
732. 
     
733. ;;说明:
     
734. ;;参数:o:
     
735. ;;返回:
     
736. (defun Zgx:GetTchSpace:OwnerID32(o)
     
737.   (or
     
738.     (eq (type o)'VLA-OBJECT)
     
739.     (setq o(vlax-ename->vla-object o))  
     
740.   )
     
741.   (vlax-get-property o 'OwnerID32)
     
742. )
     
743. 
     
744. 
     
745. ;;说明:
     
746. ;;参数:o:
     
747. ;;返回:
     
748. (defun Zgx:GetTchSpace:Perimeter(o)
     
749.   (or
     
750.     (eq (type o)'VLA-OBJECT)
     
751.     (setq o(vlax-ename->vla-object o))  
     
752.   )
     
753.   (vlax-get-property o 'Perimeter)
     
754. )
     
755. 
     
756. 
     
757. ;;说明:
     
758. ;;参数:o:
     
759. ;;返回:
     
760. (defun Zgx:GetTchSpace:PlotStyleName(o)
     
761.   (or
     
762.     (eq (type o)'VLA-OBJECT)
     
763.     (setq o(vlax-ename->vla-object o))  
     
764.   )
     
765.   (vlax-get-property o 'PlotStyleName)
     
766. )
     
767. 
     
768. ;;说明:
     
769. ;;参数:o:
     
770. ;;返回:
     
771. (defun Zgx:SetTchSpace:PlotStyleName(o value)
     
772.   (or
     
773.     (eq (type o)'VLA-OBJECT)
     
774.     (setq o(vlax-ename->vla-object o))  
     
775.   )
     
776.   (vlax-put-property o 'PlotStyleName value)
     
777. )
     
778. 
     
779. ;;说明:
     
780. ;;参数:o:
     
781. ;;返回:
     
782. (defun Zgx:GetTchSpace:Scale(o)
     
783.   (or
     
784.     (eq (type o)'VLA-OBJECT)
     
785.     (setq o(vlax-ename->vla-object o))  
     
786.   )
     
787.   (vlax-get-property o 'Scale)
     
788. )
     
789. 
     
790. ;;说明:
     
791. ;;参数:o:
     
792. ;;返回:
     
793. (defun Zgx:SetTchSpace:Scale(o value)
     
794.   (or
     
795.     (eq (type o)'VLA-OBJECT)
     
796.     (setq o(vlax-ename->vla-object o))  
     
797.   )
     
798.   (vlax-put-property o 'Scale value)
     
799. )
     
800. 
     
801. ;;说明:
     
802. ;;参数:o:
     
803. ;;返回:
     
804. (defun Zgx:GetTchSpace:ShadowType(o)
     
805.   (or
     
806.     (eq (type o)'VLA-OBJECT)
     
807.     (setq o(vlax-ename->vla-object o))  
     
808.   )
     
809.   (vlax-get-property o 'ShadowType)
     
810. )
     
811. 
     
812. ;;说明:
     
813. ;;参数:o:
     
814. ;;返回:
     
815. (defun Zgx:SetTchSpace:ShadowType(o value)
     
816.   (or
     
817.     (eq (type o)'VLA-OBJECT)
     
818.     (setq o(vlax-ename->vla-object o))  
     
819.   )
     
820.   (vlax-put-property o 'ShadowType value)
     
821. )
     
822. 
     
823. ;;说明:
     
824. ;;参数:o:
     
825. ;;返回:
     
826. (defun Zgx:GetTchSpace:ShowArea(o)
     
827.   (or
     
828.     (eq (type o)'VLA-OBJECT)
     
829.     (setq o(vlax-ename->vla-object o))  
     
830.   )
     
831.   (vlax-get-property o 'ShowArea)
     
832. )
     
833. 
     
834. ;;说明:
     
835. ;;参数:o:
     
836. ;;返回:
     
837. (defun Zgx:SetTchSpace:ShowArea(o value)
     
838.   (or
     
839.     (eq (type o)'VLA-OBJECT)
     
840.     (setq o(vlax-ename->vla-object o))  
     
841.   )
     
842.   (vlax-put-property o 'ShowArea value)
     
843. )
     
844. 
     
845. ;;说明:
     
846. ;;参数:o:
     
847. ;;返回:
     
848. (defun Zgx:GetTchSpace:ShowCode(o)
     
849.   (or
     
850.     (eq (type o)'VLA-OBJECT)
     
851.     (setq o(vlax-ename->vla-object o))  
     
852.   )
     
853.   (vlax-get-property o 'ShowCode)
     
854. )
     
855. 
     
856. ;;说明:
     
857. ;;参数:o:
     
858. ;;返回:
     
859. (defun Zgx:SetTchSpace:ShowCode(o value)
     
860.   (or
     
861.     (eq (type o)'VLA-OBJECT)
     
862.     (setq o(vlax-ename->vla-object o))  
     
863.   )
     
864.   (vlax-put-property o 'ShowCode value)
     
865. )
     
866. 
     
867. ;;说明:
     
868. ;;参数:o:
     
869. ;;返回:
     
870. (defun Zgx:GetTchSpace:ShowHatch(o)
     
871.   (or
     
872.     (eq (type o)'VLA-OBJECT)
     
873.     (setq o(vlax-ename->vla-object o))  
     
874.   )
     
875.   (vlax-get-property o 'ShowHatch)
     
876. )
     
877. 
     
878. ;;说明:
     
879. ;;参数:o:
     
880. ;;返回:
     
881. (defun Zgx:SetTchSpace:ShowHatch(o value)
     
882.   (or
     
883.     (eq (type o)'VLA-OBJECT)
     
884.     (setq o(vlax-ename->vla-object o))  
     
885.   )
     
886.   (vlax-put-property o 'ShowHatch value)
     
887. )
     
888. 
     
889. ;;说明:
     
890. ;;参数:o:
     
891. ;;返回:
     
892. (defun Zgx:GetTchSpace:ShowName(o)
     
893.   (or
     
894.     (eq (type o)'VLA-OBJECT)
     
895.     (setq o(vlax-ename->vla-object o))  
     
896.   )
     
897.   (vlax-get-property o 'ShowName)
     
898. )
     
899. 
     
900. ;;说明:
     
901. ;;参数:o:
     
902. ;;返回:
     
903. (defun Zgx:SetTchSpace:ShowName(o value)
     
904.   (or
     
905.     (eq (type o)'VLA-OBJECT)
     
906.     (setq o(vlax-ename->vla-object o))  
     
907.   )
     
908.   (vlax-put-property o 'ShowName value)
     
909. )
     
910. 
     
911. ;;说明:
     
912. ;;参数:o:
     
913. ;;返回:
     
914. (defun Zgx:GetTchSpace:ShowOutLine(o)
     
915.   (or
     
916.     (eq (type o)'VLA-OBJECT)
     
917.     (setq o(vlax-ename->vla-object o))  
     
918.   )
     
919.   (vlax-get-property o 'ShowOutLine)
     
920. )
     
921. 
     
922. ;;说明:
     
923. ;;参数:o:
     
924. ;;返回:
     
925. (defun Zgx:SetTchSpace:ShowOutLine(o value)
     
926.   (or
     
927.     (eq (type o)'VLA-OBJECT)
     
928.     (setq o(vlax-ename->vla-object o))  
     
929.   )
     
930.   (vlax-put-property o 'ShowOutLine value)
     
931. )
     
932. 
     
933. ;;说明:
     
934. ;;参数:o:
     
935. ;;返回:
     
936. (defun Zgx:GetTchSpace:Structure(o)
     
937.   (or
     
938.     (eq (type o)'VLA-OBJECT)
     
939.     (setq o(vlax-ename->vla-object o))  
     
940.   )
     
941.   (vlax-get-property o 'Structure)
     
942. )
     
943. 
     
944. ;;说明:
     
945. ;;参数:o:
     
946. ;;返回:
     
947. (defun Zgx:SetTchSpace:Structure(o value)
     
948.   (or
     
949.     (eq (type o)'VLA-OBJECT)
     
950.     (setq o(vlax-ename->vla-object o))  
     
951.   )
     
952.   (vlax-put-property o 'Structure value)
     
953. )
     
954. 
     
955. ;;说明:
     
956. ;;参数:o:
     
957. ;;返回:
     
958. (defun Zgx:GetTchSpace:Structure2(o)
     
959.   (or
     
960.     (eq (type o)'VLA-OBJECT)
     
961.     (setq o(vlax-ename->vla-object o))  
     
962.   )
     
963.   (vlax-get-property o 'Structure2)
     
964. )
     
965. 
     
966. ;;说明:
     
967. ;;参数:o:
     
968. ;;返回:
     
969. (defun Zgx:SetTchSpace:Structure2(o value)
     
970.   (or
     
971.     (eq (type o)'VLA-OBJECT)
     
972.     (setq o(vlax-ename->vla-object o))  
     
973.   )
     
974.   (vlax-put-property o 'Structure2 value)
     
975. )
     
976. 
     
977. ;;说明:
     
978. ;;参数:o:
     
979. ;;返回:
     
980. (defun Zgx:GetTchSpace:StuccoThickness(o)
     
981.   (or
     
982.     (eq (type o)'VLA-OBJECT)
     
983.     (setq o(vlax-ename->vla-object o))  
     
984.   )
     
985.   (vlax-get-property o 'StuccoThickness)
     
986. )
     
987. 
     
988. ;;说明:
     
989. ;;参数:o:
     
990. ;;返回:
     
991. (defun Zgx:SetTchSpace:StuccoThickness(o value)
     
992.   (or
     
993.     (eq (type o)'VLA-OBJECT)
     
994.     (setq o(vlax-ename->vla-object o))  
     
995.   )
     
996.   (vlax-put-property o 'StuccoThickness value)
     
997. )
     
998. 
     
999. ;;说明:
     
1000. ;;参数:o:
      
1001. ;;返回:
      
1002. (defun Zgx:GetTchSpace:TextHeight(o)
      
1003.   (or
      
1004.     (eq (type o)'VLA-OBJECT)
      
1005.     (setq o(vlax-ename->vla-object o))  
      
1006.   )
      
1007.   (vlax-get-property o 'TextHeight)
      
1008. )
      
1009. 
      
1010. ;;说明:
      
1011. ;;参数:o:
      
1012. ;;返回:
      
1013. (defun Zgx:SetTchSpace:TextHeight(o value)
      
1014.   (or
      
1015.     (eq (type o)'VLA-OBJECT)
      
1016.     (setq o(vlax-ename->vla-object o))  
      
1017.   )
      
1018.   (vlax-put-property o 'TextHeight value)
      
1019. )
      
1020. 
      
1021. ;;说明:
      
1022. ;;参数:o:
      
1023. ;;返回:
      
1024. (defun Zgx:GetTchSpace:TextHeightArea(o)
      
1025.   (or
      
1026.     (eq (type o)'VLA-OBJECT)
      
1027.     (setq o(vlax-ename->vla-object o))  
      
1028.   )
      
1029.   (vlax-get-property o 'TextHeightArea)
      
1030. )
      
1031. 
      
1032. ;;说明:
      
1033. ;;参数:o:
      
1034. ;;返回:
      
1035. (defun Zgx:SetTchSpace:TextHeightArea(o value)
      
1036.   (or
      
1037.     (eq (type o)'VLA-OBJECT)
      
1038.     (setq o(vlax-ename->vla-object o))  
      
1039.   )
      
1040.   (vlax-put-property o 'TextHeightArea value)
      
1041. )
      
1042. 
      
1043. ;;说明:
      
1044. ;;参数:o:
      
1045. ;;返回:
      
1046. (defun Zgx:GetTchSpace:TextRotation(o)
      
1047.   (or
      
1048.     (eq (type o)'VLA-OBJECT)
      
1049.     (setq o(vlax-ename->vla-object o))  
      
1050.   )
      
1051.   (vlax-get-property o 'TextRotation)
      
1052. )
      
1053. 
      
1054. ;;说明:
      
1055. ;;参数:o:
      
1056. ;;返回:
      
1057. (defun Zgx:SetTchSpace:TextRotation(o value)
      
1058.   (or
      
1059.     (eq (type o)'VLA-OBJECT)
      
1060.     (setq o(vlax-ename->vla-object o))  
      
1061.   )
      
1062.   (vlax-put-property o 'TextRotation value)
      
1063. )
      
1064. 
      
1065. ;;说明:
      
1066. ;;参数:o:
      
1067. ;;返回:
      
1068. (defun Zgx:GetTchSpace:TextStyle(o)
      
1069.   (or
      
1070.     (eq (type o)'VLA-OBJECT)
      
1071.     (setq o(vlax-ename->vla-object o))  
      
1072.   )
      
1073.   (vlax-get-property o 'TextStyle)
      
1074. )
      
1075. 
      
1076. ;;说明:
      
1077. ;;参数:o:
      
1078. ;;返回:
      
1079. (defun Zgx:SetTchSpace:TextStyle(o value)
      
1080.   (or
      
1081.     (eq (type o)'VLA-OBJECT)
      
1082.     (setq o(vlax-ename->vla-object o))  
      
1083.   )
      
1084.   (vlax-put-property o 'TextStyle value)
      
1085. )
      
1086. 
      
1087. ;;说明:
      
1088. ;;参数:o:
      
1089. ;;返回:
      
1090. (defun Zgx:GetTchSpace:TextStyleArea(o)
      
1091.   (or
      
1092.     (eq (type o)'VLA-OBJECT)
      
1093.     (setq o(vlax-ename->vla-object o))  
      
1094.   )
      
1095.   (vlax-get-property o 'TextStyleArea)
      
1096. )
      
1097. 
      
1098. ;;说明:
      
1099. ;;参数:o:
      
1100. ;;返回:
      
1101. (defun Zgx:SetTchSpace:TextStyleArea(o value)
      
1102.   (or
      
1103.     (eq (type o)'VLA-OBJECT)
      
1104.     (setq o(vlax-ename->vla-object o))  
      
1105.   )
      
1106.   (vlax-put-property o 'TextStyleArea value)
      
1107. )
      
1108. 
      
1109. ;;说明:
      
1110. ;;参数:o:
      
1111. ;;返回:
      
1112. (defun Zgx:GetTchSpace:TrueColor(o)
      
1113.   (or
      
1114.     (eq (type o)'VLA-OBJECT)
      
1115.     (setq o(vlax-ename->vla-object o))  
      
1116.   )
      
1117.   (vlax-get-property o 'TrueColor)
      
1118. )
      
1119. 
      
1120. ;;说明:
      
1121. ;;参数:o:
      
1122. ;;返回:
      
1123. (defun Zgx:SetTchSpace:TrueColor(o value)
      
1124.   (or
      
1125.     (eq (type o)'VLA-OBJECT)
      
1126.     (setq o(vlax-ename->vla-object o))  
      
1127.   )
      
1128.   (vlax-put-property o 'TrueColor value)
      
1129. )
      
1130. 
      
1131. ;;说明:
      
1132. ;;参数:o:
      
1133. ;;返回:
      
1134. (defun Zgx:GetTchSpace:UseArea(o)
      
1135.   (or
      
1136.     (eq (type o)'VLA-OBJECT)
      
1137.     (setq o(vlax-ename->vla-object o))  
      
1138.   )
      
1139.   (vlax-get-property o 'UseArea)
      
1140. )
      
1141. 
      
1142. 
      
1143. ;;说明:
      
1144. ;;参数:o:
      
1145. ;;返回:
      
1146. (defun Zgx:GetTchSpace:UseVolume(o)
      
1147.   (or
      
1148.     (eq (type o)'VLA-OBJECT)
      
1149.     (setq o(vlax-ename->vla-object o))  
      
1150.   )
      
1151.   (vlax-get-property o 'UseVolume)
      
1152. )
      
1153. 
      
1154. 
      
1155. ;;说明:
      
1156. ;;参数:o:
      
1157. ;;返回:
      
1158. (defun Zgx:GetTchSpace:Visible(o)
      
1159.   (or
      
1160.     (eq (type o)'VLA-OBJECT)
      
1161.     (setq o(vlax-ename->vla-object o))  
      
1162.   )
      
1163.   (vlax-get-property o 'Visible)
      
1164. )
      
1165. 
      
1166. ;;说明:
      
1167. ;;参数:o:
      
1168. ;;返回:
      
1169. (defun Zgx:SetTchSpace:Visible(o value)
      
1170.   (or
      
1171.     (eq (type o)'VLA-OBJECT)
      
1172.     (setq o(vlax-ename->vla-object o))  
      
1173.   )
      
1174.   (vlax-put-property o 'Visible value)
      
1175. )
      
1176. 
      
1177. ;;说明:
      
1178. ;;参数:o:
      
1179. ;;返回:
      
1180. (defun Zgx:GetTchSpace:WallSurfArea(o)
      
1181.   (or
      
1182.     (eq (type o)'VLA-OBJECT)
      
1183.     (setq o(vlax-ename->vla-object o))  
      
1184.   )
      
1185.   (vlax-get-property o 'WallSurfArea)
      
1186. )
      
1187. 
      
1188. 
      

;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:AreaComputeType(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'AreaComputeType)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:AreaComputeType(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'AreaComputeType value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:AreaUnit(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'AreaUnit)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:AreaUnit(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'AreaUnit value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:Code(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Code)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:Code(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Code value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace: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 /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:Conductivity2(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Conductivity2)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:DispMode(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'DispMode)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:DispMode(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'DispMode value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace: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:GetTchSpace: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:SetTchSpace: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:GetTchSpace:ExtDoorArea(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'ExtDoorArea)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:ExtWallArea(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'ExtWallArea)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:ExtWinArea(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'ExtWinArea)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:Floor3D(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Floor3D)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:Floor3D(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Floor3D value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:FloorThickness(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'FloorThickness)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:FloorThickness(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'FloorThickness value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:FloorType(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'FloorType)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:FloorType(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'FloorType value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace: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:GetTchSpace: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:GetTchSpace:HasRoof(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'HasRoof)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:HasRoof(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'HasRoof value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:HatchAngle(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'HatchAngle)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:HatchAngle(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'HatchAngle value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:HatchColor(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'HatchColor)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:HatchColor(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'HatchColor value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:HatchLayer(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'HatchLayer)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:HatchLayer(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'HatchLayer value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:HatchScale(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'HatchScale)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:HatchScale(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'HatchScale value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:HatchStyle(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'HatchStyle)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:HatchStyle(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'HatchStyle value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace: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:SetTchSpace: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:GetTchSpace: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:GetTchSpace:InertiaIndex2(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'InertiaIndex2)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:Kickboard(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Kickboard)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace<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:SetTchSpace<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:GetTchSpace<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:SetTchSpace<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:GetTchSpace<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:SetTchSpace<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:GetTchSpace<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:SetTchSpace<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:GetTchSpace<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:SetTchSpace<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:GetTchSpace:MaskFlag(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'MaskFlag)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:MaskFlag(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'MaskFlag value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace: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:SetTchSpace: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:GetTchSpace:Name(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Name)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:Name(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Name value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:Name2(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Name2)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:NameType(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'NameType)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:NameType(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'NameType value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace: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:GetTchSpace: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:GetTchSpace: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:GetTchSpace:OccuArea(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'OccuArea)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace: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:GetTchSpace: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:GetTchSpace:Perimeter(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Perimeter)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace: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:SetTchSpace: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:GetTchSpace: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:SetTchSpace: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:GetTchSpace: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:SetTchSpace: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:GetTchSpace:ShowArea(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'ShowArea)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:ShowArea(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'ShowArea value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:ShowCode(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'ShowCode)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:ShowCode(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'ShowCode value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:ShowHatch(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'ShowHatch)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:ShowHatch(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'ShowHatch value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:ShowName(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'ShowName)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:ShowName(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'ShowName value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:ShowOutLine(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'ShowOutLine)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:ShowOutLine(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'ShowOutLine value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace: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:SetTchSpace: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:GetTchSpace:Structure2(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Structure2)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:Structure2(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Structure2 value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:StuccoThickness(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'StuccoThickness)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:StuccoThickness(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'StuccoThickness value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace: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:SetTchSpace: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:GetTchSpace:TextHeightArea(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'TextHeightArea)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:TextHeightArea(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'TextHeightArea value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:TextRotation(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'TextRotation)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:TextRotation(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'TextRotation value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace: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:SetTchSpace: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:GetTchSpace:TextStyleArea(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'TextStyleArea)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchSpace:TextStyleArea(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'TextStyleArea value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace: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:SetTchSpace: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:GetTchSpace:UseArea(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'UseArea)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace:UseVolume(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'UseVolume)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchSpace: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:SetTchSpace: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:GetTchSpace:WallSurfArea(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'WallSurfArea)<br /> )<br /> <br /> <br />

lxl217114

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