[求助]块的插入点如何改变?

XIAOFEILONG · 发表于 2009-5-15 00:03:00

把有人把图纸中的矩形做成了块

但是插入点却在矩形的左下角

想改变插入点在矩形的中心,应该怎么做?

我用新的块来代替旧的块,但是插入点为中心的新块更新替代后,矩形全部都偏移了位置

我该怎么办?>

azjmjsj · 发表于 2009-5-15 04:24:00

试一下以下代码：
(defun C:blkrp ( / ss BlkName ents i)
   (setvar "osmode" 0)
   (princ "\n请选择作为源块的图块:")
   (setq ss (ssget (list (cons 0 "INSERT"))))
   (setq BlkName (cdr (assoc 2 (entget (ssname ss 0)))))
   (princ "\n请选择将替换的图块:")
   (setq ss (ssget (list (cons 0 "INSERT"))))
   (if ss
     (progn
       (setq i 0)
       (repeat (sslength ss)
(setq ents (entget (ssname ss i)))
(setq ents (subst (cons 2 BlkName) (assoc 2 ents) ents))
(entmod ents)
(setq i (1+ i))
       )
     )
   )
   (princ)
)

linhui12 · 发表于 2009-5-15 07:32:00

取之于明，用之于明了。希望对你有帮助。。。

XIAOFEILONG · 发表于 2009-5-16 18:51:00

谢谢两位

我先下载,回去试试看

明经网友 *发表于 2009-9-9 15:32:00* · 发表于 2009-9-9 15:32:00

??我也遇到了啊。如何解决的呢

just_go · 发表于 2009-12-23 15:34:00

这个贴是怎么回事呀，怎么有两个回贴看不见呢？我正好也有这样的问题

just_go · 发表于 2009-12-23 15:35:00

原来回复之后才能看见

just_go · 发表于 2009-12-23 16:57:00

linhui12发表于2009-5-15 7:32:004749447495取之于明，用之于明了。希望对你有帮助。。。

3楼的lsp用不了啊，有没有更简洁一点的办法呢？

wangqin · 发表于 2009-12-23 20:59:00

用到Jon Fleming写的转换函数，JonFleming.lsp文件在那里？

NetBee · 发表于 2010-5-6 12:01:00

能用。

JonFleming.lsp中的所需要内容已经加入LSP了，注意DCL一定要复制到ACAD支持目录(安装目录或其support目录也行)下。

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

[求助]块的插入点如何改变?

本帖子中包含更多资源