明币不多，意思下，2币求一小程序，前辈请进

cjjh8301

要求程序可以实现自动将标注等分，比如预选一个线性标注、对齐标注或弧长标注（假设为1000），命令后，输入要等分的量（假设为4），然后回车或空格，标注自动变为250*4=1000，如图：

Andyhon

;;; for test only

2. 
   
3. 
   
4. (vl-load-com)
   
5. (defun c:test ()
   
6.    (cond
   
7.     ((null (setq ss (ssget '((0 . "DIMENSION"))))))
   
8.     (T
   
9.      (setVar 'DimZin 8)
   
10.      (setVar 'Luprec 1)           ; 此处设定小数精度  
    
11.      (setq ee (ssname ss 0)
    
12.           obj (vlax-ename->vla-object ee)
    
13.           txt (vla-get-measurement obj)
    
14.           div (getint "\n输入要等分的量: ")
    
15.          dtxt (rtos (/ txt div))
    
16.      )
    
17.      
    
18.      (vla-put-TextOverRide
    
19.        obj
    
20.        (strcat (itoa div) "*" dtxt "=" (rtos txt))
    
21.      )  
    
22.    ))
    
23. )

<br /> <br /> (vl-load-com)<br /> (defun c:test ()<br />    (cond<br />     ((null (setq ss (ssget '((0 . "DIMENSION"))))))<br />     (T<br />      (setVar 'DimZin 8)<br />      (setVar 'Luprec 1)           ; 此处设定小数精度  <br />      (setq ee (ssname ss 0)<br />           obj (vlax-ename->vla-object ee)<br />           txt (vla-get-measurement obj)<br />           div (getint "\n输入要等分的量: ")<br />          dtxt (rtos (/ txt div)) <br />      )<br />      <br />      (vla-put-TextOverRide <br />        obj<br />        (strcat (itoa div) "*" dtxt "=" (rtos txt))<br />      )  <br />    ))<br /> )

先写个雏型,请自行调试再回馈需修订之处

Andyhon

...线性标注、对齐标注或弧长标注（假设为1000）...
请 Upload *.dwg 包含以上示例

（假设为1000 / 937 ）.....
(3 * 333 ~ 1000 ~)  ????
若不整除时咋办?

cjjh8301

上面的图就是一个正常标注  一个标了文字内容
4 舍 5 入  可以不？

cjjh8301

基本可以实现，但是等分后 文字内容少了“=" 与结果，只是a*n，最好是a*n=m，
还有逢0.5就保留不要4 舍 5 入

Andyhon

4#己修订,请再测 ......

cjjh8301

不行了  1000的标注执行命令后 标注变成 4*=250

仲文玉

2007中测试结果同上

仲文玉

(strcat (itoa div) "*=" dtxt)  
(strcat (itoa div) "*" dtxt "=" 原txt的值）

Andyhon

Sorry! 己订正