ssdsfg 发表于 2019-12-27 00:12:18

已有 7 人购买  本主题需向作者支付 1 个明经币 才能浏览 购买主题

x_s_s_1 发表于 2019-12-28 12:22:28

本帖最后由 x_s_s_1 于 2019-12-29 21:01 编辑

插件在这:l:lol
(defun c:test1
       (/ LM:GetXWithDefault getdxf trimstring ss m n i lst str)
(defun LM:GetXWithDefault (_function   _prompt   _symbol
         _default   _initget    _args
         /   _toString
          )
    (setq _toString
   (lambda (x)
       (cond
         ((eq getangle _function) (angtos x))
         ((eq 'REAL (type x)) (rtos x))
         ((eq 'INT (type x)) (itoa x))
         ((vl-princ-to-string x))
       )
   )
    )
    (if_initget
      (apply 'initget _initget)
    )
    (set _symbol
   (
    (lambda (input)
      (if(or (not input) (eq "" input))
      (eval _symbol)
      input
      )
    )
   (apply '_function
      (append _args
      (list
          (strcat _prompt
            "<"
            (_toString
            (set _symbol
             (cond
               ((eval _symbol))
               (_default)
             )
            )
            )
            "> : "
          )
      )
      )
   )
   )
    )
)
(defun getdxf (dxf en) (cdr (assoc dxf (entget en))))
(defun trimstring (str / left right)
    (setq left (vl-string-right-trim "1234567890" str))
    (if(= left "")
      (setq right str)
      (setq right (vl-string-left-trim left str))
    )
    (list left right)
)
(setq ss (ssget '((0 . "text"))))
(repeat (setq i (sslength ss))
    (setq en(ssname ss (setq i (1- i)))
    lst (cons en lst)
    )
)
(setqlst
   (vl-sort
   lst
   '(lambda (t1 t2)
      (< (atoi (cadr (trimstring (getdxf 1 t1))))
   (atoi (cadr (trimstring (getdxf 1 t2))))
      )
      )
   )
)
(setq n (LM:GetXWithDefault getint "\n输入起始值" '**n** 1 nil nil))
(setq m (LM:GetXWithDefault getint "\n输入步长" '**m** 1 nil nil))
(foreach en lst
    (setq ent (entget en)
    str (car (trimstring (cdr (assoc 1 ent))))
    ent (subst (cons 1 (strcat str (itoa n))) (assoc 1 ent) ent)
    n   (+ m n)
    )
    (entmod ent)
    (entupd en)
)
)





ssdsfg 发表于 2019-12-29 16:05:25

本帖最后由 ssdsfg 于 2019-12-29 16:07 编辑

baoxiaozhong 发表于 2019-12-29 15:19
是已經調試好了才收幣嗎?

收幣的內容是原碼還是?
调试好了。不是LISP原码，是编译过的.vlx格式，可以正常使用！

lmt.1122 发表于 2019-12-27 06:24:58

thx for sharing

香远益清 发表于 2019-12-27 08:12:50

插件在哪？没看到

烟盒迷唇 发表于 2019-12-27 08:37:23

给你看过瘾的

664571221 发表于 2019-12-27 08:54:11

兄弟插件呢？？？

panliang9 发表于 2019-12-27 09:21:57

兄弟插件呢？？？

YUYUFENG 发表于 2019-12-27 17:04:58

兄弟插件呢？？？

dmxy 发表于 2019-12-27 23:51:20

貌似日后能用到

664571221 发表于 2019-12-28 10:30:51

插件呢兄弟？？？

ssdsfg 发表于 2019-12-28 10:59:32

本帖最后由 ssdsfg 于 2019-12-29 16:08 编辑

之前有点小问题，在调试...谢谢大家关注！
现在已经调试好了，大家放心获取！
页: [1] 2
查看完整版本: CAD开发：重新自动排列所选文字-ret