wuyunpeng888 发表于 2018-12-4 16:05:31

jikasurvey 发表于 2018-7-6 22:12
你这个方法还是有个缺陷，如果发完命令(sssetfirst nil (ssget ""))后，程序并不马上退出，后面还有与CAD ...

后面的操作无非就是转为手动，或用当前pick选择集，这种应用一般都是最后一步，中间的很少有用到这功能的

wuyunpeng888 发表于 2019-1-12 10:27:45

我这也有一版
下面是lisp函数，放在窗体上的文本框里，VL类初始化时加载
(defun VBASelectionSet2ALSelectionSet(VBA_SSName / obj ss sss AL_SS) ;命名选择集转换成aut
(setq sss (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'ActiveDocument) 'SelectionSets))
(setq ss (vlax-invoke-method sss 'Item VBA_SSName))
(setq AL_SS(ssadd))
(vlax-for obj ss
    (ssadd (vlax-vla-object->ename obj) AL_SS)
)
)

加载代码如下
'加载选择集转换函数
strFileName = Environ("TEMP") & "\SelectionSet.lsp"
Open strFileName For Output As #5
    Print #5, Form1.txtSelectionSet.Text
Close #5
VLFS.Item("Load").funcall strFileName
Kill strFileName

VBA实现函数如下
'命名选择集显示夹点并选中
Public Sub ShowPickPoints(ByVal selectionSet As Object, ByVal blnOpen As Boolean)
If blnOpen = True Then
    vlax.SetLispSymbol "ShowPickPoints_sset", selectionSet.Name
   
    vlax.EvalLispExpression "(sssetfirst nil (VBASelectionSet2ALSelectionSet ShowPickPoints_sset))"
    vlax.NullifySymbol "ShowPickPoints_sset"
Else
    vlax.EvalLispExpression "(sssetfirst nil)"
End If
End Sub

wuyunpeng888 发表于 2019-1-12 10:30:12

ShowPickPoints函数的第一个参数是VBA的选择集对象，第二个参数为Ture为显示夹点，False为关闭夹点

wuyunpeng888 发表于 2019-1-12 10:31:31

我已经开始着手做VBA扩展库了，准备把lisp有的VBA里没有的都在VBA的扩展库里实现

wuyunpeng888 发表于 2019-1-12 10:33:36

初步分类为曲线类、事件类、数学类、实用工具类，这几大块

wuyunpeng888 发表于 2019-1-12 10:40:08

attach://102869.png
目前这些都是和lisp里的那几个vlax曲线功能相对应的

jikasurvey 发表于 2019-4-28 13:14:39

wuyunpeng888 发表于 2019-1-12 10:40
attach://102869.png
目前这些都是和lisp里的那几个vlax曲线功能相对应的

希望你早日成功！

zzyong00 发表于 2019-4-28 15:54:28

VL自从R16以后就没有更新过，所以，最好不用

wuyunpeng888 发表于 2019-8-19 11:10:15

这个不需要什么更新吧，本身没什么功能，能解析lisp函数就好，更新也更新不出什么东西

wuyunpeng888 发表于 2021-7-10 12:42:26

这个使用之前要先(vl-load-com)这是前提
页: 1 [2] 3
查看完整版本: 选择集显示夹点