使用 AutoLisp 语言中的命令和函数,可以实现将特定行的块属性 ID 名称和块计数传递给“Putcell”命令。下面是示例代码:
(defun GetExcel (row / ssBlock blkName blkCount) (setq ssBlock (ssget "X" (list (cons 0 "INSERT") (cons 8 "BLOCKS")))) (setq blkName (cdr (assoc 2 (entget (ssname ssBlock 0))))) ; 获取块的名称
(setq blkCount (sslength ssBlock)) ; 获取块的数量 (Putcell row 1 blkName) ; 将块名称放入单元格中 (Putcell row 2 blkCount) ; 将块计数放入单元格中))
上述代码使用了 ssget 函数来获取插入组成部分的选择集,并使用 entget 函数来获取块的名称。然后,代码使用 Putcell 命令将名称和计数传递给 Excel 单元格。