tianti 发表于 2011-5-8 08:46:45

如何 像分式一样 标注桩号和征地宽度

本帖最后由 tianti 于 2011-5-8 09:23 编辑

哪位高手，能帮忙编写个LISP， 我在画征地图，需要批量标注桩号和征地宽度， 标注成分式的形式，分子是征地宽度，分母是桩号， 我根据 坐标标注的LISP修改下，老是不成功， 请指教   本人参考“标注XY坐标”的LISP 附上

ljttjl 发表于 2011-5-8 09:50:44

最好能发个图形和图片说明，更清楚。

ZZXXQQ 发表于 2011-5-8 12:18:39


(defun c:bgao ()
(setq os (getvar "osmode"))
(while (not h)
(setq h (getreal "\n 请输入字体高度:"))
(command "LAYER" "M" "gaobz" "")
)
(setvar "osmode" 32)
(setq sc (getvar "DIMSCALE"))
(while (and (setq p0 (getpoint "\n 第一点 :"))
         (setq p1 (getpoint p0 "\n 第二点 :"))
         (setq lc (getstring "\n请输入里程 :"))
         (setq kd (getstring "\n请输入宽度 :")))
(setq an (angle p0 p1)
      an (if (< an (/ pi 2)) 0 (if (< an pi) pi (if (< an (* pi 1.5)) pi 0)))
      p2 (polar p1 an (* sc 30))
      pm (polar p1 an (* sc 15)))
(command ".LINE" p0 p1 p2 "")
(command ".TEXT" "C" (polar pm (/ pi 2) sc) h "" kd)
(command ".TEXT" "TC" (polar pm (/ pi -2) sc) h "" lc)
)
(setvar "osmode" os)
(princ)
)

tianti 发表于 2011-5-8 16:16:21

非常感谢版主

tianti 发表于 2011-5-8 16:38:45

本帖最后由 tianti 于 2011-5-8 16:39 编辑

很感谢版主给予帮助，很感谢，此程序 能否稍微改动下 ：1、对象捕捉里 已把 “交点”选上啦，能否把端点也选上      2、根据现在程序 标注样式如，    能否把它变成此样式， 即 第一点A和第二点B   延长线上标注 桩号 和宽度。 不甚感激

sy100 发表于 2011-5-8 18:46:51

进来学习。。。

tianti 发表于 2011-5-9 10:33:45

请高手 帮帮忙

tianti 发表于 2011-5-10 10:40:12

没人回答啊？

无忧小格子 发表于 2013-11-18 11:53:17

看着不错，一种新的要求
页: [1]
查看完整版本: 如何 像分式一样 标注桩号和征地宽度