增加上去确实好用
能修改成连续递增复制就好了
再试用了下，发现对末尾有数值的文字有效，如果选择了不带数值的，则显示 错误: 参数类型错误: (or stringp symbolp): nil
加载到CAD怎么不能用呀？求教！
本帖最后由 来武影 于 2012-5-23 15:33 编辑
443971181 发表于 2012-5-23 09:16 static/image/common/back.gif
加载到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
)
)
这个要添加，或者加载的
来武影 发表于 2012-5-23 15:31 static/image/common/back.gif
这个要添加，或者加载的
我Q443971181,希望能指教
好用的，谢谢补全
wowan1314 发表于 2012-4-8 11:52 static/image/common/back.gif
谢谢补齐！ 自己没注意到。拿我用的类似的程序改得，没注意到还有其他函数。
帮我改个程序吧，自动编序号，把下面的程序改为可手动输入数字，也可数字递增输入
(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)
)
好东东只能远看，却下不了
终于可用了，多谢！送人玫瑰，手有余香