土木在线
资料
论坛
课程
AI规范
成套资料包
APP
下载手机客户端
产品
兑换商城
直播
软件
会议
土木君有礼！免费低价薅不停
工程师进阶必备，全套项目资料包来袭！
/
注册
登录
消息
动态
0
正在加载...
查看全部消息
消息设置
正在加载...
查看全部动态
消息设置
土木在线论坛
\
建筑设计
\
CAD下载及教程
\
如何得到text的长度？
如何得到text的长度？
如何得到text的长度？
刚开始学lisp，就想先编一个给文字（text）加下划线的，遇到的困难是不知道如何得到文字的长度（或者文字右下角的坐标）。
非常感谢能给点帮助
发布于
2009-05-23 15:07:23
我来答
分享
复制链接
新浪微博
微信扫一扫
举报
全部回答
（8 ）
小萝卜的头
收回楼上的话。Sorry!
[
本帖最后由 carrot1983 于 2009-12-19 20:31 编辑
]
2009-12-16 18:25:16
来自 PC
评论
举报
小萝卜的头
不要恶意灌水
不妥，当文字角度为非零度时，得出来的结果是错误的。一试便知。
二楼不是我狂，我觉得你还是嫩了点。
(defun c:tt ()
(vl-load-com)
(Vlax-Invoke-Method
(Vlax-Ename->Vla-Object (car (entsel)))
'GetBoundingBox
'a1
'a2
)
(setq b1 (vlax-safearray->list a1))
(setq b2 (vlax-safearray->list a2))
(command "._RECTANG" "_NON" b1 "_NON" b2)
)
建议用textbox。
2009-12-16 18:21:16
来自 PC
评论
举报
加载更多
相关推荐
eandw
这个家伙什么也没有留下。。。
主题
7
回复
36
粉丝
1
+ 关注
私信
CAD下载及教程
返回版块
52.07 万条内容 · 656 人订阅
猜你喜欢
遇到了一点小问题
内容不能包含下列词语
返回修改
回帖成功
经验值 +
10
全部回答（8 ）
-
小萝卜的头
收回楼上的话。Sorry!
2009-12-16 18:25:16
来自 PC
评论
举报
-
小萝卜的头
不要恶意灌水
2009-12-16 18:21:16
来自 PC
评论
举报
加载更多[ 本帖最后由 carrot1983 于 2009-12-19 20:31 编辑 ]
不妥，当文字角度为非零度时，得出来的结果是错误的。一试便知。
二楼不是我狂，我觉得你还是嫩了点。
(defun c:tt ()
(vl-load-com)
(Vlax-Invoke-Method
(Vlax-Ename->Vla-Object (car (entsel)))
'GetBoundingBox
'a1
'a2
)
(setq b1 (vlax-safearray->list a1))
(setq b2 (vlax-safearray->list a2))
(command "._RECTANG" "_NON" b1 "_NON" b2)
)
建议用textbox。