烦请高手指教

王航

烦请高手指教，以下程序如何实现图片中的效果
(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 prefix (strcat prefix1 "-M"))

  ;;输入栽钉的长度
  (setq        suffix1        (vla-GetString
                  (vla-get-Utility AcadDocument)
                  :vlax-false
                  "请输入栽钉长度:"
                )
  )

  (setq suffix (strcat "×" suffix1  "栽钉"))

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

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

lucas_3333

5-M6x16\X栽钉   \X 就是线下的意思， 注意是大写的X

王航

lucas_3333 发表于 2015-4-9 17:12
5-M6x16\X栽钉   \X 就是线下的意思， 注意是大写的X

我不明白您的意思。\X加到什么位置？

王航

lucas_3333 发表于 2015-4-9 17:12
5-M6x16\X栽钉   \X 就是线下的意思， 注意是大写的X

(setq suffix (strcat "×" suffix1  "\X栽钉"))
我试了，还是不行的。

lucas_3333

晕，不是要你添加到后缀上
你试着建立一个标注，然后编辑标注，将标注值替换成 5-M6x16\X栽钉 ，你再看效果，你就会明白我的意思

王航

lucas_3333 发表于 2015-4-9 21:47
晕，不是要你添加到后缀上
你试着建立一个标注，然后编辑标注，将标注值替换成 5-M6x16\X栽钉 ，你再看效果 ...

多谢指导，我还没学到那么深的层次，不过还是要谢谢你。

王航

lucas_3333 发表于 2015-4-9 17:12
5-M6x16\X栽钉   \X 就是线下的意思， 注意是大写的X

高手您好，能否在我现在程序的基础上实现我想要的效果呢？烦请不吝赐教，万分感激！为什么我加上“\X”后，不起作用呢，而在特性里修改后缀，加“\X”就可以实现，百思不得其解，很焦虑，帮帮忙，谢谢！

王航

lucas_3333 发表于 2015-4-9 21:47
晕，不是要你添加到后缀上
你试着建立一个标注，然后编辑标注，将标注值替换成 5-M6x16\X栽钉 ，你再看效果 ...

高手，您在吗，烦请帮帮忙，谢谢您！

lucas_3333

王航 发表于 2015-4-16 08:14
高手，您在吗，烦请帮帮忙，谢谢您！

千万不要叫我高手 ， 我只是随便玩玩
这是你想要的吗？

2. (defun c:TT()
   
3.   (VL-LOAD-COM)
   
4.   (setq        AcadObject   (vlax-get-acad-object)
   
5.         AcadDocument (vla-get-ActiveDocument Acadobject)
   
6.         mSpace             (vla-get-ModelSpace Acaddocument)
   
7.   )
   
8.   ;;输入栽钉的数量
   
9.   (setq        prefix1        (vla-GetString
   
10.                   (vla-get-Utility AcadDocument)
    
11.                   :vlax-false
    
12.                   "请输入栽钉的数量:"
    
13.                 )
    
14.   )
    
15.   (setq prefix (strcat prefix1 "-M"))
    
16. 
    
17.   ;;输入栽钉的长度
    
18.   (setq        suffix1        (vla-GetString
    
19.                   (vla-get-Utility AcadDocument)
    
20.                   :vlax-false
    
21.                   "请输入栽钉长度:"
    
22.                 )
    
23.   )
    
24. 
    
25.   (setq suffix (strcat "×" suffix1  "\\X栽钉"))
    
26. 
    
27.   ;;选择一个标注
    
28.   (setq dimObj1 (car (entsel)))
    
29.   (setq dimObj (vlax-ename->vla-object dimObj1))
    
30. 
    
31.   ;;添加前缀
    
32.   (vla-put-TextPrefix dimObj prefix)
    
33.   ;;添加后缀
    
34.   (vla-put-TextSuffix dimObj suffix)
    
35.   (princ)
    
36. )

(defun c:TT()<br />   (VL-LOAD-COM)<br />   (setq        AcadObject   (vlax-get-acad-object)<br />         AcadDocument (vla-get-ActiveDocument Acadobject)<br />         mSpace             (vla-get-ModelSpace Acaddocument)<br />   )<br />   ;;输入栽钉的数量<br />   (setq        prefix1        (vla-GetString<br />                   (vla-get-Utility AcadDocument)<br />                   :vlax-false<br />                   "请输入栽钉的数量:"<br />                 )<br />   )<br />   (setq prefix (strcat prefix1 "-M"))<br /> <br />   ;;输入栽钉的长度<br />   (setq        suffix1        (vla-GetString<br />                   (vla-get-Utility AcadDocument)<br />                   :vlax-false<br />                   "请输入栽钉长度:"<br />                 )<br />   )<br /> <br />   (setq suffix (strcat "×" suffix1  "\\X栽钉"))<br /> <br />   ;;选择一个标注<br />   (setq dimObj1 (car (entsel)))<br />   (setq dimObj (vlax-ename->vla-object dimObj1))<br /> <br />   ;;添加前缀<br />   (vla-put-TextPrefix dimObj prefix)<br />   ;;添加后缀<br />   (vla-put-TextSuffix dimObj suffix) <br />   (princ)<br /> )

王航

lucas_3333 发表于 2015-4-16 11:52
千万不要叫我高手 ， 我只是随便玩玩
这是你想要的吗？

非常感谢您！终于实现了，您是怎么想到的呢？佩服！