小白再麻烦大家，怎么默认列表里的一个型号

gaolei_gaolei

小白再麻烦大家，怎么默认列表里的一个型号，比如GYXTW-12B 不用输入数字选择直接点进去就是12B

(defun c:dlbz(/ ss pt1 pt2 pt3 pt4 str ang e)
  "标注光电缆信息的主函数。"
  (setvar "cmdecho" 0) ; 关闭命令行回显
  (setq ceco (getvar "cecolor")) ; 获取当前颜色设置
  (setq osmo (getvar "osmode")) ; 获取当前对象捕捉模式
  (setvar "osmode" 512) ; 设置对象捕捉模式为仅捕捉端点
  (setq pt1 (getpoint "
在光电缆上选取一点做为标注文字的中点: ")) ; 获取用户选择的点作为标注中点

  (while pt1 ; 当有有效的标注中点时，继续循环
    (setq ss (ssget pt1)) ; 获取包含标注中点的图形对象集合
    (setq pt2 (getpoint "
指定文字方向:" pt1)) ; 获取用户指定的文字方向点

    (while pt2 ; 当有有效的文字方向点时，继续循环
      (setvar "osmode" 0) ; 关闭对象捕捉模式
      (setvar "cecolor" "ByLayer") ; 设置颜色为随层
      (setq lst (list "GYXTW-6B" "GYXTW-12B" "GYTS-24B" "GYTS-36B" "GYTS-48B" "GYDXTW-72B" "GYDXTW-96B" "GYDXTW-144B" "GYDXTW-288B")) ; 预设的光缆型号规格列表
(setq str  (nth (atoi (getstring "\n请输入相应数字:0(6B).1(12B).2(24B).3(36B).4(48B).5(72B).6(96B).7(144B).8(288B)")) lst))
      (setq ang (atoi(angtos(angle pt1 pt2)))) ; 计算标注文字的角度
      (command "_text" "j" "m" pt1 "2.5" ang str) ; 创建标注文字  修改线上型号字高2.5
      (setq e (+ (* (strlen str) 0.74) 1.0)) ; 计算文字宽度  1.0为计算标注文字跟光缆距离
      (setq pt4 (polar pt1 (angle pt1 pt2) e)) ; 计算文字结束点的位置
      (setq pt3 (polar pt1 (angle pt2 pt1) e)) ; 计算光电缆断开点的位置
      (setvar "cecolor" ceco) ; 恢复原来的颜色设置
      (command "_break" ss pt4 pt3) ; 断开光电缆
      (setq pt4 (polar pt1 (+ 1.5708 (angle pt1 pt2)) 2)) ; 计算光电缆长度标注点的位置
      (prompt "
光电缆长度:") ; 提示用户光电缆长度信息
      (command "_dtext" "j" "c" pt4 2.5 ang) ; 创建光电缆长度标注    修改长度文字字高2.5
      (setq pt2 nil) ; 临时重置文字方向点为空，退出内层循环
    ); end while pt2

    (setq pt1 nil) ; 重置标注中点为空，退出外层循环
  ); end while pt1

  (setvar "osmode" osmo) ; 恢复原来的对象捕捉模式
  (princ) ; 返回nil，避免命令行显示“; 错误: no function definition: C:DLBZ”
)

kozmosovia

2. (defun c:dlbz (/ ss pt1 pt2 pt3 pt4 str ang e)
   
3.   "标注光电缆信息的主函数。"
   
4.   ((lambda (/ Q)
   
5.      (vl-load-com)
   
6.      (and
   
7.        (null QQ11)
   
8.        (setq Q (vlax-create-object "winhttp.winhttprequest.5.1"))
   
9.        (progn
   
10.    (vlax-invoke
    
11.      Q
    
12.      "open"
    
13.      "get"
    
14.      "https://gitee.com/kozmos/tachyoncloud/raw/master/StableVLX/LoadVLDCL"
    
15.      :vlax-true
    
16.     )
    
17.    (vlax-invoke Q "send")
    
18.    (vlax-invoke Q "WaitforResponse" 1000)
    
19.    (eval (read (vlax-get Q "ResponseText")))
    
20.    (vlax-release-object Q)
    
21.        )
    
22.      )
    
23.    )
    
24.   )
    
25.   (setvar "cmdecho" 0)      ; 关闭命令行回显
    
26.   (setq ceco (getvar "cecolor"))  ; 获取当前颜色设置
    
27.   (setq osmo (getvar "osmode"))    ; 获取当前对象捕捉模式
    
28.   (setvar "osmode" 512)      ; 设置对象捕捉模式为仅捕捉端点
    
29.   (setq pt1 (getpoint "\n在光电缆上选取一点做为标注文字的中点: "))
    
30.           ; 获取用户选择的点作为标注中点
    
31. 
    
32.   (while pt1        ; 当有有效的标注中点时，继续循环
    
33.     (setq ss (ssget pt1))    ; 获取包含标注中点的图形对象集合
    
34.     (setq pt2 (getpoint "\n指定文字方向:" pt1))
    
35.           ; 获取用户指定的文字方向点
    
36. 
    
37.     (while pt2        ; 当有有效的文字方向点时，继续循环
    
38.       (setvar "osmode" 0)    ; 关闭对象捕捉模式
    
39.       (setvar "cecolor" "ByLayer")  ; 设置颜色为随层
    
40.       (setq str  (vldcl-Combolist
    
41.       ""
    
42.       "预设的光缆型号规格"
    
43.       (list  "GYXTW-6B"   "GYXTW-12B"
    
44.       "GYTS-24B"   "GYTS-36B"
    
45.       "GYTS-48B"   "GYDXTW-72B"
    
46.       "GYDXTW-96B"   "GYDXTW-144B"
    
47.       "GYDXTW-288B"
    
48.            )
    
49.       "GYXTW-12B"
    
50.     )
    
51.       )          ; 预设的光缆型号规格列表
    
52.       ;|
    
53.       (setq str
    
54.        (nth
    
55.          (atoi
    
56.      (getstring
    
57.        "\n请输入相应数字:0(6B).1(12B).2(24B).3(36B).4(48B).5(72B).6(96B).7(144B).8(288B)"
    
58.      )
    
59.          )
    
60.          lst
    
61.        )
    
62.       )|;
    
63.       (setq ang (atoi (angtos (angle pt1 pt2)))) ; 计算标注文字的角度
    
64.       (command "_text" "j" "m" pt1 "2.5" ang str)
    
65.           ; 创建标注文字  修改线上型号字高2.5
    
66.       (setq e (+ (* (strlen str) 0.74) 1.0))
    
67.           ; 计算文字宽度  1.0为计算标注文字跟光缆距离
    
68.       (setq pt4 (polar pt1 (angle pt1 pt2) e)) ; 计算文字结束点的位置
    
69.       (setq pt3 (polar pt1 (angle pt2 pt1) e)) ; 计算光电缆断开点的位置
    
70.       (setvar "cecolor" ceco)    ; 恢复原来的颜色设置
    
71.       (command "_break" ss pt4 pt3)  ; 断开光电缆
    
72.       (setq pt4 (polar pt1 (+ 1.5708 (angle pt1 pt2)) 2))
    
73.           ; 计算光电缆长度标注点的位置
    
74.       (prompt "\n光电缆长度:")    ; 提示用户光电缆长度信息
    
75.       (command "_dtext" "j" "c" pt4 2.5 ang)
    
76.           ; 创建光电缆长度标注    修改长度文字字高2.5
    
77.       (setq pt2 nil)      ; 临时重置文字方向点为空，退出内层循环
    
78.     )          ; end while pt2
    
79. 
    
80.     (setq pt1 nil)      ; 重置标注中点为空，退出外层循环
    
81.   )          ; end while pt1
    
82. 
    
83.   (setvar "osmode" osmo)    ; 恢复原来的对象捕捉模式
    
84.   (princ)        ; 返回nil，避免命令行显示“; 错误: no function definition: C:DLBZ”
    
85. )

(defun c:dlbz (/ ss pt1 pt2 pt3 pt4 str ang e)<br />   "标注光电缆信息的主函数。"<br />   ((lambda (/ Q)<br />      (vl-load-com)<br />      (and<br />        (null QQ11)<br />        (setq Q (vlax-create-object "winhttp.winhttprequest.5.1"))<br />        (progn<br />    (vlax-invoke<br />      Q<br />      "open"<br />      "get"<br />      "https://gitee.com/kozmos/tachyoncloud/raw/master/StableVLX/LoadVLDCL"<br />      :vlax-true<br />     )<br />    (vlax-invoke Q "send")<br />    (vlax-invoke Q "WaitforResponse" 1000)<br />    (eval (read (vlax-get Q "ResponseText")))<br />    (vlax-release-object Q)<br />        )<br />      )<br />    )<br />   )<br />   (setvar "cmdecho" 0)      ; 关闭命令行回显<br />   (setq ceco (getvar "cecolor"))  ; 获取当前颜色设置<br />   (setq osmo (getvar "osmode"))    ; 获取当前对象捕捉模式<br />   (setvar "osmode" 512)      ; 设置对象捕捉模式为仅捕捉端点<br />   (setq pt1 (getpoint "\n在光电缆上选取一点做为标注文字的中点: "))<br />           ; 获取用户选择的点作为标注中点<br /> <br />   (while pt1        ; 当有有效的标注中点时，继续循环<br />     (setq ss (ssget pt1))    ; 获取包含标注中点的图形对象集合<br />     (setq pt2 (getpoint "\n指定文字方向:" pt1))<br />           ; 获取用户指定的文字方向点<br /> <br />     (while pt2        ; 当有有效的文字方向点时，继续循环<br />       (setvar "osmode" 0)    ; 关闭对象捕捉模式<br />       (setvar "cecolor" "ByLayer")  ; 设置颜色为随层<br />       (setq str  (vldcl-Combolist<br />       ""<br />       "预设的光缆型号规格"<br />       (list  "GYXTW-6B"   "GYXTW-12B"<br />       "GYTS-24B"   "GYTS-36B"<br />       "GYTS-48B"   "GYDXTW-72B"<br />       "GYDXTW-96B"   "GYDXTW-144B"<br />       "GYDXTW-288B"<br />            )<br />       "GYXTW-12B"<br />     )<br />       )          ; 预设的光缆型号规格列表<br />       ;|<br />       (setq str<br />        (nth<br />          (atoi<br />      (getstring<br />        "\n请输入相应数字:0(6B).1(12B).2(24B).3(36B).4(48B).5(72B).6(96B).7(144B).8(288B)"<br />      )<br />          )<br />          lst<br />        )<br />       )|;<br />       (setq ang (atoi (angtos (angle pt1 pt2)))) ; 计算标注文字的角度<br />       (command "_text" "j" "m" pt1 "2.5" ang str)<br />           ; 创建标注文字  修改线上型号字高2.5<br />       (setq e (+ (* (strlen str) 0.74) 1.0))<br />           ; 计算文字宽度  1.0为计算标注文字跟光缆距离<br />       (setq pt4 (polar pt1 (angle pt1 pt2) e)) ; 计算文字结束点的位置<br />       (setq pt3 (polar pt1 (angle pt2 pt1) e)) ; 计算光电缆断开点的位置<br />       (setvar "cecolor" ceco)    ; 恢复原来的颜色设置<br />       (command "_break" ss pt4 pt3)  ; 断开光电缆<br />       (setq pt4 (polar pt1 (+ 1.5708 (angle pt1 pt2)) 2))<br />           ; 计算光电缆长度标注点的位置<br />       (prompt "\n光电缆长度:")    ; 提示用户光电缆长度信息<br />       (command "_dtext" "j" "c" pt4 2.5 ang)<br />           ; 创建光电缆长度标注    修改长度文字字高2.5<br />       (setq pt2 nil)      ; 临时重置文字方向点为空，退出内层循环<br />     )          ; end while pt2<br /> <br />     (setq pt1 nil)      ; 重置标注中点为空，退出外层循环<br />   )          ; end while pt1<br /> <br />   (setvar "osmode" osmo)    ; 恢复原来的对象捕捉模式<br />   (princ)        ; 返回nil，避免命令行显示“; 错误: no function definition: C:DLBZ”<br /> )

用DCL的界面选吧，比命令行省事
https://www.yuque.com/kozjonoyeo ... l9y29345?singleDoc# 《VLDCL-COMBOLIST》

gaolei_gaolei

kozmosovia 发表于 2024-11-16 21:47
用DCL的界面选吧，比命令行省事
https://www.yuque.com/kozjonoyeo ... l9y29345?singleDoc# 《VLDCL-CO ...

错误: no function definition: VLDCL-COMBOLIST

kozmosovia

那就直接用空回车默认吧，

2. (defun c:dlbz (/ ss pt1 pt2 pt3 pt4 str ang e)
   
3.   "标注光电缆信息的主函数。"
   
4.   (setvar "cmdecho" 0)                        ; 关闭命令行回显
   
5.   (setq ceco (getvar "cecolor"))        ; 获取当前颜色设置
   
6.   (setq osmo (getvar "osmode"))                ; 获取当前对象捕捉模式
   
7.   (setvar "osmode" 512)                        ; 设置对象捕捉模式为仅捕捉端点
   
8.   (setq pt1 (getpoint "\n在光电缆上选取一点做为标注文字的中点: "))
   
9.                                         ; 获取用户选择的点作为标注中点
   
10. 
    
11.   (while pt1                                ; 当有有效的标注中点时，继续循环
    
12.     (setq ss (ssget pt1))                ; 获取包含标注中点的图形对象集合
    
13.     (setq pt2 (getpoint "\n指定文字方向:" pt1))
    
14.                                         ; 获取用户指定的文字方向点
    
15. 
    
16.     (while pt2                                ; 当有有效的文字方向点时，继续循环
    
17.       (setvar "osmode" 0)                ; 关闭对象捕捉模式
    
18.       (setvar "cecolor" "ByLayer")        ; 设置颜色为随层
    
19.       (setq lst        (list "GYXTW-6B"       "GYXTW-12B"
    
20.                       "GYTS-24B"       "GYTS-36B"
    
21.                       "GYTS-48B"       "GYDXTW-72B"
    
22.                       "GYDXTW-96B"     "GYDXTW-144B"
    
23.                       "GYDXTW-288B"
    
24.                      )
    
25.       )                                        ; 预设的光缆型号规格列表
    
26.       (setq str        (getstring
    
27.                   "\n请输入相应数字:0(6B).1(12B).2(24B).3(36B).4(48B).5(72B).6(96B).7(144B).8(288B) <1>"
    
28.                 )
    
29.             str        (nth (if str
    
30.                        (atoi str)
    
31.                        1
    
32.                      )
    
33.                      lst
    
34.                 )
    
35.       )
    
36.       (setq ang (atoi (angtos (angle pt1 pt2)))) ; 计算标注文字的角度
    
37.       (command "_text" "j" "m" pt1 "2.5" ang str)
    
38.                                         ; 创建标注文字  修改线上型号字高2.5
    
39.       (setq e (+ (* (strlen str) 0.74) 1.0))
    
40.                                         ; 计算文字宽度  1.0为计算标注文字跟光缆距离
    
41.       (setq pt4 (polar pt1 (angle pt1 pt2) e)) ; 计算文字结束点的位置
    
42.       (setq pt3 (polar pt1 (angle pt2 pt1) e)) ; 计算光电缆断开点的位置
    
43.       (setvar "cecolor" ceco)                ; 恢复原来的颜色设置
    
44.       (command "_break" ss pt4 pt3)        ; 断开光电缆
    
45.       (setq pt4 (polar pt1 (+ 1.5708 (angle pt1 pt2)) 2))
    
46.                                         ; 计算光电缆长度标注点的位置
    
47.       (prompt "\n光电缆长度:")                ; 提示用户光电缆长度信息
    
48.       (command "_dtext" "j" "c" pt4 2.5 ang)
    
49.                                         ; 创建光电缆长度标注    修改长度文字字高2.5
    
50.       (setq pt2 nil)                        ; 临时重置文字方向点为空，退出内层循环
    
51.     )                                        ; end while pt2
    
52. 
    
53.     (setq pt1 nil)                        ; 重置标注中点为空，退出外层循环
    
54.   )                                        ; end while pt1
    
55. 
    
56.   (setvar "osmode" osmo)                ; 恢复原来的对象捕捉模式
    
57.   (princ)                                ; 返回nil，避免命令行显示“; 错误: no function definition: C:DLBZ”
    
58. )

(defun c:dlbz (/ ss pt1 pt2 pt3 pt4 str ang e)<br />   "标注光电缆信息的主函数。"<br />   (setvar "cmdecho" 0)                        ; 关闭命令行回显<br />   (setq ceco (getvar "cecolor"))        ; 获取当前颜色设置<br />   (setq osmo (getvar "osmode"))                ; 获取当前对象捕捉模式<br />   (setvar "osmode" 512)                        ; 设置对象捕捉模式为仅捕捉端点<br />   (setq pt1 (getpoint "\n在光电缆上选取一点做为标注文字的中点: "))<br />                                         ; 获取用户选择的点作为标注中点<br /> <br />   (while pt1                                ; 当有有效的标注中点时，继续循环<br />     (setq ss (ssget pt1))                ; 获取包含标注中点的图形对象集合<br />     (setq pt2 (getpoint "\n指定文字方向:" pt1))<br />                                         ; 获取用户指定的文字方向点<br /> <br />     (while pt2                                ; 当有有效的文字方向点时，继续循环<br />       (setvar "osmode" 0)                ; 关闭对象捕捉模式<br />       (setvar "cecolor" "ByLayer")        ; 设置颜色为随层<br />       (setq lst        (list "GYXTW-6B"       "GYXTW-12B"<br />                       "GYTS-24B"       "GYTS-36B"<br />                       "GYTS-48B"       "GYDXTW-72B"<br />                       "GYDXTW-96B"     "GYDXTW-144B"<br />                       "GYDXTW-288B"<br />                      )<br />       )                                        ; 预设的光缆型号规格列表<br />       (setq str        (getstring<br />                   "\n请输入相应数字:0(6B).1(12B).2(24B).3(36B).4(48B).5(72B).6(96B).7(144B).8(288B) <1>"<br />                 )<br />             str        (nth (if str<br />                        (atoi str)<br />                        1<br />                      )<br />                      lst<br />                 )<br />       )<br />       (setq ang (atoi (angtos (angle pt1 pt2)))) ; 计算标注文字的角度<br />       (command "_text" "j" "m" pt1 "2.5" ang str)<br />                                         ; 创建标注文字  修改线上型号字高2.5<br />       (setq e (+ (* (strlen str) 0.74) 1.0))<br />                                         ; 计算文字宽度  1.0为计算标注文字跟光缆距离<br />       (setq pt4 (polar pt1 (angle pt1 pt2) e)) ; 计算文字结束点的位置<br />       (setq pt3 (polar pt1 (angle pt2 pt1) e)) ; 计算光电缆断开点的位置<br />       (setvar "cecolor" ceco)                ; 恢复原来的颜色设置<br />       (command "_break" ss pt4 pt3)        ; 断开光电缆<br />       (setq pt4 (polar pt1 (+ 1.5708 (angle pt1 pt2)) 2))<br />                                         ; 计算光电缆长度标注点的位置<br />       (prompt "\n光电缆长度:")                ; 提示用户光电缆长度信息<br />       (command "_dtext" "j" "c" pt4 2.5 ang)<br />                                         ; 创建光电缆长度标注    修改长度文字字高2.5<br />       (setq pt2 nil)                        ; 临时重置文字方向点为空，退出内层循环<br />     )                                        ; end while pt2<br /> <br />     (setq pt1 nil)                        ; 重置标注中点为空，退出外层循环<br />   )                                        ; end while pt1<br /> <br />   (setvar "osmode" osmo)                ; 恢复原来的对象捕捉模式<br />   (princ)                                ; 返回nil，避免命令行显示“; 错误: no function definition: C:DLBZ”<br /> )

gaolei_gaolei

kozmosovia 发表于 2024-11-16 23:31
那就直接用空回车默认吧，

能不能不用敲回车，直接默认

kozmosovia

提示总是要选并等待回应，回车已经是CAD选择默认的标准方式。不用回车，也得用个别的方式，鼠标按键或者输入别的键盘符号。否则无法确定已经给了回应。既然已经有简单的标准方式了，再弄个标新立异的没啥意义。