[编程申请]：如何更新等比例图块的比例

yangzj

对于等比例的图块（包括镜像图块），不采用放大比例方式，如何更新其比例，如将X、Y、Z方向比例为1、—1、1更改为2、—2、2

LUCAS

2. 
   
3. ;;By LUCAS
   
4. ;;如何更新等比例图块的比例
   
5. (defun CH_SCALE        (X Y Z / TMP)
   
6.   (setq TMP (entsel "\n选取图块: "))
   
7.   (if (and (/= TMP NIL)
   
8.            (setq TMP (vlax-ename->vla-object (car TMP)))
   
9.            (= (vla-get-objectname TMP) "AcDbBlockReference")
   
10.       )
    
11.     (progn
    
12.       (vla-put-xscalefactor TMP X)
    
13.       (vla-put-yscalefactor TMP Y)
    
14.       (vla-put-zscalefactor TMP Z)
    
15.     )
    
16.     (prompt "\n所选非图块")
    
17.   )
    
18.   (princ)
    
19. )
    

<br /> ;;By LUCAS<br /> ;;如何更新等比例图块的比例<br /> (defun CH_SCALE        (X Y Z / TMP)<br />   (setq TMP (entsel "\n选取图块: "))<br />   (if (and (/= TMP NIL)<br />            (setq TMP (vlax-ename->vla-object (car TMP)))<br />            (= (vla-get-objectname TMP) "AcDbBlockReference")<br />       )<br />     (progn<br />       (vla-put-xscalefactor TMP X)<br />       (vla-put-yscalefactor TMP Y)<br />       (vla-put-zscalefactor TMP Z)<br />     )<br />     (prompt "\n所选非图块")<br />   )<br />   (princ)<br /> )<br />

zhuqi75

这位先生真的是高手

yangzj

真不知道何时才能提高编程水平，实在惭愧！感谢朋友的帮助！

cy956

最初由 LUCAS 发布
[B][CODE]
;;By LUCAS
;;如何更新等比例图块的比例
(defun CH_SCALE        (X Y Z / TMP)
  (setq TMP (entsel "\n选取图块: "))
  (if (and (/= TMP NIL)
           (setq TMP (vlax-ename->vla-object (car TMP)))
           (= ... [/B]

在明经那儿经常看到你，请教你是怎么学vl这一块的，
我总觉得资料不清晰，不成体系。

上面这个函数建议再加上  (vla-put-Rotation TMP a)。
用vl比用lisp的dxf组码改起来方便得多。