两点的间距

wedg

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


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

f5612140

这或许是你要的,可自行再完善它

2. (defun c:test()
3.   (setq txth (getvar "textsize"))
4.   (setq dfc (getvar "dimlfac"))
5.   (setq p1 (getpoint "\nFirst point:"))
6.   (setq p2 (getpoint p1 "\nSecond point:"))
7.   (setq len (distance p1 p2))
8.   (setq pt (mapcar '+ p1 p2))
9.   (setq pt (list (/ (car pt) 2)(/ (cadr pt) 2)))   
10.   (command "text" pt txth 90 (rtos (* len dfc) 2 3))
11. )

(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

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

f5612140

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

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


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

wedg

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

莫名

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

wedg

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

wangzhong

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


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


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

无痕

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


痛苦.....

wangzhong

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