[求助]：点批量替换为块

starlet2003

[问题描述]
将文件中不同图层的点（每个图层一种类型）分别用相应的图块替换（块或块参照），图块由文件读入（一个图块存为一个文件，如同CASS中的图块定义）。

zxq0220

因为不知道图块名称和图层名称，只能写个小程序做样板。
[php]
;;点换块 晓东 zxq0220 2008.4.8
(defun c:tt ()
(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]

chenzl1234

2楼楼主，这个程序生成块的同时删除了点，能不能在保留原来点的基础上批量插入块呢？

starlet2003

2楼楼主，那么怎么读取一个文件中的图形作为块呢？

zxq0220

要想不删点将(command ".erase" ss "")去掉或注解就行。
读取一个文件中的图形作块？不太明白。是一个文件中有许多图形，而这些图形都是块呢？还是这些图形不是块要做成块呢？
总之：如果将图形文件本身当成块是可以的；如果一个图形中有许多制作好的块也是可以的。不过要打散插入。

starlet2003

例如，我要把图层“3421”中的所有点用文件A001.dwg文件来替换，LISP应该怎么写？

（A001.dwg中只包含一个特定的图形，即是说它就是一个块）

ljttjl

(defun c:xgpoint ()
  (setq m (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq m1 (getvar "clayer"))
  (setvar "clayer" "gcd")
  (setq q3 (getvar "osmode"))
  (setvar "osmode" 0)
  
  ......  
  
  (setq i (+ 1 i))
  (command "copy" f1 "" "m" point)
  (while (< i (- b 1))
    (setq c (ssname a i))
    (setq point1 (cdr (assoc 10 (entget c))))
    (command point1)
    (setq i (1+ i))
  )
  (command "")
  
  (setvar "cmdecho" m)
  (setvar "clayer" m1)
  (setvar "osmode" q3)
  (princ "已完成！")
  (princ)
)

该程序已调试成功，注意一点请将您的A001.dwg文件放入d:根目录,其问题联系：ljttjl   @    tom .  com

zxq0220

[php]
;;点换块 晓东 zxq0220 2008.4.10
(defun c:tt ()
(setvar "CMDECHO" 0)
(setq oldos (getvar "OSMODE"))
(if (setq blknm (findfile "A001.dwg"))
  (if (setq ss (ssget '((0 . "POINT") (8 . "3421"))) (progn
   (setvar "OSMODE" 0)
   (setq i -1)
   (repeat (sslength ss)
    (setq pt (cdr (assoc 10 (entget (ssname ss (setq i (1+ i)))))))
    (command ".insert" blknm pt "" "" "")
   )
;  (command ".erase" ss "")
  ))
)
(setvar "OSMODE" oldos)
(setvar "CMDECHO" 1)
(princ)
)
[/php]