【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)
)

;; 混合文本增减复制 
(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
真心谢谢院长大人，根据它写了一个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派】工具箱函数再揭秘及应用实例

本帖子中包含更多资源