依序按照编号连线

jh3030912

怎样将图纸内的编号
1#   2#  3#  4#  5#
框选相关编号  依次连线

guosheyang

识别文本的数字 排序  然后有小到到经对应基点直线连接即可  

vitalgg

1. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   
2. (defun line-order ()
   
3.   (setq orders (pickset:to-list(ssget '((1 . "#`#,##`#")))))
   
4.   (setq orders (vl-sort
   
5.                 orders
   
6.                 '(lambda(x y)
   
7.                   (< (atof (entity:getdxf x 1))
   
8.                    (atof (entity:getdxf y 1))))))
   
9.   (entity:make-lwpolyline
   
10.    (mapcar '(lambda(x)(entity:getdxf x 10)) orders)
    
11.    nil
    
12.    0   0 0))
    
13. (line-order)

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br /> (defun line-order ()<br />   (setq orders (pickset:to-list(ssget '((1 . "#`#,##`#")))))<br />   (setq orders (vl-sort<br />                 orders<br />                 '(lambda(x y)<br />                   (< (atof (entity:getdxf x 1))<br />                    (atof (entity:getdxf y 1))))))<br />   (entity:make-lwpolyline<br />    (mapcar '(lambda(x)(entity:getdxf x 10)) orders)<br />    nil<br />    0   0 0))<br /> (line-order)

如果无法播放，请点击此处在新窗口打开

jh3030912

vitalgg 发表于 2024-4-22 09:02

太厉害了，可以使用