谁能把这个代码做成插件给我发下啊 不胜感激

yf793826152

<div class="blockcode"><blockquote>(Defun c:tt ( / e i ii ptlist s1 sc ss sss x )
  (setq i  -1 ss (ssget "_:L" '((0 . "INSERT") (66 . 1))))
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq ptlist (getboundingbox s1))
    (setq sss (ssget "W" (car ptlist)(cadr ptlist) '((0 . "DIMENSION,LEADER,*TEXT"))))
    (repeat (setq ii (sslength sss))
      (setq sc (dxf 41 s1))
      (setq e (ssname sss (setq ii (1- ii))) x (cdr (Assoc 0 (Entget e))))
      (cond
        ((= x "TEXT") (CH-DXF e 40 (* sc (Getvar "dimtxt"))))
        ((= x "MTEXT") (CH-DXF e 40 (* sc (Getvar "dimtxt"))))
        ((= x "DIMENSION")(vla-put-ScaleFactor (vlax-ename->vla-object e) sc))
        ((= x "LEADER")(vla-put-ScaleFactor (vlax-ename->vla-object e) sc))
      )
    )
  )
)
(Defun getboundingbox ( entName / entpl entpr )
  (vla-getboundingbox (vlax-ename->vla-object entName) 'entpl 'entpr)
  (Mapcar 'vlax-safearray->list (list entpl entpr))
)
(Defun dxf ( i ent )(cdr (Assoc i (Entget ent))))
(Defun CH-DXF ( ename code val / old_num new_num ent )
  (if (setq ent (entget ename)
        new_num (cons code val)
        old_num (assoc code ent)
      )
    (Entmod (subst new_num old_num ent))
    (Entmod (reverse (cons new_num (reverse ent))))
  )
)

fl202

你想要个什么样的插件？
又不是工具集，建议工具栏上做个引用好了。

yf793826152

是把这代码转换成插件  我自己用VLISP 编辑 不行啊

yoyoho

(Defun c:tt ( / e i ii ptlist s1 sc ss sss x )
  (setq i  -1 ss (ssget "_:L" '((0 . "INSERT") (66 . 1))))
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq ptlist (getboundingbox s1))
    (setq sss (ssget "W" (car ptlist)(cadr ptlist) '((0 . "DIMENSION,LEADER,*TEXT"))))
    (repeat (setq ii (sslength sss))
      (setq sc (dxf 41 s1))
      (setq e (ssname sss (setq ii (1- ii))) x (cdr (Assoc 0 (Entget e))))
      (cond
        ((= x "TEXT") (CH-DXF e 40 (* sc (Getvar "dimtxt"))))
        ((= x "MTEXT") (CH-DXF e 40 (* sc (Getvar "dimtxt"))))
        ((= x "DIMENSION")(vla-put-ScaleFactor (vlax-ename->vla-object e) sc))
        ((= x "LEADER")(vla-put-ScaleFactor (vlax-ename->vla-object e) sc))
      )
    )
  )
)
(Defun getboundingbox ( entName / entpl entpr )
  (vla-getboundingbox (vlax-ename->vla-object entName) 'entpl 'entpr)
  (Mapcar 'vlax-safearray->list (list entpl entpr))
)
(Defun dxf ( i ent )(cdr (Assoc i (Entget ent))))
(Defun CH-DXF ( ename code val / old_num new_num ent )
  (if (setq ent (entget ename)
        new_num (cons code val)
        old_num (assoc code ent)
      )
    (Entmod (subst new_num old_num ent))
    (Entmod (reverse (cons new_num (reverse ent))))
  )
)

yf793826152

yoyoho 发表于 2015-6-10 17:53
(Defun c:tt ( / e i ii ptlist s1 sc ss sss x )
  (setq i  -1 ss (ssget "_:L" '((0 . "INSERT") (66 . ...

不行啊 显示错误  输入中含有多余闭括号

yoyoho

yf793826152 发表于 2015-6-11 09:01
不行啊 显示错误  输入中含有多余闭括号

在AUTOCAD2011测试,程序可运行!

yf793826152

yoyoho 发表于 2015-6-11 16:09
在AUTOCAD2011测试,程序可运行!

可以给个操作演示吗  或者插件给我发一下   谢谢 啊

tranney

可以用，但不知道是什么功能

1993063

yoyoho 发表于 2015-6-9 23:53
(Defun c:tt ( / e i ii ptlist s1 sc ss sss x )
  (setq i  -1 ss (ssget "_" '((0 . "INSERT") (66 . ...

你写的?

yoyoho

不是! 顶楼 yf793826152 贴出的!