[原创]：给个lisp的扩展函数ola_DrawText，可以让你的程序增色不少

fylinwater · 发表于 2004-6-22 14:16:58

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

给个lisp的扩展函数，可以让你的程序增色不少

附件里还有另外几个函数，详见帮助。

(名称 ola_DrawText
功能当前绘图区域内绘制文本，平面刷新后文本被清除（如grdraw）
函数形式 (ola_drawtext strText  apt  col  h)
参数表 strText  <STR>  绘制的文本字符串
apt    <POINT> 文本插入点，当前坐标系
col    <INT> <LONG> <LIST> 文本颜色
如果-256<col<256 ，按照AutoCAD的颜色索引取颜色，其他范围表示windows的真彩色
如果col为三个元素的点表，则表示(R G B)三个色彩的组合
如果col<0 表示绘制文本区域填充背景色彩
h <INT> 用象素表示的文本高度。
返回值无
对应oxa oxaTextOut
示例 (ola_drawtext "my text" (getpoint) -1 30)
(ola_drawtext "my text" (getpoint) '( 255 0 253) 50 )
备注

lijiao · 发表于 2004-6-22 14:29:31

有2004或2005版吗?

陌生人 · 发表于 2004-6-22 23:42:11

如果是lisp，编译成arx对版本适应性不好，建议用fas，vlx。
sorry，我无法测试了。

fylinwater · 发表于 2004-6-23 21:05:36

是vc写的arx，源代码以后整理后在ARX版给出，暂时没有时间

shisj · 发表于 2004-6-24 15:26:46

arx有版本限制，算了，我就不用了

账号		自动登录	找回密码
密码			立即注册

[原创]：给个lisp的扩展函数ola_DrawText，可以让你的程序增色不少

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块