粘贴为块

flowerrobot · 发表于 2022-7-6 17:20:07

基本上我厌倦了人们在工作中把一个项目粘贴成另一个dwg的块。
因此，我的lisp基本上是作为一个名称，并把它放在一个很好的层。
问题是。
我如何选择刚刚粘贴的项目，“L”选择最后一行，而不是整个事情“p”什么都不做。

任何想法

切亚
当我问有人可以解释“strcat”多一点或给我一个例子plz
干杯

copy


(Defun C:bk1 ()
(setvar "cmdecho" 0)
(setq isp(getpoint "\nSelect insert point: "))
(setq bkn(getstring "\nWhat is the name of the block: "))
;(setq ep (getkword "Plan or Elevation :"))
;(if (= ep p)(setq pl (plan)
:(setq pl (Elevation)
;(strcat (setq Tn (bk pl)))  
_paste 
(command "_block" tn bpt ?? "")

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

嗨，Flowerrobot，

我碰巧注意到，您使用“strcat”来组合“bk”（块名）和“pl”（方向）。但是，在LISP的前面，您将块名称的变量设置为“bkn”。

strcat对于组合两个字符串很有用，在您的情况下，如果您想组合字符串“bkn”和“pl”，您可能应该使用以下内容：

希望这有帮助

flowerrobot · 发表于 2022-7-6 18:28:54

非常感谢，很抱歉这个名字的错误，它是从我刚刚编写的代码中复制过来的，使用了类似的命令。

这就是代码现在的样子，你知道我会如何选择我粘贴的项目吗（不确定粘贴是否是正确的命令）
我甚至不确定是否可以做到这一点，我想把（粘贴为块命令）并把它粘贴为块，但你必须给它一个名称，在那里我改变了crl+shift+v（我想）在cui运行bk1代替。
此外，如果可能从其复制的图纸中获取dwg名称，例如，我复制了P0677-T50-8000中的项目。我能解释一下吗，它会有（“P0677-T50”tn）

谢谢你的帮助

copy

[编程交流] 粘贴为块

发表回复

精选推荐