[求助]点替换为块？

kicker_315

学习了 高手啊

xyp1964

2. ;; 把图层 "3421" 中的所有点用文件A001.dwg文件来替换
   
3. (defun c:tt ()
   
4.   (setq        ss (ssget '((0 . "point") (8 . "3421")))
   
5.         i  -1
   
6.   )
   
7.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
8.     (command "insert" "A001" (cdr (assoc 10 (entget s1))) 1 1 0)
   
9.     (entdel s1)
   
10.   )
    
11.   (princ)
    
12. )

;; 把图层 "3421" 中的所有点用文件A001.dwg文件来替换<br /> (defun c:tt ()<br />   (setq        ss (ssget '((0 . "point") (8 . "3421")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (command "insert" "A001" (cdr (assoc 10 (entget s1))) 1 1 0)<br />     (entdel s1)<br />   )<br />   (princ)<br /> )