关于insert语句，后去最小包容框的问题

Gu_xl

lvbin2ooo 发表于 2013-5-19 12:02
大侠帮帮我如何做错误检查吧？

(vla-GetBoundingBox obj 'll 'ur) ;_ 计算包围盒
(setq ll (vlax-safearray->list ll) ;_ 坐下角点
      ur (vlax-safearray->list ur) ;_ 右上角点
)
==>
(if (not
      (VL-CATCH-ALL-ERROR-P
      (VL-CATCH-ALL-APPLY
        'vla-GetBoundingBox
        (list obj 'll 'ur)
        )
      )
      )
  (progn
    .....
    你的代码
    )
  )
  

lvbin2ooo

Gu_xl 发表于 2013-5-19 14:47
(vla-GetBoundingBox obj 'll 'ur) ;_ 计算包围盒
(setq ll (vlax-safearray->list ll) ;_ 坐下角点
   ...

我真的很菜。我试了好几次。可能是方式方法不对。这个ucsbox函数，还是改不对，提示语法错误。。请指教。

lvbin2ooo

lvbin2ooo 发表于 2013-5-19 17:04
我真的很菜。我试了好几次。可能是方式方法不对。这个ucsbox函数，还是改不对，提示语法错误。。请指教。

我又试了好几遍。终于成功了 ，前面的失败是我的基本功不扎实。谢谢你。。最后一个问题，请教如何判断一个块，是否是空块(没有图元)？。。

yxh1202

lvbin2ooo 发表于 2013-5-19 17:08
我又试了好几遍。终于成功了 ，前面的失败是我的基本功不扎实。谢谢你。。最后一个问题，请教如何判断一个 ...

请问为何提示  语法错误
(vl-load-com)
(defun C:wxx ()

  (command "undo" "be")

  (setvar "cmdecho" 0)

  (command "ucs" "w")

  (princ "\n请选择物体:")

  (while (null (setq en (ssget))))

  (vla-GetBoundingBox obj 'll 'ur) ;_ 计算包围盒
  (setq        ll (vlax-safearray->list ll) ;_ 坐下角点
        ur (vlax-safearray->list ur) ;_ 右上角点
  )
                                        ;==>
  (if (not
        (VL-CATCH-ALL-ERROR-P
          (VL-CATCH-ALL-APPLY
            'vla-GetBoundingBox
            (list obj 'll 'ur)
          )
        )
      )

    (command ".rectang" "non" ll "non" ur)

    (command "undo" "e")

    (princ)

  )

)

yxh1202

Gu_xl 发表于 2013-5-19 14:47
(vla-GetBoundingBox obj 'll 'ur) ;_ 计算包围盒
(setq ll (vlax-safearray->list ll) ;_ 坐下角点
   ...

为何我按照你的代码做了一个画矩形框的程序，为何加载后提示  语法错误，请指点
(vl-load-com)
(defun C:wxx ()

  (command "undo" "be")

  (setvar "cmdecho" 0)

  (command "ucs" "w")

  (princ "\n请选择物体:")

  (while (null (setq en (ssget))))

  (vla-GetBoundingBox obj 'll 'ur) ;_ 计算包围盒
  (setq        ll (vlax-safearray->list ll) ;_ 坐下角点
        ur (vlax-safearray->list ur) ;_ 右上角点
  )
                                        ;==>
  (if (not
        (VL-CATCH-ALL-ERROR-P
          (VL-CATCH-ALL-APPLY
            'vla-GetBoundingBox
            (list obj 'll 'ur)
          )
        )
      )

    (command ".rectang" "non" ll "non" ur)

    (command "undo" "e")

    (princ)

  )

)