矩形长宽，怎么获取，和字符串怎么替换内容

h806600727

求助大佬，矩形的长宽怎么获取，有哪些函数可以取得长宽数值。怎么替换字符串，（批量替换字符串）。新手小白卡住了，麻烦大佬解答一下

tryhi

提问得不清不楚，暂且按照我的理解给你几句代码吧

2. 
   
3. ;;获取矩形长宽
   
4. (defun c:tt (/ area di ename gao kuan pts x)
   
5.   (setq ename(car(entsel"\n选择一个矩形")))
   
6.   (while (or
   
7.            (/= "LWPOLYLINE" (_get-dxf ename 0))
   
8.            (/= 4 (length(setq pts(_Vertexs ename))))
   
9.            (setq di (mapcar '(lambda(a b)(distance a b))pts (cons (last pts)pts))
   
10.              kuan(car di)
    
11.              gao(cadr di)
    
12.              area(try-get-aear ename)
    
13.              x(not(equal (* kuan gao) area))
    
14.            )
    
15.          )
    
16.     (setq ename (car(entsel "\n只能选择矩形多段线，请重新选择")))
    
17.   )
    
18.   
    
19.   (princ(strcat"\n长："(rtos kuan 2 2)",宽："(rtos gao 2 2)))
    
20.   (princ)
    
21. )
    
22. 
    
23. ;;字符串批量替换
    
24. (defun c:tt2 (/ str)
    
25.   (setq str "123456123456123456")
    
26.   (try-StringReplace str "123" "000")
    
27. )
    
28. 
    
29. 
    
30. 
    
31. ;;;======================================
    
32. ;;;===========以下为内裤部分=============
    
33. ;;;======================================
    
34. (defun _get-dxf (en code / ty)
    
35.   (cdr (assoc code (entget en '("*"))))
    
36. )
    
37. (defun _Vertexs (ename / data lst);
    
38.   (setq  data (entget ename))
    
39.   (setq lst (vl-remove-if-not '(lambda (x) (= (car x) 10)) data))
    
40.   (mapcar 'cdr lst)
    
41. )
    
42. (defun try-get-aear (en)(vla-get-Area(try-object en)))
    
43. (defun try-StringReplace(str a b);;BY：LLSheng_73
    
44.   (if(and(=(type str)'str)
    
45.        (apply'and(mapcar'(lambda(x)(=(type x)'str))(setq a(if(=(type a)'list)a(list a)))))
    
46.        (apply'and(mapcar'(lambda(x)(=(type x)'str))(setq b(if(=(type b)'list)b(mapcar'(lambda(x)b)a))))))
    
47.     (setq str(_strsplit str a nil)
    
48.       str(apply'strcat(mapcar'strcat(car str)(mapcar'(lambda(x)(if(=""x)x(nth(vl-position x a)b)))(last str)))))
    
49.     str))
    
50. (defun try-ss2EnList(ss / a en lst)
    
51.   (setq a -1)
    
52.   (if ss
    
53.     (while
    
54.       (setq en(ssname ss(setq a(1+ a))))
    
55.       (setq lst(cons en lst))
    
56.     )
    
57.   )
    
58.   (reverse lst)
    
59. )
    
60. (defun try-lst-div (lst nn / lst2)
    
61.   (foreach n lst
    
62.     (if (and lst2 (/= nn (length (car lst2))))
    
63.       (setq lst2 (cons (append (car lst2) (list n)) (cdr lst2)))
    
64.       (setq lst2 (cons (list n) lst2))
    
65.     )
    
66.   )
    
67.   (reverse lst2)
    
68. )
    
69. (defun try-object (en)(if(= 'ename (type en))(vlax-ename->vla-object en)en))
    
70. (defun _strsplit(str splits f / i a b l );;BY：LLSheng_73
    
71.   (if f(setq str(vl-list->string(vl-remove 32(vl-string->list str)))))
    
72.   (while(<""str)
    
73.     (if(vl-remove'nil(mapcar'(lambda(x)(vl-string-search x str))splits))
    
74.       (setq i(car(vl-sort(vl-remove'nil(mapcar'(lambda(x)(if(setq l(vl-string-search x str))(cons l x)))splits))
    
75.                    '(lambda(s1 s2)(<(car s1)(car s2)))))
    
76.         a(cons(substr str 1(car i))a)b(cons(cdr i)b)
    
77.         str(substr str(+(car i)(strlen(cdr i))1)))
    
78.       (setq a(cons str a)b(cons "" b)str"")))
    
79.   (list(reverse a)(reverse b)))
    
80. 
    
81. 
    

<br /> ;;获取矩形长宽<br /> (defun c:tt (/ area di ename gao kuan pts x)<br />   (setq ename(car(entsel"\n选择一个矩形")))<br />   (while (or <br />            (/= "LWPOLYLINE" (_get-dxf ename 0))<br />            (/= 4 (length(setq pts(_Vertexs ename))))<br />            (setq di (mapcar '(lambda(a b)(distance a b))pts (cons (last pts)pts))<br />              kuan(car di)<br />              gao(cadr di)<br />              area(try-get-aear ename)<br />              x(not(equal (* kuan gao) area))<br />            )<br />          )<br />     (setq ename (car(entsel "\n只能选择矩形多段线，请重新选择")))<br />   )<br />   <br />   (princ(strcat"\n长："(rtos kuan 2 2)",宽："(rtos gao 2 2)))<br />   (princ)<br /> )<br /> <br /> ;;字符串批量替换<br /> (defun c:tt2 (/ str)<br />   (setq str "123456123456123456")<br />   (try-StringReplace str "123" "000")<br /> )<br /> <br /> <br /> <br /> ;;;======================================<br /> ;;;===========以下为内裤部分=============<br /> ;;;======================================<br /> (defun _get-dxf (en code / ty)<br />   (cdr (assoc code (entget en '("*"))))<br /> )<br /> (defun _Vertexs (ename / data lst);<br />   (setq  data (entget ename))<br />   (setq lst (vl-remove-if-not '(lambda (x) (= (car x) 10)) data))<br />   (mapcar 'cdr lst)<br /> )<br /> (defun try-get-aear (en)(vla-get-Area(try-object en)))<br /> (defun try-StringReplace(str a b);;BY：LLSheng_73<br />   (if(and(=(type str)'str)<br />        (apply'and(mapcar'(lambda(x)(=(type x)'str))(setq a(if(=(type a)'list)a(list a)))))<br />        (apply'and(mapcar'(lambda(x)(=(type x)'str))(setq b(if(=(type b)'list)b(mapcar'(lambda(x)b)a))))))<br />     (setq str(_strsplit str a nil)<br />       str(apply'strcat(mapcar'strcat(car str)(mapcar'(lambda(x)(if(=""x)x(nth(vl-position x a)b)))(last str)))))<br />     str))<br /> (defun try-ss2EnList(ss / a en lst)<br />   (setq a -1)<br />   (if ss<br />     (while<br />       (setq en(ssname ss(setq a(1+ a))))<br />       (setq lst(cons en lst))<br />     )<br />   )<br />   (reverse lst)<br /> )<br /> (defun try-lst-div (lst nn / lst2)<br />   (foreach n lst<br />     (if (and lst2 (/= nn (length (car lst2))))<br />       (setq lst2 (cons (append (car lst2) (list n)) (cdr lst2)))<br />       (setq lst2 (cons (list n) lst2))<br />     )<br />   )<br />   (reverse lst2)<br /> )<br /> (defun try-object (en)(if(= 'ename (type en))(vlax-ename->vla-object en)en))<br /> (defun _strsplit(str splits f / i a b l );;BY：LLSheng_73<br />   (if f(setq str(vl-list->string(vl-remove 32(vl-string->list str)))))<br />   (while(<""str)<br />     (if(vl-remove'nil(mapcar'(lambda(x)(vl-string-search x str))splits))<br />       (setq i(car(vl-sort(vl-remove'nil(mapcar'(lambda(x)(if(setq l(vl-string-search x str))(cons l x)))splits))<br />                    '(lambda(s1 s2)(<(car s1)(car s2)))))<br />         a(cons(substr str 1(car i))a)b(cons(cdr i)b)<br />         str(substr str(+(car i)(strlen(cdr i))1)))<br />       (setq a(cons str a)b(cons "" b)str"")))<br />   (list(reverse a)(reverse b)))<br /> <br /> <br />

xj6019

　论坛里应该有很多现成的，找到合适的应该不难，用心仔细找一下，说不定能找到好几个能满足的

vitalgg

http://atlisp.cn/package-info?na ... &edition=stable
列出正交矩形宽高表.矩形包括倒角或圆角矩形，缺一角或两个角的矩形。