[编程申请]：有两个小问题,向各位大侠请教.

madbull

1、

2. (defun c:da (/ pt1 pt2 d)
   
3.   (graphscr)
   
4.   (setvar "CMDECHO" 0)
   
5.   (setq pt1 (getpoint "Pick the First Point "))(terpri)
   
6.   (setq pt2 (getpoint "Next Point " pt1))(terpri)
   
7.   (setq d (distance pt1 pt2))
   
8.   (prompt "Running Distance: ")(prompt (rtos d 4 4))      
   
9.     (while
   
10.     (setq pt1 (getpoint "  Next Point: " pt2)) (terpri)
    
11.     (setq d (+ (distance pt1 pt2) d))
    
12.     (prompt "Running Distance: ")(prompt (rtos d 4 4))
    
13.     (setq pt2 pt1)
    
14.   )
    
15.   (prompt "Total Distance: ")(prompt (rtos d 4 4))
    
16.   (princ)
    
17. )

(defun c:da (/ pt1 pt2 d)<br />   (graphscr)<br />   (setvar "CMDECHO" 0)<br />   (setq pt1 (getpoint "Pick the First Point "))(terpri)<br />   (setq pt2 (getpoint "Next Point " pt1))(terpri)<br />   (setq d (distance pt1 pt2))<br />   (prompt "Running Distance: ")(prompt (rtos d 4 4))      <br />     (while<br />     (setq pt1 (getpoint "  Next Point: " pt2)) (terpri)<br />     (setq d (+ (distance pt1 pt2) d))<br />     (prompt "Running Distance: ")(prompt (rtos d 4 4))<br />     (setq pt2 pt1)<br />   )<br />   (prompt "Total Distance: ")(prompt (rtos d 4 4))<br />   (princ)<br /> )

这是我从别处得到的一个程序，用来测量距离。但我发现显示出来的单位竟然是英制，能告诉我是哪里出的问题,该怎么改?
2、

2. (defun C:AAR ( / ss ang bp cnt dist d)
   
3.   (cond
   
4.     (  (setq ss (ssget))
   
5.        (initget 1)
   
6.        (setq bp (getpoint "\nBase point: "))
   
7.        (initget 1)
   
8.        (setq ang
   
9.            (getangle bp "\nArray direction: "))
   
10.          (initget 7)
    
11.          (setq dist
    
12.            (getdist "\nDistance between objects: "))
    
13.          (initget 7)
    
14.          (setq cnt (getint "\nNumber of objects: "))
    
15.          (setq d 0.0)
    
16.          (setvar "cmdecho" 0)
    
17.          (command "_.undo" "_g"
    
18.                   "_.copy" ss "" "_m" bp)
    
19.          (repeat (1- cnt)
    
20.            (command
    
21.                (polar bp ang (setq d (+ d dist)))))
    
22.                (command "" "_.undo" "_e")
    
23.         )
    
24.       )
    
25.       (princ)
    
26. )

(defun C:AAR ( / ss ang bp cnt dist d)<br />   (cond<br />     (  (setq ss (ssget))<br />        (initget 1)<br />        (setq bp (getpoint "\nBase point: "))<br />        (initget 1)<br />        (setq ang<br />            (getangle bp "\nArray direction: "))<br />          (initget 7)<br />          (setq dist<br />            (getdist "\nDistance between objects: "))<br />          (initget 7)<br />          (setq cnt (getint "\nNumber of objects: "))<br />          (setq d 0.0)<br />          (setvar "cmdecho" 0)<br />          (command "_.undo" "_g"<br />                   "_.copy" ss "" "_m" bp)<br />          (repeat (1- cnt)<br />            (command<br />                (polar bp ang (setq d (+ d dist)))))<br />                (command "" "_.undo" "_e")<br />         )<br />       )<br />       (princ)<br /> )

这是我得到的另一个程序，阵列用的。我原想仿照他来编一个命令，达到如下目的：等分一条线（可以是圆、弧线或者折线等）并同时在等分点上阵列一个物体。这个想法能实现么？怎样做？
我还只是一个初学者，问的问题可能很幼稚。还请各位大侠不要见笑。

XDSoft

最初由 madbull 发布
[B]1、(defun c:da (/ pt1 pt2 d)
  (graphscr)
  (setvar "CMDECHO" 0)
  (setq pt1 (getpoint "Pick the First Point "))(terpri)
  (setq pt2 (getpoint "Next Point " pt1))(terpri)
  (setq d (distance pt1 ... [/B]

把上面的 (rtos d 4 4) 改成 (rtos d 2 4)

1. <normalfont>
   
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。如果省略这两个参数，
    
27. rtos 函数使用 LUNITS 和 LUPREC 的当前值。
    
28. 
    
29. 返回值
    
30. 
    
31. 字符串。当选择了工程记数格式、建筑记数格式或分数单位格式时（即 mode 值为 3、4
    
32. 或 5），UNITMODE 系统变量对返回的字符串有影响。
    
33. </normalfont>
    

复制代码

lsjjm

复第二问: 规则的直线, 圆或圆弧可以直接用array.  
如果是不规则的曲线或折线, 只能找出这些等分点后copy了.

lijiao

1. 
   
2.   [FONT=courier new]
   
3. 将点对象或块按指定的间距放置在对象上
   
4. 
   
5. “绘图”菜单：  点 定距等分
   
6. 
   
7. 命令行：  measure
   
8. 
   
9. 选择要定距等分的对象:
   
10. 
    
11. 指定线段长度或 [块]:指定距离或输入 b
    
12. 
    
13. MEASURE 绘制的点或块被放置在“上一个”选择集中，因此可以在下一个“选择对象”提示下输入 p 选择所有这些点或块。可以在“节点”对象捕捉模式下通过捕捉点对象来绘制对象。然后可以通过输入 erase previous 删除这些点。
    
14. 
    
15. AutoCAD 将标记放置在正测量的对象所处的用户坐标系 (UCS) 中（当前用户坐标系中的三维多段线除外）。标记总是被放置在对象上，与标高设置无关。
    
16. 
    
17. 如果使用点对象用于标记，可以使用PDMODE 系统变量修改点的外观，使其更容易查看。
    
18. 
    
19.   [/FONT]
    

复制代码

madbull

明白了，非常感谢。