SelectOnScreen选择完回车后,无法将选好的对象留给cad,求助。

雪山飞狐_lzh

Lisp代码

2. (defun c:testpf(/ oldstr oldint ss)
3.   (setq oldstr (getvar "users1"))
4.   (setq oldint (getvar "useri1"))
5.   (setvar "users1" "T")
6.   (setq ss (cadr (ssgetfirst)))
7.   (setvar "useri1" 0)
8.   (if ss (setvar "useri1" (sslength ss)))
9.   (sssetfirst nil nil)
10.   (vla-RunMacro (vlax-get-acad-object) "TlsCad.dvb!mTest.testpf")
11.   (if (= (getvar "users1") "T")
12.    (sssetfirst nil (ssget "_p"))
13.   )
14.   (setvar "useri1" oldint)
15.   (setvar "users1" oldstr)
16.   (princ)
17. )

(defun c:testpf(/ oldstr oldint ss)   (setq oldstr (getvar "users1"))   (setq oldint (getvar "useri1"))   (setvar "users1" "T")   (setq ss (cadr (ssgetfirst)))   (setvar "useri1" 0)   (if ss (setvar "useri1" (sslength ss)))   (sssetfirst nil nil)   (vla-RunMacro (vlax-get-acad-object) "TlsCad.dvb!mTest.testpf")   (if (= (getvar "users1") "T")    (sssetfirst nil (ssget "_p"))   )   (setvar "useri1" oldint)   (setvar "users1" oldstr)   (princ) )

VBA代码

2. Sub testpf()
3. On Error Resume Next
4. Dim ss As AcadSelectionSet
5. Dim ft(0) As Integer, fd(0)
6. Dim pfCount As Integer
7. pfCount = ThisDrawing.GetVariable("useri1")
8. ThisDrawing.ActiveSelectionSet.Delete
9. ThisDrawing.SelectionSets("tlstest").Delete
10. Set ss = ThisDrawing.SelectionSets.Add("tlstest")
11. ft(0) = 0: fd(0) = "Line"
12. ss.SelectOnScreen ft, fd
13. If ss.Count = 0 And pfCount = 0 Then
14.        ThisDrawing.SetVariable "users1", "F"
15. End If
16. End Sub

Sub testpf() On Error Resume Next Dim ss As AcadSelectionSet Dim ft(0) As Integer, fd(0) Dim pfCount As Integer pfCount = ThisDrawing.GetVariable("useri1") ThisDrawing.ActiveSelectionSet.Delete ThisDrawing.SelectionSets("tlstest").Delete Set ss = ThisDrawing.SelectionSets.Add("tlstest") ft(0) = 0: fd(0) = "Line" ss.SelectOnScreen ft, fd If ss.Count = 0 And pfCount = 0 Then        ThisDrawing.SetVariable "users1", "F" End If End Sub