小菜版选择易，欢迎使用并提出完善建议

screwer

zhichi!!!!!

teykmcqh

下载看看，学习使用

xxm_2001_1

非常不错，用着很方便，谢谢楼主

zk2140

感谢分享

smartstar

贴上我的修改

1.整理一下选择提示：

2. (setq slent
   
3.        (entsel
   
4.    (strcat
   
5.      "\n请选择样板实体:\n\n或:\n   H-帮助\n   N-关闭一般块属性显示\n   B-关闭动态块特性显示\n\n当前状态:\n   ①一般块属性"
   
6.      (if (= "Y" attdis)
   
7.        "【打开】"
   
8.        "【关闭】"
   
9.      )
   
10.      "\n   ②动态块特性"
    
11.      (if (= "Y" dblkdis)
    
12.        "【打开】"
    
13.        "【关闭】"
    
14.      )
    
15.      ""
    
16.    )
    
17.        )
    
18. )

(setq slent<br />        (entsel<br />    (strcat<br />      "\n请选择样板实体:\n\n或:\n   H-帮助\n   N-关闭一般块属性显示\n   B-关闭动态块特性显示\n\n当前状态:\n   ①一般块属性"<br />      (if (= "Y" attdis)<br />        "【打开】"<br />        "【关闭】"<br />      )<br />      "\n   ②动态块特性"<br />      (if (= "Y" dblkdis)<br />        "【打开】"<br />        "【关闭】"<br />      )<br />      ""<br />    )<br />        )<br /> )

2.对"DIMENSION"增加了“文字角度”过滤

1. ("DIMENSION"
   
2.   ((-4 "尺寸标注")
   
3.     (1 "标注文字")
   
4.     (42 "测量数值")
   
5.     (3 "标注样式")
   
6.     (50 "旋转角度")
   
7.     (70  "标注类型"
   
8.   ((32 "水平垂直")
   
9.     (33 "对齐标注")
   
10.     (34 "角度标注")
    
11.     (35 "直径标注")
    
12.     (36 "半径标注")
    
13.     (37 "三点角度")
    
14.     (38 "坐标标注")
    
15.   )
    
16.     )
    
17.   )
    
18.   ("FJ"
    
19.     ;;("FJ1" "显示颜色" (ss-getcolor slent))
    
20.     ("FJ3"
    
21.       "手改尺寸"
    
22.       (if (/= ""
    
23.         (vlax-get (vlax-ename->vla-object slent) 'TextOverride)
    
24.     )
    
25.   "是"
    
26.   "否"
    
27.       )
    
28.       (("是" "是") ("否" "否"))
    
29.     )
    
30.     ("FJ4" "测量数值" (ss-dimvalue slent))
    
31.     ("FJ5" "标注文字" (ss-dimtext slent))
    
32.     ("FJ6" "文字颜色"
    
33.      ;;(vlax-get (vlax-ename->vla-object slent) 'TextColor)
    
34.      ;; ((0 "随块") (256 "随层") (1 "红色") (2 "黄色") (3 "绿色") (4 "青色") (5 "蓝色") (6 "紫色") (7 "黑白") ((acad_colordlg (atoi (get_tile "txt62"))) "其它..."))
    
35.     )
    
36.     ("FJ7" "文字高度"
    
37.      (vlax-get (vlax-ename->vla-object slent) 'TextHeight)
    
38.     )
    
39.    ("FJ11" "文字角度" (ATOF (ANGTOS (vlax-get (vlax-ename->vla-object slent) 'Rotation))))
    
40.     ;;smartstar "所有标注类型均有可选的51组码，表示标注图元的水平方向" "标注图元决定水平、垂直和旋转线性标注的标注文字和直线的方向"
    
41.     ("FJ8" "文字样式")
    
42.     ;;(vlax-get (vlax-ename->vla-object slent) 'TextStyle))
    
43.     ;;("FJ6" "标注样式" (ss-dxf 3 slent)) ;;此处未知是否需要，未发生过3组码不能过滤的情况
    
44.     ("FJ9" "上 公 差"
    
45.      (vlax-get (vlax-ename->vla-object slent)
    
46.          'ToleranceUpperLimit
    
47.      )
    
48.     )
    
49.     ("FJ10" "下 公 差"
    
50.       (vlax-get (vlax-ename->vla-object slent)
    
51.           'ToleranceLowerLimit
    
52.       )
    
53.     )
    
54.   )
    
55. )

("DIMENSION"<br />   ((-4 "尺寸标注")<br />     (1 "标注文字")<br />     (42 "测量数值")<br />     (3 "标注样式")<br />     (50 "旋转角度")<br />     (70  "标注类型"<br />   ((32 "水平垂直")<br />     (33 "对齐标注")<br />     (34 "角度标注")<br />     (35 "直径标注")<br />     (36 "半径标注")<br />     (37 "三点角度")<br />     (38 "坐标标注")<br />   )<br />     )<br />   )<br />   ("FJ"<br />     ;;("FJ1" "显示颜色" (ss-getcolor slent))<br />     ("FJ3"<br />       "手改尺寸"<br />       (if (/= ""<br />         (vlax-get (vlax-ename->vla-object slent) 'TextOverride)<br />     )<br />   "是"<br />   "否"<br />       )<br />       (("是" "是") ("否" "否"))<br />     )<br />     ("FJ4" "测量数值" (ss-dimvalue slent))<br />     ("FJ5" "标注文字" (ss-dimtext slent))<br />     ("FJ6" "文字颜色"<br />      ;;(vlax-get (vlax-ename->vla-object slent) 'TextColor)<br />      ;; ((0 "随块") (256 "随层") (1 "红色") (2 "黄色") (3 "绿色") (4 "青色") (5 "蓝色") (6 "紫色") (7 "黑白") ((acad_colordlg (atoi (get_tile "txt62"))) "其它..."))<br />     )<br />     ("FJ7" "文字高度"<br />      (vlax-get (vlax-ename->vla-object slent) 'TextHeight)<br />     )<br />    ("FJ11" "文字角度" (ATOF (ANGTOS (vlax-get (vlax-ename->vla-object slent) 'Rotation))))<br />     ;;smartstar "所有标注类型均有可选的51组码，表示标注图元的水平方向" "标注图元决定水平、垂直和旋转线性标注的标注文字和直线的方向"<br />     ("FJ8" "文字样式")<br />     ;;(vlax-get (vlax-ename->vla-object slent) 'TextStyle))<br />     ;;("FJ6" "标注样式" (ss-dxf 3 slent)) ;;此处未知是否需要，未发生过3组码不能过滤的情况<br />     ("FJ9" "上 公 差"<br />      (vlax-get (vlax-ename->vla-object slent)<br />          'ToleranceUpperLimit<br />      )<br />     )<br />     ("FJ10" "下 公 差"<br />       (vlax-get (vlax-ename->vla-object slent)<br />           'ToleranceLowerLimit<br />       )<br />     )<br />   )<br /> )

3.对"LEADER"增加了"箭头样式"过滤

1. ("LEADER" ((-4 "标注引线")
   
2.       (3 "标注样式")
   
3.       (71 "箭头标志" ((0 "禁用") (1 "启用")))
   
4.       (72 "引线类型" ((0 "直线") (1 "样条曲线")))
   
5.     )
   
6.     ("FJ"  ("FJ3" "标注样式" (ss-dxf 3 slent))
   
7.     ("FJ4" "箭头样式" (Vlax-Get  (Vlax-Ename->Vla-Object slent)  'ArrowheadType));;;smartstar
   
8.     )
   
9. )

("LEADER" ((-4 "标注引线")<br />       (3 "标注样式")<br />       (71 "箭头标志" ((0 "禁用") (1 "启用")))<br />       (72 "引线类型" ((0 "直线") (1 "样条曲线")))<br />     )<br />     ("FJ"  ("FJ3" "标注样式" (ss-dxf 3 slent))<br />     ("FJ4" "箭头样式" (Vlax-Get  (Vlax-Ename->Vla-Object slent)  'ArrowheadType));;;smartstar <br />     )<br /> )

ORCHI

又更新了，好东西，必须下载！

qiushizhda

看起来挺不错的

wch1111

功能确实比以前强大了，但能否把ss这个快捷命令去掉，我们可以根据自己喜欢自己设置，谢谢！

wch1111

如果CAD中已经有SS命令，则不覆盖，可通过XC_SS命令调用。用户可以采用(defun c:qs () (c:xc_ss))将快捷命令定义为qs
我的ss是move，一旦加载了你的程序，ss就被你覆盖，能否借鉴一下张帆的选择易3.1，回车两次进入设置~，进行快捷命令的设置。谢谢！

dongya1235

1.29版的选择易选择后，不能使用空格和回车代表确定了。能不能加上哪？