[求助]：想通过修改实体信息直接修改块裁剪边界，不成？

fylinwater

想直接修改块裁剪边界
下面代码不成功  那位朋友有这方面的处理经验？

2. 
   
3. (defun  Tsp_clip_ChangeBlockEdge(ent   newPtLst  / ent1 pt ENTLST I NEWENTLST NEWPTDOTLST  ptN)
   
4.    (SETQ ENT1 (cdr(ASSOC 360 (entget ent))))
   
5.    (SETQ ENT1 (cdr(ASSOC 360 (entget ent1))))
   
6.    (SETQ ENT1 (cdr(ASSOC 360 (entget ent1))))  ;简缩到边界数据表
   
7. 
   
8.    (setq entlst  (entget ent1 ) )
   
9.       (setq i 0)
   
10.    (print entlst)
    
11.    (setq ptN (length newPtLst))
    
12.   (foreach  dot entlst
    
13.        (if (/=(car dot) 10)
    
14.           (if (=(car dot) 70)
    
15.             (setq Newentlst (cons (cons 70 ptN) Newentlst))
    
16.            (setq Newentlst (cons dot Newentlst))
    
17.            )
    
18.          )
    
19.      )
    
20.    (foreach  pt newPtLst
    
21.       (setq newPtDotLst  (cons (cons 10  pt)   newPtDotLst))
    
22.      )
    
23.   (setq Newentlst (append Newentlst newPtDotLst))
    
24.   (print (ENTMOd Newentlst))
    
25.    (PRINC "\n    ")(print Newentlst)          
    
26. ;; (alert  "无法完成修改块参照边界")
    
27.    (princ)
    
28. )
    

<br /> (defun  Tsp_clip_ChangeBlockEdge(ent   newPtLst  / ent1 pt ENTLST I NEWENTLST NEWPTDOTLST  ptN)<br />    (SETQ ENT1 (cdr(ASSOC 360 (entget ent))))<br />    (SETQ ENT1 (cdr(ASSOC 360 (entget ent1))))<br />    (SETQ ENT1 (cdr(ASSOC 360 (entget ent1))))  ;简缩到边界数据表<br /> <br />    (setq entlst  (entget ent1 ) )<br />       (setq i 0)<br />    (print entlst)<br />    (setq ptN (length newPtLst))<br />   (foreach  dot entlst<br />        (if (/=(car dot) 10)<br />           (if (=(car dot) 70)<br />             (setq Newentlst (cons (cons 70 ptN) Newentlst))<br />            (setq Newentlst (cons dot Newentlst))<br />            )<br />          )<br />      )<br />    (foreach  pt newPtLst<br />       (setq newPtDotLst  (cons (cons 10  pt)   newPtDotLst))<br />      )<br />   (setq Newentlst (append Newentlst newPtDotLst))<br />   (print (ENTMOd Newentlst))<br />    (PRINC "\n    ")(print Newentlst)           <br /> ;; (alert  "无法完成修改块参照边界")<br />    (princ)<br /> )<br />