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

lzwge

源代码公开，有利于程序的完善，值得学习和讨教，应该提倡。

ydf7332462

Eachy,excuse me,今天才看到,你已有另贴

丝路红驼

源代码公开，大家应积极发展大公无私的精神!!!

liuzqyh

谢谢公开源代码，我也写了一个，不过没你的全，学后改进！！！

hangbbs

谢谢，程序不错，不过能不能经常改进

luagan

程序不错，请问如何设小数点位数？我不懂lisp，我正想找一个坐标标注程序，天正自带的不行。

yj.lhy

真雪中送炭也

醉卧草堂

感觉蛮好的啊

netbee

由于这个程序的改进版我已经整合到我的程序集中了，所以要过一段时间才能完成！
程序集是关于基础CAD绘制的（基础承台绘制）

sqmjk01

提倡源代码公开,大家共同研究、探讨。

yuanxiyi

好东西大家分享

netbee

最近接着一些设计单位发来的设计总图，发现有些图形中在非世界坐标系状态下标注会出现字体为倒像或镜像。不能正常生成正像，但新文件中无此现象不知什么原因，希望大家共同找出各种BUG，并解决它！贴上来大家学习！！

netbee

;;添加小数点位数功能

; 请将下面代码添至文件首的全局变量定义区
;初始化全局变量Dimzb_xs为3位
(setq Dimzb_xs 3)

;;;;请将下面函数添至程序的函数区并将函数名添至程序的局部变量定义区
;;;-------------------------------------------------------
;;;设置保留小数位
  (defun Set_xs        (/ tmp)
    (initget 4)
    (if        (setq tmp (getint (strcat "\n保留小数位<"
                                  (itoa Dimzb_xs)
                                  ">:"
                          )
                  )
        )
      (setq Dimzb_xs tmp)
    )
  )


;;主程序修改部份如下
;;提示部分修改如下
          (progn
            (setq tmp
                   (strcat "\n[坐标前缀(C):"
                           bzhome
                           "/字高(H):"
                           (rtos Newtextsize)
                           "/方向模式(F):"
                           bz_angtype
                           "/小数(D):"
                           (itoa Dimzb_xs)
                           "]选择标注基点："
                   )
            )
            (initget "C H F D")
            (setq pt1 (getpoint tmp))
            (if        (= (type pt1) 'STR)
              (cond ((= pt1 "C") (sethome) (not nil))
                    ((= pt1 "H") (settexth) (not nil))
                    ((= pt1 "D") (Set_xs) (not nil))
                    ((= pt1 "F")
                     (setzbangle)
                     (if (= bz_angtype "动态")
                       (not t)
                       (not nil)
                     )
                    )
                    (t t)
              )


              (not t)
            )

          )



;;提取点piont1的X、Y坐标并分别转换为字符串
;;找到原程序的以上功能处将其改为：
   (setq ptx1 (rtos (car pt1) 2 Dimzb_xs))
       (setq pty1 (rtos (cadr pt1) 2 Dimzb_xs))
       (SETQ PTZ1 (Rtos (CADDR PT1) 2 Dimzb_xs))

njshf

有时文字“X=”与“Y=”没有对齐。

netbee

当标注在左边时，文字是采用的右对齐方式，所以当坐标在左边且X、Y的长度不一样时，就会发生X、Y左边不齐现象（此时文字右边是齐的哟;-)）
当然你也可以改为统一为左对齐！