想求一个LISP，请各路大神伸出援手

jevnchen0720

想通过LSP达到以下功能，
输入快捷键XXT，
用鼠标点选图块，并提取图块的比例系数，XYZ，随便其中一个都行，
通过图块的比例，设定标注比例，标注比例预设值为2.5，
请各路走过路过，能指点一二，万分感谢！

鱼与熊掌

这个怎么搞我也不知道

鱼与熊掌

目测是41.42.43.祖玛。

e2002

猜测一下你的需求，建议使用 Annotative 特性来作。

鱼与熊掌

2. (defun c:tt(/ enb)
   
3.         ;(cxsta)
   
4.         (prompt "魚與熊掌插件定製 QQ:775452144\n")
   
5.         (setq enb(car(entsel "选择图块\n")))
   
6.         (setvar "dimscale" (cx-dxf 41 enb ))
   
7.         (setvar "textsize" (* 3 (cx-dxf 41 enb )))
   
8.         (prompt (strcat "标注比例修改为【1:"
   
9.                         (rtos (getvar "dimscale") 2 0)
   
10.                         "】,当前文字高度修改为"
    
11.                         (rtos (* 3 (getvar "dimscale")) 2 0)
    
12.                 )
    
13.         )
    
14.         (princ)
    
15.         ;(cxend)
    
16. )
    
17. 
    
18. (defun cx-DXF ( code ename / ent lst a)
    
19.         (if        (= (type code) 'LIST)
    
20.                 (progn
    
21.                         (setq ent (entget ename)
    
22.               lst '()
    
23.                         )
    
24.                         (foreach a code
    
25.                           (setq lst (cons (list a (cdr (assoc a ent))) lst))
    
26.                         )
    
27.                         (reverse lst)
    
28.                 )
    
29.                 (if (= code -3)
    
30.                         (cdr (assoc code (entget ename '("*"))))
    
31.                         (cdr (assoc code (entget ename)))
    
32.                 )
    
33.         )
    
34. )

(defun c:tt(/ enb)<br />         ;(cxsta)<br />         (prompt "魚與熊掌插件定製 QQ:775452144\n")<br />         (setq enb(car(entsel "选择图块\n")))<br />         (setvar "dimscale" (cx-dxf 41 enb ))<br />         (setvar "textsize" (* 3 (cx-dxf 41 enb )))<br />         (prompt (strcat "标注比例修改为【1:"<br />                         (rtos (getvar "dimscale") 2 0)<br />                         "】,当前文字高度修改为"<br />                         (rtos (* 3 (getvar "dimscale")) 2 0)<br />                 )<br />         )<br />         (princ)<br />         ;(cxend)<br /> )<br /> <br /> (defun cx-DXF ( code ename / ent lst a)<br />         (if        (= (type code) 'LIST)<br />                 (progn<br />                         (setq ent (entget ename)<br />               lst '()<br />                         )<br />                         (foreach a code<br />                           (setq lst (cons (list a (cdr (assoc a ent))) lst))<br />                         )<br />                         (reverse lst)<br />                 )<br />                 (if (= code -3)<br />                         (cdr (assoc code (entget ename '("*"))))<br />                         (cdr (assoc code (entget ename)))<br />                 )<br />         )<br /> )