标注尺寸箭头改其它样式
本帖最后由 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)
)源码都一样,想要一个币,就是单纯的想要快乐一下 蓝盾设计 发表于 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); 积分
;;;----------------------------------------------------------------------------- tigcat 发表于 2025-4-25 21:03
这个程序挺好的,有没有改变箭头大小的方法呢?
我个人觉得没有意义,我画图会给标注带注释性。调节箭头和文字大小比较方便。个人习惯;P 这个程序挺好的,有没有改变箭头大小的方法呢?
还有可以增加自己常用样式的代码?求指点一下,比如建筑,大圆等 蓝盾设计 发表于 2025-4-26 05:25
还有可以增加自己常用样式的代码?求指点一下,比如建筑,大圆等
可以啊。我有空做一下。
看起来很不错哦 挺好的,支持一下 shirker 发表于 2025-4-26 23:04
挺好的,支持一下
:P-开心,取之于明,用之于民。 不错 学习了
页:
[1]
2