pzweng 发表于 2012-3-8 10:10:51

标注文字背景填充


经常标尺寸的时候尺寸后面有线，打印出来后数字容易搞错，需在给标注加背景填充，现求一lisp，要求：输入一个命令后要求选择标注，让文字填充颜色为背景，然后使其排序为最上面
如图:



没有填充

填充+排序后的效果

snddd2000 发表于 2012-3-8 10:35:03

DIMTFILL设置为1后,再标注的尺寸即为背景颜色填充

pzweng 发表于 2012-3-8 10:45:20

snddd2000 发表于 2012-3-8 10:35 static/image/common/back.gif
DIMTFILL设置为1后,再标注的尺寸即为背景颜色填充

不是这样的，我只是需要一些尺寸带背景填充。不是全部的

snddd2000 发表于 2012-3-8 11:02:55

pzweng 发表于 2012-3-8 10:45 static/image/common/back.gif
不是这样的，我只是需要一些尺寸带背景填充。不是全部的

那就用object.TextFill,dxf里我没找到这方面的组码.

pzweng 发表于 2012-3-8 11:04:15

snddd2000 发表于 2012-3-8 11:02 static/image/common/back.gif
那就用object.TextFill,dxf里我没找到这方面的组码.

lisp不能实现?杯具啊

snddd2000 发表于 2012-3-8 11:12:07

pzweng 发表于 2012-3-8 11:04 static/image/common/back.gif
lisp不能实现?杯具啊

能实现,用vlisp

pzweng 发表于 2012-3-8 11:53:01

snddd2000 发表于 2012-3-8 11:12 static/image/common/back.gif
能实现,用vlisp

能否帮帮我

snddd2000 发表于 2012-3-8 14:02:34

(setq ent1(vlax-ename->vla-object(car (entsel))))
(vla-put-textfill ent1 :vlax-true)

pzweng 发表于 2012-3-8 14:08:34

snddd2000 发表于 2012-3-8 14:02 static/image/common/back.gif
(setq ent1(vlax-ename->vla-object(car (entsel))))
(vla-put-textfill ent1 :vlax-true)

能否帮我做个完整点的lsp

snddd2000 发表于 2012-3-8 14:14:10

页: [1] 2
查看完整版本: 标注文字背景填充