API应用 动态调整Dimstyle比例

st788796

1. (defun c:tt (/ callback e p0 sty scl h)
   
2.   (defun callback (dynpt /)
   
3.     (xdrx_setpropertyvalue
   
4.       sty
   
5.       "Dimscale"
   
6.       (* (distance p0 (trans dynpt 0 1)) scl)
   
7.     )
   
8.   )
   
9.   (if (setq e (car (xdrx_entsel "\nPick Dim: " '((0 . "Dimension")))))
   
10.     (progn
    
11.       (XD::Begin)
    
12.       (setq sty        (cadr (xdrx_getpropertyvalue e "Dimensionstyle"))
    
13.             scl        (xdrx_getpropertyvalue sty "Dimscale")
    
14.             h        (xdrx_getpropertyvalue e "Dimtxt")
    
15.             p0        (trans (caddr (xdrx_entity_getstretchpoint e )) 0 1)
    
16.       )
    
17.       (xdrx_pointmonitor "Callback" e)
    
18.       (getpoint p0)
    
19.       (xdrx_pointmonitor)
    
20.       (XD::End)
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )
    

(defun c:tt (/ callback e p0 sty scl h)<br />   (defun callback (dynpt /)<br />     (xdrx_setpropertyvalue<br />       sty<br />       "Dimscale"<br />       (* (distance p0 (trans dynpt 0 1)) scl)<br />     )<br />   )<br />   (if (setq e (car (xdrx_entsel "\nPick Dim: " '((0 . "Dimension")))))<br />     (progn<br />       (XD::Begin)<br />       (setq sty        (cadr (xdrx_getpropertyvalue e "Dimensionstyle"))<br />             scl        (xdrx_getpropertyvalue sty "Dimscale")<br />             h        (xdrx_getpropertyvalue e "Dimtxt")<br />             p0        (trans (caddr (xdrx_entity_getstretchpoint e )) 0 1)<br />       )<br />       (xdrx_pointmonitor "Callback" e)<br />       (getpoint p0)<br />       (xdrx_pointmonitor)<br />       (XD::End)<br />     )<br />   )<br />   (princ)<br /> )<br />

有方法了用 vlisp 也能做到

lucas3

请问大师，这是改全局的吗？ 如果不是改全局还有点用处，另外，高度值要能记忆，就是修改之后，下次标注时就自动以这个高度标注

lucas3

请大师帮忙改改，高度值要能记忆，就是修改之后，下次标注时就自动以这个高度标注，但不是改全局的

sanpoul

功能是厉害，使用实际怕是不多