标注文字背景填充

pzweng · 发表于 2012-3-8 14:29:43

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

帮帮我嘛，。给你明评分

snddd2000 · 发表于 2012-3-8 14:38:09

pzweng 发表于 2012-3-8 14:29
帮帮我嘛，。给你明评分

外面加个循环就可以了，真的很简单，自己试试写一下嘛。
还有texttofront命令你那里能用吗？

pzweng · 发表于 2012-3-8 14:43:17

我真的不会，帮个忙好不好

snddd2000 · 发表于 2012-3-8 15:16:43

本帖最后由 snddd2000 于 2012-3-8 15:54 编辑

pzweng 发表于 2012-3-8 14:43
我真的不会，帮个忙好不好

(defun C:xx (/ ss1 ent1 n)
(if
(setq ss1 (ssget '((0 . "DIMENSION"))))
(progn
(setq n 0)
(repeat (sslength ss1)
(setq ent1 (vlax-ename->vla-object (ssname ss1 n)))
(vla-put-textfill ent1 :vlax-true)
(setq n (1+ n))
)
(setvar "CMDECHO" 0)
(command "draworder" ss1 "" "F")
(setvar "CMDECHO" 1)
)
)
(print)
)

pzweng · 发表于 2012-3-8 16:19:28

snddd2000 发表于 2012-3-8 15:16

不行呀，出现这种问题我是2006版CAD

选择对象:
; 错误: no function definition: VLA-PUT-TEXTFILL

pzweng · 发表于 2012-3-9 15:27:38

snddd2000 发表于 2012-3-8 15:16

我在2006里找不到acad.lsp 这个程序不适合2006版,郁闷，还有其它方法吗

仲文玉 · 发表于 2012-3-10 14:11:52

pzweng 发表于 2012-3-9 15:27
我在2006里找不到acad.lsp 这个程序不适合2006版,郁闷，还有其它方法吗

(defun C:xx (/ ss1 ent1 n)
(vl-load-com)
  (if
(setq ss1 (ssget '((0 . "DIMENSION"))))
   (progn
   (setq n 0)
   (repeat (sslength ss1)
      (setq ent1 (vlax-ename->vla-object (ssname ss1 n)))
      (vla-put-textfill ent1 :vlax-true)
      (setq n (1+ n))
   )
   (setvar "CMDECHO" 0)
   (command "draworder" ss1 "" "F")
   (setvar "CMDECHO" 1)
   )
  )
  (print)
)

pzweng · 发表于 2012-3-12 16:40:27

仲文玉发表于 2012-3-10 14:11
(defun C:xx (/ ss1 ent1 n)
(vl-load-com)
(if

仲总，你好，还是不行
提示:
选择对象:
; 错误: no function definition: VLA-PUT-TEXTFILL

simpleye · 发表于 2012-12-1 10:51:52

我试了一下，也出现这个问题。查了一下，没这个函数

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

标注文字背景填充

评分

点评