社区 › 编程申请 › 两点的间距

wedg 发表于 2004-7-2 16:39:00

用标注是可以实现，但是放置文字的时候，位置不是很好或者说文字放置的位置不是很整齐（因为文字是手动放置的），可否用编程实现标注的文字放置的位置。例如：我先定义一条直线，量取两点后，文字自动放置在我定义直线的上方？而且，排列很整齐划一？？


各位大虾帮帮忙阿，我急需要！

f5612140 发表于 2004-7-3 09:54:00

这或许是你要的,可自行再完善它(defun c:test()
(setq txth (getvar "textsize"))
(setq dfc (getvar "dimlfac"))
(setq p1 (getpoint "\nFirst point:"))
(setq p2 (getpoint p1 "\nSecond point:"))
(setq len (distance p1 p2))
(setq pt (mapcar '+ p1 p2))
(setq pt (list (/ (car pt) 2)(/ (cadr pt) 2)))   
(command "text" pt txth 90 (rtos (* len dfc) 2 3))
)

wedg 发表于 2004-7-5 22:53:00

楼上的基本上是这个样子，但是，你的文字高度，和文字的位置无法定义阿！文字高度太大，文字的位置无法放置在一个自定义的位置阿！

f5612140 发表于 2004-7-6 08:55:00

wedg发表于2004-7-5 22:53:00static/image/common/back.gif楼上的基本上是这个样子，但是，你的文字高度，和文字的位置无法定义阿！文字高度太大，文字的位置无法放置在一个自定义的位置阿！


1.文字高度为textsize的值(字型中的高度设为0)


2.位置你可自己比照程序点选(getpoint)你要的位置或自己设定固定的位置

wedg 发表于 2004-7-6 19:27:00

大哥麻烦你改改好吗？我不会阿！

莫名 发表于 2004-7-6 22:24:00

看看标注设置的内容，标注可以实现文字自动放置在我定义直线的上方。

wedg 发表于 2004-7-7 13:26:00

发个图片上来看看？？？我好像没有找到！

wangzhong 发表于 2004-7-11 08:41:00

问题并不难

问题并不难，所点击的两点是三维点还是随意点击。


最好发张图上来，点击位置及表格同在一张图上，


并附加说明，这样才好编程。

无痕 发表于 2004-7-11 11:03:00

我看这个帖子有点好笑，问的有点”困难“，答的也有点“困难”：）


痛苦.....

wangzhong 发表于 2004-7-13 08:47:00

问题并不难

问题并不难，但需要交待清楚以下几个问题：1、断面图上鼠标点击的两个点是一条直线的两个端点还是用命令point得到的点。2、不同的比例尺字高及宽度因子是多少。最好传张图上来，说明步骤。问题可以很快得到解决。

查看完整版本: 两点的间距