lrd1861 发表于 2019-12-28 11:48:09

兄弟插件呢？？？

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





kkdolphin 发表于 2019-12-28 18:40:45

楼上厉害

dmxy 发表于 2019-12-29 00:01:20

x_s_s_1 发表于 2019-12-28 12:22
插件在这:l

测试提示 输入的字符串有缺陷

x_s_s_1 发表于 2019-12-29 08:57:52

网站的问题，代码含有特殊符号，被吃掉了，换浏览器或者自己找出哪里缺少了，补上

1211277255 发表于 2019-12-29 13:55:49


兄弟插件呢？？？

yoyoho 发表于 2019-12-29 14:52:40

x_s_s_1 发表于 2019-12-28 12:22
插件在这:l

谢谢! x_s_s_1 分享程序 AUTOCAD 2012 测试 O.K.

baoxiaozhong 发表于 2019-12-29 15:19:02

ssdsfg 发表于 2019-12-28 10:59
有点小问题，正在调试...谢谢大家关注！

是已經調試好了才收幣嗎?

收幣的內容是原碼還是?

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

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

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

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

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

本帖最后由 ssdsfg 于 2019-12-29 17:35 编辑

x_s_s_1 发表于 2019-12-28 12:22
插件在这:l
有相同之处，但也有不同。大家各取所需
页: 1 [2]
查看完整版本: CAD开发：重新自动排列所选文字-ret