[原创]：强力标高标注，欢迎试用及指点！[免币]

Dallas_whu

自己写的标高标注程序！欢迎各位大侠试用及指点。以便完善程序！因为有点复杂，读程序比较麻烦，可能浪费各位时间，待大家提出修改意见后，若没有问题就公布源码！

程序中的不足是不能使标注的文字随鼠标动态移动，因为不同的标注形式，文字插入点有一定的跳跃性，试过vla-move方法，可最终无法实施，希望高手能指点一二！

特点：
1.可随意选择标注形式，由鼠标选择。
2.可同时标注多个，文字可以选择标注在同一位置或不同位置。
3.可自由选择标注的基点，及零米位置。
4.可输入不同的测量比例，类似于"DIMLFAC"。
5.可输入不同的绘图比例，类似于"DIMSCALE"。

程序功能肯定不够称得上“强力”，只是希望引起关注，大家来共同完善。望海涵！
谢谢试用！

eachy

1  标注文字的“实时显示”可以通过Entmod来实现

2  建议选项部分符合 2006 以上的规则，可以用右键来选择选项，或者使用“一触即发”

3 注意最终绘制的线长要根据字符的长短来调整长度

Dallas_whu

eachy斑竹，entmod方法我试试看；可“用右键来选择选项，或者使用“一触即发”"怎么实现，我没有做过，希望指点一下，或给个例子参考一下；“调整长度”再考虑考虑。谢谢指点！

eachy

1 右键启用时可以在右键选择关键字，下面是 CAD 标准的命令提示

命令: xx PLINE
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:

2 一触即发 是一个老帖子，你使用了 Grread 很容易想到的
http://www.xdcad.net/forum/showt ... 1345503#post1345503

3 调整长度可以到函数库论坛看看有个求字串长度的函数

Dallas_whu

“用右键来选择选项，或者使用“一触即发”“我不知道怎么实现，下面是取得点的一段代码，请eachy斑竹或其他高手修改指点！

[PHP]
(SETQ BG_ID T)
(SETVAR "OSMODE" (+ 1 2 32 128 512))
(WHILE BG_ID
  (INITGET 128 "O B H D")
  (SETQ BGBL (VLAX-LDATA-GET "BGBL" "BGBL"))
  (IF (NOT BGBL)
    (SETQ BGBL (RTOS (GETVAR "DIMLFAC") 2 2))
  )
  (SETQ HTBL (VLAX-LDATA-GET "BGBL" "HTBL"))
  (IF (NOT HTBL)
    (SETQ HTBL (RTOS (GETVAR "DIMSCALE") 2 2))
  )
  (SETQ BGDOT (VLAX-LDATA-GET "BGDOT" "BGDOT"))
  (IF (NOT BGDOT)
    (SETQ BGDOT "3")
  )
  (PRINC (STRCAT "\n***  当前标准样式测量比例为 [1:"
                 BGBL                          "].绘图比例为 [1:"
                 HTBL                          "]. 小数位数为 "
                 BGDOT                          " 位.  ***"
                )
  )
  (SETQ        BSPOINT
         (GETPOINT
           "\n改标高基点(O)/测量比例(B)/绘图比例(H)/小数位数(D)/或选择标注的起始点:"
         )
  )
  (COND
    ((OR (= BSPOINT "O") (= BSPOINT "o"))
     (SETQ ORGPOINT (GETPOINT "\n选择标注标高的基点[\"±0.00\"点]:"))
     (SETQ OHEIGHTSTR (RTOS (CADR ORGPOINT) 2 3))
     (VLAX-LDATA-PUT "ORGPOINTY" "ORGPOINTY" OHEIGHTSTR)
     (PRINC
       (STRCAT "\n选择的基点[\"±0.00\"点]在当前坐标系中的高度为: "
               OHEIGHTSTR
               " 米."
       )
     )
    )
    ((OR (= BSPOINT "b") (= BSPOINT "B"))
     (SETQ BGBLS (GETREAL (STRCAT "请输入新的标高测量比例<" BGBL ">:")))
     (IF (NOT BGBLS)
       (SETQ BGBLS (ATOF BGBL))
     )
     (VLAX-LDATA-PUT "BGBL" "BGBL" (RTOS BGBLS 2 2))
    )
    ((OR (= BSPOINT "h") (= BSPOINT "H"))
     (SETQ HTBLS (GETREAL (STRCAT "请输入新的标高绘图比例<" HTBL ">:")))
     (IF (NOT HTBLS)
       (SETQ HTBLS (ATOF HTBL))
     )
     (VLAX-LDATA-PUT "BGBL" "HTBL" (RTOS HTBLS 2 2))
    )
    ((OR (= BSPOINT "d") (= BSPOINT "D"))
     (SETQ BGDOTS (GETINT (STRCAT "请输入新的小数位数<" BGDOT ">:")))
     (IF (NOT BGDOTS)
       (SETQ BGDOTS (ATOI BGDOT))
     )
     (VLAX-LDATA-PUT "BGDOT" "BGDOT" (ITOA BGDOTS))
    )
    ((= (TYPE BSPOINT) 'LIST)
     (SETQ BG_ID NIL)
     (IF (NOT (VLAX-LDATA-GET "ORGPOINTY" "ORGPOINTY"))
       (PROGN
         (VLAX-LDATA-PUT
           "ORGPOINTY"
           "ORGPOINTY"
           (RTOS (CADR BSPOINT) 2 3)
         )
       )
     )
    )
    (T (PRINC "\n无效的选择或者输入!请重新确认."))
  )
)
[/PHP]

我看了一下，用grread来“一触即发”功能是在只得到关键字的时候是很好使的，可我不想去掉GETPOINT前面的princ的即时提示功能，因而用grread可能不行。
另外eachy斑竹的实例pline中的右键选择我怎么用不出来。如果我的代码中要实现右键选择，该怎样修改，我实在是黔驴技穷了，希望高手指点。

eachy

符合右键选择就是增加了一个中括号，前面的是 Title

2. (setq bspoint
   
3.        (getpoint
   
4.          "\n请选择[改标高基点(O)/测量比例(B)/绘图比例(H)/小数位数(D)]<起始点>:"
   
5.        )
   
6. )

(setq bspoint<br />        (getpoint<br />          "\n请选择[改标高基点(O)/测量比例(B)/绘图比例(H)/小数位数(D)]<起始点>:"<br />        )<br /> )

Dallas_whu

谢谢eachy，明白了，又学了一招。