【源码分享】文字末尾的数字递增复制

longer1000 · 发表于 2012-5-23 08:45:42

增加上去确实好用

longer1000 · 发表于 2012-5-23 09:00:22

能修改成连续递增复制就好了

longer1000 · 发表于 2012-5-23 09:07:59

再试用了下，发现对末尾有数值的文字有效，如果选择了不带数值的，则显示错误: 参数类型错误: (or stringp symbolp): nil

443971181 · 发表于 2012-5-23 09:16:27

加载到CAD怎么不能用呀？求教！

来武影 · 发表于 2012-5-23 15:31:31

本帖最后由来武影于 2012-5-23 15:33 编辑

443971181 发表于 2012-5-23 09:16
加载到CAD怎么不能用呀？求教！

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

这个要添加，或者加载的

443971181 · 发表于 2012-5-24 11:59:11

来武影发表于 2012-5-23 15:31
这个要添加，或者加载的

我Q443971181,希望能指教

L_Fei · 发表于 2012-5-24 15:37:34

好用的，谢谢补全

s678z · 发表于 2012-5-28 09:25:03

wowan1314 发表于 2012-4-8 11:52
谢谢补齐！自己没注意到。拿我用的类似的程序改得，没注意到还有其他函数。

帮我改个程序吧，自动编序号，把下面的程序改为可手动输入数字，也可数字递增输入
(defun c:n (/ p1 p2 p3 txt)
  (if (= scalefactor nil) (setq scalefactor (getreal "\nPlease input scalefactor:")))(setvar "osmode" 0)
  (setq p1 (getpoint "\nInput P1: "))
  (setvar "osmode" 512)
  (setq p2 (getpoint p1 "\nInput P2: "))
  (setvar "osmode" 0)
  (setq p3 (getpoint p2 "\nInput P3: "))
  (setq txt (getstring "\nNumber: "))
  (setq angle1 (angle p2 p3))
   (COND ((< (/ pi 2) angle1 (* (/ 3.0 2) pi)) (command "pline" p1 p2 (polar p2 pi (* 7 scalefactor)) "")
                                             (command "text" "j" "bc" (polar p2 2.737 (/ (* 7 scalefactor) 2)) (* 5 scalefactor) 0 txt ""))
   ((or (< (* (/ 3.0 2) pi) angle1 (* pi 2)) (< 0 angle1 (/ pi 2)) (EQUAL angle1 0))
                                             (command "pline" p1 p2 (polar p2 0 (* 7 scalefactor)) "")
                                             (command "text" "j" "bc" (polar p2 0.4(/ (* 7 scalefactor) 2)) (* 5 scalefactor) 0 txt ""))
)
  (command "change" "l" "" "p" "la" "文字标注层" "")
  (princ)
  (setvar "osmode" 167)
)

云中孤鹰 · 发表于 2012-5-28 10:48:11

好东东只能远看，却下不了

云中孤鹰 · 发表于 2012-5-28 11:09:47

终于可用了，多谢！送人玫瑰，手有余香

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

[源码] 【源码分享】文字末尾的数字递增复制