输入A1，A2, A3.(自加1输入)..可以自己指定起始数值，如A7,A8,A9...

zhb236623

1. (defun c:aa(/ n1 wz insertp)
   
2. ;;判断哪个图层是否存在
   
3. (princ"函数功能：输入A1，A2, A3...    ")
   
4. (if (= (tblobjname "layer" "JMD") nil)
   
5. (progn
   
6.   (princ "图层JMD不存在，新建图层JMD完成，导入数据将存放在JMD层")
   
7.   (command ".layer" "n" "JMD" "s" "JMD" "")
   
8. )
   
9. (progn
   
10. (command "layer" "s" "JMD" "")
    
11.   (princ "JMD图层已存在，导入数据将存放在JMD层，完成导入")
    
12. )
    
13. );end if
    
14. 
    
15. (if (not (setq n1 (getint "\n请输入起始顺序号 <1>: ")))
    
16.     (setq n1 1)
    
17. )
    
18. (setq wz (strcat "A" (itoa n1)))
    
19. (setq insertp (getpoint "\n请指定插入点: "))
    
20.   (while (/= insertp nil)
    
21.     (command "text" insertp "0.6" "0" wz)
    
22.     (setq
    
23.       n1   (+ n1 1)
    
24.       wz (strcat "A" (itoa n1))
    
25.       insertp   (getpoint "\n请指定下一插入点: ")
    
26.     )
    
27.   )
    
28. );end defun

复制代码

zhb236623

这个论坛怎么人气有点差啊。。。。。。。。。。。。

heart

zhb236623 发表于 2011-7-20 23:33
这个论坛怎么人气有点差啊。。。。。。。。。。。。

我道没觉得

fanqinwei

这个功能很是有价值，谢谢楼主了。

折翼天使

谢谢楼主。。。。。。

折翼天使

谢谢楼主。。。。。。

折翼天使

谢谢楼主。。。。。。

纳兰龙珠

zhb236623 发表于 2011-7-20 23:33
这个论坛怎么人气有点差啊。。。。。。。。。。。。

不差，只是看得多冒泡的少

你QQ多少有时间向你多学习

zhewin

这个很有用

wangfuxing

有用，感谢分享