多段线累积距离标注求助

yyuanliangg · 发表于 2017-3-10 10:32:37

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

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

×

本帖最后由 yyuanliangg 于 2017-3-10 12:08 编辑

最近遇到一个麻烦的事情，需要在无数多段线上标注累积距离。每段多段线都需要从多段线起点开始累积标注到每个节点的距离。标注出的累积距离需要上下标注方式，上面是节点号下面是起点至该节点的累积距离数字。麻烦论坛的老师给抽空写个批量标注的小程序。非常感谢。1、需要标注多段线至每个节点的距离。
2、程序需要批量执行。
谢谢帮忙。

newer · 发表于 2017-3-10 11:21:37

本帖最后由 newer 于 2017-3-10 11:23 编辑

收费求帮助？

把你做的图贴上来，一个图顶100句话。

yyuanliangg · 发表于 2017-3-10 12:05:35

newer 发表于 2017-3-10 11:21

对不起，刚才搞错了，我不是收费求帮助，而是付费给帮助的老师。请原谅。

newer · 发表于 2017-3-10 12:50:38

yyuanliangg 发表于 2017-3-10 12:05

你做的图呢？怎么个标注法，用图说明。截图和传DWG压缩包。

newer · 发表于 2017-3-10 15:16:44

加载XDRX API ，程序可以设置文字高度，编号前缀，引线长度，水平基线长度，批量标注。

(defun c:tt ()
(defun _callback (key)
(cond
((= key "D")
(if (setq
len (getreal (xdrx_prompt "\n引线长度<" #dog-len ">:" t))
)
(setq #dog-len len)
)
)
((= key "S")
(if (setq len
(getreal (xdrx_prompt "\n基线水平长度<" #dog-len1 ">:" t)
)
)
(setq #dog-len1 len)
)
)
((= key "H")
(if (setq len
(getreal (xdrx_prompt "\n文字高度<" #dog-txtheight ">:" t)
)
)
(setq #dog-txtheight len)
)
)
((= key "I")
(if (/= (setq len (getstring
(xdrx_prompt "\n编号前缀<" #dog-prefix ">:" t)
)
)
""
)
(setq #dog-prefix len)
)
)
)
(_prompt)
)
(defun _prompt ()
(xdrx_prompt
"\n当前设置：编号前缀(" #dog-prefix
") 字高(" #dog-txtheight ") / 引线长度("
#dog-len ") / 水平段长度(" #dog-len1
")"
)
)
(defun _makeMleader (e p str)
(if (not (setq blk (xdrx_object_get "block" "_dotblank")))
(setq blk (xdrx_document_makeablock "_dotblank"))
)
(setq dir (xdrx_curve_getfirstderiv e p)
ang (xdrx_vector_angle dir)
ang (xd::ucs:angle)
p1 (polar p (+ ang (/ pi 4.0)) #dog-len)
)
(setq ml (xdrx_mleader_make
p
p1
str
(* #dog-txtheight
(xd::var:getratio)
)
)
)
(xdrx_mtext_make
'(0 0 0)
str
100.0
(* #dog-txtheight
(xd::var:getratio)
)
)
(setq scl (xd::var:getratio))
(xdrx_setpropertyvalue
ml
"mtext"
(entlast)
"dogleglength"
(* #dog-len1 scl)
"scale"
(xd::var:getscaleratio)
"landinggap"
(* (/ #dog-txtheight 2.0) scl)
"arrowsize"
(* (/ #dog-txtheight 1.0) scl)
"ArrowSymbolId"
blk
"textattachmenttype"
6
)
(xdrx_entity_delete (entlast))
)
(defun _dim (e)
(setq vertices (xdrx_getpropertyvalue e "vertices"))
(setq i -1)
(xd::text:init 1)
(xd::dim:init)
(repeat (length vertices)
(setq pnt (nth (setq i (1+ i)) vertices)
dis (xdrx_curve_getdistatpoint e pnt)
prefix (xdrx_string_format "%s%d" #dog-prefix (1+ i))
dis (xdrx_string_format "%.1f" dis)
str (strcat "\\pxqc;" prefix "\\P\\pq*;" dis)
)
(_makeMleader e pnt str)
)
)
(xd::doc:checkversion '> "17.0" "")
(xdrx_begin)
(xdrx_initssget
"\n选取要标注的多段线[编号前缀(I)/字高(H)/引线长度(D)/水平长度(S)]<退出>:"
"H I D S"
""
"_callback"
)
(xdrx_initget "H I D S")
(if (not #dog-len)
(setq #dog-len 10.0)
)
(if (not #dog-len1)
(setq #dog-len1 2.0)
)
(if (not #dog-prefix)
(setq #dog-prefix "A")
)
(if (not #dog-txtheight)
(setq #dog-txtheight 3.5)
)
(_prompt)
(if (setq ss (xdrx_ssget '((0 . "LWPOLYLINE"))))
(progn
(mapcar '(lambda (x) (_dim x)) (xdrx_pickset->ents ss))
)
)
(xdrx_end)
(princ)
)

(defun c:tt () 
  (defun _callback (key) 
    (cond 
      ((= key "D") 
       (if (setq 
             len (getreal (xdrx_prompt "\n引线长度<" #dog-len ">:" t)) 
           ) 
         (setq #dog-len len) 
       ) 
      ) 
      ((= key "S") 
       (if (setq len 
                  (getreal (xdrx_prompt "\n基线水平长度<" #dog-len1 ">:" t) 
                  ) 
           ) 
         (setq #dog-len1 len) 
       ) 
      ) 
      ((= key "H") 
       (if (setq len 
                  (getreal (xdrx_prompt "\n文字高度<" #dog-txtheight ">:" t) 
                  ) 
           ) 
         (setq #dog-txtheight len) 
       ) 
      ) 
      ((= key "I") 
       (if (/= (setq len (getstring 
                           (xdrx_prompt "\n编号前缀<" #dog-prefix ">:" t) 
                         ) 
               ) 
               "" 
           ) 
         (setq #dog-prefix len) 
       ) 
      ) 
    ) 
    (_prompt) 
  ) 
  (defun _prompt () 
    (xdrx_prompt 
      "\n当前设置：编号前缀("                      #dog-prefix 
      ") 字高("                  #dog-txtheight      ") / 引线长度(" 
      #dog-len                  ") / 水平段长度("   #dog-len1 
      ")" 
     ) 
  ) 
  (defun _makeMleader (e p str) 
    (if        (not (setq blk (xdrx_object_get "block" "_dotblank"))) 
      (setq blk (xdrx_document_makeablock "_dotblank")) 
    ) 
    (setq dir (xdrx_curve_getfirstderiv e p) 
          ang (xdrx_vector_angle dir) 
          ang (xd::ucs:angle) 
          p1  (polar p (+ ang (/ pi 4.0)) #dog-len) 
    ) 
    (setq ml (xdrx_mleader_make 
               p 
               p1 
               str 
               (* #dog-txtheight 
                  (xd::var:getratio) 
               ) 
             ) 
    ) 
    (xdrx_mtext_make 
      '(0 0 0) 
      str 
      100.0 
      (* #dog-txtheight 
         (xd::var:getratio) 
      ) 
    ) 
    (setq scl (xd::var:getratio)) 
    (xdrx_setpropertyvalue 
      ml 
      "mtext" 
      (entlast) 
      "dogleglength" 
      (* #dog-len1 scl) 
      "scale" 
      (xd::var:getscaleratio) 
      "landinggap" 
      (* (/ #dog-txtheight 2.0) scl) 
      "arrowsize" 
      (* (/ #dog-txtheight 1.0) scl) 
      "ArrowSymbolId" 
      blk 
      "textattachmenttype" 
      6 
    ) 
    (xdrx_entity_delete (entlast)) 
  ) 
  (defun _dim (e) 
    (setq vertices (xdrx_getpropertyvalue e "vertices")) 
    (setq i -1) 
    (xd::text:init 1) 
    (xd::dim:init) 
    (repeat (length vertices) 
      (setq pnt           (nth (setq i (1+ i)) vertices) 
            dis           (xdrx_curve_getdistatpoint e pnt) 
            prefix (xdrx_string_format "%s%d" #dog-prefix (1+ i)) 
            dis           (xdrx_string_format "%.1f" dis) 
            str           (strcat "\\pxqc;" prefix "\\P\\pq*;" dis) 
      ) 
      (_makeMleader e pnt str) 
    ) 
  ) 
  (xd::doc:checkversion '> "17.0" "") 
  (xdrx_begin) 
  (xdrx_initssget 
    "\n选取要标注的多段线[编号前缀(I)/字高(H)/引线长度(D)/水平长度(S)]<退出>:" 
    "H I D S" 
    "" 
    "_callback" 
  ) 
  (xdrx_initget "H I D S") 
  (if (not #dog-len) 
    (setq #dog-len 10.0) 
  ) 
  (if (not #dog-len1) 
    (setq #dog-len1 2.0) 
  ) 
  (if (not #dog-prefix) 
    (setq #dog-prefix "A") 
  ) 
  (if (not #dog-txtheight) 
    (setq #dog-txtheight 3.5) 
  ) 
  (_prompt) 
  (if (setq ss (xdrx_ssget '((0 . "LWPOLYLINE")))) 
    (progn 
      (mapcar '(lambda (x) (_dim x)) (xdrx_pickset->ents ss)) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

yyuanliangg · 发表于 2017-3-12 10:20:43

非常感谢版主的热心帮助，但我因一直使用2006版本（以前有很多程序不能兼容06以上版本）。所以没法使用此程序。但还是要感谢你能为我抽时间写这个程序。非常感谢。

newer · 发表于 2017-3-14 12:39:32

yyuanliangg 发表于 2017-3-12 10:20

你可以装个2008，需要2008以上的，画完，然后在保存成低版本的图形，在用2006继续画。

yangjian001 · 发表于 2017-3-15 08:37:43

好的非常好的插件非常便利，但是就是不会用呀！

LL_zZ · 发表于 2020-3-3 15:28:45

问一下楼主，这个在点上标记的块，是事先画好的一个属性块吗，然后插入的时候改一改它的文字属性就好了，还是说，是代码生成的一个块，然后在每次插入这个块。这个箭头是用代码画的吗？

网事如尘 · 发表于 2020-3-8 07:45:31

学习了，谢谢分享

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

[求助] 多段线累积距离标注求助

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