日志
- 分享 鼠标悬停到label标签上显示文字
- winform 添加ToolTip控件 以下语句可以实现 toolTip1.SetToolTip(标签的name, "显示文字");
- 分享 今晚整了一夜的MNU文件，发现几个问题
- 今晚整了一夜的MNU文件，发现几个问题， 1.“[”之前必须有制表符分隔 a.如果helpstring中的“[”前没有制表符会显示菜单加载出错 b.如果pop和toolbar中没有制表符，即使helpstring有也不会显示 2.描述bmp文件名要带引号，而且是全名，如："aaa.bmp" 3.要注意"^c^c"之前一定不要有空格 4.ID号可以自己定义，pop和too ...
- 分享 No3--->获取两点构成线的象限
- ;;获取两点构成线的象限 (DEFUN swp_get_xx (p1 p2 / ang)获取两点构成线的象限 (SETQang (ANGLE p1 p2) ang (/ ang (* PI 0.5)) ang (+ 1 ang) ang (FIX ang) ) )
- 分享 No2--->获取块中属性值的LIST
- ;;获取块中属性值的LIST,如不是属性块,返回nil;;en为块的图元名 (DEFUN swp_get_attrib (en / f dxf) (WHILE en (SETQ dxf (ENTGET en)) (IF(= (CDR (ASSOC 0 dxf)) "ATTRIB") (SETQ f (APPEND f &n ...
- 分享 No.1--->设置"style"中文字高度为0
- ;;设置"style"中文字高度为0 ;;sample ;;_$ (sw_revise_text_height "sm-new") ;;The Text Height Has Been Changed From 5 To 0! ;;_$ (DEFUN sw_revise_text_height (textstyle / ent textheight) (SETQ ent (ENTGET (TBLOBJNAME "style" textstyle))) (SETQ textheight (CDR (ASSOC 40 ent))) (I ...