标注尺寸箭头改其它样式

183017064

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.   ;((= kw "A") 2)   ; 闭合
    
22.   ;((= kw "C") 3)   ; 点
    
23.   ;((= kw "E") 4)   ; 建筑标记
    
24.   ;((= kw "G") 6)   ; 打开
    
25.   ;((= kw "J") 7)   ; 指示原点
    
26.   ;((= kw "K") 8)   ; 指示原点2
    
27.   ;((= kw "L") 9)   ; 直角
    
28.   ;((= kw "M") 10)  ; 30°角
    
29.   ;((= kw "N") 12)  ; 空心点
    
30.   ;((= kw "V") 14)  ; 方框
    
31.   ;((= kw "R") 15)  ; 实心方框
    
32.   ;((= kw "T") 16)  ; 基准三角形
    
33.   ;((= kw "Y") 17)  ; 实心基准三角形
    
34.   ;((= kw "U") 18)  ; 积分
    
35. ;;;-----------------------------------------------------------------------------  
    
36.   ;; 执行修改
    
37.   (if (setq SS (ssget '((0 . "*DIMENSION"))))
    
38.     (progn
    
39.       (repeat (setq N (sslength SS))
    
40.         (setq OBJ (vlax-ename->vla-object (ssname SS (setq N (1- N)))))
    
41.         (vla-put-Arrowhead1Type OBJ ARROW_VAL)
    
42.         (vla-put-Arrowhead2Type OBJ ARROW_VAL)
    
43.       )
    
44.       (princ (strcat "\n已修改 " (itoa (sslength SS)) " 个标注"))
    
45.     )
    
46.     (princ "\n未选择标注对象!")
    
47.   )
    
48.   (princ)
    
49. )

(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 />   ;((= kw "A") 2)   ; 闭合<br />   ;((= kw "C") 3)   ; 点<br />   ;((= kw "E") 4)   ; 建筑标记<br />   ;((= kw "G") 6)   ; 打开<br />   ;((= kw "J") 7)   ; 指示原点<br />   ;((= kw "K") 8)   ; 指示原点2<br />   ;((= kw "L") 9)   ; 直角<br />   ;((= kw "M") 10)  ; 30°角<br />   ;((= kw "N") 12)  ; 空心点<br />   ;((= kw "V") 14)  ; 方框<br />   ;((= kw "R") 15)  ; 实心方框<br />   ;((= kw "T") 16)  ; 基准三角形<br />   ;((= kw "Y") 17)  ; 实心基准三角形<br />   ;((= kw "U") 18)  ; 积分<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 /> )

源码都一样，想要一个币，就是单纯的想要快乐一下

183017064

蓝盾设计 发表于 2025-4-26 05:25
还有可以增加自己常用样式的代码？求指点一下，比如建筑，大圆等

1. ;;;------------------如有需要，可照猫画虎自行添加修改--------------------------
   
2.         ;((= kw "A") 2)   ; 闭合
   
3.         ;((= kw "C") 3)   ; 点
   
4.         ;((= kw "E") 4)   ; 建筑标记
   
5.         ;((= kw "G") 6)   ; 打开
   
6.         ;((= kw "J") 7)   ; 指示原点
   
7.         ;((= kw "K") 8)   ; 指示原点2
   
8.         ;((= kw "L") 9)   ; 直角
   
9.         ;((= kw "M") 10)  ; 30°角
   
10.         ;((= kw "N") 12)  ; 空心点
    
11.         ;((= kw "V") 14)  ; 方框
    
12.         ;((= kw "R") 15)  ; 实心方框
    
13.         ;((= kw "T") 16)  ; 基准三角形
    
14.         ;((= kw "Y") 17)  ; 实心基准三角形
    
15.         ;((= kw "U") 18)  ; 积分
    
16. ;;;-----------------------------------------------------------------------------       

复制代码

183017064

tigcat 发表于 2025-4-25 21:03
这个程序挺好的,有没有改变箭头大小的方法呢?

我个人觉得没有意义，我画图会给标注带注释性。调节箭头和文字大小比较方便。个人习惯

tigcat

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

蓝盾设计

还有可以增加自己常用样式的代码？求指点一下，比如建筑，大圆等

183017064

蓝盾设计 发表于 2025-4-26 05:25
还有可以增加自己常用样式的代码？求指点一下，比如建筑，大圆等

可以啊。我有空做一下。

czb203

看起来很不错哦

shirker

挺好的,支持一下

183017064

shirker 发表于 2025-4-26 23:04
挺好的,支持一下

开心，取之于明，用之于民。

senry

不错 学习了