miaoph 发表于 2004-11-16 12:36:00

拖动地插入图，而不能使用CAD的快速捕捉功能，怎么解决？

各位大哥，小弟求救：


从论坛中发现一段代码，可以拖动地插入图块，代码如下：


Public Sub BlockInsert(Name As String)<BR>                       Dim pLisp As String<BR>                       Dim obj As VLAX<BR>                       Dim pnt(2) As Double<BR>                       Set obj = New VLAX<BR>                       Set pObj = ThisDrawing.ModelSpace.InsertBlock(pnt, Name, 1, 1, 1, 0)<BR>                       obj.EvalLispExpression "(setq ed (entget (handent " &amp; ToStr(pObj.Handle) &amp; ")))"<BR>                       pLisp = "(while (not (= (caddr " &amp; _<BR>                                                                                       "(setq pTime (grread t) " &amp; _<BR>                                                                                                                                       "pSt (car pTime) " &amp; _<BR>                                                                                                                                       "pnt (cond ((= pSt 3) (List 0 0 -1)) ((= pSt 5) (cadr pTime)) (t (List 0 0 1)))))       -1)) " &amp; _<BR>                                                                                       "(setq ed (subst (cons 10 pnt) (assoc 10 ed) ed)) " &amp; _<BR>                                                                                       "(entmod ed) " &amp; _<BR>                                                                                       ") "<BR>                       obj.EvalLispExpression pLisp<BR>                       Set obj = Nothing<BR>End Sub


但是，我发现利用grread 函数，不能使用CAD的快速捕捉功能，请问怎么才能使用快速捕捉功能呢？

cag 发表于 2004-11-20 20:30:00

点下去之后可用osnap函数，不过不会显示捕捉框

流星蔡园 发表于 2008-12-1 19:05:00

遇到同样的问题，顶
页: [1]
查看完整版本: 拖动地插入图，而不能使用CAD的快速捕捉功能，怎么解决？