关于用包容盒去ssget 出现的问题

沉寂の风 · 发表于 2016-3-16 23:22:54

D:\1 (vl-load-com)       (setq model_space (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'ModelSpace))

            (vlax-for  item_modelspace  model_space    ;遍历模型空间对某种块获取其包容盒

                  (cond
         ( (= "AcDbBlockReference" (Vlax-Get item_modelspace 'ObjectName ))

( cond
         ( (= "汇能图纸目录" (Vlax-Get item_modelspace 'EffectiveName ))

      (setq qb (vlax-vla-object->ename item_modelspace))
                                          (setq qb2 (entnext qb))
         (setq num (cdr (assoc 1 (entget qb2))))
( print num)
                                    (Vlax-Invoke-Method item_modelspace 'GetBoundingBox 'pa 'qb );
                                    (setq z (reverse(cdr(reverse(vlax-safearray->list pa)))))
                                    (setq d (reverse(cdr(reverse(vlax-safearray->list qb)))))
                                                (print z)  (print d)
      ;==========================================================================================
;    (xgm z d)
           (setq xx (ssget "c" z d) )
                                       (print xx)

沉寂の风 · 发表于 2016-3-16 23:24:13

有些时候就能ssget 到东西有些时候 ssget 返回nil 这是什么情况跟系统变量有关么

求大神告知

沉寂の风 · 发表于 2016-3-17 08:54:42

来人啊

账号		自动登录	找回密码
密码			注册

关于用包容盒 去ssget 出现的问题

本帖子中包含更多资源

关于用包容盒去ssget 出现的问题