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

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

快捷键和文字内容可随意更改
感觉好用了支持一波
下面是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来计算就不是框选时看到的样子。建议做成动态的，

帐号		自动登录	找回密码
密码			注册[Register]

[学习记录] 分享个自己改写的CAD框选写字插件

免费评分