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

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

<p>把有人把图纸中的矩形做成了块</p><p>但是插入点却在矩形的左下角</p><p></p><p>想改变插入点在矩形的中心,应该怎么做?</p><p></p><p>我用新的块来代替旧的块,但是插入点为中心的新块更新替代后,矩形全部都偏移了位置</p><p>我该怎么办?&gt;</p>

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

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

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

<p></p><p>取之于明，用之于明了。希望对你有帮助。。。</p>

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

<p>谢谢两位</p><p>我先下载,回去试试看</p>

客人 发表于 2009-9-9 15:32:00

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

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

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

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

<p>原来回复之后才能看见</p>

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

linhui12发表于2009-5-15 7:32:00static/image/common/back.gif4749447495取之于明，用之于明了。希望对你有帮助。。。

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

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

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

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

<p>能用。</p><p>JonFleming.lsp中的所需要内容已经加入LSP了，注意DCL一定要复制到ACAD支持目录(安装目录或其support目录也行)下。</p>
页: [1] 2
查看完整版本: [求助]块的插入点如何改变?