吾爱破解 - 52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 496|回复: 7
收起左侧

[学习记录] 分享个自己改写的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)  
)

免费评分

参与人数 2吾爱币 +2 热心值 +2 收起 理由
Stive1233 + 1 + 1 用心讨论,共获提升!
helian147 + 1 + 1 热心回复!

查看全部评分

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

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]

本版积分规则

返回列表

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-12-16 03:25

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表