[编程申请]：请求高手编一个自动标注高程的程序

lizagen

想画一个断面图，用鼠标点取标注点后，直接把高程数据标注成如附件图中的两种形式（可选），并可以选择字体大小和三角形及横线的长短。
请求高手们帮忙解决一下这个难题，先谢谢了！

cgh93001

应该不难吧 把数据发到cgh93001@163.com 看看

lizagen

不知道怎么老是图传送不上来，我再画了个试试看。

cgh93001

其实挺简单的吧

lizagen

非常感谢楼上cgh93001这位不知真实姓名的热心朋友，只是我对于编程一点不懂罢了。
您发的程序我用了一下，大部分要求都已经满足，只是还有点不理想：
1、标注文字高度可以设定很好，只是我想让文字样式默认为当前文字样式，好与其它文字统一起来。
2、当程序提示选择标注点时，它会把所有的捕捉都关掉了，只开启最近点，这一点不太好了，最好是不改动我设定的捕捉方式。
3、还有一点是原先我没有说清楚的，就是CAD里面的所有标注线及文字等均不影响生成面域，查寻面积，能不让程序产生的小三角形及线条也不影响查寻面积，如果难办就不要也罢。
4、最后一点不太重要，就是程序命令结束时，怎么老是提示选择标注点：512
还望朋友再帮助一下，谢谢！

cgh93001

程序前请先设置当前字体的高度！
(defun c:bz1()  ;标注1
  (command"cmdecho" 0)
  (setq len (getreal "三角形边长:") )
  (setq linelen (abs (getreal "标注线边长:")))
  (setq blkr (strcat "blkr" (rtos len 2 2) (rtos linelen 2 2)) )
  (setq blkl (strcat "blkl" (rtos len 2 2) (rtos linelen 2 2)) )
  (setq pt2x (* len 0.5) pt2y (* len 0.866)  pt3x (* len -0.5) pt3y (* len 0.866))
  (if (not (tblsearch "block" blkr))
     (progn
        (command"pline" (list pt2x pt2y) "0,0" (list pt3x pt3y) (list (+ pt2x linelen) pt2y) "")
        (command"block" blkr "0,0" "l" "")
     )
  )
  (if (not (tblsearch "block" blkl))
     (progn
        (command"pline" (list pt3x pt3y) "0,0" (list pt2x pt2y) (list (- pt3x linelen) pt3y) "")
       (command"block" blkl "0,0" "l" "")
     )
  )
  (setq osmode (getvar"osmode"))
  (while (setq pt1 (getpoint "选标注点:"))
     (setq pt1x (nth 0 pt1) pt1y (nth 1 pt1))
     (setq pt9 (getpoint "标注方向:"))
     (setq pt9x (nth 0 pt9) pt9y (nth 1 pt9))
     (setq pt2x (+ pt1x (* len 0.5)) pt2y (+ pt1y (* len 0.866)) )
     (setq pt3x (+ pt1x (* len -0.5)) pt3y (+ pt1y (* len 0.866)) )
     (if (> pt9x pt1x)
        (progn
        (command"insert" blkr (list pt1x pt1y) "1" "1" "0")
       (command"text" "j" "m" (list (+ pt2x (* linelen 0.5)) (+ pt2y (* texth 0.7))) "0" (rtos pt1y 2 3) )
        )
        (progn
        (command"insert" blkl (list pt1x pt1y) "1" "1" "0")
        (command"text" "j" "m" (list (- pt3x (* linelen 0.5)) (+ pt3y (* texth 0.7))) "0" (rtos pt1y 2 3) )
      )       
   )
    (print)
  )
  (princ)
)

lizagen

试了一下还没有上次的用着好些，我把上次的捕捉修改了一下，可以不改变我的设定了。今天的这个情况见下：
命令: bz1 cmdecho
输入 CMDECHO 的新值 <1>: 0 三角形边长:1
标注线边长:3
选标注点:标注方向:
【错误】:参数类型错误: numberp: nil!
点无效。
点无效。
点无效。
点无效。
; 错误: *error* 函数中出错no function definition: ACET-UI-PROGRESS
指定文字的中间点: *取消*

cgh93001

错误在变量texth没有赋值！！！

lizagen

我根本不知道怎么个赋值方法，还望楼上的老兄帮助再改一下。

wenmaokun

hao