向心聚爆Lsp修改（需求

onzki · 发表于 2022-7-6 10:13:24

大家好，

下面是我经常使用的代码，用于快速阻止/分组对象（与分解相反）。我很久以前从网上得到的，这是丹尼斯·基拉科夫先生提供的。我试图与作者取得联系，但我在谷歌上的搜索一直没有结果。

我的修改是在选择之前或之后添加一个提示，以指定块名，例如“键入块名”。

对不起，我是lisp新手。我也试图理解每行代码并自己修改，但那些“rtos”、“strcat”、“CDATEX”让我有些头痛，我在短序列中迷路了哈哈。

非常感谢。：）

------------------

; 内爆。LSP内爆©1996，Dennis Kiracofe
; 更改^v^CAD Studio

（定义C:IMP（/SLCT CDATE BNAME）
（setvar“cmdecho”0）
（princ“\n选择要内爆的项目：”）
（setq SLCT（ssget））
（setq）
CDATEX（rtos（getvar“cdate”）2 9）
BNAME（strcat（substr CDATEX 10）
)
（命令“_block”BNAME“0,0”SLCT”）
（命令
“u插入”BNAME“0,0”“”“”
)
)

asos2000 · 发表于 2022-7-6 10:34:14

试试这个

copy

(defun C:IMP (/ SLCT CDATE BNAME)
 (setvar "cmdecho" 0)
 (princ "\nSelect items to IMPLODE: ")
 (setq SLCT (ssget))
 (setq BName (getstring "\nWhat is block name? "))
 (setq BP (getpoint "\n Insertion Point:"))
 (command "_block" BNAME BP SLCT "")
 (command "_insert" BNAME BP "" "" "")
 )

asos2000 · 发表于 2022-7-6 10:47:56

这个可以多次插入

copy

(defun C:IMP (/ SSel BN BP BP2)
 (setvar "cmdecho" 0)
 (princ "\nSelect items to IMPLODE: ")
 (setq SSel (ssget))
 (setq BN (getstring "\nWhat is block name? "))
 (setq BP (getpoint "\nBase Point of Block:"))
 (command "_block" BN BP SSel "")
 (while
   (setq BP2 (getpoint "\n Insertion Point of Block:"))
   (command "_insert" BN BP2 "" "" ""))
 )

这个用来保存原始物体

copy

(defun C:IMP (/ SSel BN BP BP2)
 (setvar "cmdecho" 0)
 (princ "\nSelect items to IMPLODE: ")
 (setq SSel (ssget))
 (setq BN (getstring "\nWhat is block name? "))
 (setq BP (getpoint "\nBase Point of Block:"))
 (command "_block" BN BP SSel "")
 (command "_insert" BN BP "" "" "")
 (command "Explode" "l")
 (while
   (setq BP2 (getpoint "\n Insertion Point of Block:"))
   (command "_insert" BN BP2 "" "" ""))
 )