是的，这就是我所想的-除非要求原点是“左下角”（或类似的东西…）-在这种情况下，你必须先弄清楚这一点是什么，然后才能应用它。
我的猜测是，可能这是一个砖/瓦模式，需要从某个角落开始。。。 啊，好的。我唯一真正担心的是，我的混凝土舱口不会因为处于国家平面坐标而出错。
实际上不是，这是天花板网格布局，但瓷砖是随机放置的，无法更改。我的画有很多新的图案填充，都是原点0,0。
所以现在我必须选择每一个，并手动告诉它它的起源应该在哪里。这是无法公式化的，唯一的选择是通过点击指定每个。。。。。。正如你在这里提到的：
我想我需要停顿一下，就像你在这里说的那样。如果有人用这个停顿来写代码会不会太麻烦？
总而言之，我认为我需要：
-hatchedit
origin
select new origin
<click to secify>
no
我想就这些！谢谢你们的坚持。
像这样的怎么样？
(defun C:NewOrg ( / ent pt1)
(while (setq ent (car (entsel "\nSelect HATCH: ")))
(setq pt1 (getpoint "\nSelect new Origin: "))
(command "._hatchedit" ent "_O" "_S" pt1 "_N")
)
(princ)
)
注意，这是非常基本的，没有错误检查等。 太好了谢谢
工作完美
（关于帽子的事，我很抱歉——我不是故意要喊的！）
:-) .... 还有一件事。。。
有人能解释一下它是如何工作的吗？如中所示，每条线都做什么？
我想学习，如果不是问题，那就太好了。谢谢
(defun C:NewOrg ( / ent pt1)
(while (setq ent (car (entsel "\nSelect HATCH: ")))
(setq pt1 (getpoint "\nSelect new Origin: "))
(command "._hatchedit" ent "_O" "_S" pt1 "_N")
)
(princ)
)
页:
1
[2]