[求助]：AutoLISP

wjm3

各位朋友,您们好!
        我自学AutoLISP刚满一个月,因没有帮助,闭门造车,学得不好.好不容易找到这个大家庭,请各位多多指教.
        我现在有几个问题,恳请协助解决:
   1.如何抓取lwpolyline对象每个节点的高程值?
   2.如何抓取lwpolyline及polyline对象自相交的交点?(线打结时的交点)
   3.能否指点编写将lwpolyline光滑的程序?
   4.如何编写将多个完全重叠的对象变为一个的程序?

         以上,烦请各位帮忙,谢谢!
         
          wjm3@zx.xmgd.com

eachy

1 你应该仔细看看DXF帮助，Lwpolyline节点中没有高程值，在38组码
2 这个要用ActiveX方法，前面有现成的代码
3 使用Pedit命令的S或者F选项
4 这个问题就不要研究了，用现成的工具（XD工具箱、ET、天正、理正。。。）

wjm3

斑竹,您好!
我找了很久都没找以上第2和第4的程序,不过就算找到也没用,我现在还无权下载.我急需那两个程序,不知您能否用邮件发给我或教我编写的方法?急!!!
另外,请问如何消零,例如:实数3.500000-->3.5    字符串3.500-->3.5
        谢谢!!!

e-mail:wjm3@zx.xmgd.com

urljit

斑竹可能太忙，实数3.500000-->3.5 字符串3.500-->3.5是否可以通过设置转换后的位来设定呢？

Qlin

引自AutoCAD帮助文件：

1. 
   
2. 将数字转换成字符串
   
3. (rtos number [mode [precision]])
   
4. 
   
5. 根据 mode、precision 参数和系统变量 UNITMODE、DIMZIN、LUNITS 和 LUPREC 的设置，rtos 函数返回代表 number 的字符串。
   
6. 
   
7. 参数
   
8. 
   
9. number
   
10. 
    
11. 数值。
    
12. 
    
13. mode
    
14. 
    
15. 整数，指定现行单位模式。mode 的取值对应于 AutoCAD 系统变量 lunits 的允许值，如下所示：
    
16. 1  科学
    
17. 2  小数
    
18. 3  工程（英尺和十进制英寸）
    
19. 4  建筑（英尺和分数英寸）
    
20. 5  分数
    
21. 
    
22. precision
    
23. 
    
24. 整数，指定精度。
    
25. 
    
26. mode 和 precision 参数对应于系统变量 LUNITS 和 LUPREC。如果省略这两个参数，rtos 函数使用 LUNITS 和 LUPREC 的当前值
    

复制代码

1. 
   
2. 将一个字符串转换成实数
   
3. (atof string)
   
4. 
   
5. 参数
   
6. 
   
7. string
   
8. 
   
9. 要转化为实数的字符串。
   
10. 
    
11. 返回值
    
12. 
    
13. 实数。
    
14. 
    
15. 样例
    
16. 
    
17. 命令：(atof "97.1")
    
18. 97.1
    
19. 命令：(atof "3")
    
20. 3.0
    
21. 命令：(atof "3.9")
    
22. 3.9
    

复制代码

XDSoft

最初由 wjm3 发布
[B]斑竹,您好!
我找了很久都没找以上第2和第4的程序,不过就算找到也没用,我现在还无权下载.我急需那两个程序,不知您能否用邮件发给我或教我编写的方法?急!!!
另外,请问如何消零,例如:实数3.500000-->3.5    字符串3.5... [/B]

在LISP论坛，代码都是贴出来的，和谈下载一说。

欢迎你有问题的时候，和大家探讨。