带数字后缀的文字或纯数字==>递增(减)复制

wowan1314 · 发表于 2013-7-31 15:39:31

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 wowan1314 于 2013-7-31 21:15 编辑

在XD的地盘。不用API做个程序，总是不好意思的。

无奈对API实在不了解，且限于本人水平。所以只做了个半成品。且不知道哪里不对。

先发上来。不管如何，聊表心意。

;;纯数字或带数字后缀的文字==>递增(减)复制 BY wowan1314
;;运行环境 XD_API
(defun c:t1 (/ ss1 pj mat ss a m e nums ww t2)
(defun t2 (s / a lop a1 txt len a2)
(setq a '(49 50 51 52 53 54 55 56 57 48 43 45 46)
lop t
a1 0
txt (reverse(vl-string->list s))
)
(while lop
(if (member (car txt) a)
(progn
(if (= (car txt) 46) (setq a2 a1))
(setq a1 (1+ a1) txt (cdr txt))
)
(setq lop nil)
)
)
(if (/= a1 0)
(progn
(setq len (- (strlen s) a1))
(list (substr s 1 len) (substr s (1+ len)) a2)
)
)
)
(if (null $buchang) (setq $buchang 1))
(setq $buchang (ureal 1 "" "\n增减值(正为增,负为减)" $buchang) m $buchang)
(xdrx_pickset_redraw ss1)
(if (and
(setq ss1 (xdrx_ssget "\n选取要拷贝的实体<退出>:"))
(setq pj (getpoint "\n拾取基点<退出>:"))
(setq mat '(wowan1314))
)
(while (= (type mat) 'list)
(setq SS (xdrx_entity_transformedcopy ss1 (xdrx_matrix_identity 3)))
(setq a -1)
(while (setq e (ssname ss (setq a(1+ a))))
(setq e (entget e))
(if (and (= "TEXT" (cdr(assoc 0 e)))(setq nums (t2 (cdr(assoc 1 e)))))
(entmod(subst (cons 1 (strcat (car nums)
(vl-princ-to-string
(if (setq ww (caddr nums))
(rtos (+ m (atof (cadr nums)))2 ww)
(rtos (+ m (atof (cadr nums)))2 0)
)
)
)
)
(assoc 1 e)e))
)
)
(xdrx_drag_initget " ")
(setq mat (xdrx_pickset_draggen "\n指定基点<退出>:" ss pj 2 T) m (+ $buchang m))
(if (= (type mat) 'list)
(xdrx_entity_transform ss mat)
(command ".erase" ss "")
)
)
)
(xdrx_pickset_redraw ss1 T)
(princ)
)
(defun ureal (bit kwd msg def / inp)
(if def
(setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
bit (* 2 (fix (/ bit 2)))
)
(setq msg (strcat "\n" msg ": "))
)
(initget bit kwd)
(setq inp (getreal msg))
(if inp
inp
def
)
)

;;纯数字或带数字后缀的文字==>递增(减)复制  BY wowan1314 
;;运行环境 XD_API 
(defun c:t1 (/ ss1 pj mat ss a m e nums ww t2) 
    (defun t2 (s / a lop a1 txt len a2) 
        (setq a '(49 50 51 52 53 54 55 56 57 48 43 45 46) 
            lop t 
            a1 0 
            txt (reverse(vl-string->list s)) 
        ) 
        (while lop 
            (if (member (car txt) a) 
                (progn 
                    (if (= (car txt) 46) (setq a2 a1)) 
                    (setq a1 (1+ a1) txt (cdr txt)) 
                ) 
                (setq lop nil) 
            ) 
        ) 
        (if (/= a1 0) 
            (progn 
                (setq len (- (strlen s) a1)) 
                (list (substr s 1 len) (substr s (1+ len)) a2) 
            ) 
        ) 
    ) 
    (if (null $buchang) (setq $buchang 1)) 
    (setq $buchang (ureal 1 "" "\n增减值(正为增,负为减)" $buchang) m $buchang) 
    (xdrx_pickset_redraw ss1) 
    (if (and 
            (setq ss1 (xdrx_ssget "\n选取要拷贝的实体<退出>:")) 
            (setq pj (getpoint "\n拾取基点<退出>:")) 
            (setq mat '(wowan1314)) 
        ) 
        (while (= (type mat) 'list) 
            (setq SS (xdrx_entity_transformedcopy ss1 (xdrx_matrix_identity 3))) 
            (setq a -1) 
            (while (setq e (ssname ss (setq a(1+ a)))) 
                (setq e (entget e)) 
                (if (and (= "TEXT" (cdr(assoc 0 e)))(setq nums (t2 (cdr(assoc 1 e))))) 
                    (entmod(subst (cons 1 (strcat (car nums) 
                                    (vl-princ-to-string 
                                        (if (setq ww (caddr nums)) 
                                            (rtos (+ m (atof (cadr nums)))2 ww) 
                                            (rtos (+ m (atof (cadr nums)))2 0) 
                                        ) 
                                    ) 
                                ) 
                            ) 
                            (assoc 1 e)e)) 
                ) 
            ) 
            (xdrx_drag_initget " ") 
            (setq mat (xdrx_pickset_draggen "\n指定基点<退出>:" ss pj 2 T) m (+ $buchang m)) 
            (if (= (type mat) 'list) 
                (xdrx_entity_transform ss mat) 
                (command ".erase" ss "") 
            ) 
        ) 
    ) 
    (xdrx_pickset_redraw ss1 T) 
    (princ) 
) 
(defun ureal (bit kwd msg def / inp) 
    (if def 
        (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ") 
            bit (* 2 (fix (/ bit 2))) 
        ) 
        (setq msg (strcat "\n" msg ": ")) 
    ) 
    (initget bit kwd) 
    (setq inp (getreal msg)) 
    (if inp 
        inp 
        def 
    ) 
)

wowan1314 · 发表于 2013-7-31 15:42:11

本帖最后由 wowan1314 于 2013-7-31 21:16 编辑

程序可能还有地方API没用好的。没有亮显选择集。且有时候复制完的选择集夹点不知道哪里去了！

Lispboy · 发表于 2013-7-31 18:59:27

本帖最后由 Lispboy 于 2013-7-31 19:03 编辑

看到哪算哪，先点评下

1、 xdrx_entity_transformedCopy 前后不用 xdrx_setmark xdrx_getss 获得选择集了，函数本身就返回选择集了，现在。
2、你这种只移动的情况，用 xdrx_drag_move 就行了，不必要那个灵活多变的 xdrx_pickset_draggen
3、拷贝完一个后，循环再回来的时候，要用 (xdrx_drag_setmartix t) 清空上次的变换矩阵，否则又和你上次的变换矩阵组合运算了。这个应该是你跑别的地方的原因。
我看下也写个你这个功能的程序，想请教下你的规则，只是变末尾是数字的文字实体吗？

wowan1314 · 发表于 2013-7-31 19:07:49

本帖最后由 wowan1314 于 2013-7-31 21:22 编辑

Lispboy 发表于 2013-7-31 18:59
看到哪算哪，先点评下

1、 xdrx_entity_transformedCopy 前后不用 xdrx_setmark xdrx_getss 获得选择集 ...

1、没注意。  如果函数本身就返回转换后的选择集最好了。

2、move不能移动本体吧？  我要求把本体移走的。另外物体没跑，只是夹点跑别的地方了？

3、这个程序就是对选择集中带数字后缀的字符串进行递增或递减的复制。
我随便写的。所以处理不是很完善。
应该是  纯数字就要求负数也要算。

而数字后缀的往往不需要负数。-号只是连接符.  对于这些文字不仅复制还要递增

而对于选择集其他后缀不是数字  或不是文字的东西一概仅仅是复制处理。

Lispboy · 发表于 2013-7-31 19:19:07

wowan1314 发表于 2013-7-31 19:07
1、没注意。如果函数本身就返回转换后的选择集最好了。

2、move不能移动本体吧？我要求把本体移 ...

2、move不能移动本体吧？我要求把本体移 .

拖动只是个显示过程，返回的结果是变换矩阵，至于你想COPY还是MOVE，分别用不同的变换函数xdrx_entity_transformedCopy 和 xdrx_entity_transform 来决定。

Lispboy · 发表于 2013-7-31 19:21:07

wowan1314 发表于 2013-7-31 19:07
1、没注意。如果函数本身就返回转换后的选择集最好了。

2、move不能移动本体吧？我要求把本体移 ...

那 abc-1 是按1考虑，还是-1考虑，应该是1吧？

wowan1314 · 发表于 2013-7-31 19:21:50

Lispboy 发表于 2013-7-31 19:19
拖动只是个显示过程，返回的结果是变换矩阵，至于你想COPY还是MOVE，分别用不同的变换函数xdrx_ent ...

因为要求显示的是处理后的选择集。所以要求把本体一起移动走了
不然原选择集就重出现重影。

Lispboy · 发表于 2013-7-31 19:36:48

wowan1314 发表于 2013-7-31 19:21
因为要求显示的是处理后的选择集。所以要求把本体一起移动走了
不然原选择集就重出现重影。

你要是开始就拷贝个备份，对备份操作，那么：

(xdrx_pickset_draggen "\n指定基点<退出>:" ss pj 2 t) 最后的t 改NIL试试？

你自己也可以把原来的选择集不可见的，也可以删除，随你了。

Free-Lancer · 发表于 2013-7-31 19:43:22

ureal 可以用 xdrx_entsel 带过滤器的来自: Android客户端

wowan1314 · 发表于 2013-7-31 21:04:50

本帖最后由 wowan1314 于 2013-7-31 21:24 编辑

Lispboy 发表于 2013-7-31 19:36
你要是开始就拷贝个备份，对备份操作，那么：

(xdrx_pickset_draggen "\n指定基点:" ss pj 2 t) 最后 ...

我的程序就是对原选择集进行了备份。然后对备份的选择集进行修改然后再拖动。
改为NIL，就会有重影。还是这样好些。

MENGZE · 发表于 2017-5-16 02:28:49

很实用的东西很好

dyjwyqz5221 · 发表于 2018-1-5 10:14:37

很不错的帖子，好好学习下

renyonghua2014 · 发表于 2018-9-16 10:47:32

楼主的程序要看看，谢谢楼主提供。

lqxe · 发表于 2018-9-16 11:52:35

很不错的帖子

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

[每日一码] 带数字后缀的文字或纯数字==>递增(减)复制

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

点评

点评

点评

点评

点评

点评

点评

浏览过的版块