API应用 动态调整字高

st788796

1. (defun c:tt (/ callback txt p0)
   
2.   (defun callback (dynpt /)
   
3.     (xdrx_text_setheight
   
4.       txt
   
5.       (distance p0 (trans dynpt 0 1))
   
6.     )
   
7.   )
   
8.   (if (setq txt (car (xdrx_entsel "\nPick Text: " '((0 . "text")))))
   
9.     (progn
   
10.       (XD::Begin)
    
11.       (setq p0 (trans (xdrx_getentdxf 10) 0 1))
    
12.       (xdrx_pointmonitor "Callback" txt)
    
13.       (getpoint p0)
    
14.       (xdrx_pointmonitor)
    
15.       (XD::End)
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )
    

(defun c:tt (/ callback txt p0)<br />   (defun callback (dynpt /)<br />     (xdrx_text_setheight<br />       txt<br />       (distance p0 (trans dynpt 0 1))<br />     )<br />   )<br />   (if (setq txt (car (xdrx_entsel "\nPick Text: " '((0 . "text")))))<br />     (progn<br />       (XD::Begin)<br />       (setq p0 (trans (xdrx_getentdxf 10) 0 1))<br />       (xdrx_pointmonitor "Callback" txt)<br />       (getpoint p0)<br />       (xdrx_pointmonitor)<br />       (XD::End)<br />     )<br />   )<br />   (princ)<br /> )<br />

czb203

这个东西真心不错啊 谢谢提供啊

lucas3

试了一下，不支持多行文字，另外，要有记忆才好，就是修改之后，在不关闭这个DWG的情况下，下行写文字时继承这个高度，当然不能改全局的字高

newer

lucas3 发表于 2014-1-16 23:00
试了一下，不支持多行文字，另外，要有记忆才好，就是修改之后，在不关闭这个DWG的情况下，下行写文字时继 ...

楼主写的这个不是插件了，是一个具体应用的代码，你遇到这样的要求的时候可以借鉴的局部功能代码。