[LISP程序]：帮俺看看错在哪里了？

redapple

(defun c:blockb()
  (princ ":\n求块的外轮廓")
  (setq ben (car (entsel "\选定一个块:")) bss (ssadd))
  (vl-load-com)
  (vla-getboundingbox (vlax-ename->vla-object ben) 'minp 'maxp)
  (setq minp (vlax-safearray->list minp)
        maxp (vlax-safearray->list maxp))
  (command "recotang" (list (- (car minp) 2)(-(cadr minp) 2))
                      (list (+ (car maxp) 2)(+(cadr maxp) 2)))
  (setq bbx (entlast))
  (ssadd ben bss)(ssadd bbx bss)
  (command "-boundary" "a" "b" "n" bss "" "o" "p" ""
           (list (-(car minp) 1)(-(cadr minp) a)) ""
           "erase" (entlast) bbx ben "")
  (princ)
  )

XDSoft

最初由 redapple 发布
[B](defun c:blockb()
  (princ ":\n求块的外轮廓")
  (setq ben (car (entsel "\选定一个块:")) bss (ssadd))
  (vl-load-com)
  (vla-getboundingbox (vlax-ename->vla-object ben) 'minp 'maxp)
  (setq minp (... [/B]

跟大家说说, 你的程序要做什么? 执行到哪里出错了? 出错的现象是什么?

redapple

目的是求块的外轮廓
调试时提示参数类型错误（应该是(command "recotang" (list (- (car minp) 2)(-(cadr minp) 2))
(list (+ (car maxp) 2)(+(cadr maxp) 2)))）
调试到这里就执行不下去了

luoyaya

RECTANGLE是不是这个命令啊,recotangCAD里没有这个的吧

XDSoft

最初由 redapple 发布
[B]目的是求块的外轮廓
调试时提示参数类型错误（应该是(command "recotang" (list (- (car minp) 2)(-(cadr minp) 2))
(list (+ (car maxp) 2)(+(cadr maxp) 2)))）
调试到这里就执行不下去了 [/B]

画矩形的命令是 rectang  不是你写的 recotang 。


另外为什么用这个命令呢，直接用PLINE命令绘制一个PL就可以了。