【e派】工具箱函数再揭秘及应用实例

xyp1964 · 发表于 2012-12-8 12:31:22

本帖最后由 xyp1964 于 2017-11-20 21:54 编辑

;; xyp-Line vl方式画线(点与点、点集与点、点与点集、点集与点集) (xyp-Line p1 p2)
(defun xyp-Line (p1 p2 / s0 pt pt1 pt2 i ss)
(setq s0 (entlast))
(cond
;; 点集与点
((and (= (type (car p1)) 'LIST)
(or (= (type (car p2)) 'REAL)
(= (type (car p2)) 'INT)
)
)
(mapcar '(lambda (x) (xyp-line x p2)) p1)
(setq ss (xyp-SSelEntnext s0))
)
;; 点与点集
((and (= (type (car p2)) 'LIST)
(or (= (type (car p1)) 'REAL)
(= (type (car p1)) 'INT)
)
)
(mapcar '(lambda (x) (xyp-line p1 x)) p2)
(setq ss (xyp-SSelEntnext s0))
)
;; 点集与点集
((and (= (type (car p1)) 'LIST)
(= (type (car p2)) 'LIST)
(= (length p1) (length p2))
)
(mapcar '(lambda (x y) (xyp-line x y)) p1 p2)
(setq ss (xyp-SSelEntnext s0))
)
;; 点与点、
((and (or (= (type (car p1)) 'REAL)
(= (type (car p1)) 'INT)
)
(or (= (type (car p2)) 'REAL)
(= (type (car p2)) 'INT)
)
)
(vla-addline
(vla-get-ModelSpace
(vla-get-ActiveDocument (vlax-get-acad-object))
)
(vlax-3D-point p1)
(vlax-3D-point p2)
)
(setq ss (entlast))
)
)
ss
)

;; xyp-Line vl方式画线(点与点、点集与点、点与点集、点集与点集) (xyp-Line p1 p2) 
(defun xyp-Line        (p1 p2 / s0 pt pt1 pt2 i ss) 
  (setq s0 (entlast)) 
  (cond 
    ;; 点集与点 
    ((and (= (type (car p1)) 'LIST) 
          (or (= (type (car p2)) 'REAL) 
              (= (type (car p2)) 'INT) 
          ) 
     ) 
     (mapcar '(lambda (x) (xyp-line x p2)) p1) 
     (setq ss (xyp-SSelEntnext s0)) 
    ) 
    ;; 点与点集 
    ((and (= (type (car p2)) 'LIST) 
          (or (= (type (car p1)) 'REAL) 
              (= (type (car p1)) 'INT) 
          ) 
     ) 
     (mapcar '(lambda (x) (xyp-line p1 x)) p2) 
     (setq ss (xyp-SSelEntnext s0)) 
    ) 
    ;; 点集与点集 
    ((and (= (type (car p1)) 'LIST) 
          (= (type (car p2)) 'LIST) 
          (= (length p1) (length p2)) 
     ) 
     (mapcar '(lambda (x y) (xyp-line x y)) p1 p2) 
     (setq ss (xyp-SSelEntnext s0)) 
    ) 
    ;; 点与点、 
    ((and (or (= (type (car p1)) 'REAL) 
              (= (type (car p1)) 'INT) 
          ) 
          (or (= (type (car p2)) 'REAL) 
              (= (type (car p2)) 'INT) 
          ) 
     ) 
     (vla-addline 
       (vla-get-ModelSpace 
         (vla-get-ActiveDocument (vlax-get-acad-object)) 
       ) 
       (vlax-3D-point p1) 
       (vlax-3D-point p2) 
     ) 
     (setq ss (entlast)) 
    ) 
  ) 
  ss 
)

2564277832 · 发表于 2012-12-8 22:01:47

院長最近在研究您的
xyp-Curve-Close
xyp-add-circle

200853006 · 发表于 2012-12-18 08:18:15

院长的工具太牛X了。佩服ing.

zyhandw · 发表于 2012-12-18 11:23:03

太多了，院长的高作还得慢慢消化

caoliu023 · 发表于 2012-12-18 11:31:23

喜欢，院长威武

Q1241274614 · 发表于 2012-12-18 13:17:34

整合力太强大了。愉悦！

革天明 · 发表于 2012-12-24 09:01:09

院长，继续放出啊

onandoff · 发表于 2012-12-24 12:49:17

院长奉献了火~~

一枚毒药 · 发表于 2012-12-24 15:04:27

院长的工具箱函数，我慢慢看，慢慢消化……

xsso · 发表于 2013-1-6 21:29:02

太强大！继续拼命支持！

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

[讨论] 【e派】工具箱函数再揭秘及应用实例

点评

点评