标注文字垂直位置设定，

cq4920

2. ;;========================================
   
3. ;; 标注文字垂直位置
   
4. ;;========================================
   
5. (defun c:tt5 ( / ss n Nb  *error*)
   
6.   (defun *error* (s)(princ (strcat "\n程序出错: " s)))
   
7.   (setvar "CMDECHO" 0)
   
8.   (setq ss (ssget '((0 . "DIMENSION"))))  
   
9.       (initget "0 1 2 3 4")
   
10.       (if (not (setq Nb
    
11.                  (getkword"\n设定标注位置<0>居中<1>上方<2>外部<3>JIS<4>下方]"))
    
12.           )
    
13.         (setq Nb "2"))
    
14.   (setq n 0)  
    
15.         (repeat (sslength ss)
    
16.           (vla-put-VerticalTextPosition (vlax-ename->vla-object (ssname ss n)) Nb)
    
17.           (setq n (1+ n))
    
18.         )      
    
19. (setvar "CMDECHO" 1)
    
20. (princ)
    
21. )

;;========================================<br /> ;; 标注文字垂直位置<br /> ;;========================================<br /> (defun c:tt5 ( / ss n Nb  *error*)<br />   (defun *error* (s)(princ (strcat "\n程序出错: " s)))<br />   (setvar "CMDECHO" 0)<br />   (setq ss (ssget '((0 . "DIMENSION"))))  <br />       (initget "0 1 2 3 4")<br />       (if (not (setq Nb<br />                  (getkword"\n设定标注位置<0>居中<1>上方<2>外部<3>JIS<4>下方]"))<br />           )<br />         (setq Nb "2"))<br />   (setq n 0)  <br />         (repeat (sslength ss) <br />           (vla-put-VerticalTextPosition (vlax-ename->vla-object (ssname ss n)) Nb)<br />           (setq n (1+ n))<br />         )      <br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )

e2002

各位AutoCAD开发者：规范的提示文字串，能带给用户与内置标准命令一致的操作体验。

而且由于规范，所以这些提示字符串就能直接使用程序，函数来处理，按要求由程序流程控制，动态创建，而不是写死在语句里。

start4444

(repeat (sslength ss)  循环写错了

cq4920

start4444 发表于 2020-3-23 22:01
(repeat (sslength ss)  循环写错了

原来是对 repeat 用法完全不了解！真是一语点醒梦中人！现在就好用多了！谢谢！！

e2002

(getkword"\n设定标注位置<0>居中<1>上方<2>外部<3>JIS<4>下方]"))

请修改为：

(getkword"\n设定标注位置 [居中(0)/上方(1)/外部(2)/JIS(3)/下方(4)]: "))

然后对比一下这两种写法，在运行中，鼠标右键菜单的表现差异。

cq4920

e2002 发表于 2020-3-24 10:03
(getkword"\n设定标注位置居中上方外部JIS下方]"))

请修改为：

漂亮  漂亮！