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

npu349 发表于 2013-11-10 12:19:32

代码精简实用。。

xyp1964 发表于 2013-11-15 08:45:03

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


;; 混合文本增减复制
(defun c:test1417 ()
(xyp-CMDLA0)
(setq int (Uint 1 "" "步距" int))
(if (and (setq s1 (car (entsel "\n选择: ")))
         (xyp-etype s1 "text")
      )
    (progn
      (setq pt      (xyp-9pt s1 5)
            lst      (xyp-Get-HzEngNum (xyp-DXF 1 s1) 0)
      )
      (while (setq p1 (getpoint pt "\n基点<退出>: "))
      (setq lst (mapcar '(lambda (x)
                           (cond ((setq a (distof x))
                                    (xyp-2str (+ a int))
                                 )
                                 ((setq b (xyp-Get-HzEngNum x 2))
                                    (setq b (vl-string->list (car b))
                                          b (mapcar '(lambda (x) (+ x int)) b)
                                          b (vl-list->string b)
                                    )
                                 )
                                 (t x)
                           )
                           )
                        lst
                  )
            s2(xyp-copymove s1 pt p1)
            s2(xyp-SubUpd s2 1 (xyp-strcat lst ""))
      )
      )
    )
)
(xyp-CMDLA1)
)

twsyzx 发表于 2013-11-15 21:11:36

搬着板凳坐下慢慢学习

1993063 发表于 2013-11-29 03:10:45

llsheng_73 发表于 2013-10-31 19:28 static/image/common/back.gif
真心谢谢院长大人，根据它写了一个SCOPY出来，并且把COPY的结果放到了一个新的选择集

有问题,电脑差点当机了

无忧小格子 发表于 2013-12-22 23:23:01

都是工具箱里面的宝贝啊

杜阳 发表于 2014-1-14 17:23:29

院长是个高手   初学者的好老师啊祝福了

328302216 发表于 2014-3-5 14:54:38

院长新的一年了 是否再继续放点新的通用函数出来
继续顶

用户3766035971 发表于 2014-4-27 10:10:10

支持院长

feng83 发表于 2014-5-6 21:23:58

虽然不明白，努力学习中。。。，楼主辛苦,支持原创

qiqiang2015 发表于 2014-5-6 22:02:11

牛牪犇 厉害厉害~

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