autolisp求教

394189642

这个程序目的修改圆的半径，请教高手，看问题出在哪，CAD提示字符串有缺陷
4 D- V7 u+ t/ z" ]

1. (defun c:chcr()
   
2.            (setvar"cmdecho"0)
   * e  \6 G2 z9 a  [& F
3.            (setq en (entsel"选取已知圆:"))
   
4.             (setq en-data(entget(car en)))
   7 b/ J+ Y% R, l/ _( c( a) T
5.             (setq olden-data-list(assoc 40 en-data))
   
6.             (setq oldr(car data-list))
   
7.             (princ"\n oldradiul:“)(princ oldr)
   & x5 G. c( W+ w" Y$ |' z- H
8.             (setq cenpt(car(assoc 10 en-data)))
   1 v7 F8 n- r- u
9.             (setq newr(getdist cenpt "New Radius:"))
   
10.             (setq newen-data-list(cons 40 newr))
    
11.             (setq en-data(subst newen-data-list olden-data-list en-data))
    7 f% D6 t1 G: Y' X: }
12.             (entmod en-data)
    , @# Q) h3 f# J7 g6 B3 w
13. )
    / A+ k  p" C6 @; K2 }
14. (prin1)
    0 h; G4 Z' _5 M& @/ d/ j
15. (prompt"***************<<c:chcr>>***************")
    / _- A! y% }5 m  m
16. (prin1)

复制代码

Camello

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



! \9 g' [  }; j8 H2 w- e# r请撰写一个CHGRAD.LSP,用来修改圆半径，此程式的执行过程要求如下:
2 ~- c; i2 y  b* 指令: CHGRAD
* 选取已知圆:碰选画面上已存在的圆
/ |3 S2 i" b; n% R* 自动显示该旧圆半径值於指令区
! z  G  e3 x/ L" i! z& y9 o. t+ |* 新半径:要求输入一半径值 new_rr

程式内容解答:

1. (defun c:chgrad()
   
2. (setvar "cmdecho" 0;指令执行过程不回应
   8 u2 G) [/ j2 T  A; Z0 K
3. ;;;;以下为 INPUT 图元选取
   
4. (setq en (entsel "选取已知圆:")) ;要求碰选一个圆
   
5. ;;;;以下为图元资料&半径资料取得
   
6. (setq en_data (entget (car en))) ;取得元体资料串列
   0 Z* F! n  [4 O# c" M
7. (setq old_rad_list (assoc 40 en_data));取得半径子串列
   
8. (setq old_rr (cdr rad_list))           ;取得旧有半径
   
9. (princ “\n旧半径=”)(princ old_rr) ;显示该旧圆半径值於指令区
   5 Y4 |. n( D; T/ b' j( `1 A( k( h
10. ;;;;以下为新半径输入&图元资料新旧半径更替
    " @7 f' Z# ?2 Y7 D& W4 e
11. (setq cenpt (cdr (assoc 10 en_data))) ;一口气取得圆之圆心
    3 R  S% H, O5 [, t2 @
12. (setq new_rr (getdist cenpt "New Radius:"));要求输入一半径值
    
13. (setq new_rad_list (cons 40 new_rr)) ;产生新半径子串列
    ) K& E; ?! I; U: G$ E
14. (setq en_data (subst new_rad_list old_rad_list en_data)) ;新旧交替
    
15. (entmod en_data) ;依新图元资料自动更新圆半径
    ) j2 B, |: M) }, f/ x! l4 N
16. (prin1)
    # O  A" H, ^) J$ {+ l* J; t
17. )
    ! Z7 `9 Z# M; R
18. (prompt "*************** << C:CHGRAD >> *****************")
    
19. (prin1)

复制代码

) E' G7 q1 T2 r 程式执行：(请先在画面上任意的画一些圆)
  o4 c& ~8 p* D% u; b2 ^! W2 R  O. a指令: (load"chgrad")
回应: *************** << C:CHGRAD >> *****************
5 J9 ]! J' p; l; t* D+ r* O0 }指令: CHGRAD
7 p& j: L3 ~! e$ x" V4 @0 d& f. r( x选取已知圆: (碰选画面上已有的圆)
6 B7 V' S' h" P! g( [8 o; K: ]新半径:20         ( 输入一半径值)

4 {  J: ^  I/ p& x

394189642

看看我那有什么问题

0426

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

% N% q" m* x0 m) j) _+ [2 _1 _粗略看了一下，

1. (setvar "cmdecho" 0

复制代码

这里你多了个“)”吧

394189642

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

0426

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

; b8 T  ^) t- u9 ?* p- C' ]' p! Z
" x# U8 W+ j( Q不同的主要有下面几句：
- l6 _2 S& L: F
! p% X' Y/ T3 X

1. (setvar"cmdecho"0)
   ; Q  g: u3 A: S0 V& R: e# d
2. 
   
3. (princ"\n oldradiul:“)(princ oldr)
   
4. 
   7 k3 n: [  s2 Y8 S, F- f- ?. z
5. (setq newr(getdist cenpt "New Radius:"))
   
6. 
   
7. )
   % h" c6 ^/ U2 i! l* n3 f% t
8. (prin1)

复制代码

- c  n- c$ W- }& j, }" m
0 t' z( t/ V9 O; g, \

, }0 w+ o9 V: X2 w$ i

1. (setvar "cmdecho" 0;指令执行过程不回应
   ' H% @, G, H4 m/ t
2. (princ “\n旧半径=”)(princ old_rr) ;显示该旧圆半径值於指令区
   
3. ;;;;以下为新半径输入&图元资料新旧半径更替
   
4. (setq new_rr (getdist cenpt "New Radius:"));要求输入一半径值
   9 T9 c, M5 B7 g2 p
5. 
   
6. (prin1)
   
7. )

复制代码

/ U4 V. M" ?+ Y5 a3 l" s, y. Q你自己

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

复制代码

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

Camello

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

0426

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