[原创]：蜜蜂软体：坐标标注（源代码公开，你可以修改）

njshf

能不能帮忙改一下？

maijinghua1001

我也有一个，不过可考虑下一个参考一下比较比较

netbee

改是很简单的，你试着自己动手吧
思路为：
先得出X，Y中最长的字符串长度，当标注在左边时，再根据标注位置点向标注方向移（字宽＊字数）距离得点PT，这个PT点即为XY文字的基点，且X为左下角对齐，Y为左上角对齐。

netbee

最近工作很忙，暂时无法更新了！
希望有兴趣的对它进行完善

beesoft

要是能学天正5.0的哪样有预览功能就好了
＾＿＾

－－－－－－－－－－－－－－
人心不足蛇吞象

nightgale

还没用过！有时间也学习一下程序！

sqmjk01

下载了，研究一下它的编程思路，借鉴一下！

iwzw

已下载，还不错。

hxy-xdcad

东东不错
但网蜂楼主的精神更是可佳

ydf7332462

能批量标注就好了，xd不可r2004

chinson

不错的程序！继续努力哦！期待你的新程序！

0451doctor

的确与天正有点区别，我还要近一步的了解一下！

avz

学习一下

houxianyong

我也编写了一个坐标标注程序，只能水平标注，有引线

sjyhsy

[php]
(defun c:zzbz(/  p0 p1 p2 p_print ptA  ptB texA texB oldORT oldOSM sA sB rA rB zzbzfac)
  (setq  oldORT (getvar "orthomode")
         oldOSM (getvar "osmode")
         zzbzfac (getvar "dimlfac"))
  (setvar "orthomode" 0)
  (setvar "osmode" 32) ;捉交点
  (command "pline")
  (setq p0 (getpoint "\n选一基点:"))
  (setq p1 (getpoint p0))
  (setvar "orthomode" oldORT)
  (setvar "osmode" oldOSM)
  (if (> (car p1) (car p0))
    (progn
       (setq p2 (list (+ (car p1) 10) (cadr p1) 0.0))
       (setq ptA (list (car p1) (+ (cadr p1) 0.5) 0.0))
       (setq ptB (list (car p1) (- (cadr p1) 4) 0.0))
    )
    (progn
       (setq p2 (list (- (car p1) 10) (cadr p1) 0.0))
       (setq ptA (list (car p2) (+ (cadr p2) 0.5) 0.0))
       (setq ptB (list (car p2) (- (cadr p2) 4) 0.0))
    )
  )
;  (print p0)
  (setq p_print (list (* (car p0) zzbzfac 0.001) (* (cadr p0) zzbzfac 0.001)))
  (print p_print) (princ "单位为米,比例为1:") (princ zzbzfac )
  (command p0 p1 p2 "")
  (print)

  (setq rA (getreal (strcat "A=<" (rtos (cadr p_print)) ">:")))
  (if (not rA) (setq sA (rtos (cadr p_print))) (setq sA (rtos rA)))
  (setq texA (strcat "A=" sA))
  (command "text" ptA 4 "" texA)
  (print)
  (setq rB (getreal (strcat "B=<" (rtos (car  p_print)) ">:")))
  (if (not rB) (setq sB (rtos (car p_print))) (setq sB (rtos rB)))
  (setq texB (strcat "B=" sB))


  (command "text" ptB 4 "" texB)
  (setq bz_p1 p1  bz_p2 p2)
  (princ)
)
[/php]