zhichi!!!!!
下载看看，学习使用
非常不错，用着很方便，谢谢楼主
感谢分享
本帖最后由 smartstar 于 2014-2-14 08:24 编辑
贴上我的修改
1.整理一下选择提示：(setq slent
(entsel
(strcat
"\n请选择样板实体:\n\n或:\n H-帮助\n N-关闭一般块属性显示\n B-关闭动态块特性显示\n\n当前状态:\n ①一般块属性"
(if (= "Y" attdis)
"【打开】"
"【关闭】"
)
"\n ②动态块特性"
(if (= "Y" dblkdis)
"【打开】"
"【关闭】"
)
""
)
)
)2.对"DIMENSION"增加了“文字角度”过滤
("DIMENSION"
((-4 "尺寸标注")
(1 "标注文字")
(42 "测量数值")
(3 "标注样式")
(50 "旋转角度")
(70"标注类型"
((32 "水平垂直")
(33 "对齐标注")
(34 "角度标注")
(35 "直径标注")
(36 "半径标注")
(37 "三点角度")
(38 "坐标标注")
)
)
)
("FJ"
;;("FJ1" "显示颜色" (ss-getcolor slent))
("FJ3"
"手改尺寸"
(if (/= ""
(vlax-get (vlax-ename->vla-object slent) 'TextOverride)
)
"是"
"否"
)
(("是" "是") ("否" "否"))
)
("FJ4" "测量数值" (ss-dimvalue slent))
("FJ5" "标注文字" (ss-dimtext slent))
("FJ6" "文字颜色"
;;(vlax-get (vlax-ename->vla-object slent) 'TextColor)
;; ((0 "随块") (256 "随层") (1 "红色") (2 "黄色") (3 "绿色") (4 "青色") (5 "蓝色") (6 "紫色") (7 "黑白") ((acad_colordlg (atoi (get_tile "txt62"))) "其它..."))
)
("FJ7" "文字高度"
(vlax-get (vlax-ename->vla-object slent) 'TextHeight)
)
("FJ11" "文字角度" (ATOF (ANGTOS (vlax-get (vlax-ename->vla-object slent) 'Rotation))))
;;smartstar "所有标注类型均有可选的51组码，表示标注图元的水平方向" "标注图元决定水平、垂直和旋转线性标注的标注文字和直线的方向"
("FJ8" "文字样式")
;;(vlax-get (vlax-ename->vla-object slent) 'TextStyle))
;;("FJ6" "标注样式" (ss-dxf 3 slent)) ;;此处未知是否需要，未发生过3组码不能过滤的情况
("FJ9" "上 公 差"
(vlax-get (vlax-ename->vla-object slent)
'ToleranceUpperLimit
)
)
("FJ10" "下 公 差"
(vlax-get (vlax-ename->vla-object slent)
'ToleranceLowerLimit
)
)
)
)
3.对"LEADER"增加了"箭头样式"过滤
("LEADER" ((-4 "标注引线")
(3 "标注样式")
(71 "箭头标志" ((0 "禁用") (1 "启用")))
(72 "引线类型" ((0 "直线") (1 "样条曲线")))
)
("FJ"("FJ3" "标注样式" (ss-dxf 3 slent))
("FJ4" "箭头样式" (Vlax-Get(Vlax-Ename->Vla-Object slent)'ArrowheadType));;;smartstar
)
)
又更新了，好东西，必须下载！
看起来挺不错的
功能确实比以前强大了，但能否把ss这个快捷命令去掉，我们可以根据自己喜欢自己设置，谢谢！
如果CAD中已经有SS命令，则不覆盖，可通过XC_SS命令调用。用户可以采用(defun c:qs () (c:xc_ss))将快捷命令定义为qs
我的ss是move，一旦加载了你的程序，ss就被你覆盖，能否借鉴一下张帆的选择易3.1，回车两次进入设置~，进行快捷命令的设置。谢谢！
1.29版的选择易选择后，不能使用空格和回车代表确定了。能不能加上哪？