你好，救命物料标签

razorangel · 发表于 2022-7-6 17:22:42

首先我想说的是，我觉得这些论坛是多么棒！很高兴知道有这么多有帮助和智慧的人在那里。

我的希望是在我的工作项目中得到一些帮助。基本上，我已经为自定义工具栏构建了一个宏，可以将块（材质标记）插入到图形中。我希望有一个备用按钮来绘制一条线，第一个点是用户指定的，第二个点也是用户指定的，但将是插入块（这是一个中心有文本的圆）的位置，然后从线的中心修剪线。

基本上是有一个带有引线的材质标记。不管它是否在最后将它们组合在一起，都没什么大不了的，但如果它还可以将这两个实体组合成一个未命名的组，那就太棒了。

我希望我没有要求太多，但我在谷歌上的搜索一直没有结果。

再次提前感谢！

Lee Mac · 发表于 2022-7-6 17:42:13

嗨，Razongel，

只是一个快速的回复，在阅读您的帖子后，这个Lisp程序可能有一些像你在寻找什么。

如果有帮助，请告诉我！
TKTAG。lsp

razorangel · 发表于 2022-7-6 17:57:18

李·麦克，

非常感谢您的回复，但我想我只需要使用宏命令就可以完成。所有没有发生的事情是修剪线条，并将线条和mtag块分组在一起。来，让我给你看看。

copy

^C^C_line;\\;_-insert;"N:/Piping Group/_BLOCKS/2d/Toolbar/Mtag.dwg";$m=$(getvar,lastpoint);1;;;\_trim;;$m=$(getvar,lastpoint);

razorangel · 发表于 2022-7-6 17:59:12

我仍在试图让它从圆圈内部修剪线条，但运气不好。有什么想法吗？

此外，我想在我的宏中包括绘制实体的分组。。。

razorangel · 发表于 2022-7-6 18:11:54

可以差一点！我从另一个线程借用了一些代码，但我不喜欢缩放问题。太好了。。。我在想怎么缩小变焦！有什么想法吗？（简单的答案是行不通的——如果你只是去掉缩放和相关命令，它就不会修剪）。

copy


^C^C-layer m mtag;;_line;\\;_-insert;"N:/Piping Group/_BLOCKS/2d/Toolbar/Mtag.dwg";$m=$(getvar,lastpoint);1;;;\circle;$m=$(getvar,lastpoint);0.1875;(setq cc (entlast));zoom;o;l;;trim;l;;c;@-0.02,-0.02;@0.04,0.04;;erase;!cc;;zoom;p;

razorangel · 发表于 2022-7-6 18:33:15

都明白了！胡特！好吧，没有关于分组的项目，但谁在乎呢？我很高兴它起作用了。

copy


^C^C-layer m mtag;;_line;\\;_-insert;"N:/Piping Group/_BLOCKS/2d/Toolbar/Mtag.dwg";$m=$(getvar,lastpoint);1;;;\circle;$m=$(getvar,lastpoint);0.1875;(setq cc (entlast));trim;l;;c;@-0.1,-0.1;@0.1,0.1;;erase;!cc;;

[编程交流] 你好，救命物料标签

发表回复

精选推荐