如何实现将dwg文件中的特定块移动一定距离。

haibinpro

论坛上应该已有代码，但搜不到。

比如我想移动“new blo234Yck2”这个块，
此块在图形中有6个，我想把它移出一段距离，以便知道其位置。
如何实现？

如果这个块又是放在“123”这个块里面的（嵌套块），是否也可移动。

如果有程序能够也移动嵌套块（123也移动），那就ok了。

ssget "X" ' ((0 . "INSERT")))

Dream.Fei

不知道这样对不对:
[php]
(setq ss (ssget "x" ((0 . "insert") ( 2 . "块名"))))
(command "move" ss 距离)
[/php]

haibinpro

谢谢，修改为以下代码后可以使用。

2. 
   
3. (defun c:test(/ ss)
   
4. (setq ss (ssget "x" ' ((0 . "insert") ( 2 . "new block3525"))))
   
5. (command "_move" ss "" "0,-20000,0" "")
   
6. )
   

<br /> (defun c:test(/ ss)<br /> (setq ss (ssget "x" ' ((0 . "insert") ( 2 . "new block3525")))) <br /> (command "_move" ss "" "0,-20000,0" "")<br /> )<br />

Dream.Fei

呵呵,只是move命令省略了源点和目标点.