如何动态显示块属性—— 请高手帮忙修改（源码已给出）

qcw911

(setq ENT_SELP (ssget ENT_PT2 '((0 . "INSERT") (66 . 1))))
ENT_PT2 为点
这样为什么不行

lenlenq

怎么不行？
语法应该没问题。
在某点选择属性块。

qcw911

2. ;;;??信息
   
3. ;;;Copyrignt chengqiang Lin 2009 for mengyang(作者:林承?)
   
4. (defun c:vh ()
   
5.   (setq        AcadObject   (vlax-get-acad-object)
   
6.         AcadDocument (vla-get-ActiveDocument Acadobject)
   
7.         mSpace             (vla-get-ModelSpace Acaddocument)
   
8.   )
   
9.   (defun DEL_DD        ()
   
10.     (if        (/= SOLD_list nil)
    
11.       (progn
    
12.         (if (/= ENT_SELP nil)
    
13.           (entupd ENT_SELP_1)
    
14.           (princ)
    
15.         )
    
16.         (entdel SOLD_list)
    
17.         (entdel SOLD_list_t1)
    
18.         (entdel SOLD_list_t2)
    
19.         (entdel SOLD_list_t3)
    
20.         (entdel SOLD_list_t4)
    
21.         (entdel SOLD_list_t5)
    
22.         (setq SOLD_list nil)
    
23.       )
    
24.       (princ)
    
25.     )
    
26.   )
    
27.   (setq *error* VHerror)
    
28.   (princ "\n-->移動鼠標到任意對象可?詢信息，按右鍵退出:")
    
29.   (setq tt nil)
    
30.   (while (= tt nil)
    
31.     (setq VIEW (* 1.5(getvar "viewsize")));qiuw1
    
32.     (setq ENT_PT1 (grread t 1))
    
33.     (DEL_DD)
    
34.     (if        (or (= (car ENT_PT1) 5) (= (car ENT_PT1) 12))
    
35.       (progn
    
36.         (setq ENT_PT2 (car (cdr ENT_PT1)))
    
37. ;;;        (setq ENT_SELP (ssget ENT_PT2))
    
38.         (setq ENT_SELP (ssget ENT_PT2 '((0 . "INSERT") (66 . 1))))
    
39.         (if (/= ENT_SELP nil)
    
40.           (progn
    
41.             (setq ENT_SELP_1 (ssname ENT_SELP 0))
    
42.             (setq pt1 ENT_PT2)
    
43.             (redraw (ssname ENT_SELP 0) 3)
    
44.             (setq ENT_S (entget (ssname ENT_SELP 0)))
    
45.             (setq entovlx (vlax-ename->vla-object (ssname ENT_SELP 0)))
    
46. 
    
47. ;;;           (setq att (vlax-invoke entovlx 'GetAttributes))
    
48. ;;;           (setq lst (mapcar '(lambda (x)
    
49. ;;;                     (list (vla-get-tagString x)
    
50. ;;;                           (vla-get-textstring x)
    
51. ;;;                     )
    
52. ;;;                   )
    
53. ;;;                 )
    
54. ;;;           )
    
55.             (setq ENT_MS (cdr (assoc 0 ENT_S)))
    
56.             (cond
    
57.               ((= ENT_MS "LINE")
    
58.                (setq t1 "【直線】")
    
59.                (setq t2        (strcat        "長度:"
    
60.                                 (rtos (vla-get-Length entovlx)
    
61.                                 )
    
62.                         )
    
63.                )
    
64.                (setq t3
    
65.                       (strcat "角度:"
    
66.                               (rtos (/ (* (angle (cdr (assoc 10 ENT_S))
    
67.                                                  (cdr (assoc 11 ENT_S))
    
68.                                           )
    
69.                                           180
    
70.                                        )
    
71.                                        pi
    
72.                                     )
    
73.                               )
    
74.                       )
    
75.                )
    
76.                (setq t4
    
77.                       (strcat
    
78.                         "起点:"
    
79.                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)
    
80.                                 ","
    
81.                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)
    
82.                                 ","
    
83.                                 (rtos (caddr (cdr (assoc 10 ENT_S))) 2 2)
    
84.                         )
    
85.                       )
    
86.                )
    
87.                (setq t5
    
88.                       (strcat
    
89.                         "終点:"
    
90.                         (strcat        (rtos (car (cdr (assoc 11 ENT_S))) 2 2)
    
91.                                 ","
    
92.                                 (rtos (cadr (cdr (assoc 11 ENT_S))) 2 2)
    
93.                                 ","
    
94.                                 (rtos (caddr (cdr (assoc 11 ENT_S))) 2 2)
    
95.                         )
    
96.                       )
    
97.                )
    
98.               )
    
99.               ((= ENT_MS "INSERT")
    
100.                (setq t1 "【図塊】")
     
101.                (setq t2 (strcat "塊名:" (cdr (assoc 2 ENT_S))))
     
102.                (setq
     
103.                  t3 (strcat "角度:" (angtos (cdr (assoc 50 ENT_S))))
     
104.                )
     
105.                (setq t4 (strcat "図層:" (cdr (assoc 8 ENT_S))))
     
106.                (setq t5
     
107.                       (strcat
     
108.                         "基点:"
     
109.                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)
     
110.                                 ","
     
111.                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)
     
112.                                 ","
     
113.                                 (rtos (caddr (cdr (assoc 10 ENT_S))) 2 2)
     
114.                         )
     
115.                       )
     
116.                )
     
117.               )
     
118.               ((= ENT_MS "TEXT")
     
119.                (setq t1 "【文字】")
     
120.                (setq t2 (strcat "内容:" (cdr (assoc 1 ENT_S))))
     
121.                (setq t3 (strcat "文字樣式:" (cdr (assoc 7 ENT_S))))
     
122.                (setq
     
123.                  t4 (strcat "文字高度:" (rtos (cdr (assoc 40 ENT_S))))
     
124.                )
     
125.                (setq t5
     
126.                       (strcat
     
127.                         "基点:"
     
128.                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)
     
129.                                 ","
     
130.                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)
     
131.                                 ","
     
132.                                 (rtos (caddr (cdr (assoc 10 ENT_S))) 2 2)
     
133.                         )
     
134.                       )
     
135.                )
     
136.               )
     
137.               ((= ENT_MS "DIMENSION")
     
138.                (setq t1 "【標注尺寸】")
     
139.                (setq t2 (strcat "内容:" (cdr (assoc 1 ENT_S))))
     
140.                (setq t3 (strcat "標注樣式:" (cdr (assoc 3 ENT_S))))
     
141.                (setq t4 (strcat "図層:" (cdr (assoc 8 ENT_S))))
     
142.                (setq t5
     
143.                       (strcat
     
144.                         "基点:"
     
145.                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)
     
146.                                 ","
     
147.                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)
     
148.                                 ","
     
149.                                 (rtos (caddr (cdr (assoc 10 ENT_S))) 2 2)
     
150.                         )
     
151.                       )
     
152.                )
     
153.               )
     
154.               ((= ENT_MS "MTEXT")
     
155.                (setq t1 "【多行文字】")
     
156.                (setq t2 (strcat "図層:" (cdr (assoc 8 ENT_S))))
     
157.                (setq t3 (strcat "文字樣式:" (cdr (assoc 7 ENT_S))))
     
158.                (setq
     
159.                  t4 (strcat "文字高度:" (rtos (cdr (assoc 40 ENT_S))))
     
160.                )
     
161.                (setq t5
     
162.                       (strcat
     
163.                         "基点:"
     
164.                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)
     
165.                                 ","
     
166.                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)
     
167.                                 ","
     
168.                                 (rtos (caddr (cdr (assoc 10 ENT_S))) 2 2)
     
169.                         )
     
170.                       )
     
171.                )
     
172.               )
     
173.               ((= ENT_MS "HATCH")
     
174.                (setq t1 "【邊界填充】")
     
175.                (setq t2 (strcat "図層:" (cdr (assoc 8 ENT_S))))
     
176.                (setq t3 (strcat "填充樣式:" (cdr (assoc 2 ENT_S))))
     
177.                (setq
     
178.                  t4 (strcat "填充比例:" (rtos (cdr (assoc 41 ENT_S))))
     
179.                )
     
180.                (setq t5
     
181.                       (strcat
     
182.                         "基点:"
     
183.                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)
     
184.                                 ","
     
185.                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)
     
186.                                 ","
     
187.                                 (rtos (caddr (cdr (assoc 10 ENT_S))) 2 2)
     
188.                         )
     
189.                       )
     
190.                )
     
191.               )
     
192.               ((= ENT_MS "LWPOLYLINE")
     
193.                (setq t1 "【多段線】")
     
194.                (setq t2 (strcat "図層:" (cdr (assoc 8 ENT_S))))
     
195.                (setq t3        (strcat        "長度:"
     
196.                                 (rtos (vla-get-Length entovlx)
     
197.                                 )
     
198.                         )
     
199.                )
     
200.                (setq t4 (strcat "面積:" (rtos (vla-get-Area entovlx))))
     
201.                (setq t5
     
202.                       (strcat
     
203.                         "起点:"
     
204.                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)
     
205.                                 ","
     
206.                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)
     
207.                                 ","
     
208.                                 (rtos 0)
     
209.                         )
     
210.                       )
     
211.                )
     
212.               )
     
213.               ((= ENT_MS "CIRCLE")
     
214.                (setq t1 "【圓】")
     
215.                (setq t2 (strcat "図層:" (cdr (assoc 8 ENT_S))))
     
216.                (setq t3        (strcat        "直径:"
     
217.                                 "%%C"
     
218.                                 (rtos (* (cdr (assoc 40 ENT_S)) 2))
     
219.                         )
     
220.                )
     
221.                (setq t4 (strcat "面積:" (rtos (vla-get-Area entovlx))))
     
222.                (setq t5
     
223.                       (strcat
     
224.                         "圓心:"
     
225.                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)
     
226.                                 ","
     
227.                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)
     
228.                                 ","
     
229.                                 (rtos 0)
     
230.                         )
     
231.                       )
     
232.                )
     
233.               )
     
234.               ((= ENT_MS "ARC")
     
235.                (setq t1 "【圓弧】")
     
236.                (setq t2 (strcat "図層:" (cdr (assoc 8 ENT_S))))
     
237.                (setq
     
238.                  t3 (strcat "半径:" "R" (rtos (cdr (assoc 40 ENT_S))))
     
239.                )
     
240.                (setq
     
241.                  t4 (strcat "長度:" (rtos (vla-get-ArcLength entovlx)))
     
242.                )
     
243.                (setq t5
     
244.                       (strcat
     
245.                         "圓心:"
     
246.                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)
     
247.                                 ","
     
248.                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)
     
249.                                 ","
     
250.                                 (rtos 0)
     
251.                         )
     
252.                       )
     
253.                )
     
254.               )
     
255.               ((= ENT_MS "ELLIPSE")
     
256.                (setq t1 "【橢圓】")
     
257.                (setq t2 (strcat "図層:" (cdr (assoc 8 ENT_S))))
     
258.                (setq t3        (strcat        "半径比例:"
     
259.                                 (rtos (vla-get-RadiusRatio entovlx))
     
260.                         )
     
261.                )
     
262.                (setq t4
     
263.                       (strcat "面積:" (rtos (vlax-curve-getArea entovlx)))
     
264.                )
     
265.                (setq t5
     
266.                       (strcat
     
267.                         "中心点:"
     
268.                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)
     
269.                                 ","
     
270.                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)
     
271.                                 ","
     
272.                                 (rtos 0)
     
273.                         )
     
274.                       )
     
275.                )
     
276.               )
     
277.               ((= ENT_MS "TOLERANCE")
     
278.                (setq t1 "【公差】")
     
279.                (setq t2 (strcat "図層:" (cdr (assoc 8 ENT_S))))
     
280.                (setq t3 (strcat "標注樣式" (cdr (assoc 3 ENT_S))))
     
281.                (setq t4 (strcat "空間:" "模型空間"))
     
282.                (setq t5
     
283.                       (strcat
     
284.                         "基点:"
     
285.                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)
     
286.                                 ","
     
287.                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)
     
288.                                 ","
     
289.                                 (rtos 0)
     
290.                         )
     
291.                       )
     
292.                )
     
293.               )
     
294.               ((= ENT_MS "LEADER")
     
295.                (setq t1 "【箭頭】")
     
296.                (setq t2 (strcat "図層:" (cdr (assoc 8 ENT_S))))
     
297.                (setq t3 (strcat "標注樣式:" (cdr (assoc 3 ENT_S))))
     
298.                (setq t4
     
299.                       (strcat "顏色:"
     
300.                               (rtos (vla-get-DimensionLineColor entovlx))
     
301.                       )
     
302.                )
     
303.                (setq t5
     
304.                       (strcat
     
305.                         "基点:"
     
306.                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)
     
307.                                 ","
     
308.                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)
     
309.                                 ","
     
310.                                 (rtos 0)
     
311.                         )
     
312.                       )
     
313.                )
     
314.               )
     
315.               ((= ENT_MS "SPLINE")
     
316.                (setq t1 "【樣条曲線】")
     
317.                (setq t2 (strcat "図層:" (cdr (assoc 8 ENT_S))))
     
318.                (setq
     
319.                  t3 (strcat "長度:" (rtos (vla-get-ArcLength entovlx)))
     
320.                )
     
321.                (setq t4        (strcat        "長度:"
     
322.                                 (rtos (vlax-curve-getEndParam entovlx)
     
323.                                 )
     
324.                         )
     
325.                )
     
326.                (setq t5 (strcat "空間:" (cdr (assoc 410 ENT_S))))
     
327.               )
     
328.               ((= ENT_MS "POLYLINE")
     
329.                (setq t1 "【三維条曲線】")
     
330.                (setq t2 (strcat "??:" (cdr (assoc 8 ENT_S))))
     
331.                (setq
     
332.                  t3 (strcat "長度:"
     
333.                             (rtos (vlax-curve-getEndParam entovlx))
     
334.                     )
     
335.                )
     
336.                (setq t4
     
337.                       (strcat "面積:" (rtos (vlax-curve-getArea entovlx)))
     
338.                )
     
339.                (setq t5 (strcat "空間:" (cdr (assoc 410 ENT_S))))
     
340.               )
     
341.             )
     
342.             (setq TTS (max (strlen t1)
     
343.                            (strlen t2)
     
344.                            (strlen t3)
     
345.                            (strlen t4)
     
346.                            (strlen t5)
     
347.                       )
     
348.             )
     
349.             (setq pt2 (polar pt1 (angtof "0") (/ (* VIEW TTS) 60)))
     
350.             (setq pt3 (polar pt2 (angtof "270") (/ VIEW 6)))
     
351.             (setq pt4 (polar pt3 (angtof "180") (/ (* VIEW TTS) 60)))
     
352.             (setq tx0 (polar pt1 (angtof "0") (/ (/ VIEW 6) 6)))
     
353.             (setq tx1 (polar tx0 (angtof "270") (/ (/ VIEW 6) 6)))
     
354.             (setq tx2 (polar pt1 (angtof "270") (/ (/ VIEW 6) 2.5)))
     
355.             (setq tx3 (polar tx2 (angtof "270") (/ (/ VIEW 6) 6)))
     
356.             (setq tx4 (polar tx3 (angtof "270") (/ (/ VIEW 6) 6)))
     
357.             (setq tx5 (polar tx4 (angtof "270") (/ (/ VIEW 6) 6)))
     
358.             (setq txscale (/ VIEW 65))
     
359.             (setq
     
360.               SOLD_list
     
361.                (entmakex
     
362.                  (list (cons 0 "SOLID")
     
363.                        (cons 100 "AcDbEntity")
     
364.                        (cons 62 178);qiuw1
     
365.                        (cons 100 "AcDbTrace")
     
366.                        (cons 10 pt1)
     
367.                        (cons 11 pt2)
     
368.                        (cons 12 pt4)
     
369.                        (cons 13 pt3)
     
370.                        (cons 210 (trans (getvar "viewdir") 1 0))
     
371.                  )
     
372.                )
     
373.             )
     
374.             (setq
     
375.               SOLD_list_t1
     
376.                (entmakex
     
377.                  (list (cons 0 "TEXT")
     
378.                        (cons 100 "AcDbEntity")
     
379.                        (cons 8 "MAIN")
     
380.                        (cons 100 "AcDbText")
     
381.                        (cons 10 tx1)
     
382.                        (cons 40 txscale)
     
383.                        (cons 1 t1)
     
384.                        (cons 41 0.8)
     
385.                        (cons 7 "Standard")
     
386.                        (cons 41 1)
     
387.                        (cons 210 (trans (getvar "viewdir") 1 0))
     
388.                  )
     
389.                )
     
390.             )
     
391.             (setq
     
392.               SOLD_list_t2
     
393.                (entmakex
     
394.                  (list (cons 0 "TEXT")
     
395.                        (cons 100 "AcDbEntity")
     
396.                        (cons 8 "MAIN")
     
397.                        (cons 100 "AcDbText")
     
398.                        (cons 10 tx2)
     
399.                        (cons 40 txscale)
     
400.                        (cons 1 t2)
     
401.                        (cons 41 0.8)
     
402.                        (cons 7 "Standard")
     
403.                        (cons 41 1)
     
404.                        (cons 210 (trans (getvar "viewdir") 1 0))
     
405.                  )
     
406.                )
     
407.             )
     
408.             (setq
     
409.               SOLD_list_t3
     
410.                (entmakex
     
411.                  (list (cons 0 "TEXT")
     
412.                        (cons 100 "AcDbEntity")
     
413.                        (cons 8 "MAIN")
     
414.                        (cons 100 "AcDbText")
     
415.                        (cons 10 tx3)
     
416.                        (cons 40 txscale)
     
417.                        (cons 1 t3)
     
418.                        (cons 41 0.8)
     
419.                        (cons 7 "Standard")
     
420.                        (cons 41 1)
     
421.                        (cons 210 (trans (getvar "viewdir") 1 0))
     
422.                  )
     
423.                )
     
424.             )
     
425.             (setq
     
426.               SOLD_list_t4
     
427.                (entmakex
     
428.                  (list (cons 0 "TEXT")
     
429.                        (cons 100 "AcDbEntity")
     
430.                        (cons 8 "MAIN")
     
431.                        (cons 100 "AcDbText")
     
432.                        (cons 10 tx4)
     
433.                        (cons 40 txscale)
     
434.                        (cons 1 t4)
     
435.                        (cons 41 0.8)
     
436.                        (cons 7 "Standard")
     
437.                        (cons 41 1)
     
438.                        (cons 210 (trans (getvar "viewdir") 1 0))
     
439.                  )
     
440.                )
     
441.             )
     
442.             (setq
     
443.               SOLD_list_t5
     
444.                (entmakex
     
445.                  (list (cons 0 "TEXT")
     
446.                        (cons 100 "AcDbEntity")
     
447.                        (cons 8 "MAIN")
     
448.                        (cons 100 "AcDbText")
     
449.                        (cons 10 tx5)
     
450.                        (cons 40 txscale)
     
451.                        (cons 1 t5)
     
452.                        (cons 41 0.8)
     
453.                        (cons 7 "Standard")
     
454.                        (cons 41 1)
     
455.                        (cons 210 (trans (getvar "viewdir") 1 0))
     
456.                  )
     
457.                )
     
458.             )
     
459.           )
     
460.           (progn
     
461.             (DEL_DD)
     
462.           )
     
463.         )
     
464.       )
     
465.       (progn
     
466.         (setq tt 1)
     
467.         (DEL_DD)
     
468.       )
     
469.     )
     
470.   )
     
471. )
     
472. (defun VHerror (msg1)
     
473.   (setq msg1 "\n***提示:***")
     
474.   (setq        msg2
     
475.          "\n***程序被中断***"
     
476.   )
     
477.   (setq tt 1)
     
478.   (princ msg1)
     
479.   (princ msg2)
     
480.   (DEL_DD)
     
481.   (setq *error* olderror)
     
482. )
     

;;;??信息<br /> ;;;Copyrignt chengqiang Lin 2009 for mengyang(作者:林承?)<br /> (defun c:vh ()<br />   (setq        AcadObject   (vlax-get-acad-object)<br />         AcadDocument (vla-get-ActiveDocument Acadobject)<br />         mSpace             (vla-get-ModelSpace Acaddocument)<br />   )<br />   (defun DEL_DD        ()<br />     (if        (/= SOLD_list nil)<br />       (progn<br />         (if (/= ENT_SELP nil)<br />           (entupd ENT_SELP_1)<br />           (princ)<br />         )<br />         (entdel SOLD_list)<br />         (entdel SOLD_list_t1)<br />         (entdel SOLD_list_t2)<br />         (entdel SOLD_list_t3)<br />         (entdel SOLD_list_t4)<br />         (entdel SOLD_list_t5)<br />         (setq SOLD_list nil)<br />       )<br />       (princ)<br />     )<br />   )<br />   (setq *error* VHerror)<br />   (princ "\n-->移動鼠標到任意對象可?詢信息，按右鍵退出:")<br />   (setq tt nil)<br />   (while (= tt nil)<br />     (setq VIEW (* 1.5(getvar "viewsize")));qiuw1<br />     (setq ENT_PT1 (grread t 1))<br />     (DEL_DD)<br />     (if        (or (= (car ENT_PT1) 5) (= (car ENT_PT1) 12))<br />       (progn<br />         (setq ENT_PT2 (car (cdr ENT_PT1)))<br /> ;;;        (setq ENT_SELP (ssget ENT_PT2))<br />         (setq ENT_SELP (ssget ENT_PT2 '((0 . "INSERT") (66 . 1))))<br />         (if (/= ENT_SELP nil)<br />           (progn<br />             (setq ENT_SELP_1 (ssname ENT_SELP 0))<br />             (setq pt1 ENT_PT2)<br />             (redraw (ssname ENT_SELP 0) 3)<br />             (setq ENT_S (entget (ssname ENT_SELP 0)))<br />             (setq entovlx (vlax-ename->vla-object (ssname ENT_SELP 0)))<br /> <br /> ;;;           (setq att (vlax-invoke entovlx 'GetAttributes))<br /> ;;;           (setq lst (mapcar '(lambda (x)<br /> ;;;                     (list (vla-get-tagString x)<br /> ;;;                           (vla-get-textstring x)<br /> ;;;                     )<br /> ;;;                   )<br /> ;;;                 )<br /> ;;;           )<br />             (setq ENT_MS (cdr (assoc 0 ENT_S)))<br />             (cond<br />               ((= ENT_MS "LINE")<br />                (setq t1 "【直線】")<br />                (setq t2        (strcat        "長度:"<br />                                 (rtos (vla-get-Length entovlx)<br />                                 )<br />                         )<br />                )<br />                (setq t3<br />                       (strcat "角度:"<br />                               (rtos (/ (* (angle (cdr (assoc 10 ENT_S))<br />                                                  (cdr (assoc 11 ENT_S))<br />                                           )<br />                                           180<br />                                        )<br />                                        pi<br />                                     )<br />                               )<br />                       )<br />                )<br />                (setq t4<br />                       (strcat<br />                         "起点:"<br />                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (caddr (cdr (assoc 10 ENT_S))) 2 2)<br />                         )<br />                       )<br />                )<br />                (setq t5<br />                       (strcat<br />                         "終点:"<br />                         (strcat        (rtos (car (cdr (assoc 11 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (cadr (cdr (assoc 11 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (caddr (cdr (assoc 11 ENT_S))) 2 2)<br />                         )<br />                       )<br />                )<br />               )<br />               ((= ENT_MS "INSERT")<br />                (setq t1 "【図塊】")<br />                (setq t2 (strcat "塊名:" (cdr (assoc 2 ENT_S))))<br />                (setq<br />                  t3 (strcat "角度:" (angtos (cdr (assoc 50 ENT_S))))<br />                )<br />                (setq t4 (strcat "図層:" (cdr (assoc 8 ENT_S))))<br />                (setq t5<br />                       (strcat<br />                         "基点:"<br />                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (caddr (cdr (assoc 10 ENT_S))) 2 2)<br />                         )<br />                       )<br />                )<br />               )<br />               ((= ENT_MS "TEXT")<br />                (setq t1 "【文字】")<br />                (setq t2 (strcat "内容:" (cdr (assoc 1 ENT_S))))<br />                (setq t3 (strcat "文字樣式:" (cdr (assoc 7 ENT_S))))<br />                (setq<br />                  t4 (strcat "文字高度:" (rtos (cdr (assoc 40 ENT_S))))<br />                )<br />                (setq t5<br />                       (strcat<br />                         "基点:"<br />                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (caddr (cdr (assoc 10 ENT_S))) 2 2)<br />                         )<br />                       )<br />                )<br />               )<br />               ((= ENT_MS "DIMENSION")<br />                (setq t1 "【標注尺寸】")<br />                (setq t2 (strcat "内容:" (cdr (assoc 1 ENT_S))))<br />                (setq t3 (strcat "標注樣式:" (cdr (assoc 3 ENT_S))))<br />                (setq t4 (strcat "図層:" (cdr (assoc 8 ENT_S))))<br />                (setq t5<br />                       (strcat<br />                         "基点:"<br />                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (caddr (cdr (assoc 10 ENT_S))) 2 2)<br />                         )<br />                       )<br />                )<br />               )<br />               ((= ENT_MS "MTEXT")<br />                (setq t1 "【多行文字】")<br />                (setq t2 (strcat "図層:" (cdr (assoc 8 ENT_S))))<br />                (setq t3 (strcat "文字樣式:" (cdr (assoc 7 ENT_S))))<br />                (setq<br />                  t4 (strcat "文字高度:" (rtos (cdr (assoc 40 ENT_S))))<br />                )<br />                (setq t5<br />                       (strcat<br />                         "基点:"<br />                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (caddr (cdr (assoc 10 ENT_S))) 2 2)<br />                         )<br />                       )<br />                )<br />               )<br />               ((= ENT_MS "HATCH")<br />                (setq t1 "【邊界填充】")<br />                (setq t2 (strcat "図層:" (cdr (assoc 8 ENT_S))))<br />                (setq t3 (strcat "填充樣式:" (cdr (assoc 2 ENT_S))))<br />                (setq<br />                  t4 (strcat "填充比例:" (rtos (cdr (assoc 41 ENT_S))))<br />                )<br />                (setq t5<br />                       (strcat<br />                         "基点:"<br />                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (caddr (cdr (assoc 10 ENT_S))) 2 2)<br />                         )<br />                       )<br />                )<br />               )<br />               ((= ENT_MS "LWPOLYLINE")<br />                (setq t1 "【多段線】")<br />                (setq t2 (strcat "図層:" (cdr (assoc 8 ENT_S))))<br />                (setq t3        (strcat        "長度:"<br />                                 (rtos (vla-get-Length entovlx)<br />                                 )<br />                         )<br />                )<br />                (setq t4 (strcat "面積:" (rtos (vla-get-Area entovlx))))<br />                (setq t5<br />                       (strcat<br />                         "起点:"<br />                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos 0)<br />                         )<br />                       )<br />                )<br />               )<br />               ((= ENT_MS "CIRCLE")<br />                (setq t1 "【圓】")<br />                (setq t2 (strcat "図層:" (cdr (assoc 8 ENT_S))))<br />                (setq t3        (strcat        "直径:"<br />                                 "%%C"<br />                                 (rtos (* (cdr (assoc 40 ENT_S)) 2))<br />                         )<br />                )<br />                (setq t4 (strcat "面積:" (rtos (vla-get-Area entovlx))))<br />                (setq t5<br />                       (strcat<br />                         "圓心:"<br />                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos 0)<br />                         )<br />                       )<br />                )<br />               )<br />               ((= ENT_MS "ARC")<br />                (setq t1 "【圓弧】")<br />                (setq t2 (strcat "図層:" (cdr (assoc 8 ENT_S))))<br />                (setq<br />                  t3 (strcat "半径:" "R" (rtos (cdr (assoc 40 ENT_S))))<br />                )<br />                (setq<br />                  t4 (strcat "長度:" (rtos (vla-get-ArcLength entovlx)))<br />                )<br />                (setq t5<br />                       (strcat<br />                         "圓心:"<br />                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos 0)<br />                         )<br />                       )<br />                )<br />               )<br />               ((= ENT_MS "ELLIPSE")<br />                (setq t1 "【橢圓】")<br />                (setq t2 (strcat "図層:" (cdr (assoc 8 ENT_S))))<br />                (setq t3        (strcat        "半径比例:"<br />                                 (rtos (vla-get-RadiusRatio entovlx))<br />                         )<br />                )<br />                (setq t4<br />                       (strcat "面積:" (rtos (vlax-curve-getArea entovlx)))<br />                )<br />                (setq t5<br />                       (strcat<br />                         "中心点:"<br />                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos 0)<br />                         )<br />                       )<br />                )<br />               )<br />               ((= ENT_MS "TOLERANCE")<br />                (setq t1 "【公差】")<br />                (setq t2 (strcat "図層:" (cdr (assoc 8 ENT_S))))<br />                (setq t3 (strcat "標注樣式" (cdr (assoc 3 ENT_S))))<br />                (setq t4 (strcat "空間:" "模型空間"))<br />                (setq t5<br />                       (strcat<br />                         "基点:"<br />                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos 0)<br />                         )<br />                       )<br />                )<br />               )<br />               ((= ENT_MS "LEADER")<br />                (setq t1 "【箭頭】")<br />                (setq t2 (strcat "図層:" (cdr (assoc 8 ENT_S))))<br />                (setq t3 (strcat "標注樣式:" (cdr (assoc 3 ENT_S))))<br />                (setq t4<br />                       (strcat "顏色:"<br />                               (rtos (vla-get-DimensionLineColor entovlx))<br />                       )<br />                )<br />                (setq t5<br />                       (strcat<br />                         "基点:"<br />                         (strcat        (rtos (car (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos (cadr (cdr (assoc 10 ENT_S))) 2 2)<br />                                 ","<br />                                 (rtos 0)<br />                         )<br />                       )<br />                )<br />               )<br />               ((= ENT_MS "SPLINE")<br />                (setq t1 "【樣条曲線】")<br />                (setq t2 (strcat "図層:" (cdr (assoc 8 ENT_S))))<br />                (setq<br />                  t3 (strcat "長度:" (rtos (vla-get-ArcLength entovlx)))<br />                )<br />                (setq t4        (strcat        "長度:"<br />                                 (rtos (vlax-curve-getEndParam entovlx)<br />                                 )<br />                         )<br />                )<br />                (setq t5 (strcat "空間:" (cdr (assoc 410 ENT_S))))<br />               )<br />               ((= ENT_MS "POLYLINE")<br />                (setq t1 "【三維条曲線】")<br />                (setq t2 (strcat "??:" (cdr (assoc 8 ENT_S))))<br />                (setq<br />                  t3 (strcat "長度:"<br />                             (rtos (vlax-curve-getEndParam entovlx))<br />                     )<br />                )<br />                (setq t4<br />                       (strcat "面積:" (rtos (vlax-curve-getArea entovlx)))<br />                )<br />                (setq t5 (strcat "空間:" (cdr (assoc 410 ENT_S))))<br />               )<br />             )<br />             (setq TTS (max (strlen t1)<br />                            (strlen t2)<br />                            (strlen t3)<br />                            (strlen t4)<br />                            (strlen t5)<br />                       )<br />             )<br />             (setq pt2 (polar pt1 (angtof "0") (/ (* VIEW TTS) 60)))<br />             (setq pt3 (polar pt2 (angtof "270") (/ VIEW 6)))<br />             (setq pt4 (polar pt3 (angtof "180") (/ (* VIEW TTS) 60)))<br />             (setq tx0 (polar pt1 (angtof "0") (/ (/ VIEW 6) 6)))<br />             (setq tx1 (polar tx0 (angtof "270") (/ (/ VIEW 6) 6)))<br />             (setq tx2 (polar pt1 (angtof "270") (/ (/ VIEW 6) 2.5)))<br />             (setq tx3 (polar tx2 (angtof "270") (/ (/ VIEW 6) 6)))<br />             (setq tx4 (polar tx3 (angtof "270") (/ (/ VIEW 6) 6)))<br />             (setq tx5 (polar tx4 (angtof "270") (/ (/ VIEW 6) 6)))<br />             (setq txscale (/ VIEW 65))<br />             (setq<br />               SOLD_list<br />                (entmakex<br />                  (list (cons 0 "SOLID")<br />                        (cons 100 "AcDbEntity")<br />                        (cons 62 178);qiuw1<br />                        (cons 100 "AcDbTrace")<br />                        (cons 10 pt1)<br />                        (cons 11 pt2)<br />                        (cons 12 pt4)<br />                        (cons 13 pt3)<br />                        (cons 210 (trans (getvar "viewdir") 1 0))<br />                  )<br />                )<br />             )<br />             (setq<br />               SOLD_list_t1<br />                (entmakex<br />                  (list (cons 0 "TEXT")<br />                        (cons 100 "AcDbEntity")<br />                        (cons 8 "MAIN")<br />                        (cons 100 "AcDbText")<br />                        (cons 10 tx1)<br />                        (cons 40 txscale)<br />                        (cons 1 t1)<br />                        (cons 41 0.8)<br />                        (cons 7 "Standard")<br />                        (cons 41 1)<br />                        (cons 210 (trans (getvar "viewdir") 1 0))<br />                  )<br />                )<br />             )<br />             (setq<br />               SOLD_list_t2<br />                (entmakex<br />                  (list (cons 0 "TEXT")<br />                        (cons 100 "AcDbEntity")<br />                        (cons 8 "MAIN")<br />                        (cons 100 "AcDbText")<br />                        (cons 10 tx2)<br />                        (cons 40 txscale)<br />                        (cons 1 t2)<br />                        (cons 41 0.8)<br />                        (cons 7 "Standard")<br />                        (cons 41 1)<br />                        (cons 210 (trans (getvar "viewdir") 1 0))<br />                  )<br />                )<br />             )<br />             (setq<br />               SOLD_list_t3<br />                (entmakex<br />                  (list (cons 0 "TEXT")<br />                        (cons 100 "AcDbEntity")<br />                        (cons 8 "MAIN")<br />                        (cons 100 "AcDbText")<br />                        (cons 10 tx3)<br />                        (cons 40 txscale)<br />                        (cons 1 t3)<br />                        (cons 41 0.8)<br />                        (cons 7 "Standard")<br />                        (cons 41 1)<br />                        (cons 210 (trans (getvar "viewdir") 1 0))<br />                  )<br />                )<br />             )<br />             (setq<br />               SOLD_list_t4<br />                (entmakex<br />                  (list (cons 0 "TEXT")<br />                        (cons 100 "AcDbEntity")<br />                        (cons 8 "MAIN")<br />                        (cons 100 "AcDbText")<br />                        (cons 10 tx4)<br />                        (cons 40 txscale)<br />                        (cons 1 t4)<br />                        (cons 41 0.8)<br />                        (cons 7 "Standard")<br />                        (cons 41 1)<br />                        (cons 210 (trans (getvar "viewdir") 1 0))<br />                  )<br />                )<br />             )<br />             (setq<br />               SOLD_list_t5<br />                (entmakex<br />                  (list (cons 0 "TEXT")<br />                        (cons 100 "AcDbEntity")<br />                        (cons 8 "MAIN")<br />                        (cons 100 "AcDbText")<br />                        (cons 10 tx5)<br />                        (cons 40 txscale)<br />                        (cons 1 t5)<br />                        (cons 41 0.8)<br />                        (cons 7 "Standard")<br />                        (cons 41 1)<br />                        (cons 210 (trans (getvar "viewdir") 1 0))<br />                  )<br />                )<br />             )<br />           )<br />           (progn<br />             (DEL_DD)<br />           )<br />         )<br />       )<br />       (progn<br />         (setq tt 1)<br />         (DEL_DD)<br />       )<br />     )<br />   )<br /> )<br /> (defun VHerror (msg1)<br />   (setq msg1 "\n***提示:***")<br />   (setq        msg2<br />          "\n***程序被中断***"<br />   )<br />   (setq tt 1)<br />   (princ msg1)<br />   (princ msg2)<br />   (DEL_DD)<br />   (setq *error* olderror)<br /> )<br />

【KAIXIN】

  用的着这长的代码吗？试试用通用函数  简化

qcw911

【KAIXIN】 发表于 2011-12-7 20:18
用的着这长的代码吗？试试用通用函数  简化

如何用上面的函数修改成
动态显示块属性的呢
(vl-load-com)
(defun c:bte ()
    (setq ss (ssget '((0 . "INSERT") (66 . 1))))
    (setq en (vlax-ename->vla-object (ssname ss 0)))
    (setq att (vlax-invoke en 'GetAttributes))
    (mapcar '(lambda (x)
               (list (vla-get-tagString x)
                     (vla-get-textstring x)
             ))
             att
    )
)
这个函数是获取块属性的
我是新人
帮帮忙

【KAIXIN】

grread  你去查查这个函数的用法，因为动态的，我也没接触过

qcw911

【KAIXIN】 发表于 2011-12-8 08:31
grread  你去查查这个函数的用法，因为动态的，我也没接触过

改改就可以吧，试了好久没成功

byghbcx

可以参考http://bbs.mjtd.com/forum.php?mod=viewthread&tid=9315

byghbcx

要求 (entnext (ssname ss 0)),才是ATTRIB，才可以有tagString、extstring属性

qcw911

byghbcx 发表于 2011-12-8 09:01
要求 (entnext (ssname ss 0)),才是ATTRIB，才可以有tagString、extstring属性

对啊 这也是问题啊
上面的程序时动态显示 层 什么的
我想让它显示属性