500w008 发表于 2013-7-18 12:35:02

500w008 发表于 2013-7-18 12:38:53

cgmacby 发表于 2013-7-29 16:58:31

呼叫版主早点儿解决 呵呵~~~

cgmacby 发表于 2013-7-30 00:19:00

cgmacby 发表于 2013-7-29 16:58 static/image/common/back.gif
呼叫版主早点儿解决 呵呵~~~

他这个不完美，没解决，有错误的，如果能自主选择梁线所在图层和字体所在图层就好了

xyp1964 发表于 2013-11-24 11:39:23

;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF(defun c:tt ()
(xyp-CMDLA0)
(setq i -1)
(if (setq ss (ssget '((0 . "*text") (8 . "wr_lpj,LGJ1"))))
    (while (setq s1 (ssname ss (setq i (1+ i))))
      (setq p5        (xyp-9pt s1 5)
          rad        (+ (xyp-DXF 50 s1) (* pi 0.5))
          p1        (polar p5 rad 1000)
          p2        (polar p5 rad -1000)
      )
      (if (setq ss1 (ssget "f" (list p1 p2) '((0 . "line") (8 . "beam"))))
        (progn
          (setq        s2 (xyp-ClosestPtToSslst p5 (xyp-ss2list ss1))
                pt (vlax-curve-getclosestpointto s2 p5)
                pt (polar pt (angle pt p5) 350)
          )
          (xyp-move s1 p5 pt)
        )
      )
    )
)
(xyp-CMDLA1)
)

cgmacby 发表于 2014-4-25 15:55:40

xyp1964 发表于 2013-11-24 11:39 static/image/common/back.gif


加载了最新版的Xcad，此lsp能运行，就是这些数字没反应，求版主答疑~~~~~~~~~~~~
页: [1]
查看完整版本: 批量字串距离修复