用法
评论
建议
取 消
确 定
(defun entity:gettextbox (ent-text offset / pt1 pt2 pts) "获取单行文本包围框" "return:文字外框(偏移后)的四个角点(左下,右下,右上,左上" "example:(entity:getTextBox (car(entsel)) 2)" (setq pts (textbox (entget ent-text))) (if offset (entity:rec-2pt->4pt (list:- (car pts) (list offset offset 0)) (list:+ (cadr pts) (list offset offset 0))) pts))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新