请问有什么函数可以更新标注样式里的DIMTOFL变量。

sadoy

小弟图纸里的直径标注都是单箭头，把变量DIMTOFL改到1值后，需要移动尺寸才会变回双箭头，请问各位有没有函数或程序可以更新，让其自动变回双箭头（主要是尺寸多，一个个去移动太麻烦了）。谢谢

Andyhon

请分两个文件样本...
1. 待处理文件 (*.Dwg)
2. 所需正确之目的文件 (*.Dwg)

压缩打包后上传,作为验证之用

sadoy

Andyhon 发表于 2013-10-21 13:19
请分两个文件样本...
1. 待处理文件 (*.Dwg)
2. 所需正确之目的文件 (*.Dwg)

andyhon你好，我已经将测试文件上传了，麻烦你帮我看看这问题该怎么解决。谢谢。

Andyhon

先单选调试...

2. 
   
3. (defun C:dtofl1 ()
   
4.    (command "dimstyle" "r" "Dimstyle_1")
   
5.    (setvar "DimTOFL" 1)
   
6.    (command "dimstyle" "s" "Dimstyle_1" "y")
   
7.    (setq ee (entsel "\nSelect Dim...1")
   
8.         dat (entget (car  ee))
   
9.        pt10 (assoc 10 dat)
   
10.        pt15 (assoc 15 dat)
    
11.         tmp (subst (cons 10 (cdr pt15)) (assoc 10 dat) dat)
    
12.         dat (subst (cons 15 (cdr pt10)) (assoc 15 tmp) tmp)
    
13.    )
    
14.    (entmod dat)
    
15. )
    

<br /> (defun C:dtofl1 ()<br />    (command "dimstyle" "r" "Dimstyle_1")<br />    (setvar "DimTOFL" 1)<br />    (command "dimstyle" "s" "Dimstyle_1" "y")<br />    (setq ee (entsel "\nSelect Dim...1")<br />         dat (entget (car  ee))<br />        pt10 (assoc 10 dat)<br />        pt15 (assoc 15 dat)<br />         tmp (subst (cons 10 (cdr pt15)) (assoc 10 dat) dat)<br />         dat (subst (cons 15 (cdr pt10)) (assoc 15 tmp) tmp)<br />    )<br />    (entmod dat)<br /> )<br />

sadoy

Andyhon 发表于 2013-10-23 22:48
先单选调试...

Andyhon ，非常感谢你，你写的代码非常好，我参考你的代码已经写出了自己需要的效果了，真的谢谢，帮我解决了大问题，