用法
评论
建议
取 消
确 定
(defun vectra:make-block (name funcname params / en r) (entmake (list (cons 0 "BLOCK") (cons 2 name) (cons 70 (if (= "*U" name) 1 0)) (cons 10 $addnew-block-base))) (setq r (vl-catch-all-apply funcname params)) (setq en (entmake (quote ((0 . "ENDBLK"))))) (if (vl-catch-all-error-p r) (progn (princ (strcat "\nerror in vectra:make-block:" (vl-princ-to-string (cons funcname params)))) nil) en))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新
冀公网安备 13050302000400号