VisualLisp若干系统函数学习

;;;grtext
;;;将文本写到状态行或屏幕菜单区
;;;不带参数调用 grtext 将使所有文本区域恢复为标准值。如果仅带一个参数调用，grtext 将产生错误。
(grtext -2 "HelloWorld");将文本写入到坐标状态行区域

;;;xstrcase
;;;功能类似于strcase函数，但只接受一个字符串参数，将字符串中的小写字母转为大写，并返回这个字符串
;;;eg:
(xstrcase "abc123DEF")
;;;返回"ABC123DEF"

;;;name:VLA-GET-LAYERON
;;;desc:获取图层的开关状态
;;;arg:LayObj 图层对象
;;;return:开返回:vlax-true关返回:vlax-false
;;;语法:(VLA-GET-LAYERON LayObj)
;;;example:
(setq LayEname (tblobjname "layer" layername))
(setq LayObj (vlax-ename->vla-object LayEname))
(vla-get-layeron LayObj)

;;;语法:(vla-put-layeron LayObj flag)
;;;name:vla-put-layeron
;;;desc:开关图层
;;;arg:LayObj 图层对象 flag 开关标志[:vlax-true开或:vlax-false关]
;;;return:nil
;;;example:
(setq en (tblobjname "layer" layername))
(setq obj (vlax-ename->vla-object en))
(vla-put-layeron obj :vlax-true)
(vla-put-layeron obj :vlax-false)

;;;语法:(vla-get-lock LayObj)
;;;name:vla-get-lock
;;;desc:获取图层的开关状态
;;;arg:LayObj 图层对象
;;;return:锁定返回:vlax-true未锁定返回:vlax-false
;;;example:
(setq en (tblobjname "layer" layername))
(setq obj (vlax-ename->vla-object en))
(vla-get-lock obj)

;;;语法:(vla-put-lock LayObj flag)
;;;name:vla-put-lock
;;;desc:锁定或解锁图层
;;;arg:LayObj 图层对象 flag 锁定或解锁标志[:vlax-true锁定或:vlax-false解锁]
;;;return:nil
;;;example:
(setq en (tblobjname "layer" layername))
(setq obj (vlax-ename->vla-object en))
(vla-put-lock obj :vlax-true)
(vla-put-lock obj :vlax-false)

;;;添加圆vla-addcircle
;语法:(setq circleObj (vla-addcircle mSpace centerPt radius))
;    模型空间    圆心    半径
;    对象        变体    实数
(setq circleEname (entmakex (list '(0 . "CIRCLE") '(10 0 0 0) '(40 . 1000))))

;;;vla-getattributes
;;;《AutoCAD LISP/VLISP函数库查询辞典》（二代龙震工作室 编著）206页：
;;;功能：取得块参照中的属性
;;;语法：(setq variantAttributesObj (vla-getattributes insertObj))
;;;参数：块参照对象
;;;返回值：属性变体
;;;eg：
(mapcar 'vla-put-textstring (vlax-safearray->list (vlax-variant-value (vla-getattributes (vlax-ename->vla-object (car (entsel)))))) txtLst);;批量修改带属性的块参照中属性的值

;;;vla-put-textstring
;;;《AutoCAD LISP/VLISP函数库查询辞典》（二代龙震工作室 编著）645页：
;;;功能：设置单行文字、多行文字、属性等图元的文字字符串
;;;语法：(vla-put-textstring obj string)
;;;参数：obj适用的对象（单行文字、多行文字、属性等），string字符串（长度上限是256个字符）
;;;返回值：nil
;;;eg：
(vla-put-textstring (vlax-ename->vla-object (car (entsel))) "HelloWorld")