[求助]：我想用编程的方法修改尺寸箭头为什么不行？

xiaping

我想用编程的方法直接调用尺寸标注的DXF组码修改尺寸箭头，可是不知道为什么始终不行。代码如下：请高手指点。

           

2. 
   
3.   [FONT=courier new]
   
4. (defun c:jtxg ()
   
5. (setq ys (getint"选定箭头样式：1实心闭合 2点 3倾斜 4小点 5 建筑标记：<1>"))
   
6. (if (= ys "") (setq ys 1))
   
7.   (if (= ys 1) ( setq yangs "."))
   
8.   (if        (= ys 2) ( setq yangs "_DOT"))
   
9.   (if        (= ys 3) ( setq yangs "_OBLIQUE"))
   
10.   (if        (= ys 4) ( setq yangs "_DOTSMALL"))
    
11.   (if        (= ys 5) ( setq yangs "_ARCHTICK"))
    
12. (setq ss (entget (car (entsel))'("dimsion")))
    
13. (setq mc (cdr (assoc 3 ss)))
    
14. (setq ls (tblsearch "dimstyle" mc))
    
15. (SETQ ls (SUBST
    
16.             (CONS 5 yangs)
    
17.             (ASSOC 5 ls)
    
18.             ls
    
19.              ))
    
20. (SETQ ls (SUBST
    
21.             (CONS 6 yangs)
    
22.             (ASSOC 6 ls)
    
23.             ls
    
24.              ))
    
25. (SETQ ls (SUBST
    
26.             (CONS 7 yangs)
    
27.             (ASSOC 7 ls)
    
28.             ls
    
29.              )      
    
30. )                  
    
31.   )        
    
32.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:jtxg ()<br /> (setq ys (getint"选定箭头样式：1实心闭合 2点 3倾斜 4小点 5 建筑标记：<1>"))<br /> (if (= ys "") (setq ys 1))<br />   (if (= ys 1) ( setq yangs "."))<br />   (if        (= ys 2) ( setq yangs "_DOT"))<br />   (if        (= ys 3) ( setq yangs "_OBLIQUE"))<br />   (if        (= ys 4) ( setq yangs "_DOTSMALL"))<br />   (if        (= ys 5) ( setq yangs "_ARCHTICK"))<br /> (setq ss (entget (car (entsel))'("dimsion")))<br /> (setq mc (cdr (assoc 3 ss)))<br /> (setq ls (tblsearch "dimstyle" mc)) <br /> (SETQ ls (SUBST<br />             (CONS 5 yangs)<br />             (ASSOC 5 ls)<br />             ls<br />              ))<br /> (SETQ ls (SUBST<br />             (CONS 6 yangs)<br />             (ASSOC 6 ls)<br />             ls<br />              ))<br /> (SETQ ls (SUBST<br />             (CONS 7 yangs)<br />             (ASSOC 7 ls)<br />             ls<br />              )       <br /> )                   <br />   )        <br />   [/FONT]<br />

mmmm

直接使用command，将每个标注的肩头全部OVERRIDE

(command "_.dim" "_override" "_dimblk" new "_dimblk1" new "_dimblk2" new "" sset ...)

单纯改标注类型的设定，连DDIM有时都会有点怪怪的提示。使用LISP肯定容易出错。

aeo

5
DIMBLK（已废弃，现在为对象 ID）

6
DIMBLK1（已废弃，现在为对象 ID）

7
DIMBLK2（已废弃，现在为对象 ID）

lsjjm

TRY THIS:
[php]
(defun test (atn)
  ;(vl-load-com)
  (setq ss (ssget '((0 . "DIMENSION"))) n 0)
  (while (< n (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss n)))
    (vla-put-arrowhead1type obj atn)
    (vla-put-arrowhead2type obj atn)
    (setq n (1+ n))
  )
)

atn-arrowheadtype code number
[/php]

xiaping

最初由 lsjjm 发布
[B]TRY THIS:
[php]
(defun test (atn)
  ;(vl-load-com)
  (setq ss (ssget '((0 . "DIMENSION"))) n 0)
  (while (< n (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss n)))
    (vla-put-a... [/B]

谢谢，这段代码的确管用。看来VL函数的功效的确不凡，还得学学。另外请问实心箭头的 arrowheadtype code number 是什么？
  同时也谢谢楼上各位的热心指点。

lsjjm

最初由 xiaping 发布
[B]...另外请问实心箭头的 arrowheadtype code number 是什么？
[/B]

是 0
请参考:
0 Closed filed
1 Closed blank
2 Closed
3 Dot
4 Architectual tick
5 Oblique
6 Open
...