664571221 发表于 2024-4-27 11:34:32

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

本帖最后由 664571221 于 2024-4-27 11:48 编辑

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

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

本帖最后由 vitalgg 于 2024-4-27 14:14 编辑

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

weimeng555 发表于 2024-4-29 09:55:24

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

qazxswk 发表于 2024-4-29 11:00:52

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

xyp1964 发表于 2024-4-29 13:23:03

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

jierc 发表于 2024-6-11 09:36:55

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


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

vitalgg 发表于 2024-6-11 10:35:28

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

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

开心无惧 发表于 2024-9-2 21:49:47

本帖最后由 开心无惧 于 2024-9-5 16:46 编辑

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

开心无惧 发表于 2024-9-5 16:50:32

本帖最后由 开心无惧 于 2024-9-5 16:53 编辑

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

你好 可以帮忙增加一个功能吗？
当使用设计中心重定义块之后，因为块基点变化，想把重定义后的每个块中心和定义前的块中心分别连线（连线放在另一个单独图层）。
页: [1]
查看完整版本: 各位大神看一下，输入tt，框选任意的图块，把图块中心点依次连线起来