求助各位，能不能根据标注尺寸，生成矩形

清水白粥 · 发表于 2023-12-30 08:03:44

本帖最后由清水白粥于 2023-12-30 08:05 编辑

求助各位大佬，
能不能根据标注尺寸，
批量选择标注，批量生成矩形,写一个LISP
如果觉得币少了，就说……

清水白粥 · 发表于 2024-1-6 00:04:50

我自己顶一下吧，想了很久的一个笨办法，先选择标注然后，变成直线，然后炸开，然后利用排序插件进行定距排序，再通过移动，然后进行合并线段

革天明 · 发表于 2024-1-6 09:17:03

不复杂，两个标注在右上角点已经对齐，读取两个标注的值后就很容易计算出矩形的信息

清水白粥 · 发表于 2024-1-6 10:51:59

革天明发表于 2024-1-6 09:17
不复杂，两个标注在右上角点已经对齐，读取两个标注的值后就很容易计算出矩形的信息

有没参考，或者大概帮忙写一下…… 大佬

革天明 · 发表于 2024-1-6 15:53:23

清水白粥发表于 2024-1-6 10:51
有没参考，或者大概帮忙写一下…… 大佬

现在基本上不写lsp程序了，只是偶尔看看

清水白粥 · 发表于 2024-1-6 18:10:48

革天明发表于 2024-1-6 15:53
现在基本上不写lsp程序了，只是偶尔看看

是写vba嘛？

xj6019 · 发表于 2024-1-6 19:05:21

(defun c:NM (/ ents1 i p1 p2 p3 p4 s1 ss)
  (setq i -1)
  (if(setq ss (ssget(list '(0 . "DIMENSION"))))
(progn
(setq ents1(entget(ssname ss 0)))
(setq p1(cdr(assoc 13 ents1))
p2(cdr(assoc 14 ents1))
p3(cdr(assoc 10 ents1))
p4(polar p2(angle p3 p2)(cdr(assoc 42 (entget (ssname ss 1)))))
)
(command "_RECTANG"  "_non"  P1 "_non"  P4)
)
  )
(princ)
)

xj6019 · 发表于 2024-1-6 19:07:40

简单玩玩

清水白粥 · 发表于 2024-1-6 23:39:32

xj6019 发表于 2024-1-6 19:05
(defun c:NM (/ ents1 i p1 p2 p3 p4 s1 ss)
  (setq i -1)
  (if(setq ss (ssget(list '(0 . "DIMENSI ...

能批量生成嘛？

账号		自动登录	找回密码
密码			注册

求助各位，能不能根据标注尺寸，生成矩形

本帖子中包含更多资源