[弹指神通]：再次请高手帮助

pipi002004

这个是经过Xyp1964老大的修改后得到的r14+winXP完美程序
可是这个东西只能标一个方向，要是能实现这个就好了，附图：对不起个位老大，我的图不能存为dwf我没装2005
原程序
;;;******************标高1
(defun C:bg1 (/        dx dy dx1 dx2 dx3 dy1 pt dxt dyt lay pt1 pt2 pt3 pt4 pt5
              ptt scale)
  (setvar "CMDECHO" 0)
  (setvar "DIMZIN" 0)                        ;保留后续零
  (setq lay (getvar "clayer"))
  (command "color" "bylayer")
  (command "layer" "m" "pipi_标高" "c" "94" "" "")
  (if (or (= nil (tblsearch "style" "pipi_标高"))
          (/= (cdr (assoc 40 (tblsearch "style" "pipi_标高"))) 0)
      )
    (command "STYLE" "pipi_标高" "romanc" "0" "0.75" "0" "n" "n" "n")
  )
  (if (= scab nil)
    (setq scab 1.0)
  )
  (setq scale (getreal (strcat "\nScale <" (rtos scab 2 0) ">:")))
  (if (= scale nil)
    (setq scale scab)
  )
  (setq scab scale)
  (setvar "osmode" 512)
  (setq pt (getpoint "\nInsert point : "))
  (setvar "osmode" 0)
  (setq        dy  (cadr pt)
        dx  (car pt)
        dx1 (- dx (* 3 scale))
        dx2 (+ dx (* 3 scale))
        pt1 (list dx1 dy)
        pt2 (list dx2 dy)
  )
  (command "line" pt1 pt2 "")
  (setq        dy1 (+ dy (* 3 scale))
        pt3 (list dx1 dy1)
  )
  (command "line" pt pt3 "")
  (setq pt4 (list dx2 dy1))
  (command "line" pt pt4 "")
  (setq        dx3 (+ dx (* 13 scale))
        pt5 (list dx3 dy1)
  )
  (command "line" pt3 pt5 "")
  (setq        dxt  dx2
        dyt  (+ dy1 (* 1.15 scale))
        txt  0
        high (* 3 scale)
  )
  (while (/= txt nil)
    (setq txt (getreal "\nText:"))
    (if        (/= txt nil)
      (progn
        (setq ptt  (list dxt dyt)
              txt1 (rtos txt 2 3)
        )
        (command "layer" "m" "pipi_文字" "c" "white" "" "")
        (command "text" "s" "pipi_标高" ptt high "0" txt1)
        (setq dyt (+ dyt (* 4.15 scale)))
      )
    )
  )
  (command "layer" "s" lay "")
  (princ)
)

aliu22

很实用,下了,谢谢