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

粘贴为块

基本上我厌倦了人们在工作中把一个项目粘贴成另一个dwg的块。
因此,我的lisp基本上是作为一个名称,并把它放在一个很好的层。
问题是。
我如何选择刚刚粘贴的项目,“L”选择最后一行,而不是整个事情“p”什么都不做。
 
任何想法
 
切亚
当我问有人可以解释“strcat”多一点或给我一个例子plz
干杯

(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)
 
谢谢你的帮助
 
2
页: [1]
查看完整版本: 粘贴为块