[编程申请]：有关不同标注字高的一次修改！

火狼

出于图面美观的要求，需要将原来图中所有标注的字高改为原字高的0.5倍，而原来标注的字高有很多种，如何实现呢？

(defun c:test()
(vl-load-com)
(setq ent (car (nentsel)))
(setq obj (vlax-ename->vla-object ent))
(setq h (vla-get-height obj))
(setq hh (* h 0.5))
(vla-put-height obj hh)
(vl-cmdf "regen" "")
(princ)
)

由于(nentsel)只能交互点选一个实体，因此这种方法只能一个一个点选，而我的图中有近20000个，如何一次全部修改呢？

lsjjm

1. height不是尺寸标注的特性
2. 批处理可用选择集呀.
3. 参考下面的程序修改一下即可满足你的要求.
[php]
(defun dimsize (/ ss ds dims n)  
  (setq ss (ssget "x" '((0 . "DIMENSION"))) n 0)
  (setq ds (getvar "dimscale"))
  (initget 6)
  (setq dims (getreal (strcat "\nNew Scale of Dimension:<" (rtos ds 2 2) ">")))
  (if (or (= dims nil)(= dims ""))(setq dims ds))
  (while (< n (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss n)))
    (vlax-put-property obj 'scalefactor dims)
    (setq n (1+ n))
  )
)
[/php]

火狼

我对CAD2000以上版本还不太熟悉，所以你给我参考的代码中，标注的字高特性的代码是什么呢？先谢谢你了！

badaguai

好，说得好

火狼

问题解决：
(defun c:dsc ()
  (setq ss (ssget "x" '((0 . "DIMENSION"))) n 0)
  (setq e (getreal "\nEnter the SCALE rate :"))
  (while (< n (sslength ss))
      (vl-load-com)
      (setq obj (vlax-ename->vla-object (ssname ss n)))
      (setq h (vla-get-textheight obj) h1 (vla-get-arrowheadsize obj) h2 (vla-get-extensionlineextend obj)
h3 (vla-get-DimensionLineExtend obj))
      (setq hh (* h e) hh1 (* h1 e) hh2 (* h2 e) hh3 (* h3 e))
      (vla-put-textheight obj hh)
      (vla-put-arrowheadsize obj hh1)
      (vla-put-extensionlineextend obj hh2)
      (vla-put-DimensionLineExtend obj hh3)
      (setq n (1+ n))
  )
)

但有一个仍然没有找到相应的代码？
就是控制标注的字离标注线的距离！ ：（

shenqifei

想说爱你真的好难!CAD