lisp或其他简单例程t

rkmcswain · 发表于 2022-7-6 11:34:02

是的，这就是我所想的-除非要求原点是“左下角”（或类似的东西…）-在这种情况下，你必须先弄清楚这一点是什么，然后才能应用它。

我的猜测是，可能这是一个砖/瓦模式，需要从某个角落开始。。。

alanjt · 发表于 2022-7-6 11:40:14

啊，好的。我唯一真正担心的是，我的混凝土舱口不会因为处于国家平面坐标而出错。

designerstuart · 发表于 2022-7-6 11:44:04

实际上不是，这是天花板网格布局，但瓷砖是随机放置的，无法更改。我的画有很多新的图案填充，都是原点0,0。

所以现在我必须选择每一个，并手动告诉它它的起源应该在哪里。这是无法公式化的，唯一的选择是通过点击指定每个。。。。。。正如你在这里提到的：

我想我需要停顿一下，就像你在这里说的那样。如果有人用这个停顿来写代码会不会太麻烦？

总而言之，我认为我需要：

copy

-hatchedit
origin
select new origin
<click to secify>
no

我想就这些！谢谢你们的坚持。

rkmcswain · 发表于 2022-7-6 11:46:05

像这样的怎么样？

copy


(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)
)

注意，这是非常基本的，没有错误检查等。

designerstuart · 发表于 2022-7-6 11:51:48

太好了谢谢
工作完美

（关于帽子的事，我很抱歉——我不是故意要喊的！）

:-)

designerstuart · 发表于 2022-7-6 11:53:33

.... 还有一件事。。。

有人能解释一下它是如何工作的吗？如中所示，每条线都做什么？
我想学习，如果不是问题，那就太好了。谢谢

copy


(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)
)

[编程交流] lisp或其他简单例程t

发表回复

精选推荐