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

清水白粥

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

清水白粥

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

革天明

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

清水白粥

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

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

革天明

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

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

清水白粥

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

是写vba嘛？

xj6019

(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

简单玩玩   

清水白粥

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 ...

能批量生成嘛？