选择集显示夹点

wuyunpeng888

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

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

wuyunpeng888

我这也有一版
下面是lisp函数，放在窗体上的文本框里，VL类初始化时加载

2. (defun VBASelectionSet2ALSelectionSet(VBA_SSName / obj ss sss AL_SS) ;命名选择集转换成aut
   
3.   (setq sss (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'ActiveDocument) 'SelectionSets))
   
4.   (setq ss (vlax-invoke-method sss 'Item VBA_SSName))
   
5.   (setq AL_SS(ssadd))
   
6.   (vlax-for obj ss
   
7.     (ssadd (vlax-vla-object->ename obj) AL_SS)
   
8.   )
   
9. )
   

(defun VBASelectionSet2ALSelectionSet(VBA_SSName / obj ss sss AL_SS) ;命名选择集转换成aut<br />   (setq sss (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'ActiveDocument) 'SelectionSets))<br />   (setq ss (vlax-invoke-method sss 'Item VBA_SSName))<br />   (setq AL_SS(ssadd))<br />   (vlax-for obj ss <br />     (ssadd (vlax-vla-object->ename obj) AL_SS)<br />   )<br /> ) <br />

加载代码如下

1. '加载选择集转换函数
   
2. strFileName = Environ("TEMP") & "\SelectionSet.lsp"
   
3. Open strFileName For Output As #5
   
4.     Print #5, Form1.txtSelectionSet.Text
   
5. Close #5
   
6. VLFS.Item("Load").funcall strFileName
   
7. Kill strFileName
   

复制代码

VBA实现函数如下

2. '命名选择集显示夹点并选中
   
3. Public Sub ShowPickPoints(ByVal selectionSet As Object, ByVal blnOpen As Boolean)
   
4. If blnOpen = True Then
   
5.     vlax.SetLispSymbol "ShowPickPoints_sset", selectionSet.Name
   
6.    
   
7.     vlax.EvalLispExpression "(sssetfirst nil (VBASelectionSet2ALSelectionSet ShowPickPoints_sset))"
   
8.     vlax.NullifySymbol "ShowPickPoints_sset"
   
9. Else
   
10.     vlax.EvalLispExpression "(sssetfirst nil)"
    
11. End If
    
12. End Sub

'命名选择集显示夹点并选中<br /> Public Sub ShowPickPoints(ByVal selectionSet As Object, ByVal blnOpen As Boolean)<br /> If blnOpen = True Then<br />     vlax.SetLispSymbol "ShowPickPoints_sset", selectionSet.Name<br />     <br />     vlax.EvalLispExpression "(sssetfirst nil (VBASelectionSet2ALSelectionSet ShowPickPoints_sset))"<br />     vlax.NullifySymbol "ShowPickPoints_sset"<br /> Else<br />     vlax.EvalLispExpression "(sssetfirst nil)"<br /> End If<br /> End Sub

wuyunpeng888

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

wuyunpeng888

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

wuyunpeng888

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

wuyunpeng888

http://bbs.mjtd.com/forum.php?mod=attachment&aid=MTAyODY5fGRiN2FlODM0MGE2ZDlkYTliNzFkMjcxMmIxMmYyM2JjfDE3MTM5ODU4NDI%3D&request=yes&_f=.png
目前这些都是和lisp里的那几个vlax曲线功能相对应的

jikasurvey

wuyunpeng888 发表于 2019-1-12 10:40
http://bbs.mjtd.com/forum.php?mod=attachment&aid=MTAyODY5fGRiN2FlODM0MGE2ZDlkYTliNzFkMjcxMmIxMmYyM2JjfDE3MTM5ODU4NDI%3D&request=yes&_f=.png
目前这些都是和lisp里的那几个vlax曲线功能相对应的

希望你早日成功！

zzyong00

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

wuyunpeng888

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

wuyunpeng888

这个使用之前要先(vl-load-com)这是前提