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

snddd2000 发表于 2012-3-8 14:14 static/image/common/back.gif


帮帮我嘛，。给你明评分

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

pzweng 发表于 2012-3-8 14:29 static/image/common/back.gif
帮帮我嘛，。给你明评分

外面加个循环就可以了，真的很简单，自己试试写一下嘛。
还有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 static/image/common/back.gif
我真的不会，帮个忙好不好
(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 static/image/common/back.gif


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

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

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

snddd2000 发表于 2012-3-8 15:16 static/image/common/back.gif


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

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

pzweng 发表于 2012-3-9 15:27 static/image/common/back.gif
我在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 static/image/common/back.gif
(defun C:xx (/ ss1 ent1 n)
(vl-load-com)
(if


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

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

我试了一下，也出现这个问题。查了一下，没这个函数
页: 1 [2]
查看完整版本: 标注文字背景填充