[求助]：块替换后会变小很多怎么回事呀！（附块替换程序及问题事例）

dzyh · 发表于 2005-5-1 18:22:10

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如题
用ET也是如此

xyp1964 · 发表于 2005-5-1 21:41:39

原因：图块比例不同！
解决：删除被替换的图块，在每一插入点分别复制样块。
[php]
(load "xyp_lib")
;|
加载通用函数
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
如果已在acad.lsp中添加了(load "xyp_lib")，可以直接运行下面的程序。
|;

(defun c:test()
  (cmdla0)
  (princ "\n选择被替换的块实体 : ")
  (setq se1  (ssget '((0 . "INSERT")))
i -1
  )
  (princ "\n选择样块 : ")
  (setq s0  (usel 0 "INSERT"))
  (command ".undo" "BE")
  (while (setq s1 (ssname se1 (setq i (1+ i))))
(setq pt1 (osnap (cadr s0) "ins")
   pt2 (dxf 10 (entget s1))
   )
(vla-erase (vlax-ename->vla-object s1))
(command "copy" s0 "" pt1 pt2)
)
  (command ".undo" "E")
  (cmdla1)
)
[/php]

熊哥哥 · 发表于 2005-5-3 23:42:42

我也碰到同样的问题了，因该是放大比例的问题了

dzyh · 发表于 2005-5-8 18:47:37

斑竹的程序正和我意，不过能不能使它可以先选择再执行命令呀！这样的实用性就更大了

xyp1964 · 发表于 2005-5-8 19:21:59

最初由 dzyh 发布
[B]斑竹的程序正和我意，不过能不能使它可以先选择再执行命令呀！这样的实用性就更大了 [/B]

看不出这样做的实用性！

dzyh · 发表于 2005-5-9 21:35:13

用选择程序可以先选择图中同一类图块，再执行替换命令同时替换．总不能一个一个的选择吧

xyp1964 · 发表于 2005-5-9 21:59:10

最初由 dzyh 发布
[B]用选择程序可以先选择图中同一类图块，再执行替换命令同时替换．总不能一个一个的选择吧 [/B]

程序就是这样写的：先选择图中要修改的同一类图块，再选择样块，就搞定了！

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：块替换后会变小很多怎么回事呀！（附块替换程序及问题事例）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块