各位大神看一下，输入tt，框选任意的图块，把图块中心点依次连线起来

664571221

各位大神看一下，输入tt，框选任意的图块，把图块中心点依次连线起来，线的图层是   你好123

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. 
   
3. (defun c:tt ()
   
4.   "图块中心点连线"
   
5.   (if (null(tblsearch "layer""你好123")) (layer:make "你好123" 2 nil nil))
   
6.   (setq ents (pickset:sort  (pickset:to-list (ssget '((0 . "insert"))))"xy" 0.1))
   
7.   (entity:putdxf
   
8.    (entity:make-lwpolyline
   
9.     (mapcar '(lambda(x)
   
10.               (point:centroid (entity:getbox x 0)))
    
11.             ents)
    
12.     nil
    
13.     0 0 0)
    
14.    8 "你好123")
    
15.   )

(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 /> <br /> (defun c:tt ()<br />   "图块中心点连线"<br />   (if (null(tblsearch "layer""你好123")) (layer:make "你好123" 2 nil nil))<br />   (setq ents (pickset:sort  (pickset:to-list (ssget '((0 . "insert"))))"xy" 0.1))<br />   (entity:putdxf <br />    (entity:make-lwpolyline<br />     (mapcar '(lambda(x)<br />               (point:centroid (entity:getbox x 0)))<br />             ents)<br />     nil <br />     0 0 0)<br />    8 "你好123")<br />   )

weimeng555

好代码，无法连接外网，没有网络，用不了的节奏

qazxswk

在论坛里搜索  点连线  ，有大把相关的帖子。

xyp1964

1. (defun c:tt ()   
   
2.   (xyp-MkLaCo "你好123" 3)
   
3.   (if (setq ss (ssget '((0 . "insert"))))
   
4.     (xyp-Pline (mapcar '(lambda (x) (xyp-DXF 10 x)) (xyp-Ss2List ss)) nil)
   
5.   )
   
6.   (princ)
   
7. )

(defun c:tt ()   <br />   (xyp-MkLaCo "你好123" 3)<br />   (if (setq ss (ssget '((0 . "insert"))))<br />     (xyp-Pline (mapcar '(lambda (x) (xyp-DXF 10 x)) (xyp-Ss2List ss)) nil)<br />   )<br />   (princ)<br /> )

jierc

vitalgg 发表于 2024-4-27 12:01

能不能改个块基准点连线？

vitalgg

jierc 发表于 2024-6-11 09:36
能不能改个块基准点连线？

(point:centroid (entity:getbox x 0))
改成
(entity:getdxf x 10)

开心无惧

我理解错误，贱人工具箱是块基点的连线，非常感谢分享

开心无惧

vitalgg 发表于 2024-4-27 12:01

你好 可以帮忙增加一个功能吗？
当使用设计中心重定义块之后，因为块基点变化，想把重定义后的每个块中心和定义前的块中心分别连线（连线放在另一个单独图层）。