如何将一个文件里所有的一个图层里的矩形转化成块

vc4936

比如4号图层的矩形，都转化成一个固定名字的块，一个矩形转化成一个块，批量处理，多谢了

炫翔

1. (defun c:xx (/ i s1 ss)
   
2.   (setq ss (ssget '((0 . "lwpolyline")(8 . "4")(70 . 1)));图层4的闭合多段线
   
3.          i (sslength ss)
   
4.   )
   
5.   (while (setq s1 (ssname ss (setq i (1- i))))
   
6.     .....;建块部分，自己完成吧
   
7.   )
   
8. )

(defun c:xx (/ i s1 ss)<br />   (setq ss (ssget '((0 . "lwpolyline")(8 . "4")(70 . 1)));图层4的闭合多段线<br />          i (sslength ss)<br />   )<br />   (while (setq s1 (ssname ss (setq i (1- i))))<br />     .....;建块部分，自己完成吧<br />   )<br /> )

Free-Lancer

先判什么是矩形吧

仲文玉

(ssget "x" '((0 . "lwpolyline")(8 . "4")(90 . 4)(70 . 1)))  ??

Free-Lancer

仲文玉 发表于 2014-10-7 18:45
(ssget "x" '((0 . "lwpolyline")(8 . "4")(90 . 4)(70 . 1)))  ??

还可以是平行四边形
四边形
5个点外观也可能是四边形

zhuizhu

先判断4个角点，是否矩形装:)

st788796

简单组合一个即可，如果加上相同大小的作一个块就要麻烦多了

1. (defun c:tt (/ ss)
   
2.   (if (setq ss (ssget '((0 . "lwpolyline"))))
   
3.     (mapcar '(lambda (x / s)
   
4.                (if (xd::polyline:isrectang x)
   
5.                  (progn
   
6.                    (setq s (ssadd))
   
7.                    (ssadd x s)
   
8.                    (xdrx_block_make s (xdrx_curve_getstartpoint x) t)
   
9.                  )
   
10.                )
    
11.              )
    
12.             (xdrx_pickset->ents ss)
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )

(defun c:tt (/ ss)<br />   (if (setq ss (ssget '((0 . "lwpolyline"))))<br />     (mapcar '(lambda (x / s)<br />                (if (xd::polyline:isrectang x)<br />                  (progn<br />                    (setq s (ssadd))<br />                    (ssadd x s)<br />                    (xdrx_block_make s (xdrx_curve_getstartpoint x) t)<br />                  )<br />                )<br />              )<br />             (xdrx_pickset->ents ss)<br />     )<br />   )<br />   (princ)<br /> )

newer

如果程序要健壮的话，应该先去掉重复点，然后再做其他的。

st788796

isRectang是对AcDbCurve操作，已经执行了compress, 如果不改动原曲线可以用XDGE的AcGe曲线判断

zxq0220

可以用同一个块替换

2. ;矩形变块 晓东 zxq0220 2014.10.8
   
3. (defun c:tt ()
   
4. (setvar "CMDECHO" 0)
   
5. (setq slst (list))
   
6. (if (setq ss (ssget "X" '((0 . "LWPOLYLINE")(8 . "4")(70 . 1)))) (progn
   
7.   (command "_.RECTANG" "0,0" "1,1")
   
8.   (command "-BLOCK" "BOX" "0,0" "L" "")
   
9.   (repeat (setq i (sslength ss))
   
10.    (setq en (ssname ss (setq i (1- i))))
    
11.    (setq ent (entget en))
    
12.    (if (= (cdr(assoc 90)) 4) (progn
    
13.     (setq ptlst (list))
    
14.     (foreach x ent (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst))))
    
15.     (if (equal (distance(car ptlst)(caddr ptlst))(distance(cadr ptlst)(last ptlst)) 1e-6)
    
16.     (progn
    
17.      (setq ang (angle (car ptlst) (cadr ptlst)))
    
18.      (setq x (distance (car ptlst) (cadr ptlst)))
    
19.      (setq y (distance (cadr ptlst) (caddr ptlst)))
    
20.      (command "-INSERT" "BOX" (car ptlst) x y (/ (* ang 180) pi))
    
21.     ))
    
22.    ))
    
23.   )
    
24. ))
    
25. (setvar "CMDECHO" 1)
    
26. (princ)
    
27. )
    

;矩形变块 晓东 zxq0220 2014.10.8<br /> (defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (setq slst (list))<br /> (if (setq ss (ssget "X" '((0 . "LWPOLYLINE")(8 . "4")(70 . 1)))) (progn<br />   (command "_.RECTANG" "0,0" "1,1")<br />   (command "-BLOCK" "BOX" "0,0" "L" "")<br />   (repeat (setq i (sslength ss))<br />    (setq en (ssname ss (setq i (1- i))))<br />    (setq ent (entget en))<br />    (if (= (cdr(assoc 90)) 4) (progn<br />     (setq ptlst (list))<br />     (foreach x ent (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst))))<br />     (if (equal (distance(car ptlst)(caddr ptlst))(distance(cadr ptlst)(last ptlst)) 1e-6)<br />     (progn<br />      (setq ang (angle (car ptlst) (cadr ptlst)))<br />      (setq x (distance (car ptlst) (cadr ptlst)))<br />      (setq y (distance (cadr ptlst) (caddr ptlst)))<br />      (command "-INSERT" "BOX" (car ptlst) x y (/ (* ang 180) pi))<br />     ))<br />    ))<br />   )<br /> ))<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />