关于选择指定名称的块和根据点表创建选择集

war32

2. (defun C:wx()
   
3. (vl-load-com)
   
4. (command "undo" "be")
   
5. (setvar "cmdecho" 0)
   
6. (command "ucs" "w")
   
7. (princ "\n请选择物体:")
   
8. (while(null
   
9. ;;;   (setq en (ssget '((0 . "LWPOLYLINE") (62 . 5) )   ))
   
10.    ;选择指定名称的图块，例如块名为"a3"，注释的上一句选择蓝色的多段线可以执行，我调试时都时用选的多段线
    
11.    (setq en (ssget "x" '((0 . "~block,~a3"))))
    
12.    ))
    
13. (setq minx0 1e6 miny0 1e6 maxx0 -1e6 maxy0 -1e6)
    
14. (setq i 0)
    
15. (repeat (sslength en)
    
16.   (setq end (ssname en i))
    
17.   (setq end_data (entget end))
    
18.    ;求选择集的最大和最小坐标
    
19.   (vla-getboundingbox(vlax-ename->vla-object end) 'minp 'maxp)
    
20. (setq minp (vlax-safearray->list minp)
    
21.        maxp (vlax-safearray->list maxp))
    
22. (setq minx (car minp)
    
23.        maxx (car maxp)
    
24.        miny (cadr minp)
    
25.        maxy (cadr maxp))
    
26.   ;获得选择集的最大和最小坐标
    
27.   ;求出图框的高度h和宽度w
    
28.   (setq w (- maxx minx)
    
29.   h (- maxy miny))
    
30. ;;;   ;判断图幅放大比例
    
31.    
    
32.   (cond
    
33.   ((= (/ h 594) (/ w 841) ) (setq scl (/ h 594)))
    
34.   ((= (/ h 420) (/ w 594) ) (setq scl (/ h 420)))
    
35.   ((= (/ h 297) (/ w 420) ) (setq scl (/ h 297))))
    
36. ;;;;求出图号位置
    
37.     (setq tx1 (- maxx (* scl 81)))
    
38.     (setq ty1 (+ miny (* scl 19)))
    
39.     (setq tx2 (- maxx (* scl 5)))
    
40.     (setq ty2 (+ miny (* scl 33)))
    
41.    (setq px1 (list tx1 ty1))
    
42.    (setq px2 (list tx2 ty1))
    
43.    (setq px3 (list tx2 ty2))
    
44.    (setq px4 (list tx1 ty2))
    
45.    ;创建点表；以上运行都没出错，可以得到监视的px1-px4的值，但是下一步创建pt_list
    
46.    ;点表时，监视得到的pt_list的值为（（px1 px2 px3 px4）），通过进一步选择可以看到
    
47.    ;px1的值，但是无法创建选择级，提示点参数错误
    
48.    (setq pt_list list(px1 px2 px3 px4))
    
49.    ;根据点表创建选择集
    
50. (setq tuhao (ssget "WP" pt_list))
    
51.   
    
52.   (setq i(1+ i))
    
53. )
    
54. 
    
55. 
    
56. )

(defun C:wx()<br /> (vl-load-com)<br /> (command "undo" "be")<br /> (setvar "cmdecho" 0)<br /> (command "ucs" "w")<br /> (princ "\n请选择物体:")<br /> (while(null<br /> ;;;   (setq en (ssget '((0 . "LWPOLYLINE") (62 . 5) )   ))<br />    ;选择指定名称的图块，例如块名为"a3"，注释的上一句选择蓝色的多段线可以执行，我调试时都时用选的多段线<br />    (setq en (ssget "x" '((0 . "~block,~a3"))))<br />    ))<br /> (setq minx0 1e6 miny0 1e6 maxx0 -1e6 maxy0 -1e6)<br /> (setq i 0)<br /> (repeat (sslength en)<br />   (setq end (ssname en i))<br />   (setq end_data (entget end))<br />    ;求选择集的最大和最小坐标<br />   (vla-getboundingbox(vlax-ename->vla-object end) 'minp 'maxp)<br /> (setq minp (vlax-safearray->list minp)<br />        maxp (vlax-safearray->list maxp))<br /> (setq minx (car minp)<br />        maxx (car maxp)<br />        miny (cadr minp)<br />        maxy (cadr maxp))<br />   ;获得选择集的最大和最小坐标<br />   ;求出图框的高度h和宽度w<br />   (setq w (- maxx minx)<br />   h (- maxy miny))<br /> ;;;   ;判断图幅放大比例<br />    <br />   (cond<br />   ((= (/ h 594) (/ w 841) ) (setq scl (/ h 594)))<br />   ((= (/ h 420) (/ w 594) ) (setq scl (/ h 420)))<br />   ((= (/ h 297) (/ w 420) ) (setq scl (/ h 297))))<br /> ;;;;求出图号位置<br />     (setq tx1 (- maxx (* scl 81)))<br />     (setq ty1 (+ miny (* scl 19)))<br />     (setq tx2 (- maxx (* scl 5)))<br />     (setq ty2 (+ miny (* scl 33)))<br />    (setq px1 (list tx1 ty1))<br />    (setq px2 (list tx2 ty1))<br />    (setq px3 (list tx2 ty2))<br />    (setq px4 (list tx1 ty2))<br />    ;创建点表；以上运行都没出错，可以得到监视的px1-px4的值，但是下一步创建pt_list<br />    ;点表时，监视得到的pt_list的值为（（px1 px2 px3 px4）），通过进一步选择可以看到<br />    ;px1的值，但是无法创建选择级，提示点参数错误<br />    (setq pt_list list(px1 px2 px3 px4))<br />    ;根据点表创建选择集<br /> (setq tuhao (ssget "WP" pt_list))<br />   <br />   (setq i(1+ i))<br /> )<br /> <br /> <br /> )

Andyhon

(setq pt_list list(px1 px2 px3 px4))
==>
(setq pt_list (list px1 px2 px3 px4))

war32

Andyhon 发表于 2015-6-29 15:37
(setq pt_list list(px1 px2 px3 px4))
==>
(setq pt_list (list px1 px2 px3 px4))

好吧，范了个低级错误，一直没检查出来，不过用ssget函数选择指定名称的块怎么办啊，其余的功能都实现了，现在就差选择指定名称的块了

llsheng_73

war32 发表于 2015-6-29 16:34
好吧，范了个低级错误，一直没检查出来，不过用ssget函数选择指定名称的块怎么办啊，其余的功能都实现了， ...

(setq en (ssget "x" '((0 . "~block,~a3"))))
==>
(setq en(ssget"X"'((0 . "insert")(2 . "指定的块名"))))
或者(setq en(ssget"X"(list'(0 . "insert")(cons 2(getstring"要选定的图块名:")))))