autolisp求教

394189642

这个程序目的修改圆的半径，请教高手，看问题出在哪，CAD提示字符串有缺陷
* Z+ k- `" l3 j5 D/ ~* ^

1. (defun c:chcr()
   # q3 W: Z  E6 u6 U& r+ y7 V) c
2.            (setvar"cmdecho"0)
   . s) y! K+ G1 H6 o6 M) Y
3.            (setq en (entsel"选取已知圆:"))
   
4.             (setq en-data(entget(car en)))
   9 f" j2 w0 I6 f5 t5 O' N
5.             (setq olden-data-list(assoc 40 en-data))
   
6.             (setq oldr(car data-list))
   
7.             (princ"\n oldradiul:“)(princ oldr)
   
8.             (setq cenpt(car(assoc 10 en-data)))
   $ `- `9 O- ^% R' G1 c
9.             (setq newr(getdist cenpt "New Radius:"))
   ) H8 v* S: G/ z4 C! v
10.             (setq newen-data-list(cons 40 newr))
    5 ?8 B: J) K; Z, w9 ^
11.             (setq en-data(subst newen-data-list olden-data-list en-data))
    
12.             (entmod en-data)
    
13. )
    
14. (prin1)
    
15. (prompt"***************<<c:chcr>>***************")
    / Z9 }  f# l- }) e. t* C
16. (prin1)

复制代码

Camello

找到一篇：http://www.autocad.com.tw/lisp_7.htm



请撰写一个CHGRAD.LSP,用来修改圆半径，此程式的执行过程要求如下:
* 指令: CHGRAD
# L& L4 k( v& S6 h5 J! ^5 v9 @* 选取已知圆:碰选画面上已存在的圆
* 自动显示该旧圆半径值於指令区
* 新半径:要求输入一半径值 new_rr
$ U) @! I$ E9 {1 G5 ^
程式内容解答:
! x4 [2 v" u. S  j6 i2 n
9 ?7 r) h1 s) \( o1 a. e0 ~

1. (defun c:chgrad()
   
2. (setvar "cmdecho" 0;指令执行过程不回应
   ) q: d, _/ z! o8 |0 d: i
3. ;;;;以下为 INPUT 图元选取
   5 C+ a. s, h5 K0 ?1 Z3 d3 j2 ^$ S
4. (setq en (entsel "选取已知圆:")) ;要求碰选一个圆
   
5. ;;;;以下为图元资料&半径资料取得
   8 j; V7 K% }! _- k
6. (setq en_data (entget (car en))) ;取得元体资料串列
   
7. (setq old_rad_list (assoc 40 en_data));取得半径子串列
   
8. (setq old_rr (cdr rad_list))           ;取得旧有半径
   
9. (princ “\n旧半径=”)(princ old_rr) ;显示该旧圆半径值於指令区
   + |& M6 I* R3 {
10. ;;;;以下为新半径输入&图元资料新旧半径更替
    7 j! G- _- M+ z% `, L0 d! W
11. (setq cenpt (cdr (assoc 10 en_data))) ;一口气取得圆之圆心
    4 K: b6 _1 I2 k: K3 O4 H
12. (setq new_rr (getdist cenpt "New Radius:"));要求输入一半径值
    
13. (setq new_rad_list (cons 40 new_rr)) ;产生新半径子串列
    0 O- g* d% H5 D; x: r8 b* @
14. (setq en_data (subst new_rad_list old_rad_list en_data)) ;新旧交替
    
15. (entmod en_data) ;依新图元资料自动更新圆半径
    & Y) Z& p: S9 J% ?& R
16. (prin1)
    
17. )
    + a, M# k5 D8 P- D
18. (prompt "*************** << C:CHGRAD >> *****************")
    
19. (prin1)

复制代码

程式执行：(请先在画面上任意的画一些圆)
指令: (load"chgrad")
: {' Q: H7 o) b( T' `: a回应: *************** << C:CHGRAD >> *****************
5 ~& m5 ^! E9 w7 c) J+ f指令: CHGRAD
选取已知圆: (碰选画面上已有的圆)
/ {5 V( G$ ~2 e/ z5 T, u新半径:20         ( 输入一半径值)

394189642

看看我那有什么问题

0426

二楼的范例一不就和你的一样吗？你都懒得自己比较一下吗？

粗略看了一下，

1. (setvar "cmdecho" 0

复制代码

这里你多了个“)”吧

394189642

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

0426

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

& i7 {( W  \7 e! @3 s) B- @
. ^" {7 s4 P5 F& M; _7 U" e+ }不同的主要有下面几句：
' `0 L! N, e- B* O* C; O

1. (setvar"cmdecho"0)
   . p4 H; l9 }9 o1 K1 @
2. 
   0 @* b$ P% `: x& X6 m/ Y0 y
3. (princ"\n oldradiul:“)(princ oldr)
   . _; R" B. K0 M6 G. a+ ~
4. 
   
5. (setq newr(getdist cenpt "New Radius:"))
   6 T2 v+ F* O6 v/ G8 ?/ X8 t' z- P
6. 
   
7. )
   5 H, C$ h' N9 A/ ~- [" b
8. (prin1)

复制代码

1. (setvar "cmdecho" 0;指令执行过程不回应
   4 F! T9 _5 P" k/ q7 h. r# M7 L! m2 O
2. (princ “\n旧半径=”)(princ old_rr) ;显示该旧圆半径值於指令区
   
3. ;;;;以下为新半径输入&图元资料新旧半径更替
   % c, u$ t( T  a' N' A
4. (setq new_rr (getdist cenpt "New Radius:"));要求输入一半径值
   
5. 
   , {$ t- h- q3 O. l$ {8 y# L- P
6. (prin1)
   / v' x4 ]. P5 L/ p$ w# k+ d. {5 ~
7. )

复制代码

* o" E+ C' Y5 f9 D5 D
+ v5 {  y. l% Z; j+ j, D! F你自己

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

复制代码

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

Camello

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

0426

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