【已解决】多段线上方创建多行文字,求大神帮助！

wbf424069638 · 发表于 2017-8-5 21:50:43

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 wbf424069638 于 2018-5-18 21:31 编辑

如图我想在距多段线10的上方创建多行文字，多行文字内容为多段线的长度，多行文字与多段线平行，并且位于多段线正中，晓东工具箱里有个沿线写字功能，但是无法实现我现在的要求，求大神解答，非常感谢！！ QQ截图20170805214507.jpg

newer · 发表于 2017-8-6 00:09:39

本帖最后由 newer 于 2017-8-6 00:51 编辑

改个批量的，选择的多段线，全部标注出长度

搜狗截图20170806000657.png

(defun c:tt ()
(defun _process (e)
(setq segs (xdrx_polyline_numverts e))
(setq inx 0)
(repeat segs
(if (setq g (xdrx_polyline_getlinesegat e inx t))
(progn
(xdge::getpropertyvalue g "length" "midpoint" "angle")
)
(progn
(setq g (xdrx_polyline_getarcsegat e inx t))
(xdge::getpropertyvalue g "length" "midpoint")
(setq v (xdrx_curve_getfirstderiv e #midpoint)
#angle (xdrx_vector_angle v))
)
)
(setq #angle (xd::geom:angleformat #angle)
p1 (trans (polar #midpoint
(+ #angle (/ pi 2.0))
(/ #txt_height 2.0))
e
0
)
)
(xdrx_text_make
p1
(rtos #length 2 #txt_bit)
(getvar "textstyle")
#txt_height
#angle
)
(xd::text:setalignment (entlast) p1 "BC")
(setq inx (1+ inx))
)
(xdge::free g)
)
(if (not #txt_height)
(setq #txt_height 3.5)
)
(if (not #txt_bit)
(setq #txt_bit 1)
)
(if (setq val (getint (xdrx_prompt "\n保留位数<" #txt_bit ">:" t)))
(setq #txt_bit val)
)
(if (setq val (getreal (xdrx_prompt "\n字高<" #txt_height ">:" t)))
(setq #txt_height val)
)
(xdrx_begin)
(xdrx_sysvar_push '("dimzin" 0))
(if (and (xdrx_initssget "\n选择多段线<退出>:")
(setq ss (xdrx_ssget '((0 . "LWPOLYLINE"))))
)
(progn
(xd::text:init 1)
(mapcar '(lambda (x) (_process x)) (xdrx_pickset->ents ss))
)
)
(xdrx_sysvar_pop)
(xdrx_end)
(princ)
)

(defun c:tt () 
  (defun _process (e) 
    (setq segs (xdrx_polyline_numverts e)) 
    (setq inx 0) 
    (repeat segs 
      (if (setq g (xdrx_polyline_getlinesegat e inx t)) 
        (progn 
          (xdge::getpropertyvalue g "length" "midpoint" "angle") 
        ) 
        (progn 
          (setq g (xdrx_polyline_getarcsegat e inx t)) 
          (xdge::getpropertyvalue g "length" "midpoint") 
          (setq v (xdrx_curve_getfirstderiv e #midpoint) 
                #angle (xdrx_vector_angle v)) 
        ) 
      ) 
      (setq #angle (xd::geom:angleformat #angle) 
            p1           (trans (polar #midpoint 
                                 (+ #angle (/ pi 2.0)) 
                                 (/ #txt_height 2.0)) 
                                 e 
                                 0 
                          ) 
                   ) 
      (xdrx_text_make 
        p1 
        (rtos #length 2 #txt_bit) 
        (getvar "textstyle") 
        #txt_height 
        #angle 
      ) 
      (xd::text:setalignment (entlast) p1 "BC") 
      (setq inx (1+ inx)) 
    ) 
    (xdge::free g) 
  ) 
  (if (not #txt_height) 
    (setq #txt_height 3.5) 
  ) 
  (if (not #txt_bit) 
    (setq #txt_bit 1) 
  ) 
  (if (setq val (getint (xdrx_prompt "\n保留位数<" #txt_bit ">:" t))) 
    (setq #txt_bit val) 
  ) 
  (if (setq val (getreal (xdrx_prompt "\n字高<" #txt_height ">:" t))) 
    (setq #txt_height val) 
  ) 
  (xdrx_begin) 
  (xdrx_sysvar_push '("dimzin" 0)) 
  (if (and (xdrx_initssget "\n选择多段线<退出>:") 
           (setq ss (xdrx_ssget '((0 . "LWPOLYLINE")))) 
      ) 
    (progn 
      (xd::text:init 1) 
      (mapcar '(lambda (x) (_process x)) (xdrx_pickset->ents ss)) 
    ) 
  ) 
  (xdrx_sysvar_pop) 
  (xdrx_end) 
  (princ) 
)

newer · 发表于 2017-8-5 22:49:53

本帖最后由 newer 于 2017-8-6 00:53 编辑

wbf424069638 发表于 2017-8-5 22:47

试试

(defun c:tt ()
(if (not #txt_height)
(setq #txt_height 3.5)
)
(if (not #txt_bit)
(setq #txt_bit 1)
)
(if (setq val (getint (xdrx_prompt "\n保留位数<" #txt_bit ">:" t)))
(setq #txt_bit val)
)
(if (setq val (getreal (xdrx_prompt "\n字高<" #txt_height ">:" t)))
(setq #txt_height val)
)
(xdrx_begin)
(xdrx_sysvar_push '("dimzin" 0))
(while
(and (setq e (xdrx_entsel "\n拾取多段线<退出>:" '((0 . "LWPOLYLINE"))))
(setq pt (cadr e))
(setq e (car e))
(setq inx (xd::polyline:onsegat e pt))
(setq g (xdrx_polyline_getlinesegat e inx t))
(xdge::getpropertyvalue g "length" "midpoint" "angle")
)
(setq #angle (xd::geom:angleformat #angle)
p1 (trans
(polar #midpoint (+ #angle (/ pi 2.0)) (/ #txt_height 2.0))
e
0
)
)
(xd::text:init 1)
(xdrx_text_make
p1
(rtos #length 2 #txt_bit)
(getvar "textstyle")
#txt_height
#angle
)
(xdrx_setpropertyvalue
(entlast)
"HorizontalMode"
1
"verticalmode"
1
"AlignmentPoint"
p1
)
(xdge::free g)
)
(xdrx_sysvar_pop)
(xdrx_end)
(princ)
)

(defun c:tt () 
  (if (not #txt_height) 
    (setq #txt_height 3.5) 
  ) 
  (if (not #txt_bit) 
    (setq #txt_bit 1) 
  ) 
  (if (setq val (getint (xdrx_prompt "\n保留位数<" #txt_bit ">:" t))) 
    (setq #txt_bit val) 
  ) 
  (if (setq val (getreal (xdrx_prompt "\n字高<" #txt_height ">:" t))) 
    (setq #txt_height val) 
  ) 
  (xdrx_begin) 
  (xdrx_sysvar_push '("dimzin" 0)) 
  (while 
    (and (setq e (xdrx_entsel "\n拾取多段线<退出>:" '((0 . "LWPOLYLINE")))) 
         (setq pt (cadr e)) 
         (setq e (car e)) 
         (setq inx (xd::polyline:onsegat e pt)) 
         (setq g (xdrx_polyline_getlinesegat e inx t)) 
         (xdge::getpropertyvalue g "length" "midpoint" "angle") 
    ) 
     (setq #angle (xd::geom:angleformat #angle) 
           p1          (trans 
                    (polar #midpoint (+ #angle (/ pi 2.0)) (/ #txt_height 2.0)) 
                    e 
                    0 
                  ) 
     ) 
     (xd::text:init 1) 
     (xdrx_text_make 
       p1 
       (rtos #length 2 #txt_bit) 
       (getvar "textstyle") 
       #txt_height 
       #angle 
     ) 
     (xdrx_setpropertyvalue 
       (entlast) 
       "HorizontalMode" 
       1 
       "verticalmode" 
       1 
       "AlignmentPoint" 
       p1 
     ) 
     (xdge::free g) 
  ) 
  (xdrx_sysvar_pop) 
  (xdrx_end) 
  (princ) 
)

newer · 发表于 2017-8-5 21:54:37

用工具箱的随线平齐

搜狗截图20170805215153.png

wbf424069638 · 发表于 2017-8-5 22:47:07

newer 发表于 2017-8-5 21:54

这个也很麻烦的的，我得先每条线上复制一个多行文字，一个一个将文字平行于线，我想实现直接选择多段线，就在平行于文字上方创建文字，文字内容为多段线的长度

wbf424069638 · 发表于 2017-8-5 23:23:20

newer 发表于 2017-8-5 22:49

谢谢，不过我用的时候，出现错误了，如图 QQ截图20170805232133.jpg

newer · 发表于 2017-8-5 23:33:45

wbf424069638 发表于 2017-8-5 23:23

你重新拷贝下代码，刚才编辑了，可能你拷贝的是修改前的。
测试了，没问题。

wbf424069638 · 发表于 2017-8-5 23:50:41

newer 发表于 2017-8-5 23:33

刚才试了可以了，谢谢，不过我想再请教个问题，由于我没有学习过晓东的函数库，所以好多代码看不懂你的代码里，所以哪个是设置文字和多段线的距离我用的时候离得太远了，还有字体能否在创建的时候就以 “宋体”创建。谢谢！！

newer · 发表于 2017-8-6 00:11:59

wbf424069638 发表于 2017-8-5 23:50

API和晓东工具箱安装目录有函数用户手册，多看看就知道了，函数名字都是有意义的，好懂。

newer · 发表于 2017-8-6 00:14:56

wbf424069638 发表于 2017-8-5 23:50

(/ #txt_height 2.0)

距离是字高的一半。

wbf424069638 · 发表于 2017-8-6 00:24:15

newer 发表于 2017-8-6 00:14

非常谢谢，你早点休息！

newer · 发表于 2017-8-6 00:54:35

本帖最后由 newer 于 2017-8-6 01:40 编辑

wbf424069638 发表于 2017-8-6 00:24

你说的距离很远，和你当前的字体设置有关，你改成宋体试试。

上面两个代码都修改了，使用宋体，重新拷贝下。

sjj · 发表于 2017-8-6 05:06:26

不错，这个可以有

君是我的泪 · 发表于 2017-11-16 11:56:40

no function definition: XDRX_PROMPT

wbf424069638 · 发表于 2017-12-17 23:52:29

newer 发表于 2017-8-6 00:09

安装了最新的XDAPI ,如图，测试卡在那个函数这，这里不知道什么问题，老版XDAPI没问题，求大神解决下，谢谢

账号		自动登录	找回密码
密码			立即注册

[已解决] 【已解决】多段线上方创建多行文字,求大神帮助！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分