社区 › AutoLISP/Visual LISP 编程技术 › my快速选择4.0 +自设容差选择函数 fas插件（20240117更）

664571221 发表于 2023-12-23 17:13:10

谢谢楼主谢谢大哥

paulpipi 发表于 2023-12-23 22:02:21

这样更方便，感谢分享，牛

p-3-ianlcc 发表于 2023-12-23 23:09:06

楼主，谢谢你帮忙转换…

下载来试试看

leedun 发表于 2023-12-24 06:59:59

收藏，myQSELECT快速选择4.0 插件

菜鸟初来乍到 发表于 2023-12-24 08:07:13

感谢楼主分享

null. 发表于 2023-12-24 12:49:43

(0 . "TCH_TEXT") (67 . 0)，遇到天正文字会出错

wzg356 发表于 2023-12-24 13:10:58

null. 发表于 2023-12-24 12:49
(0 . "TCH_TEXT") (67 . 0)，遇到天正文字会出错

天正没用过
貌似常规6项可以的

null. 发表于 2023-12-24 14:00:01

本帖最后由 null. 于 2023-12-24 14:01 编辑

wzg356 发表于 2023-12-24 13:10
天正没用过
貌似常规6项可以的

;   Alignment = "正中(MC)"
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00007ff642de5e50>
;   Document (RO) = #<VLA-OBJECT IAcadDocument 0000023ce5cca578>
;   EntityTransparency = "ByLayer"
;   Handle (RO) = "132B2"
;   HasExtensionDictionary (RO) = 0
;   Height = "3.5"
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 0000023c9170eb68>
;   Layer = "DIM-消防"
;   LayoutRotation = 0.0
;   Linetype = "ByLayer"
;   LinetypeScale = 1.0
;   Lineweight = -1
;   MaskFlag = "否"
;   Material = "ByLayer"
;   ObjectControl = "无"
;   ObjectID (RO) = 1061
;   ObjectName (RO) = "TDbText"
;   ObliqueAngle = "0"
;   OwnerID (RO) = 1063
;   PlotStyleName = "ByLayer"
;   Rotation = 0.0
;   Scale = 150.0
;   Text = "Y"
;   TextStyle = "_TEL_DIM"
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 0000023c9170d7e0>
;   Visible = -1
;   XScale = "0.8"
关键是，你是按*TEXT来选择集，而天正单行图元里面的字体名称是TextStyle ，里面没有STYLENAME。如果按STYLENAME取字体名，加载程序时就会出错。这时程序根本用不了。

wzg356 发表于 2023-12-24 16:11:30

本帖最后由 wzg356 于 2023-12-26 14:00 编辑

改进了常规6项数据取得方式，看看能否支持部分天正的图元。

用天正的可以拿去测试看看
不出错为前提
打*号的属性为天正的，属性名字不知是否合适？有几个甚至不知叫法

添加天正专用属性不麻烦，效率影响也不大，但我几乎不了解天正专用属性

paulpipi 发表于 2023-12-24 19:15:15

真的挺牛，很好用，感谢分享

查看完整版本: my快速选择4.0 +自设容差选择函数 fas插件（20240117更）