天正-做法标注函数

brainstorm

1. ;;说明:
   
2. ;;参数:o:
   
3. ;;返回:
   
4. (defun Zgx:GetTchComposing:Alignment(o)
   
5.   (or
   
6.     (eq (type o)'VLA-OBJECT)
   
7.     (setq o(vlax-ename->vla-object o))  
   
8.   )
   
9.   (vlax-get-property o 'Alignment)
   
10. )
    
11. 
    
12. ;;说明:
    
13. ;;参数:o:
    
14. ;;返回:
    
15. (defun Zgx:SetTchComposing:Alignment(o value)
    
16.   (or
    
17.     (eq (type o)'VLA-OBJECT)
    
18.     (setq o(vlax-ename->vla-object o))  
    
19.   )
    
20.   (vlax-put-property o 'Alignment value)
    
21. )
    
22. 
    
23. ;;说明:
    
24. ;;参数:o:
    
25. ;;返回:
    
26. (defun Zgx:GetTchComposing:Application(o)
    
27.   (or
    
28.     (eq (type o)'VLA-OBJECT)
    
29.     (setq o(vlax-ename->vla-object o))  
    
30.   )
    
31.   (vlax-get-property o 'Application)
    
32. )
    
33. 
    
34. 
    
35. ;;说明:
    
36. ;;参数:o:
    
37. ;;返回:
    
38. (defun Zgx:GetTchComposing:CirPointSize(o)
    
39.   (or
    
40.     (eq (type o)'VLA-OBJECT)
    
41.     (setq o(vlax-ename->vla-object o))  
    
42.   )
    
43.   (vlax-get-property o 'CirPointSize)
    
44. )
    
45. 
    
46. ;;说明:
    
47. ;;参数:o:
    
48. ;;返回:
    
49. (defun Zgx:SetTchComposing:CirPointSize(o value)
    
50.   (or
    
51.     (eq (type o)'VLA-OBJECT)
    
52.     (setq o(vlax-ename->vla-object o))  
    
53.   )
    
54.   (vlax-put-property o 'CirPointSize value)
    
55. )
    
56. 
    
57. ;;说明:
    
58. ;;参数:o:
    
59. ;;返回:
    
60. (defun Zgx:GetTchComposing:Dist2Line(o)
    
61.   (or
    
62.     (eq (type o)'VLA-OBJECT)
    
63.     (setq o(vlax-ename->vla-object o))  
    
64.   )
    
65.   (vlax-get-property o 'Dist2Line)
    
66. )
    
67. 
    
68. ;;说明:
    
69. ;;参数:o:
    
70. ;;返回:
    
71. (defun Zgx:SetTchComposing:Dist2Line(o value)
    
72.   (or
    
73.     (eq (type o)'VLA-OBJECT)
    
74.     (setq o(vlax-ename->vla-object o))  
    
75.   )
    
76.   (vlax-put-property o 'Dist2Line value)
    
77. )
    
78. 
    
79. ;;说明:
    
80. ;;参数:o:
    
81. ;;返回:
    
82. (defun Zgx:GetTchComposing:Document(o)
    
83.   (or
    
84.     (eq (type o)'VLA-OBJECT)
    
85.     (setq o(vlax-ename->vla-object o))  
    
86.   )
    
87.   (vlax-get-property o 'Document)
    
88. )
    
89. 
    
90. 
    
91. ;;说明:
    
92. ;;参数:o:
    
93. ;;返回:
    
94. (defun Zgx:GetTchComposing:EntityTransparency(o)
    
95.   (or
    
96.     (eq (type o)'VLA-OBJECT)
    
97.     (setq o(vlax-ename->vla-object o))  
    
98.   )
    
99.   (vlax-get-property o 'EntityTransparency)
    
100. )
     
101. 
     
102. ;;说明:
     
103. ;;参数:o:
     
104. ;;返回:
     
105. (defun Zgx:SetTchComposing:EntityTransparency(o value)
     
106.   (or
     
107.     (eq (type o)'VLA-OBJECT)
     
108.     (setq o(vlax-ename->vla-object o))  
     
109.   )
     
110.   (vlax-put-property o 'EntityTransparency value)
     
111. )
     
112. 
     
113. ;;说明:
     
114. ;;参数:o:
     
115. ;;返回:
     
116. (defun Zgx:GetTchComposing:FontStyle(o)
     
117.   (or
     
118.     (eq (type o)'VLA-OBJECT)
     
119.     (setq o(vlax-ename->vla-object o))  
     
120.   )
     
121.   (vlax-get-property o 'FontStyle)
     
122. )
     
123. 
     
124. ;;说明:
     
125. ;;参数:o:
     
126. ;;返回:
     
127. (defun Zgx:SetTchComposing:FontStyle(o value)
     
128.   (or
     
129.     (eq (type o)'VLA-OBJECT)
     
130.     (setq o(vlax-ename->vla-object o))  
     
131.   )
     
132.   (vlax-put-property o 'FontStyle value)
     
133. )
     
134. 
     
135. ;;说明:
     
136. ;;参数:o:
     
137. ;;返回:
     
138. (defun Zgx:GetTchComposing:Handle(o)
     
139.   (or
     
140.     (eq (type o)'VLA-OBJECT)
     
141.     (setq o(vlax-ename->vla-object o))  
     
142.   )
     
143.   (vlax-get-property o 'Handle)
     
144. )
     
145. 
     
146. 
     
147. ;;说明:
     
148. ;;参数:o:
     
149. ;;返回:
     
150. (defun Zgx:GetTchComposing:HasExtensionDictionary(o)
     
151.   (or
     
152.     (eq (type o)'VLA-OBJECT)
     
153.     (setq o(vlax-ename->vla-object o))  
     
154.   )
     
155.   (vlax-get-property o 'HasExtensionDictionary)
     
156. )
     
157. 
     
158. 
     
159. ;;说明:
     
160. ;;参数:o:
     
161. ;;返回:
     
162. (defun Zgx:GetTchComposing:Height(o)
     
163.   (or
     
164.     (eq (type o)'VLA-OBJECT)
     
165.     (setq o(vlax-ename->vla-object o))  
     
166.   )
     
167.   (vlax-get-property o 'Height)
     
168. )
     
169. 
     
170. ;;说明:
     
171. ;;参数:o:
     
172. ;;返回:
     
173. (defun Zgx:SetTchComposing:Height(o value)
     
174.   (or
     
175.     (eq (type o)'VLA-OBJECT)
     
176.     (setq o(vlax-ename->vla-object o))  
     
177.   )
     
178.   (vlax-put-property o 'Height value)
     
179. )
     
180. 
     
181. ;;说明:
     
182. ;;参数:o:
     
183. ;;返回:
     
184. (defun Zgx:GetTchComposing:Hyperlinks(o)
     
185.   (or
     
186.     (eq (type o)'VLA-OBJECT)
     
187.     (setq o(vlax-ename->vla-object o))  
     
188.   )
     
189.   (vlax-get-property o 'Hyperlinks)
     
190. )
     
191. 
     
192. 
     
193. ;;说明:
     
194. ;;参数:o:
     
195. ;;返回:
     
196. (defun Zgx:GetTchComposingayer(o)
     
197.   (or
     
198.     (eq (type o)'VLA-OBJECT)
     
199.     (setq o(vlax-ename->vla-object o))  
     
200.   )
     
201.   (vlax-get-property o 'Layer)
     
202. )
     
203. 
     
204. ;;说明:
     
205. ;;参数:o:
     
206. ;;返回:
     
207. (defun Zgx:SetTchComposingayer(o value)
     
208.   (or
     
209.     (eq (type o)'VLA-OBJECT)
     
210.     (setq o(vlax-ename->vla-object o))  
     
211.   )
     
212.   (vlax-put-property o 'Layer value)
     
213. )
     
214. 
     
215. ;;说明:
     
216. ;;参数:o:
     
217. ;;返回:
     
218. (defun Zgx:GetTchComposingayoutRotation(o)
     
219.   (or
     
220.     (eq (type o)'VLA-OBJECT)
     
221.     (setq o(vlax-ename->vla-object o))  
     
222.   )
     
223.   (vlax-get-property o 'LayoutRotation)
     
224. )
     
225. 
     
226. ;;说明:
     
227. ;;参数:o:
     
228. ;;返回:
     
229. (defun Zgx:SetTchComposingayoutRotation(o value)
     
230.   (or
     
231.     (eq (type o)'VLA-OBJECT)
     
232.     (setq o(vlax-ename->vla-object o))  
     
233.   )
     
234.   (vlax-put-property o 'LayoutRotation value)
     
235. )
     
236. 
     
237. ;;说明:
     
238. ;;参数:o:
     
239. ;;返回:
     
240. (defun Zgx:GetTchComposingineSpace(o)
     
241.   (or
     
242.     (eq (type o)'VLA-OBJECT)
     
243.     (setq o(vlax-ename->vla-object o))  
     
244.   )
     
245.   (vlax-get-property o 'LineSpace)
     
246. )
     
247. 
     
248. ;;说明:
     
249. ;;参数:o:
     
250. ;;返回:
     
251. (defun Zgx:SetTchComposingineSpace(o value)
     
252.   (or
     
253.     (eq (type o)'VLA-OBJECT)
     
254.     (setq o(vlax-ename->vla-object o))  
     
255.   )
     
256.   (vlax-put-property o 'LineSpace value)
     
257. )
     
258. 
     
259. ;;说明:
     
260. ;;参数:o:
     
261. ;;返回:
     
262. (defun Zgx:GetTchComposinginetype(o)
     
263.   (or
     
264.     (eq (type o)'VLA-OBJECT)
     
265.     (setq o(vlax-ename->vla-object o))  
     
266.   )
     
267.   (vlax-get-property o 'Linetype)
     
268. )
     
269. 
     
270. ;;说明:
     
271. ;;参数:o:
     
272. ;;返回:
     
273. (defun Zgx:SetTchComposinginetype(o value)
     
274.   (or
     
275.     (eq (type o)'VLA-OBJECT)
     
276.     (setq o(vlax-ename->vla-object o))  
     
277.   )
     
278.   (vlax-put-property o 'Linetype value)
     
279. )
     
280. 
     
281. ;;说明:
     
282. ;;参数:o:
     
283. ;;返回:
     
284. (defun Zgx:GetTchComposinginetypeScale(o)
     
285.   (or
     
286.     (eq (type o)'VLA-OBJECT)
     
287.     (setq o(vlax-ename->vla-object o))  
     
288.   )
     
289.   (vlax-get-property o 'LinetypeScale)
     
290. )
     
291. 
     
292. ;;说明:
     
293. ;;参数:o:
     
294. ;;返回:
     
295. (defun Zgx:SetTchComposinginetypeScale(o value)
     
296.   (or
     
297.     (eq (type o)'VLA-OBJECT)
     
298.     (setq o(vlax-ename->vla-object o))  
     
299.   )
     
300.   (vlax-put-property o 'LinetypeScale value)
     
301. )
     
302. 
     
303. ;;说明:
     
304. ;;参数:o:
     
305. ;;返回:
     
306. (defun Zgx:GetTchComposingineweight(o)
     
307.   (or
     
308.     (eq (type o)'VLA-OBJECT)
     
309.     (setq o(vlax-ename->vla-object o))  
     
310.   )
     
311.   (vlax-get-property o 'Lineweight)
     
312. )
     
313. 
     
314. ;;说明:
     
315. ;;参数:o:
     
316. ;;返回:
     
317. (defun Zgx:SetTchComposingineweight(o value)
     
318.   (or
     
319.     (eq (type o)'VLA-OBJECT)
     
320.     (setq o(vlax-ename->vla-object o))  
     
321.   )
     
322.   (vlax-put-property o 'Lineweight value)
     
323. )
     
324. 
     
325. ;;说明:
     
326. ;;参数:o:
     
327. ;;返回:
     
328. (defun Zgx:GetTchComposing:Material(o)
     
329.   (or
     
330.     (eq (type o)'VLA-OBJECT)
     
331.     (setq o(vlax-ename->vla-object o))  
     
332.   )
     
333.   (vlax-get-property o 'Material)
     
334. )
     
335. 
     
336. ;;说明:
     
337. ;;参数:o:
     
338. ;;返回:
     
339. (defun Zgx:SetTchComposing:Material(o value)
     
340.   (or
     
341.     (eq (type o)'VLA-OBJECT)
     
342.     (setq o(vlax-ename->vla-object o))  
     
343.   )
     
344.   (vlax-put-property o 'Material value)
     
345. )
     
346. 
     
347. ;;说明:
     
348. ;;参数:o:
     
349. ;;返回:
     
350. (defun Zgx:GetTchComposing:ObjectID(o)
     
351.   (or
     
352.     (eq (type o)'VLA-OBJECT)
     
353.     (setq o(vlax-ename->vla-object o))  
     
354.   )
     
355.   (vlax-get-property o 'ObjectID)
     
356. )
     
357. 
     
358. 
     
359. ;;说明:
     
360. ;;参数:o:
     
361. ;;返回:
     
362. (defun Zgx:GetTchComposing:ObjectID32(o)
     
363.   (or
     
364.     (eq (type o)'VLA-OBJECT)
     
365.     (setq o(vlax-ename->vla-object o))  
     
366.   )
     
367.   (vlax-get-property o 'ObjectID32)
     
368. )
     
369. 
     
370. 
     
371. ;;说明:
     
372. ;;参数:o:
     
373. ;;返回:
     
374. (defun Zgx:GetTchComposing:ObjectName(o)
     
375.   (or
     
376.     (eq (type o)'VLA-OBJECT)
     
377.     (setq o(vlax-ename->vla-object o))  
     
378.   )
     
379.   (vlax-get-property o 'ObjectName)
     
380. )
     
381. 
     
382. 
     
383. ;;说明:
     
384. ;;参数:o:
     
385. ;;返回:
     
386. (defun Zgx:GetTchComposing:OwnerID(o)
     
387.   (or
     
388.     (eq (type o)'VLA-OBJECT)
     
389.     (setq o(vlax-ename->vla-object o))  
     
390.   )
     
391.   (vlax-get-property o 'OwnerID)
     
392. )
     
393. 
     
394. 
     
395. ;;说明:
     
396. ;;参数:o:
     
397. ;;返回:
     
398. (defun Zgx:GetTchComposing:OwnerID32(o)
     
399.   (or
     
400.     (eq (type o)'VLA-OBJECT)
     
401.     (setq o(vlax-ename->vla-object o))  
     
402.   )
     
403.   (vlax-get-property o 'OwnerID32)
     
404. )
     
405. 
     
406. 
     
407. ;;说明:
     
408. ;;参数:o:
     
409. ;;返回:
     
410. (defun Zgx:GetTchComposing:PageWidth(o)
     
411.   (or
     
412.     (eq (type o)'VLA-OBJECT)
     
413.     (setq o(vlax-ename->vla-object o))  
     
414.   )
     
415.   (vlax-get-property o 'PageWidth)
     
416. )
     
417. 
     
418. ;;说明:
     
419. ;;参数:o:
     
420. ;;返回:
     
421. (defun Zgx:SetTchComposing:PageWidth(o value)
     
422.   (or
     
423.     (eq (type o)'VLA-OBJECT)
     
424.     (setq o(vlax-ename->vla-object o))  
     
425.   )
     
426.   (vlax-put-property o 'PageWidth value)
     
427. )
     
428. 
     
429. ;;说明:
     
430. ;;参数:o:
     
431. ;;返回:
     
432. (defun Zgx:GetTchComposing:ParagraphSpace(o)
     
433.   (or
     
434.     (eq (type o)'VLA-OBJECT)
     
435.     (setq o(vlax-ename->vla-object o))  
     
436.   )
     
437.   (vlax-get-property o 'ParagraphSpace)
     
438. )
     
439. 
     
440. ;;说明:
     
441. ;;参数:o:
     
442. ;;返回:
     
443. (defun Zgx:SetTchComposing:ParagraphSpace(o value)
     
444.   (or
     
445.     (eq (type o)'VLA-OBJECT)
     
446.     (setq o(vlax-ename->vla-object o))  
     
447.   )
     
448.   (vlax-put-property o 'ParagraphSpace value)
     
449. )
     
450. 
     
451. ;;说明:
     
452. ;;参数:o:
     
453. ;;返回:
     
454. (defun Zgx:GetTchComposing:PlotStyleName(o)
     
455.   (or
     
456.     (eq (type o)'VLA-OBJECT)
     
457.     (setq o(vlax-ename->vla-object o))  
     
458.   )
     
459.   (vlax-get-property o 'PlotStyleName)
     
460. )
     
461. 
     
462. ;;说明:
     
463. ;;参数:o:
     
464. ;;返回:
     
465. (defun Zgx:SetTchComposing:PlotStyleName(o value)
     
466.   (or
     
467.     (eq (type o)'VLA-OBJECT)
     
468.     (setq o(vlax-ename->vla-object o))  
     
469.   )
     
470.   (vlax-put-property o 'PlotStyleName value)
     
471. )
     
472. 
     
473. ;;说明:
     
474. ;;参数:o:
     
475. ;;返回:
     
476. (defun Zgx:GetTchComposing:Scale(o)
     
477.   (or
     
478.     (eq (type o)'VLA-OBJECT)
     
479.     (setq o(vlax-ename->vla-object o))  
     
480.   )
     
481.   (vlax-get-property o 'Scale)
     
482. )
     
483. 
     
484. ;;说明:
     
485. ;;参数:o:
     
486. ;;返回:
     
487. (defun Zgx:SetTchComposing:Scale(o value)
     
488.   (or
     
489.     (eq (type o)'VLA-OBJECT)
     
490.     (setq o(vlax-ename->vla-object o))  
     
491.   )
     
492.   (vlax-put-property o 'Scale value)
     
493. )
     
494. 
     
495. ;;说明:
     
496. ;;参数:o:
     
497. ;;返回:
     
498. (defun Zgx:GetTchComposing:Space(o)
     
499.   (or
     
500.     (eq (type o)'VLA-OBJECT)
     
501.     (setq o(vlax-ename->vla-object o))  
     
502.   )
     
503.   (vlax-get-property o 'Space)
     
504. )
     
505. 
     
506. ;;说明:
     
507. ;;参数:o:
     
508. ;;返回:
     
509. (defun Zgx:SetTchComposing:Space(o value)
     
510.   (or
     
511.     (eq (type o)'VLA-OBJECT)
     
512.     (setq o(vlax-ename->vla-object o))  
     
513.   )
     
514.   (vlax-put-property o 'Space value)
     
515. )
     
516. 
     
517. ;;说明:
     
518. ;;参数:o:
     
519. ;;返回:
     
520. (defun Zgx:GetTchComposing:Text(o)
     
521.   (or
     
522.     (eq (type o)'VLA-OBJECT)
     
523.     (setq o(vlax-ename->vla-object o))  
     
524.   )
     
525.   (vlax-get-property o 'Text)
     
526. )
     
527. 
     
528. ;;说明:
     
529. ;;参数:o:
     
530. ;;返回:
     
531. (defun Zgx:SetTchComposing:Text(o value)
     
532.   (or
     
533.     (eq (type o)'VLA-OBJECT)
     
534.     (setq o(vlax-ename->vla-object o))  
     
535.   )
     
536.   (vlax-put-property o 'Text value)
     
537. )
     
538. 
     
539. ;;说明:
     
540. ;;参数:o:
     
541. ;;返回:
     
542. (defun Zgx:GetTchComposing:Text2BaseRatio(o)
     
543.   (or
     
544.     (eq (type o)'VLA-OBJECT)
     
545.     (setq o(vlax-ename->vla-object o))  
     
546.   )
     
547.   (vlax-get-property o 'Text2BaseRatio)
     
548. )
     
549. 
     
550. ;;说明:
     
551. ;;参数:o:
     
552. ;;返回:
     
553. (defun Zgx:SetTchComposing:Text2BaseRatio(o value)
     
554.   (or
     
555.     (eq (type o)'VLA-OBJECT)
     
556.     (setq o(vlax-ename->vla-object o))  
     
557.   )
     
558.   (vlax-put-property o 'Text2BaseRatio value)
     
559. )
     
560. 
     
561. ;;说明:
     
562. ;;参数:o:
     
563. ;;返回:
     
564. (defun Zgx:GetTchComposing:TextBaseLen(o)
     
565.   (or
     
566.     (eq (type o)'VLA-OBJECT)
     
567.     (setq o(vlax-ename->vla-object o))  
     
568.   )
     
569.   (vlax-get-property o 'TextBaseLen)
     
570. )
     
571. 
     
572. ;;说明:
     
573. ;;参数:o:
     
574. ;;返回:
     
575. (defun Zgx:SetTchComposing:TextBaseLen(o value)
     
576.   (or
     
577.     (eq (type o)'VLA-OBJECT)
     
578.     (setq o(vlax-ename->vla-object o))  
     
579.   )
     
580.   (vlax-put-property o 'TextBaseLen value)
     
581. )
     
582. 
     
583. ;;说明:
     
584. ;;参数:o:
     
585. ;;返回:
     
586. (defun Zgx:GetTchComposing:TextColor(o)
     
587.   (or
     
588.     (eq (type o)'VLA-OBJECT)
     
589.     (setq o(vlax-ename->vla-object o))  
     
590.   )
     
591.   (vlax-get-property o 'TextColor)
     
592. )
     
593. 
     
594. ;;说明:
     
595. ;;参数:o:
     
596. ;;返回:
     
597. (defun Zgx:SetTchComposing:TextColor(o value)
     
598.   (or
     
599.     (eq (type o)'VLA-OBJECT)
     
600.     (setq o(vlax-ename->vla-object o))  
     
601.   )
     
602.   (vlax-put-property o 'TextColor value)
     
603. )
     
604. 
     
605. ;;说明:
     
606. ;;参数:o:
     
607. ;;返回:
     
608. (defun Zgx:GetTchComposing:TextLayer(o)
     
609.   (or
     
610.     (eq (type o)'VLA-OBJECT)
     
611.     (setq o(vlax-ename->vla-object o))  
     
612.   )
     
613.   (vlax-get-property o 'TextLayer)
     
614. )
     
615. 
     
616. ;;说明:
     
617. ;;参数:o:
     
618. ;;返回:
     
619. (defun Zgx:SetTchComposing:TextLayer(o value)
     
620.   (or
     
621.     (eq (type o)'VLA-OBJECT)
     
622.     (setq o(vlax-ename->vla-object o))  
     
623.   )
     
624.   (vlax-put-property o 'TextLayer value)
     
625. )
     
626. 
     
627. ;;说明:
     
628. ;;参数:o:
     
629. ;;返回:
     
630. (defun Zgx:GetTchComposing:TextSide(o)
     
631.   (or
     
632.     (eq (type o)'VLA-OBJECT)
     
633.     (setq o(vlax-ename->vla-object o))  
     
634.   )
     
635.   (vlax-get-property o 'TextSide)
     
636. )
     
637. 
     
638. ;;说明:
     
639. ;;参数:o:
     
640. ;;返回:
     
641. (defun Zgx:SetTchComposing:TextSide(o value)
     
642.   (or
     
643.     (eq (type o)'VLA-OBJECT)
     
644.     (setq o(vlax-ename->vla-object o))  
     
645.   )
     
646.   (vlax-put-property o 'TextSide value)
     
647. )
     
648. 
     
649. ;;说明:
     
650. ;;参数:o:
     
651. ;;返回:
     
652. (defun Zgx:GetTchComposing:TextType(o)
     
653.   (or
     
654.     (eq (type o)'VLA-OBJECT)
     
655.     (setq o(vlax-ename->vla-object o))  
     
656.   )
     
657.   (vlax-get-property o 'TextType)
     
658. )
     
659. 
     
660. ;;说明:
     
661. ;;参数:o:
     
662. ;;返回:
     
663. (defun Zgx:SetTchComposing:TextType(o value)
     
664.   (or
     
665.     (eq (type o)'VLA-OBJECT)
     
666.     (setq o(vlax-ename->vla-object o))  
     
667.   )
     
668.   (vlax-put-property o 'TextType value)
     
669. )
     
670. 
     
671. ;;说明:
     
672. ;;参数:o:
     
673. ;;返回:
     
674. (defun Zgx:GetTchComposing:TrueColor(o)
     
675.   (or
     
676.     (eq (type o)'VLA-OBJECT)
     
677.     (setq o(vlax-ename->vla-object o))  
     
678.   )
     
679.   (vlax-get-property o 'TrueColor)
     
680. )
     
681. 
     
682. ;;说明:
     
683. ;;参数:o:
     
684. ;;返回:
     
685. (defun Zgx:SetTchComposing:TrueColor(o value)
     
686.   (or
     
687.     (eq (type o)'VLA-OBJECT)
     
688.     (setq o(vlax-ename->vla-object o))  
     
689.   )
     
690.   (vlax-put-property o 'TrueColor value)
     
691. )
     
692. 
     
693. ;;说明:
     
694. ;;参数:o:
     
695. ;;返回:
     
696. (defun Zgx:GetTchComposing:Visible(o)
     
697.   (or
     
698.     (eq (type o)'VLA-OBJECT)
     
699.     (setq o(vlax-ename->vla-object o))  
     
700.   )
     
701.   (vlax-get-property o 'Visible)
     
702. )
     
703. 
     
704. ;;说明:
     
705. ;;参数:o:
     
706. ;;返回:
     
707. (defun Zgx:SetTchComposing:Visible(o value)
     
708.   (or
     
709.     (eq (type o)'VLA-OBJECT)
     
710.     (setq o(vlax-ename->vla-object o))  
     
711.   )
     
712.   (vlax-put-property o 'Visible value)
     
713. )
     
714. 
     
715. (zgx:getchco)

;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchComposing:Alignment(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Alignment)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchComposing:Alignment(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Alignment value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchComposing:Application(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Application)<br /> )<br /> <br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchComposing:CirPointSize(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'CirPointSize)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchComposing:CirPointSize(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'CirPointSize value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchComposing:Dist2Line(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Dist2Line)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchComposing:Dist2Line(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Dist2Line value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchComposing: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:GetTchComposing: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:SetTchComposing: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:GetTchComposing:FontStyle(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'FontStyle)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchComposing:FontStyle(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'FontStyle value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchComposing: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:GetTchComposing: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:GetTchComposing: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:SetTchComposing: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:GetTchComposing: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:GetTchComposing<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:SetTchComposing<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:GetTchComposing<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:SetTchComposing<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:GetTchComposing<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />ineSpace(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'LineSpace)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchComposing<img src="static/image/smiley/default/sweat.gif" smilieid="10" border="0" alt="" />ineSpace(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'LineSpace value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchComposing<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:SetTchComposing<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:GetTchComposing<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:SetTchComposing<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:GetTchComposing<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:SetTchComposing<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:GetTchComposing: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:SetTchComposing: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:GetTchComposing: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:GetTchComposing: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:GetTchComposing: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:GetTchComposing: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:GetTchComposing: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:GetTchComposing:PageWidth(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'PageWidth)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchComposing:PageWidth(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'PageWidth value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchComposing:ParagraphSpace(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'ParagraphSpace)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchComposing:ParagraphSpace(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'ParagraphSpace value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchComposing: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:SetTchComposing: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:GetTchComposing: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:SetTchComposing: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:GetTchComposing:Space(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Space)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchComposing:Space(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Space value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchComposing:Text(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Text)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchComposing:Text(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Text value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchComposing:Text2BaseRatio(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'Text2BaseRatio)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchComposing:Text2BaseRatio(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'Text2BaseRatio value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchComposing:TextBaseLen(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'TextBaseLen)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchComposing:TextBaseLen(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'TextBaseLen value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchComposing:TextColor(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'TextColor)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchComposing:TextColor(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'TextColor value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchComposing: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:SetTchComposing: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:GetTchComposing:TextSide(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'TextSide)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchComposing:TextSide(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'TextSide value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchComposing:TextType(o)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-get-property o 'TextType)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:SetTchComposing:TextType(o value)<br />   (or <br />     (eq (type o)'VLA-OBJECT)<br />     (setq o(vlax-ename->vla-object o))  <br />   )<br />   (vlax-put-property o 'TextType value)<br /> )<br /> <br /> ;;说明:<br /> ;;参数:o:<br /> ;;返回:<br /> (defun Zgx:GetTchComposing: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:SetTchComposing: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:GetTchComposing: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:SetTchComposing: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 /> (zgx:getchco)