2013-08-09 QQ群：ALISP＆VLISP(143438137) 聊天记录：我加载一个lsp文件，为什么提示函数已取消呢？

炫翔

炫翔(2363673534)于2013-08-09 18-24-59：
;功能:指定图元最小外接矩形的九点坐标 9点
;;;(xx-9pt 实体名 参数)
;上:7 8 9 中:4 5 6  下:1 2 3
;;;参数＝1～9，上中下9位码；其他均为左下角点
;7 8 9
;4 5 6
;1 2 3
;(xx-9pt (CAR(ENTSEL)) 5)
(defun xx-9pt (s1 mode / dx dy pt maxp minp x1 x2 y1 y2)
(IF(and (= (type s1) 'ENAME)(= (type mode) 'INT))
  (progn
    (setq s1 (vlax-ename->vla-object s1))
   (vla-getboundingbox s1 'minpoint 'maxpoint)
   (setq maxp (vlax-safearray->list maxpoint);取得第9点
         minp (vlax-safearray->list minpoint);取得第1点
              x1  (car minp)
              x2  (car maxp)
              y1  (cadr minp)
              y2  (cadr maxp)
              dx  (/ (- x2 x1) 2.0)
              dy  (/ (- y2 y1) 2.0)
   )
   (cond ((= mode 1) (setq pt minp))
         ((= mode 2) (setq pt (list (+ x1 dx) y1 0.0)))
         ((= mode 3) (setq pt (list x2 y1 0.0)))
         ((= mode 4) (setq pt (list x1 (+ y1 dy)0.0)))
         ((= mode 5) (setq pt (list (+ x1 dx) (+ y1 dy)0.0)))
         ((= mode 6) (setq pt (list x2 (+ y1 dy)0.0)))
         ((= mode 7) (setq pt (list x1 y2 0.0)))
         ((= mode 8) (setq pt (list (+ x1 dx) y2 0.0)))
         ((= mode 9) (setq pt maxp))
         (t (setq pt minp))
   )
   pt
  )
(princ "\n xx-9pt  错了！")
)
)

ysq101

平凡  淡定(120389613)于2013-08-09 18-25-54：
哦。。明白什么是9点座标了。。

炫翔

炫翔(2363673534)于2013-08-09 18-26-21：
[face14.gif]

ysq101

平凡  淡定(120389613)于2013-08-09 18-26-28：
[qqimg]{7304AECB-76E1-EC13-FC1D-61CFDB1B4319}.jpg[/qqimg]

ysq101

平凡  淡定(120389613)于2013-08-09 18-26-33：
这9点早台

ysq101

平凡  淡定(120389613)于2013-08-09 18-26-41：
这9点是吧

炫翔

炫翔(2363673534)于2013-08-09 18-26-52：
是

炫翔

炫翔(2363673534)于2013-08-09 18-27-20：
;功能:指定选择集最小外接矩形的九点坐标 9点
;;;(xx-ss-9pt 选择集 参数)
;上:7 8 9 中:4 5 6  下:1 2 3
;;;参数＝1～9，上中下9位码；其他均为左下角点
;7 8 9
;4 5 6
;1 2 3
(defun xx-ss-9pt (ss mode / dx dy i l1 l2 ll plst point pt1 pt9 ur x1 x2 y1 y2)
(COND
  ((and (= (type ss) 'PICKSET)(= (type mode) 'INT))(SETQ ss ss))
  ((AND(= (type ss) 'vla-object)(= (type mode) 'INT))(SETQ ss (XX-Oss2Ess ss)))
  (T (princ "\n xx-ss-9pt  错了！")(QUIT))
)
  (repeat (setq i (sslength ss));循环选择集个数
    (vla-getboundingbox (vlax-ename->vla-object (ssname ss (setq i (1- i))))'ll 'ur)
    (setq l1 (cons (vlax-safearray->list ll) l1)
          l2 (cons (vlax-safearray->list ur) l2)
    )
  )
    (setq plst(mapcar '(lambda (a b) (apply 'mapcar (cons a b)))'(min max)(list l1 l2)))
    (setq pt1 (car plst);最小点
          pt9 (last plst);最大点
          x1  (car pt1)
          x2  (car pt9)
          y1  (cadr pt1)
          y2  (cadr pt9)
          dx  (/ (- x2 x1) 2.0);到中点的距离
          dy  (/ (- y2 y1) 2.0)
    )
   (cond ((= mode 1) (setq point pt1))
         ((= mode 2) (setq point (list (+ x1 dx) y1 0.0)))
         ((= mode 3) (setq point (list x2 y1 0.0)))
         ((= mode 4) (setq point (list x1 (+ y1 dy) 0.0)))
         ((= mode 5) (setq point (list (+ x1 dx) (+ y1 dy) 0.0)))
         ((= mode 6) (setq point (list x2 (+ y1 dy)0.0)))
         ((= mode 7) (setq point (list x1 y2 0.0)))
         ((= mode 8) (setq point (list (+ x1 dx) y2 0.0)))
         ((= mode 9) (setq point pt9))
         (t (setq point pt1))
   )
   point
)

(defun XX-Oss2Ess (axss / ss)
  (setq ss (ssadd))
  (vlax-for x axss (ssadd (vlax-vla-object->ename x) ss))
  ss
)

炫翔

炫翔(2363673534)于2013-08-09 18-27-48：
上面是选择集的

炫翔

炫翔(2363673534)于2013-08-09 18-27-56：
慢慢玩

ysq101

平凡  淡定(120389613)于2013-08-09 18-28-07：
嗯。谢谢了。。。有空研究一下。。

炫翔

炫翔(2363673534)于2013-08-09 18-28-12：
嗯

炫翔

炫翔(2363673534)于2013-08-09 18-28-20：
只有本群...

ysq101

平凡  淡定(120389613)于2013-08-09 18-28-20：
你还记得我么？

炫翔

炫翔(2363673534)于2013-08-09 18-28-33：
一点