如何批量标注多段线坐标

zzyong00

88641787 发表于 2015-12-21 14:36
你好   我的意思是说只要点一下一个多段线就能把所有端点坐标给标注出来   谢谢

是这意思吧!

88641787

zzyong00 发表于 2015-12-21 15:21
是这意思吧!

是的    谢谢版主

88641787

zzyong00 发表于 2015-12-21 15:21
是这意思吧!

能否分享一下

香田里浪人

88641787 发表于 2015-12-21 15:58
能否分享一下

;;;多段线坐标标注
(defun c:bzzb()
   (setq ps_cmdecho (getvar "cmdecho")
         ps_osmode  (getvar "osmode")
         ps_luprec  (getvar "luprec")   
     )
     (setvar "cmdecho" 0)
     (setvar "osmode" 0)
     (setvar "luprec" 0)
     (command "-layer" "n" "坐标标注" "c" "4" "坐标标注" "")
      (setvar"dimzin"0);;保留小数位数时如果位数不足可以补零
     (princ "\n输入文字大小-{1~3} <")(princ words)(princ ">:")
     (setq words (getint))
     (princ "\n输入引线长度 (建议")(princ (* words 10))(princ ")")
     (princ "<上次长度为")(princ long)(princ ">:")
     (setq long (getreal))
     (setq sunmer (ssget '((-4 . "<OR")
                           (0 . "POLYLINE")
                           (0 . "LWPOLYLINE")
                           (-4 . "OR>")
                          )
                   )
     )
     (setq germeip (sslength sunmer))
      (setq pianju (* words 0.1))
     (setq somode 0)
     (while (< somode germeip)
        (setq limes (entget (ssname sunmer somode)))
        (setq limun (length limes))
        (setq aobel 0)
        (while (< aobel limun)
          (if (= (car (nth aobel limes)) 10)
            (progn
               (command "layer" "s" "坐标标注" "")
               (setq pt (cdr (nth aobel limes)))
               (setq pt1 (polar pt (+ 0 (* 0.4 pi)) long))
               (setq pt2 (polar pt1 0 (* words 7.5)))
               (command "line" pt pt1 pt2 "")
               (setq xx (strcat "Y=" (rtos (car pt) 2 3)))
               (setq yy (strcat "X=" (rtos (cadr pt) 2 3)))            
               (setq ptx (list (+ (car pt1) 0.1) (- (cadr pt1) words)))
               (setq pty (list (+ (car pt1) 0.1) (+ (cadr pt1) pianju)))
               (command "text" pty words 0 yy)
               (command "text" ptx words 0 xx)
            )
          )
          (setq aobel (1+ aobel))
        )
          (setq somode (1+ somode))
     )
(defun vxs (e / i v lst)
  (setq i -1)
  (while
    (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))
     (setq lst (cons v lst))
  )
  (reverse lst)
)   

     (setvar "cmdecho" ps_cmdecho)
     (setvar "osmode" ps_osmode)
     (setvar "luprec" ps_luprec)
)

知行ooo李肖坪

论坛里看到过类似的，你搜搜……

88641787

香田里浪人 发表于 2015-12-21 20:21
;;;多段线坐标标注
(defun c:bzzb()
   (setq ps_cmdecho (getvar "cmdecho")

谢谢分享   这个lsp很好用  你真的很厉害

88641787

知行ooo李肖坪 发表于 2015-12-22 08:14
论坛里看到过类似的，你搜搜……

找了很久  没有找到    你能不能提供一下链接我学习学习     谢谢

88641787

我觉得把程序改成  把多段线的各端点坐标标注在CAD图上  然后编上序号 把各端点的坐标都保存在记事本上就完美了

lwg125

非常不错的工具，太感谢了！

ferious

香田里浪人 发表于 2015-12-21 20:21
;;;多段线坐标标注
(defun c:bzzb()
   (setq ps_cmdecho (getvar "cmdecho")