分享个自己改写的CAD框选写字插件

ma344578245 发表于 2024-8-20 10:47

https://imgsrc.baidu.com/forum/pic/item/9f2f070828381f30c9900c88ef014c086e06f002.gif
快捷键和文字内容可随意更改
感觉好用了支持一波
下面是lisp源码，CAD可直接加载使用：

(defun C:XZ (/ p1 p2 p3 p4 rectHt)
(setq p1 (getpoint "\n请指定矩形的第一个角点: "))
(setq p3 (getcorner p1 "\n请指定矩形的对角点: "))

; 为了方便计算，我们可以假设p1是左下角或左上角，p3是右下角或右上角
; 但实际上，用户可能会以任何顺序选择这两个点
; 因此，我们需要确定哪两个坐标是矩形的垂直边

; 计算可能的垂直边
(setq dx (abs (- (car p1) (car p3))))
(setq dy (abs (- (cadr p1) (cadr p3))))

; 假设dx是水平距离，dy是垂直距离（这取决于用户的选择，但通常是这样）
; 如果不是这样，我们可以交换它们，但在这里我们假设用户按照常规方式选择

; 矩形的高度
(setq rectHt dy)

; 输出矩形的高度
(princ (strcat "\n矩形的高度为: " (rtos rectHt) " MM"))

; 计算矩形的中心点
(setq cp (list (/ (+ (car p1) (car p3)) 2) (/ (+ (cadr p1) (cadr p3)) 2)))

; 矩形的中心点写文字
(command "_.TEXT" "_J" "MC" cp rectHt 0 "全周倒 C2")
(princ)
)

long88888888 发表于 2024-8-20 13:04

你这个我没有看懂，怎么文字和框选的矩形大小不一样，有什么意义呢，我直接插入不好吗？

z473119073 发表于 2024-8-20 13:20

正需要感谢看看怎么用

z473119073 发表于 2024-8-20 13:23

不会用，想让一个矩形里面写的字为宋体，然后写后不超过矩形就可以

carrottj 发表于 2024-8-20 15:21

优秀啊，加个文字输入框和字高会更好用

Stive1233 发表于 2024-8-20 21:22

支持楼主，很实用

zlf2020999 发表于 2024-8-20 21:45

谢谢分享，正需要！谢谢！

小不点吃鱼 发表于 2024-8-21 08:37

既然是框选，一般人默认就是框的大小与文字大小一样，但是计算时用x还是y来计算就不是框选时看到的样子。建议做成动态的，

页: [1]

吾爱破解 - 52pojie.cn's Archiver

分享个自己改写的CAD框选写字插件