社区 › AutoLISP/Visual LISP 编程技术 › 【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
)

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派】工具箱函数再揭秘及应用实例