如何将块替换为点

friendfgj

这是论坛里面大神写的“点替换为块”的程序
[php]
;;点换块 晓东 zxq0220 2008.4.8
(defun c:tat ()
(setvar "CMDECHO" 0)
(setq oldos (getvar "OSMODE"))
(setq blknm (getstring "\nBlock Name :"))
(if (setq ss (ssget '((0 . "POINT")))) (progn
  (setvar "OSMODE" 0)
  (setq i -1)
  (repeat (sslength ss)
   (setq en (ssname ss (setq i (1+ i)))
         ent (entget en)
         pt (cdr (assoc 10 ent)))
   (command ".insert" blknm pt "" "" "")
  )
  (command ".erase" ss "")
))
(setvar "OSMODE" oldos)
(setvar "CMDECHO" 1)
(princ)
)
[/php]


麻烦哪个大神给改一下，改成“将块替换为点”，谢谢

XDSoft

http://bbs.xdcad.net/thread-677029-1-1.html

另外，什么时候你需要把块变成点？ 要做什么？

zxq0220

2. ;;块换点 晓东 zxq0220 2014.11.12
   
3. (defun c:tat ()
   
4. (setvar "CMDECHO" 0)
   
5. (setq oldos (getvar "OSMODE"))
   
6. (setq blknm (getstring "\nBlock Name :"))
   
7. (if (setq ss (ssget '((0 . "INSERT")))) (progn
   
8.   (setvar "OSMODE" 0)
   
9.   (repeat (setq i (sslength ss))
   
10.    (entdel (setq en (ssname ss (setq i (1- i))))
    
11.    (command ".POINT" (cdr (assoc 10 (entget en))))
    
12.   )
    
13. ))
    
14. (setvar "OSMODE" oldos)
    
15. (setvar "CMDECHO" 1)
    
16. (princ)
    
17. )
    

;;块换点 晓东 zxq0220 2014.11.12<br /> (defun c:tat ()<br /> (setvar "CMDECHO" 0)<br /> (setq oldos (getvar "OSMODE"))<br /> (setq blknm (getstring "\nBlock Name :"))<br /> (if (setq ss (ssget '((0 . "INSERT")))) (progn<br />   (setvar "OSMODE" 0)<br />   (repeat (setq i (sslength ss))<br />    (entdel (setq en (ssname ss (setq i (1- i))))<br />    (command ".POINT" (cdr (assoc 10 (entget en))))<br />   )<br /> ))<br /> (setvar "OSMODE" oldos)<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

newer

zxq0220 发表于 2014-11-12 08:15

实际上，另外一种思路，把点做成同名块，然后更新原来块，这样应该最好，一次性替换所有，还不多占空间。

friendfgj

这个方法好，谢谢