高手帮帮忙

zhangsk19

如图，JMD内标注都被移动过了，不规整，现在想要批量把JMD内注记移动到封闭面中间位置，请大神帮忙

x_s_s_1

改成居中

2. (defun c:test1 (/ ss i en ent pt)
   
3.   (setq ss (ssget '((0 . "text"))))
   
4.   (command "justifytext" ss "" "m")
   
5.   (repeat (setq i (sslength ss))
   
6.     (setq en  (ssname ss (setq i (1- i)))
   
7.           ent (entget en)
   
8.           pt  (cdr (assoc 11 ent))
   
9.     )
   
10.     (vl-cmdf "_.boundary" pt "")
    
11.     (vl-cmdf "region" (entlast) "")
    
12.     (setq pt (vlax-safearray->list
    
13.                (vlax-variant-value
    
14.                  (vlax-get-property
    
15.                    (vlax-ename->vla-object (entlast))
    
16.                    'Centroid
    
17.                  )
    
18.                )
    
19.              )
    
20.     )
    
21.     (entdel (entlast))
    
22.     (setq ent (subst (cons 11 pt) (assoc 11 ent) ent))
    
23.     (entmod ent)
    
24.     (entupd en)
    
25.   )
    
26. )

(defun c:test1 (/ ss i en ent pt)<br />   (setq ss (ssget '((0 . "text"))))<br />   (command "justifytext" ss "" "m")<br />   (repeat (setq i (sslength ss))<br />     (setq en  (ssname ss (setq i (1- i)))<br />           ent (entget en)<br />           pt  (cdr (assoc 11 ent))<br />     )<br />     (vl-cmdf "_.boundary" pt "")<br />     (vl-cmdf "region" (entlast) "")<br />     (setq pt (vlax-safearray->list<br />                (vlax-variant-value<br />                  (vlax-get-property<br />                    (vlax-ename->vla-object (entlast))<br />                    'Centroid<br />                  )<br />                )<br />              )<br />     )<br />     (entdel (entlast))<br />     (setq ent (subst (cons 11 pt) (assoc 11 ent) ent))<br />     (entmod ent)<br />     (entupd en)<br />   )<br /> )

x_s_s_1

另一个方法
(defun c:test2 (/ ss i obj p1 p2 pt ptt)
  (setq ss (ssget))
  (repeat (setq i (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
    (vla-getboundingbox obj 'p1 'p2)
    (setq pt (mapcar '(lambda (x y) (* 0.5 (+ x y)))
                     (vlax-safearray->list p1)
                     (vlax-safearray->list p2)
             )
    )
    (vl-cmdf "_.boundary" pt "")
    (vl-cmdf "region" (entlast) "")
    (setq ptt (vlax-safearray->list
                (vlax-variant-value
                  (vlax-get-property
                    (vlax-ename->vla-object (entlast))
                    'Centroid
                  )
                )
              )
    )
    (entdel (entlast))
    (vla-move obj (vlax-3d-point pt) (vlax-3d-point ptt))
  )
)

x_s_s_1

不一定好使

2. (defun c:test1 (/ ss i en ent pt)
   
3.   (setq ss (ssget '((0 . "text"))))
   
4.   (repeat (setq i (sslength ss))
   
5.     (setq en  (ssname ss (setq i (1- i)))
   
6.           ent (entget en)
   
7.           pt  (cdr (assoc 10 ent))
   
8.     )
   
9.     (vl-cmdf "_.boundary" pt "")
   
10.     (vl-cmdf "region" (entlast) "")
    
11.     (setq pt (vlax-safearray->list
    
12.                (vlax-variant-value
    
13.                  (vlax-get-property
    
14.                    (vlax-ename->vla-object (entlast))
    
15.                    'Centroid
    
16.                  )
    
17.                )
    
18.              )
    
19.     )
    
20.     (entdel (entlast))
    
21.     (setq ent (subst (cons 10 pt) (assoc 10 ent) ent))
    
22.     (entmod ent)
    
23.     (entupd en)
    
24.   )
    
25. )

(defun c:test1 (/ ss i en ent pt)<br />   (setq ss (ssget '((0 . "text"))))<br />   (repeat (setq i (sslength ss))<br />     (setq en  (ssname ss (setq i (1- i)))<br />           ent (entget en)<br />           pt  (cdr (assoc 10 ent))<br />     )<br />     (vl-cmdf "_.boundary" pt "")<br />     (vl-cmdf "region" (entlast) "")<br />     (setq pt (vlax-safearray->list<br />                (vlax-variant-value<br />                  (vlax-get-property<br />                    (vlax-ename->vla-object (entlast))<br />                    'Centroid<br />                  )<br />                )<br />              )<br />     )<br />     (entdel (entlast))<br />     (setq ent (subst (cons 10 pt) (assoc 10 ent) ent))<br />     (entmod ent)<br />     (entupd en)<br />   )<br /> )

satan421

CASS内，recass命令研究一下，注意备份原图。

zhangsk19

x_s_s_1 发表于 2019-12-28 12:46
不一定好使

无法运行

zhangsk19

satan421 发表于 2019-12-28 13:19
CASS内，recass命令研究一下，注意备份原图。

重构会很麻烦

x_s_s_1

zhangsk19 发表于 2019-12-28 16:16
无法运行

发图测试，我这里是可以的

zhangsk19

x_s_s_1 发表于 2019-12-28 20:33
改成居中

加载程序时怎么提示我输入的字串符有缺陷

x_s_s_1

zhangsk19 发表于 2019-12-28 20:45
加载程序时怎么提示我输入的字串符有缺陷

拷贝代码没拷贝对吧，自己改一下，也就是个思路