有关标注尺寸问题

戏男

怎么实现框选尺寸后，中键滚轮来放大缩小尺寸，并自动调整好尺寸位置间隙来适合整个图面？

foolishzy

2. (defun c:tt(/ ss sslist flag vps mod key dert pickset_to_enamelist )
   
3.   (defun pickset_to_enamelist(pickset / ss sslst )
   
4.   (setq ss pickset sslst '())
   
5.   (while (setq n (ssname ss 0))
   
6.     (progn
   
7.       (setq sslst (append sslst (list n)))
   
8.       (ssdel n ss)
   
9.     )
   
10.   )
    
11.   sslst
    
12. )
    
13.   (setq ss (ssget (list (cons 0 "DIMENSION"))))
    
14.   (setq sslist (pickset_to_enamelist ss))
    
15.   (setq flag t)
    
16.   (while flag
    
17.     (progn
    
18.       (setq
    
19.         vps (grread t 6 0)
    
20.         mod (car vps)
    
21.         dert 0
    
22.       )
    
23.       (princ "\n 放大/w,缩小/s:")
    
24.       (if (= 2 mod)
    
25.         (progn
    
26.           (setq key (cadr vps)  )
    
27.           (cond
    
28.             ((or (= key 87)(= key 119))(setq dert 1))
    
29.             ((or (= key 115) (= key 83))(setq dert -1))
    
30.           )         
    
31.       (foreach s sslist
    
32.         (progn
    
33.           (vlax-put-property
    
34.             (vlax-ename->vla-object s)
    
35.             'TextHeight
    
36.             (+
    
37.               (vlax-get-property
    
38.                 (vlax-ename->vla-object s)
    
39.                 'TextHeight
    
40.               )
    
41.               dert
    
42.             )
    
43.           )
    
44.         ))
    
45.       (redraw)
    
46.         )
    
47.       )      
    
48.     )
    
49.   )
    
50.   
    
51. )

(defun c:tt(/ ss sslist flag vps mod key dert pickset_to_enamelist )<br />   (defun pickset_to_enamelist(pickset / ss sslst )<br />   (setq ss pickset sslst '())<br />   (while (setq n (ssname ss 0))<br />     (progn<br />       (setq sslst (append sslst (list n)))<br />       (ssdel n ss)<br />     )<br />   )<br />   sslst<br /> )<br />   (setq ss (ssget (list (cons 0 "DIMENSION"))))<br />   (setq sslist (pickset_to_enamelist ss))<br />   (setq flag t)<br />   (while flag<br />     (progn<br />       (setq <br />         vps (grread t 6 0)<br />         mod (car vps)<br />         dert 0<br />       )<br />       (princ "\n 放大/w,缩小/s:")<br />       (if (= 2 mod)<br />         (progn <br />           (setq key (cadr vps)  )<br />           (cond <br />             ((or (= key 87)(= key 119))(setq dert 1))<br />             ((or (= key 115) (= key 83))(setq dert -1))<br />           )          <br />       (foreach s sslist<br />         (progn<br />           (vlax-put-property<br />             (vlax-ename->vla-object s)<br />             'TextHeight<br />             (+<br />               (vlax-get-property<br />                 (vlax-ename->vla-object s)<br />                 'TextHeight<br />               )<br />               dert<br />             )<br />           )<br />         ))<br />       (redraw)<br />         )<br />       )      <br />     )<br />   )<br />   <br /> )

foolishzy

LISP好像是无法访问鼠标滚轮的，可以用按键实现标注文字的缩放，你说的“自动调整好尺寸位置间隙来适合整个图面”不知道是什么意思。

飞雪神光

用lisp是办不到了 我是想不出来有什么办法

戏男

戏男

foolishzy 发表于 2023-6-5 10:48

好像加载不了

bai2000

缩小时出现：Error: Automation 错误。 必须为正

foolishzy

bai2000 发表于 2023-6-5 16:04
缩小时出现：Error: Automation 错误。 必须为正

标注字体高度必须为正，缩小缩过头了

bai2000

不错，能把“文字”“线性比例”“填充比例”集成到一起么？

刚开始

能用，不错，感谢分享。