有个文字中心对齐

and2008 · 发表于 2010-8-21 11:14:00

本帖最后由作者于 2010-8-21 11:37:02 编辑

圆中有个文字，line围成的方框内有个文字，文字都是左下对齐

全部框选所有元素，把文字都改为正中对齐，并且在圆中的文字和圆中心对齐，在line围成的方框中的字也和方框的中心对齐，如何用lisp实现呢？请助各位大虾了。。。

补充下，圆中的文字和line围成的方框中文字有很多个了。具体附图如下

yp9819 · 发表于 2020-5-7 06:40:09

qjchen 发表于 2010-8-23 22:01
:) 以前写过一个圆的对中，刚才修改了一点点，改成圆和多边形的了
 
不过楼主，假如你的多边形是线 ...

选择对象只能选择圆，不能选中文字，运行提示：命令: QJCHENCENTER
选择对象: 找到 0 个
选择对象: 找到 1 个，总计 1 个
选择对象:
Error: 参数类型错误: lselsetp nil
SYSTEM VARIABLES have been reset

yp9819 · 发表于 2020-5-7 06:57:45

qjchen 发表于 2010-8-23 22:01
:) 以前写过一个圆的对中，刚才修改了一点点，改成圆和多边形的了
 
不过楼主，假如你的多边形是线 ...

请作者解决下，程序不能运行，对CAD版本有什么要求，我在CAD2008 CAD2013版本中都不能运行

yp9819 · 发表于 2020-5-7 06:56:26

and2008 发表于 2010-8-27 14:23
楼上的程序不错，非常感谢。只是命令名有一点点长，楼主能不能改短一点，容易记些呢，比如：zxdq

你测试过这个程序吗

xyp1964 · 发表于 2010-8-21 11:50:00

http://www.xdcad.net/forum/showthread.php?s=&threadid=668327

zxjing · 发表于 2010-8-21 12:03:00

院长啊,又是通用函数呀

sachindkini · 发表于 2010-8-21 13:51:00

dear sir

how to register on site

registration closed this site

and2008 · 发表于 2010-8-21 14:54:00

院长的是通用函数，我这里没有啊，用起不太方便。哎..........

xyz2009xyz · 发表于 2010-8-21 19:21:00

我的不行，院长看看是什么原因：

命令: TT
系统变量【 *ERRNO 】从值〖2 〗变到〖 0 〗
选择对象: 指定对角点: 找到 2 个
已滤除 1 个。

操作对象为一个圆和一单行文本，见附件：

xyz2009xyz · 发表于 2010-8-23 07:30:00

我的不行，院长看看是什么原因：

命令: TT
系统变量【 *ERRNO 】从值〖2 〗变到〖 0 〗
选择对象: 指定对角点: 找到 2 个
已滤除 1 个。

操作对象为一个圆和一单行文本，见附件：

qjchen · 发表于 2010-8-23 22:01:00

:) 以前写过一个圆的对中，刚才修改了一点点，改成圆和多边形的了

不过楼主，假如你的多边形是线组成的，那麻烦先用一些其他程序连接为整段的多义线，再运行此程序

(princ "\n By qjchen@gmail.com, 文字自动在圆或多义线内居中, The command is qjchencenter")
(princ)

vlx在附件，演示如下

and2008 · 发表于 2010-8-27 14:23:00

楼上的程序不错，非常感谢。只是命令名有一点点长，楼主能不能改短一点，容易记些呢，比如：zxdq

dkj0322 · 发表于 2010-9-9 16:00:00

谢谢楼上的分享

账号		自动登录	找回密码
密码			注册

[原创] 个人的第一个F# JIG代码——截断线绘制