请版主帮忙编一天正3建筑坐标标注的lisp，要求：轴网间距100米（可调），坐标X＝250250,Y=450450时，自动标注：4A+50.45,2B+50.25。字体等与天正3坐标标注一样，并随出图比例自动调整大小。多谢！！！
请版主帮忙编一天正3建筑坐标标注的lisp，
要求：轴网间距100米（可调），坐标X＝250250,Y=450450时，自动标注：4A+50.45,2B+50.25。字体等与天正3坐标标注一样，并随出图比例自动调整大小。
多谢！！！
2楼
很久以前编过一个类似的，现找不到了
很简单的，你自己编吧
回复
3楼
fen前辈，帮忙编写一个，我不懂lisp。
多谢多谢！
回复
4楼
最近比较忙
可以做个简单的
点到哪里就标出该点坐标
回复
5楼
(defun c:xx (/)
(setvar "cmdecho" 0)
(setq a1 (getpoint "坐标点"))
(princ "\n")
(setq a2 (getpoint "文字插入点"))
(princ "\n")
(command "line" a1 a2 "@5000,0" "")
(setq x1 (car a1))
(setq y1 (car (cdr a1)))
(setq b1 (itoa (fix y1)))
(setq b2 (strlen b1))
(setq b3 (substr b1 1 (- b2 5)))
(setq b4 (substr b1 (- b2 4) 2))
(setq b5 (substr b1 (- b2 2) 2))
(setq b (strcat b3 "A+" b4 "." b5))
(setq c1 (itoa (fix x1)))
(setq c2 (strlen c1))
(setq c3 (substr c1 1 (- c2 5)))
(setq c4 (substr c1 (- c2 4) 2))
(setq c5 (substr c1 (- c2 2) 2))
(setq c (strcat c3 "B+" c4 "." c5))
(setq d (strcat b "," c))
(command "text" a2 "1500" "0" d)
)
回复
6楼
fen大师，您的程序可以用，但是不能显示坐标值。有时间帮忙改进一下，谢谢！
另，可否增加一些功能：
1.坐标值小数点位数可以选择2或3位。
2.文字大小可否随出图比例自动调整，即出图比例1:100，则文字高240；1:200，则文字高480。若有难度，可手动输入。
3.插入点的位置可选择（上面程序已有），最好能够动态观察，选择合适位置点击插入。
4.文字下短线可根据坐标数字位数自动调整其长度，不要过长或过短。
5.坐标点位置应当有圆点或小十字，出图比例1:100时，圆点直径50。大小亦随出图比例变化。
6.输入数据可保留，下次应用时，默认上次输入数据。
多谢帮忙！！！
zwx1232000@hotmail.com
回复
7楼
fen大师，帮忙呀！！！这样的程序对我很实用的。:)
回复
