请大佬帮忙修改一下代码

杨小五

huisguiji 发表于 2024-9-25 16:58
完美了 谢谢

我还没有权限回复留言，这里给你回复一下吧。你的那个程序设计的就是长宽更大的一个值是高，小的是宽，也就是这个200*100的矩形不管是横着放竖着放或者斜着放，得到的结果都是一样的高200宽100。如果你只要在Y方向是高，X方向是宽，那就要改一下，斜着的情况就不好判断哪边是宽哪边是高了。

杨小五

huisguiji 发表于 2024-9-25 16:58
完美了 谢谢

你留言的那个问题，我

2. (defun c:tt();标注矩形高*宽（高为Y方向，宽为X方向），倾斜的矩形宽高判断标准不明确,为保持准确性，不参与计算。
   
3.   (setq ss(ssget '((0 . "lwpolyline"))))
   
4.   (setq i 0 lst'())
   
5.   (repeat (sslength ss)
   
6.     (setq plw(ssname ss i))
   
7.     (setq pts(mapcar 'cdr (vl-remove-if '(lambda(a)(/= (car a) 10)) (entget plw))))
   
8.     (setq pts1(vl-sort pts '(lambda(a b) (<= (car a) (car b)))))
   
9.     (setq hh(abs (- (cadr (car pts1)) (cadr (cadr pts1))))
   
10.           ww (- (car (caddr pts1)) (car (car pts1))))
    
11.     (if
    
12.       (or
    
13.           (and (equal (car (car pts)) (car (cadr pts)) 0.001)
    
14.                (equal (car (caddr pts)) (car (cadddr pts)) 0.001)
    
15.                (equal (cadr(car pts)) (cadr (cadddr pts)) 0.001)
    
16.                (equal (cadr(cadr pts)) (cadr (caddr pts)) 0.001)
    
17.                )
    
18.           (and (equal (cadr (car pts)) (cadr (cadr pts)) 0.001)
    
19.                (equal (cadr (caddr pts)) (cadr (cadddr pts)) 0.001)
    
20.                (equal (car(car pts)) (car (cadddr pts)) 0.001)
    
21.                (equal (car(cadr pts)) (car (caddr pts)) 0.001)
    
22.                )
    
23.       )
    
24. 
    
25.     (setq lst (append lst (list (list hh ww))))
    
26.       )
    
27.     (setq i(1+ i))
    
28.     )
    
29.   (setq lst(vl-sort lst '(lambda(a b) (<= (car a) (car b)))))
    
30.   (setq tmp_lst'())
    
31.   (setq i 0)
    
32.   (while lst
    
33.     (setq tmp_lst(append tmp_lst (list (list (car lst)
    
34.                                        (- (length lst)
    
35.                                           (length (setq lst(vl-remove (car lst) lst))))))))
    
36.     )
    
37.   (setq lst tmp_lst)
    
38.    
    
39.     (setq pt(getpoint "\n文字插入点："))
    
40. ;;;    (command "_.TEXT" "c" (polar p2 (* pi 0.5) (* 2 (getvar "textsize"))) (getvar "textsize") "0" "高*宽=数量")
    
41.     (entmake (list '(0 . "text")(cons 1  "高*宽=数量")  (cons 10 pt)(cons 40 (getvar "textsize"))))
    
42.   (setq i 0)
    
43.   (repeat (length lst)
    
44.     (setq hh(car (car (nth i lst)))
    
45.           ww(cadr (car (nth i lst)))
    
46.           co(cadr (nth i lst)))
    
47.   (entmake (list '(0 . "text")
    
48.                    (cons 1 (strcat (rtos hh) "*" (rtos ww) "=" (itoa co)))
    
49.                    (cons 10 (polar pt (* pi 1.5) (* (1+ i) (* 2 (getvar "textsize")))))
    
50.                    (cons 40 (getvar "textsize"))))
    
51.     (setq i(1+ i))
    
52. 
    
53.   )
    
54.   )
    

(defun c:tt();标注矩形高*宽（高为Y方向，宽为X方向），倾斜的矩形宽高判断标准不明确,为保持准确性，不参与计算。<br />   (setq ss(ssget '((0 . "lwpolyline"))))<br />   (setq i 0 lst'())<br />   (repeat (sslength ss)<br />     (setq plw(ssname ss i))<br />     (setq pts(mapcar 'cdr (vl-remove-if '(lambda(a)(/= (car a) 10)) (entget plw))))<br />     (setq pts1(vl-sort pts '(lambda(a b) (<= (car a) (car b)))))<br />     (setq hh(abs (- (cadr (car pts1)) (cadr (cadr pts1))))<br />           ww (- (car (caddr pts1)) (car (car pts1))))<br />     (if<br />       (or<br />           (and (equal (car (car pts)) (car (cadr pts)) 0.001)<br />                (equal (car (caddr pts)) (car (cadddr pts)) 0.001)<br />                (equal (cadr(car pts)) (cadr (cadddr pts)) 0.001)<br />                (equal (cadr(cadr pts)) (cadr (caddr pts)) 0.001)<br />                )<br />           (and (equal (cadr (car pts)) (cadr (cadr pts)) 0.001)<br />                (equal (cadr (caddr pts)) (cadr (cadddr pts)) 0.001)<br />                (equal (car(car pts)) (car (cadddr pts)) 0.001)<br />                (equal (car(cadr pts)) (car (caddr pts)) 0.001)<br />                )<br />       )<br /> <br />     (setq lst (append lst (list (list hh ww))))<br />       )<br />     (setq i(1+ i))<br />     )<br />   (setq lst(vl-sort lst '(lambda(a b) (<= (car a) (car b)))))<br />   (setq tmp_lst'())<br />   (setq i 0)<br />   (while lst<br />     (setq tmp_lst(append tmp_lst (list (list (car lst)<br />                                        (- (length lst)<br />                                           (length (setq lst(vl-remove (car lst) lst))))))))<br />     )<br />   (setq lst tmp_lst)<br />     <br />     (setq pt(getpoint "\n文字插入点："))<br /> ;;;    (command "_.TEXT" "c" (polar p2 (* pi 0.5) (* 2 (getvar "textsize"))) (getvar "textsize") "0" "高*宽=数量")<br />     (entmake (list '(0 . "text")(cons 1  "高*宽=数量")  (cons 10 pt)(cons 40 (getvar "textsize"))))<br />   (setq i 0)<br />   (repeat (length lst)<br />     (setq hh(car (car (nth i lst)))<br />           ww(cadr (car (nth i lst)))<br />           co(cadr (nth i lst)))<br />   (entmake (list '(0 . "text")<br />                    (cons 1 (strcat (rtos hh) "*" (rtos ww) "=" (itoa co)))<br />                    (cons 10 (polar pt (* pi 1.5) (* (1+ i) (* 2 (getvar "textsize")))))<br />                    (cons 40 (getvar "textsize"))))<br />     (setq i(1+ i))<br /> <br />   )<br />   )<br />

把你的那个程序重新写了一下，你可以试试看用这个

huisguiji

杨小五 发表于 2024-12-31 16:30
你留言的那个问题，我把你的那个程序重新写了一下，你可以试试看用这个

非常感谢大佬的帮助，还有2个细节可以优化吗，1 文字样式没有跟随系统了 2 能否把误差0.4毫米以内的数据归为一起 比如有矩形200*100 200*100.4  统计的清单是200*100=1 200*100=1  改为200*100=2

杨小五

huisguiji 发表于 2025-1-1 15:35
非常感谢大佬的帮助，还有2个细节可以优化吗，1 文字样式没有跟随系统了 2 能否把误差0.4毫米以内的数据 ...

把程序里对应的这句，替换一下
(setq tmp_lst(append tmp_lst (list (list (car lst)
                                       (- (length lst)
                                          (length
                                            (setq lst(vl-remove-if '(lambda(a)(and (<= (- (car a) 0.4) (car (car lst)) (+ (car a) 0.4))
                              (<= (- (cadr a) 0.4) (cadr (car lst)) (+ (cadr a) 0.4)))) lst)))
                                          )))))

杨小五

huisguiji 发表于 2025-1-1 15:35
非常感谢大佬的帮助，还有2个细节可以优化吗，1 文字样式没有跟随系统了 2 能否把误差0.4毫米以内的数据 ...

我后面给你的这个插件里面没有写关于文字样式的设置，使用的是当前文字样式。所以你说的文字样式没有跟随系统我没理解，也没办法帮你调。

huisguiji

杨小五 发表于 2025-1-2 16:02
把程序里对应的这句，替换一下
(setq tmp_lst(append tmp_lst (list (list (car lst)
                 ...

换了这句后只能统计一个数据了，比如有100*200 100*300  300*200的矩形 数据只有100*200=1

huisguiji

杨小五 发表于 2025-1-2 16:05
我后面给你的这个插件里面没有写关于文字样式的设置，使用的是当前文字样式。所以你说的文字样式没有跟随 ...

就我文字样式的字体是宋体的 你这个数据字体是standard的

杨小五

huisguiji 发表于 2025-1-3 11:06
就我文字样式的字体是宋体的 你这个数据字体是standard的

你把你的微信私信发给我吧，我们微信沟通。我权限低，还发不了私信