社区 › AutoLISP/Visual LISP 编程技术 › 【e派】工具箱函数再揭秘及应用实例

仲文玉 发表于 2012-7-27 06:52:14

学习

fcut2004 发表于 2012-7-27 08:55:25

大师级别的作品呀，好好学习。

注册 发表于 2012-7-27 10:18:08

好东西

Daniel·邓邓邓 发表于 2012-7-27 13:30:45

我不懂啊！我看不懂啊！

preone 发表于 2012-7-27 18:20:14

再 排队学习~~

500w008 发表于 2012-7-27 18:27:25

本帖最后由 500w008 于 2012-7-27 20:09 编辑

再顶一下 号召中央 9大 退伍军人都要学LSP 事情总要做些事

c735023723 发表于 2012-7-29 22:14:58

学习了，学习

xyp1964 发表于 2012-7-29 22:35:21

本帖最后由 xyp1964 于 2019-1-26 17:04 编辑

;; xyp-get-MidPoint 两点之中点 (xyp-get-MidPoint p1 p2)
(defun xyp-get-MidPoint (p1 p2) (mapcar '(lambda (x) (* x 0.5)) (mapcar '+ p1 p2)))
;; xyp-get-MidPointUP 垂直平分线上定点-波峰 (xyp-get-MidPointUP p1 p2 dd)
(defun xyp-get-MidPointUP (p1 p2 dd)
(polar (xyp-get-MidPoint p1 p2) (+ (angle p1 p2) (* pi 0.5)) dd)
)
;; xyp-get-MidPointDN 垂直平分线上定点-波谷 (xyp-get-MidPointDN p1 p2 dd)
(defun xyp-get-MidPointDN (p1 p2 dd)
(polar (xyp-get-MidPoint p1 p2) (- (angle p1 p2) (* pi 0.5)) dd)
)

xyz2009xyz 发表于 2012-7-30 08:48:58

忍不住再来支持一下下

xyp1964 发表于 2012-7-30 13:29:53

本帖最后由 xyp1964 于 2019-1-26 17:04 编辑


;; xyp-SsdelLayer 选择集中删除特定图层 (xyp-SsdelLayer sss "1")
;; (setq ss(xyp-SsdelLayer (ssget) "1"))
;; (setq ss(xyp-SsdelLayer (ssget) '("1" "2")))
(defun xyp-SsdelLayer (sss la / ss i s1)
(if (= (type sss) 'PICKSET)
    (progn
      (cond ((= (type la) 'STR)
             (setq ss (ssadd)
                   i-1
             )
             (while (setq s1 (ssname sss (setq i (1+ i))))
               (if (/= (strcase (cdr (assoc 8 (entget s1)))) (strcase la))
               (setq ss (ssadd s1 ss))
               )
             )
            )
            ((= (type la) 'LIST)
             (foreach x      la
               (setq ss         (xyp-SsdelLayer sss x)
                     sss ss
               )
             )
            )
      )
      ss
    )
)
)

查看完整版本: 【e派】工具箱函数再揭秘及应用实例