jh3030912 发表于 2024-4-22 04:47:19

依序按照编号连线

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

guosheyang 发表于 2024-4-22 08:07:50

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

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

本帖最后由 vitalgg 于 2024-4-22 09:06 编辑

(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))))
(defun line-order ()
(setq orders (pickset:to-list(ssget '((1 . "#`#,##`#")))))
(setq orders (vl-sort
                orders
                '(lambda(x y)
                  (< (atof (entity:getdxf x 1))
                   (atof (entity:getdxf y 1))))))
(entity:make-lwpolyline
   (mapcar '(lambda(x)(entity:getdxf x 10)) orders)
   nil
   0   0 0))
(line-order)


http://s1.atlisp.cn/static/videos/line-order.mp4

jh3030912 发表于 2024-4-22 19:29:30

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


太厉害了，可以使用
页: [1]
查看完整版本: 依序按照编号连线