请问如何实现图中的效果

王航

烦请高手指点迷津，如何修改以下程序，实现图片中的效果。
(defun c:TT()
  (VL-LOAD-COM)
  (setq        AcadObject   (vlax-get-acad-object)
        AcadDocument (vla-get-ActiveDocument Acadobject)
        mSpace             (vla-get-ModelSpace Acaddocument)
  )
  ;;输入总间距
  (setq        prefix1        (vla-GetString
                  (vla-get-Utility AcadDocument)
                  :vlax-false
                  "请输入总间距:"
                )
  )
(setq        prefix2        (vla-GetString
                  (vla-get-Utility AcadDocument)
                  :vlax-false
                  "请输入孔间距:"
                )
  )

  ;;选择一个标注
  (setq dimObj1 (car (entsel)))
  (setq dimObj (vlax-ename->vla-object dimObj1))


(setq prefix3 (\ prefix1 prefix2))
(setq prefix (strcat prefix3 "×" prefix2  "(=" ))

(setq  suffix ")" )

  ;;添加前缀
  (vla-put-TextPrefix dimObj prefix)
  ;;添加后缀
  (vla-put-TextSuffix dimObj suffix)
  (princ)
)

dingtiedt

是不是要改成这样：

2. (defun c:TT ()
   
3.   (VL-LOAD-COM)
   
4. 
   
5.   ;;输入总间距
   
6.   (setq prefix1 (getreal "\n请输入总间距:"))
   
7.   (setq prefix2 (getreal "\n请输入孔间距:"))
   
8. 
   
9.   ;;选择一个标注
   
10.   (setq dimObj1 (car (entsel)))
    
11.   (setq dimObj (vlax-ename->vla-object dimObj1))
    
12. 
    
13.   (setq prefix3 (/ prefix1 prefix2))
    
14.   (setq prefix (strcat (rtos prefix3 2 0) "×" (rtos prefix2 2 0) "(="))
    
15. 
    
16.   (setq suffix ")")
    
17. 
    
18.   ;;添加前缀
    
19.   (vla-put-TextPrefix dimObj prefix)
    
20.   ;;添加后缀
    
21.   (vla-put-TextSuffix dimObj suffix)
    
22.   (princ)
    
23. )

(defun c:TT ()<br />   (VL-LOAD-COM)<br /> <br />   ;;输入总间距<br />   (setq prefix1 (getreal "\n请输入总间距:"))<br />   (setq prefix2 (getreal "\n请输入孔间距:"))<br /> <br />   ;;选择一个标注<br />   (setq dimObj1 (car (entsel)))<br />   (setq dimObj (vlax-ename->vla-object dimObj1))<br /> <br />   (setq prefix3 (/ prefix1 prefix2))<br />   (setq prefix (strcat (rtos prefix3 2 0) "×" (rtos prefix2 2 0) "(="))<br /> <br />   (setq suffix ")")<br /> <br />   ;;添加前缀<br />   (vla-put-TextPrefix dimObj prefix)<br />   ;;添加后缀<br />   (vla-put-TextSuffix dimObj suffix)<br />   (princ)<br /> )