多段线顶点距离编号统计

newer · 发表于 2017-3-14 12:45:13

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

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

×

来源求助帖子：http://bbs.xdcad.net/thread-707476-1-1.html

(defun c:XDTB_POLYSUMDIS (/ ang blk dir dis e i key len ml p p1 pnt prefix
scl ss str vertices x
)
(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:XDTB_POLYSUMDIS (/ ang blk dir dis e i key len ml p p1 pnt prefix 
                            scl ss str vertices x 
                         ) 
  (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) 
)

zhouzhiy · 发表于 2017-10-15 07:58:33

谢谢楼主分享！

VBAVBAA · 发表于 2017-10-15 10:28:36

谢谢楼主分享！...

WZY5357 · 发表于 2018-12-1 17:41:49

太有用了，谢谢楼主！

莫非_fVAAe · 发表于 2020-5-11 18:28:11

这个是什么意思啊。
no function definition: xdrx_mleader_make

MUYIY · 发表于 2022-6-11 21:19:35

学习了，谢谢！

searienon · 发表于 2022-6-13 16:29:55

N王不愧是N王

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

[多段线] 多段线顶点距离编号统计

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