issammesk 发表于 2022-7-5 22:27:02

更改编号

嗨，先生
先生，我有很多个人资料，我想要x 100的频道号码
我可以让lsp选择数字和outmaticly x 100吗
示例0.00100我想要0.100

Tharwat 发表于 2022-7-5 22:51:32

试试这个issammesk，让我知道。
 

(defun c:Test (/ sel doc)
;;        Tharwat . Date: 14.Sep.2014        ;;
(if (setq sel (ssget "_:L" '((0 . "TEXT,MTEXT")(1 . "*#*"))))
   (progn
   (vla-startundomark (setq doc (vla-get-activedocument (vlax-get-acad-object))))
   ((lambda (i / sn st e)
      (while (setq sn (ssname sel (setq i (1+ i))))
          (if (numberp (read (setq st (cdr (assoc 1 (setq e (entget sn)))))))
            (entmod (subst (cons 1 (rtos (* (atof st) 100.) 2 3))
                           (assoc 1 e)
                           e
                  )
            ) ) ) ) -1 )
   (vla-endundomark doc)
   )
)
(princ)
)(vl-load-com)

issammesk 发表于 2022-7-5 23:21:18

它的工作非常好

Tharwat 发表于 2022-7-5 23:45:12

非常欢迎你。
页: [1]
查看完整版本: 更改编号