用法
评论
建议
取 消
确 定
(defun block:get-effectivename (blk / tem blkname *error*) "取得块真实名称,支持 MAC" (defun *error* (msg) (princ "图块定义异常") "") (cond ((and (= (quote ename) (type blk)) (entget blk)) (progn (setq blkname (cdr (assoc 2 (entget blk)))) (if (wcmatch blkname "`**") (if (and (setq tem (cdadr (assoc -3 (entget (cdr (assoc 330 (entget (tblobjname "block" blkname)))) (quote ("AcDbBlockRepBTag")))))) (setq tem (handent (cdr (assoc 1005 tem))))) (setq blkname (cdr (assoc 2 (entget tem)))))) blkname)) ((= (quote vla-object) (type blk)) (vla-get-effectivename blk)) (t "")))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新