求助 修改标注样式的全局比例和比例因子

hubeiwdlue

    我想缩放图形，同时修改标注样式中的全局比例（40组码）和测量单位比例因子。但是写的代码总是有问题，请教大家错在那里。

2. (defun emod (ent code value)  
   
3.   (if (= (type ent) 'ename) (setq ent (entget ent)))
   
4.   (setq b(cons code value))
   
5.   (if(setq a(assoc code ent))
   
6.      (entmod(subst b a ent))
   
7.      (entmod(append ent(list b))))
   
8. )
   
9. (defun c:tt()
   
10.   (princ "\n 选择缩放对象")
    
11.   (setq ss (ssget))
    
12.   (setq pt1 (getpoint "\n选择基点"))
    
13.   (setq sfbili (getreal "\n 输入缩放比例"))
    
14.   (vl-cmdf "_.SCALE" ss "" pt1 sfbili "")
    
15.   (setq dimstyles (vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object))))
    
16.   (vlax-for dim dimstyles
    
17.     (setq name (vla-get-name dim))
    
18.     (setq dent (entget (tblobjname "dimstyle" name)));;标注样式名为name的符号表条目
    
19.     (setq dim144 (getvar "DIMLFAC"));;标注样式比例因子
    
20.     (setq dim40 (getvar "DIMSCALE"));;标注样式全局比例
    
21.     ;(setvar "DIMLFAC" (/ dim144 sfbili))
    
22.     ;(setvar "DIMSCALE" (* dim40 sfbili))
    
23.     (emod dent 144 (/ dim144 sfbili))
    
24.     (emod dent 40 (* dim40 sfbili))
    
25.   )
    
26.   (princ)
    
27. )

(defun emod (ent code value)  <br />   (if (= (type ent) 'ename) (setq ent (entget ent)))<br />   (setq b(cons code value))<br />   (if(setq a(assoc code ent))<br />      (entmod(subst b a ent))<br />      (entmod(append ent(list b))))<br /> )<br /> (defun c:tt()<br />   (princ "\n 选择缩放对象")<br />   (setq ss (ssget))<br />   (setq pt1 (getpoint "\n选择基点"))<br />   (setq sfbili (getreal "\n 输入缩放比例"))<br />   (vl-cmdf "_.SCALE" ss "" pt1 sfbili "")<br />   (setq dimstyles (vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object))))<br />   (vlax-for dim dimstyles<br />     (setq name (vla-get-name dim))<br />     (setq dent (entget (tblobjname "dimstyle" name)));;标注样式名为name的符号表条目<br />     (setq dim144 (getvar "DIMLFAC"));;标注样式比例因子<br />     (setq dim40 (getvar "DIMSCALE"));;标注样式全局比例<br />     ;(setvar "DIMLFAC" (/ dim144 sfbili))<br />     ;(setvar "DIMSCALE" (* dim40 sfbili))<br />     (emod dent 144 (/ dim144 sfbili))<br />     (emod dent 40 (* dim40 sfbili))<br />   )<br />   (princ)<br /> )

hubeiwdlue

用command方法可以实现，但是用entmake方法，总是出问题。另外，用对象属性的方法，应该怎么做，我不清楚怎么查属性和方法。

2. (defun c:tt()
   
3.         (setq ltbili (getvar "LTSCALE"));;线型全局比例因子
   
4.         (setq ss (wdl_ssget "\n 选择缩放对象" nil))
   
5.         (setq pt1 (getpoint "\n选择基点"))
   
6.         (setq sfbili (getreal "\n 输入缩放比例"))
   
7.         (vl-cmdf "_.SCALE" ss "" pt1 sfbili "")
   
8.         (setvar "LTSCALE" (/ ltbili sfbili))
   
9.         (setq dimstyles (vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object))))
   
10.         (vlax-for dim dimstyles
    
11.                 (setq name (vla-get-name dim))
    
12.                 (setq den (tblobjname "dimstyle" name))
    
13.                 (command "-DIMSTYLE" "R" name)　;置为当前
    
14.                 (setq dim144 (getvar "DIMLFAC"));;标注样式比例因子
    
15.                 (setq dim40 (getvar "DIMSCALE"));;标注样式全局比例               
    
16.                 (command
    
17.                         "DIMLFAC"  (/ dim144 sfbili);设置线性标注测量值的比例因子
    
18.                         "DIMSCALE" (* dim40 sfbili);设置应用于标注变量的全局比例因子
    
19.                         "-DIMSTYLE" "S" name "Y" ;保存修改到当前样式
    
20.                 )
    
21.         )
    
22.         (princ)
    
23. )

(defun c:tt()<br />         (setq ltbili (getvar "LTSCALE"));;线型全局比例因子<br />         (setq ss (wdl_ssget "\n 选择缩放对象" nil))<br />         (setq pt1 (getpoint "\n选择基点"))<br />         (setq sfbili (getreal "\n 输入缩放比例"))<br />         (vl-cmdf "_.SCALE" ss "" pt1 sfbili "")<br />         (setvar "LTSCALE" (/ ltbili sfbili))<br />         (setq dimstyles (vla-get-dimstyles (vla-get-activedocument (vlax-get-acad-object))))<br />         (vlax-for dim dimstyles<br />                 (setq name (vla-get-name dim))<br />                 (setq den (tblobjname "dimstyle" name))<br />                 (command "-DIMSTYLE" "R" name)　;置为当前<br />                 (setq dim144 (getvar "DIMLFAC"));;标注样式比例因子<br />                 (setq dim40 (getvar "DIMSCALE"));;标注样式全局比例                <br />                 (command <br />                         "DIMLFAC"  (/ dim144 sfbili);设置线性标注测量值的比例因子<br />                         "DIMSCALE" (* dim40 sfbili);设置应用于标注变量的全局比例因子<br />                         "-DIMSTYLE" "S" name "Y" ;保存修改到当前样式<br />                 )<br />         )<br />         (princ)<br /> )

paulpipi

帮顶，希望高手帮忙解决