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

longer1000

增加上去确实好用

longer1000

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

longer1000

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

443971181

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

来武影

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

2. (defun ureal (bit kwd msg def / inp)
   
3.   (if def
   
4.     (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
   
5.           bit (* 2 (fix (/ bit 2)))
   
6.     )
   
7.     (setq msg (strcat "\n" msg ": "))
   
8.   )
   
9.   (initget bit kwd)
   
10.   (setq inp (getreal msg))
    
11.   (if inp
    
12.     inp
    
13.     def
    
14.   )
    
15. )

(defun ureal (bit kwd msg def / inp)<br />   (if def<br />     (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")<br />           bit (* 2 (fix (/ bit 2)))<br />     )<br />     (setq msg (strcat "\n" msg ": "))<br />   )<br />   (initget bit kwd)<br />   (setq inp (getreal msg))<br />   (if inp<br />     inp<br />     def<br />   )<br /> )

这个要添加，或者加载的

443971181

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

我Q443971181,希望能指教

L_Fei

好用的，谢谢补全

s678z

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

云中孤鹰

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

云中孤鹰

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