autolisp求教

394189642

这个程序目的修改圆的半径，请教高手，看问题出在哪，CAD提示字符串有缺陷
7 ~, T# ^) l  \! z! {* O# n; X

1. (defun c:chcr()
   $ f' p3 C: n, i  b( Y
2.            (setvar"cmdecho"0)
   2 O% P3 a3 z3 l3 {
3.            (setq en (entsel"选取已知圆:"))
   1 Y) m/ A% ^5 e$ x
4.             (setq en-data(entget(car en)))
   : T8 W% B4 n. ]& l& {
5.             (setq olden-data-list(assoc 40 en-data))
   ( W* b1 C/ }. V3 P
6.             (setq oldr(car data-list))
   3 x% f  Y" f; d( Z0 G4 C" U
7.             (princ"\n oldradiul:“)(princ oldr)
   
8.             (setq cenpt(car(assoc 10 en-data)))
   9 u. u9 S' s* \6 O4 r! W
9.             (setq newr(getdist cenpt "New Radius:"))
   9 R+ x3 Y' r/ P% O
10.             (setq newen-data-list(cons 40 newr))
    
11.             (setq en-data(subst newen-data-list olden-data-list en-data))
    
12.             (entmod en-data)
    
13. )
    5 X$ Q$ X1 r& c$ j4 o5 c& L
14. (prin1)
    
15. (prompt"***************<<c:chcr>>***************")
    ! i$ L) k- N' T% E9 U8 [5 }
16. (prin1)

复制代码

Camello

找到一篇：http://www.autocad.com.tw/lisp_7.htm
9 Q- b+ O( R/ J; ~5 O
# E7 c! L  T' p+ r7 ~
4 q3 U7 S9 h+ Q2 m0 a
: a" M, u3 ?  [7 l请撰写一个CHGRAD.LSP,用来修改圆半径，此程式的执行过程要求如下:
8 |, g4 l$ F7 E8 i' _+ P* 指令: CHGRAD
* 选取已知圆:碰选画面上已存在的圆
* 自动显示该旧圆半径值於指令区
* 新半径:要求输入一半径值 new_rr

程式内容解答:
! x. a7 e5 D9 _2 {5 A- W
, }. G/ d. b5 U. _9 ^* S

1. (defun c:chgrad()
   
2. (setvar "cmdecho" 0;指令执行过程不回应
   
3. ;;;;以下为 INPUT 图元选取
   
4. (setq en (entsel "选取已知圆:")) ;要求碰选一个圆
   
5. ;;;;以下为图元资料&半径资料取得
   
6. (setq en_data (entget (car en))) ;取得元体资料串列
   6 y! g- {, U% Z& b1 P
7. (setq old_rad_list (assoc 40 en_data));取得半径子串列
   
8. (setq old_rr (cdr rad_list))           ;取得旧有半径
   * P1 W" u0 ~  _: `/ D8 C) Q4 B
9. (princ “\n旧半径=”)(princ old_rr) ;显示该旧圆半径值於指令区
   ' ^, b1 |5 U7 o9 S6 ~3 N- M- |0 p
10. ;;;;以下为新半径输入&图元资料新旧半径更替
    
11. (setq cenpt (cdr (assoc 10 en_data))) ;一口气取得圆之圆心
    0 S6 n7 @2 g* V5 g5 p
12. (setq new_rr (getdist cenpt "New Radius:"));要求输入一半径值
    8 v) C8 C% q+ W6 t
13. (setq new_rad_list (cons 40 new_rr)) ;产生新半径子串列
    
14. (setq en_data (subst new_rad_list old_rad_list en_data)) ;新旧交替
    
15. (entmod en_data) ;依新图元资料自动更新圆半径
    - v& A0 q- c) }+ X8 o
16. (prin1)
    2 D' Z# U5 Z' D1 `$ @. C4 b- I
17. )
    
18. (prompt "*************** << C:CHGRAD >> *****************")
    ) Q1 P: F: w7 H+ d0 K
19. (prin1)

复制代码

程式执行：(请先在画面上任意的画一些圆)
' H% P9 C# _! ^# p( X! d5 R指令: (load"chgrad")
回应: *************** << C:CHGRAD >> *****************
指令: CHGRAD
: E. w. y- k6 h2 V- @% R- M选取已知圆: (碰选画面上已有的圆)
) X8 f- O0 o% W) `( k( z新半径:20         ( 输入一半径值)

394189642

看看我那有什么问题

0426

二楼的范例一不就和你的一样吗？你都懒得自己比较一下吗？
4 J/ P  D8 Y2 B. u% ~+ |) l  \
粗略看了一下，

1. (setvar "cmdecho" 0

复制代码

这里你多了个“)”吧

394189642

我就是比较了找不到问题才求教的嘛

0426

原帖由 394189642 于 2010-1-13 11:54 发表
我就是比较了找不到问题才求教的嘛

* w" p3 F& a# U$ y
0 b. C4 \( P2 ~9 Y不同的主要有下面几句：
2 Q2 T9 P% ]3 g% O# k/ j; B, x! I: f
1 t4 F1 M, M5 P8 g! H) q2 t5 Y. e+ i

1. (setvar"cmdecho"0)
   % p& V8 q9 Y# N; K# j* Y
2. 
     [* \5 l- L: C; v
3. (princ"\n oldradiul:“)(princ oldr)
   
4. 
   
5. (setq newr(getdist cenpt "New Radius:"))
   
6. 
   $ E, V, p% i0 v- y; i7 V& A' l
7. )
   ' a* u( i' g' O' l' Q- @7 A5 y
8. (prin1)

复制代码

+ U, h+ D9 R3 j1 G% p& a! Z! h+ F

1. (setvar "cmdecho" 0;指令执行过程不回应
   
2. (princ “\n旧半径=”)(princ old_rr) ;显示该旧圆半径值於指令区
   
3. ;;;;以下为新半径输入&图元资料新旧半径更替
   
4. (setq new_rr (getdist cenpt "New Radius:"));要求输入一半径值
   0 E3 s% M. w) o7 m4 v' y
5. 
   6 V& f9 h0 P; `
6. (prin1)
   * b2 G* O( k! n5 n5 `" {7 o) s
7. )

复制代码

你自己

1. (princ"\n oldradiul:“)(princ oldr)

复制代码

的引号竟然是一个中文的，一个英文的。

Camello

check 变量名称及字串引号["]

0426

我其实对这个不太懂，不过为了方便阅读代码，你的语句中怎么也要加该有的空格吧。