标注文字高度如何用lisp提取？

zctao1966

标注文字高度如何用lisp提取？
有变量控制吗？求高人解答
变量不是：dimtxt
因为此图中的dimtxt的值是不变的，只是两个标注的字高改变了
如图：


以下是附件：

该贴已经同步到 zctao1966的微博

qazxswk

另外还有一个办法，
(vl-cmdf "-dimstyle" "r" (cdr(assoc 3 (entget(ssname (ssget) 0))))) ;;将被选标注，置为当前标注样式
(getvar "dimtxt")  ;;获取当前标注样式文字高度

趣意人生

好东西，谢谢各位分享！

vormittag

2. 
   
3. (defun dimtextsize(ename / ell xl size dimstyle)
   
4. (setq ell (entget ename '("ACAD")))
   
5. (if (and (setq xl (assoc -3 ell)) (setq xl (member '(1070 . 140) (cdadr xl))))
   
6.   (setq size (cdr (assoc 1040 xl)));setq
   
7.   (setq dimstyle (cdr (assoc 3 ell))
   
8.         ell  (entget (tblobjname "DIMSTYLE" dimstyle))
   
9.         size (cdr (assoc 140 ell))
   
10.   );setq
    
11. );if
    
12. )
    
13. 
    
14. ;;;应用
    
15. (dimtextsize (car(entsel)))

<br /> (defun dimtextsize(ename / ell xl size dimstyle)<br /> (setq ell (entget ename '("ACAD")))<br /> (if (and (setq xl (assoc -3 ell)) (setq xl (member '(1070 . 140) (cdadr xl))))<br />   (setq size (cdr (assoc 1040 xl)));setq<br />   (setq dimstyle (cdr (assoc 3 ell))<br />         ell  (entget (tblobjname "DIMSTYLE" dimstyle))<br />         size (cdr (assoc 140 ell))<br />   );setq<br /> );if<br /> )<br /> <br /> ;;;应用<br /> (dimtextsize (car(entsel)))

谢谢

vormittag 发表于 2012-1-5 13:52

为什么这个字高不能用dimtxt控制呢？

Andyhon

(vla-get-TextHeight DimObj)

lenlenq

(vla-get-textheight(vlax-ename->vla-object(car(entsel"请选择标注:"))))

vormittag

修改一下，应该可以符合要求了。但是代码可能不健壮。

2. (defun dimtextsize(ename / ell xl size dimstyle text factor)
   
3.         (setq ell         (entget ename '("ACAD"))
   
4.                   text         (cdr (assoc 1 ell))
   
5.         );setq
   
6.         (if (wcmatch text "*`\\H*x;*")
   
7.                 (setq factor (read (substr text (+ (vl-string-search "\\H" text) 3) (- (vl-string-search "x;" text) (vl-string-search "\\H" text) 2))))
   
8.                 (setq factor 1.0)
   
9.         );if
   
10.         (if (and (setq xl (assoc -3 ell)) (setq xl (member '(1070 . 140) (cdadr xl))))
    
11.                 (setq size (cdr (assoc 1040 xl)));setq
    
12.                 (setq dimstyle (cdr (assoc 3 ell))
    
13.                       ell  (entget (tblobjname "DIMSTYLE" dimstyle))
    
14.                       size (cdr (assoc 140 ell))
    
15.                 );setq
    
16.         );if
    
17.         (setq size (* factor size));setq
    
18. );defun

(defun dimtextsize(ename / ell xl size dimstyle text factor)<br />         (setq ell         (entget ename '("ACAD"))<br />                   text         (cdr (assoc 1 ell))<br />         );setq<br />         (if (wcmatch text "*`\\H*x;*")<br />                 (setq factor (read (substr text (+ (vl-string-search "\\H" text) 3) (- (vl-string-search "x;" text) (vl-string-search "\\H" text) 2))))<br />                 (setq factor 1.0)<br />         );if<br />         (if (and (setq xl (assoc -3 ell)) (setq xl (member '(1070 . 140) (cdadr xl))))<br />                 (setq size (cdr (assoc 1040 xl)));setq<br />                 (setq dimstyle (cdr (assoc 3 ell))<br />                       ell  (entget (tblobjname "DIMSTYLE" dimstyle))<br />                       size (cdr (assoc 140 ell))<br />                 );setq<br />         );if<br />         (setq size (* factor size));setq<br /> );defun

hnfsf

5楼的代码简练，好使！

lenlenq

(defun changetextheight        (en height);;;en--标注的图原名 height--文字高度
  (vl-load-com)
  (vla-put-textheight (vlax-ename->vla-object en) height)
)

★飞飛★

论坛里高人还是比较多啊。

winerfjy

好东西