183017064 发表于 2025-4-25 16:57:29

标注尺寸箭头改其它样式

本帖最后由 183017064 于 2025-4-29 09:33 编辑

(defun c:Tt (/ SS N OBJ ARROW_VAL)
;; 初始化箭头类型参数
(initget "S H D B P F");;;;Ⅰ
(setq kw (getkword "\n选择箭头类型 [实心闭合(S)/空心闭合(H)/斜线(D)/实心小点(B)/空心小点(P)/无(F)] <B>: "));;;Ⅱ
(or kw (setq kw "B")); 默认实心小点

;; 设置箭头类型映射;;;Ⅲ
(setq ARROW_VAL
    (cond
      ((= kw "S") 0)   ; 实心闭合
      ((= kw "H") 1)   ; 空心闭合
      ((= kw "D") 5)   ; 斜线
      ((= kw "B") 11); 实心小点
      ((= kw "P") 13); 空心小点
      ((= kw "F") 19); 空
      (T 11)         ; 默认值
    )
)
;;;------------------如有需要,可照猫画虎自行添加修改--------------------------
;((= kw "A") 2)   ; 闭合
;((= kw "C") 3)   ; 点
;((= kw "E") 4)   ; 建筑标记
;((= kw "G") 6)   ; 打开
;((= kw "J") 7)   ; 指示原点
;((= kw "K") 8)   ; 指示原点2
;((= kw "L") 9)   ; 直角
;((= kw "M") 10); 30°角
;((= kw "N") 12); 空心点
;((= kw "V") 14); 方框
;((= kw "R") 15); 实心方框
;((= kw "T") 16); 基准三角形
;((= kw "Y") 17); 实心基准三角形
;((= kw "U") 18); 积分
;;;-----------------------------------------------------------------------------
;; 执行修改
(if (setq SS (ssget '((0 . "*DIMENSION"))))
    (progn
      (repeat (setq N (sslength SS))
      (setq OBJ (vlax-ename->vla-object (ssname SS (setq N (1- N)))))
      (vla-put-Arrowhead1Type OBJ ARROW_VAL)
      (vla-put-Arrowhead2Type OBJ ARROW_VAL)
      )
      (princ (strcat "\n已修改 " (itoa (sslength SS)) " 个标注"))
    )
    (princ "\n未选择标注对象!")
)
(princ)
)源码都一样,想要一个币,就是单纯的想要快乐一下

183017064 发表于 2025-4-27 09:06:44

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

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

183017064 发表于 2025-4-26 23:18:32

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

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

tigcat 发表于 2025-4-25 21:03:59

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

蓝盾设计 发表于 2025-4-26 05:25:49

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

183017064 发表于 2025-4-26 08:54:52

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

可以啊。我有空做一下。

czb203 发表于 2025-4-26 21:38:50

看起来很不错哦

shirker 发表于 2025-4-26 23:04:49

挺好的,支持一下

183017064 发表于 2025-4-26 23:13:43

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

:P-开心,取之于明,用之于民。

senry 发表于 2025-4-27 08:11:44

不错 学习了
页: [1] 2
查看完整版本: 标注尺寸箭头改其它样式