标注尺寸箭头改其它样式

183017064

参考来源  http://bbs.mjtd.com/forum.php?mo ... =%BC%FD%CD%B7%B1%E4  caoyin大佬的代码

2. (defun c:tt (/ SS N OBJ ARROW_VAL)
   
3.   ;; 初始化箭头类型参数
   
4.   (initget "S H D B P F")
   
5.   (setq kw (getkword "\n选择箭头类型 [实心闭合(S)/空心闭合(H)/斜线(D)/实心小点(B)/空心小点(P)/无(F)] <B>: "))
   
6.   (or kw (setq kw "B"))  ; 默认实心小点
   
7. 
   
8.   ;; 设置箭头类型映射
   
9.   (setq ARROW_VAL
   
10.     (cond
    
11.       ((= kw "S") 0)   ; 实心闭合
    
12.       ((= kw "H") 1)   ; 空心闭合
    
13.       ((= kw "D") 5)   ; 斜线
    
14.       ((= kw "B") 11)  ; 实心小点
    
15.       ((= kw "P") 13)  ; 空心小点
    
16.       ((= kw "F") 19)  ; 空
    
17.       (T 11)           ; 默认值
    
18.     )
    
19.   )
    
20. 
    
21.   ;; 执行修改
    
22.   (if (setq SS (ssget '((0 . "*DIMENSION"))))
    
23.     (progn
    
24.       (repeat (setq N (sslength SS))
    
25.         (setq OBJ (vlax-ename->vla-object (ssname SS (setq N (1- N)))))
    
26.         (vla-put-Arrowhead1Type OBJ ARROW_VAL)
    
27.         (vla-put-Arrowhead2Type OBJ ARROW_VAL)
    
28.       )
    
29.       (princ (strcat "\n已修改 " (itoa (sslength SS)) " 个标注"))
    
30.     )
    
31.     (princ "\n未选择标注对象!")
    
32.   )
    
33.   (princ)
    
34. )

(defun c:tt (/ SS N OBJ ARROW_VAL)<br />   ;; 初始化箭头类型参数<br />   (initget "S H D B P F")<br />   (setq kw (getkword "\n选择箭头类型 [实心闭合(S)/空心闭合(H)/斜线(D)/实心小点(B)/空心小点(P)/无(F)] <B>: "))<br />   (or kw (setq kw "B"))  ; 默认实心小点<br /> <br />   ;; 设置箭头类型映射<br />   (setq ARROW_VAL<br />     (cond<br />       ((= kw "S") 0)   ; 实心闭合<br />       ((= kw "H") 1)   ; 空心闭合<br />       ((= kw "D") 5)   ; 斜线<br />       ((= kw "B") 11)  ; 实心小点<br />       ((= kw "P") 13)  ; 空心小点<br />       ((= kw "F") 19)  ; 空<br />       (T 11)           ; 默认值<br />     )<br />   )<br /> <br />   ;; 执行修改<br />   (if (setq SS (ssget '((0 . "*DIMENSION"))))<br />     (progn<br />       (repeat (setq N (sslength SS))<br />         (setq OBJ (vlax-ename->vla-object (ssname SS (setq N (1- N)))))<br />         (vla-put-Arrowhead1Type OBJ ARROW_VAL)<br />         (vla-put-Arrowhead2Type OBJ ARROW_VAL)<br />       )<br />       (princ (strcat "\n已修改 " (itoa (sslength SS)) " 个标注"))<br />     )<br />     (princ "\n未选择标注对象!")<br />   )<br />   (princ)<br /> )

欢迎各位留下宝贵意见

tigcat

这个程序挺好的,有没有改变箭头大小的方法呢?