编辑'；看'；共m个

bharthts01 · 发表于 2022-7-6 07:37:11

嘿，伙计们，又是我。

我正在使用auto lisp标记X和Y坐标，我很满意（谢谢你们）

我只是想补充一些小的调整。

登录/注册后可看大图

上述坐标由lisp程序本身获取。
下面的坐标是我想要lisp的样子。我基本上画了一条线，然后一个箭头指向该点，并重新调整文本大小以适应。

(defun c:dimo ( / p )
(while (setq p (getpoint "\nSpecify Point <Exit>: "))
(command "_.dimordinate" "_non" p "_T" (strcat "X=" (rtos (car p) 2 0) "Y=" (rtos (cadr p) 2 0)))
)
(princ)
)

这就是我正在使用的代码。

谢谢

Tharwat · 发表于 2022-7-6 07:48:20

只需更改文本样式的高度，即当前暗样式，以满足您的需要。

bharthts01 · 发表于 2022-7-6 07:55:16

“箭头和线条”看起来更整洁，这是怎么回事？

编辑：更改了文字的高度，谢谢。

Tharwat · 发表于 2022-7-6 08:08:11

来自标注样式的同一对话框。

在命令行键入：dimstyle并查看选项卡（符号和箭头）

bharthts01 · 发表于 2022-7-6 08:16:24

我换了箭头，没什么不同。它是像更改标注样式那样简单，还是因为它是一个自动lisp，我必须将其放入程序本身？

Tharwat · 发表于 2022-7-6 08:20:42

DIMORTIONS命令没有箭头，因此您当然不会看到任何差异

您可能需要使用Qleader或Mleader来处理箭头的大小。

bharthts01 · 发表于 2022-7-6 08:35:57

对不起，我不知道那个命令，我试着玩弄它，但没用

Lee Mac · 发表于 2022-7-6 08:40:56

下面是一个供您考虑的示例：

[code][颜色=绿色]；；创建一个MLeader对象，其中两个顶点显示坐标；；相对于当前UCS表示的第一个选定点的，单位为；；小数格式四舍五入到最接近的整数。；；由Lee Mac 2012（defunc:pt（/[color]ml p1 p2 sp）（setqsp（vlax get property（vla get activedocument（vlax get acad object）（[color=BLUE=BLUE]=1（[color=BLUE getvar'cvport））(while（和[setqp1（getpoint“\n点击点：）（setqp2（getpoint“\n点击引线端点：p1））（vla put text string（setqml（vlax invokesp'addmleader（append（transp1 1 0）（transp2 1 0））（strcat“X=（rtos（carp1 2 0）“Y=（rtos（cadrp1 0））（if([颜色=蓝色]

[编程交流] 编辑'；看'；共m个

发表回复

精选推荐