用法
评论
建议
取 消
确 定
(defun vectra:block-items-inner (en / name r) (if (= (quote str) (type en)) (setq en (tblobjname "block" en))) (while (setq en (entnext en)) (if (= "INSERT" (vectra:dxf en 0)) (progn (setq name (vectra:dxf en 2)) (if (not (member name $p-block-walked)) (setq r (append r (vectra:block-items name)) $p-block-walked (cons name $p-block-walked)))) (setq r (cons en r)))) r)
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新