autolisp求教

394189642 · 发表于 2010-1-13 10:40

这个程序目的修改圆的半径，请教高手，看问题出在哪，CAD提示字符串有缺陷

(defun c:chcr()
: }( e) Q. M; G/ i" a) v9 B
(setvar"cmdecho"0)
- Q. v9 }3 J9 `& u0 x' A: W
(setq en (entsel"选取已知圆:"))
9 D% w9 W; L u9 L
(setq en-data(entget(car en)))
: `" W- J' ]0 Y. Y' K* Z
(setq olden-data-list(assoc 40 en-data))
3 U& _6 A: o8 m6 ~8 H
(setq oldr(car data-list))4 ~$ R0 q3 P9 I2 h) e8 H
(princ"\n oldradiul:“)(princ oldr)
& y3 u; n9 n+ T/ h, s# s* p
(setq cenpt(car(assoc 10 en-data)))1 ?0 {& v) e9 c
(setq newr(getdist cenpt "New Radius:"))" @% I2 R( H& J
(setq newen-data-list(cons 40 newr))
: @ M* Q7 d. T" w: \7 T
(setq en-data(subst newen-data-list olden-data-list en-data))# |7 U' D( v1 T, f( t6 V& S X8 K
(entmod en-data)
8 r5 m; v, D- A
)6 r( q$ \& M" p1 [; f4 U; O2 q6 K
(prin1)
" i% j" g0 H$ A/ Y" s/ \
(prompt"***************<<c:chcr>>***************")
0 s4 q" b% c: ~
(prin1)

复制代码

Camello · 发表于 2010-1-13 11:04

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

请撰写一个CHGRAD.LSP,用来修改圆半径，此程式的执行过程要求如下:
* 指令: CHGRAD
* 选取已知圆:碰选画面上已存在的圆
* 自动显示该旧圆半径值於指令区
* 新半径:要求输入一半径值 new_rr

程式内容解答:

(defun c:chgrad()
5 z. ]0 V4 H. P8 n
(setvar "cmdecho" 0;指令执行过程不回应
+ c. }. s0 Z3 J
;;;;以下为 INPUT 图元选取
: g, I1 W6 W% u& R7 L
(setq en (entsel "选取已知圆:")) ;要求碰选一个圆
, r# ~* q, }* s8 i! t
;;;;以下为图元资料&半径资料取得# v! X1 g6 x% x1 D) z3 D
(setq en_data (entget (car en))) ;取得元体资料串列6 c" N% a/ v1 n
(setq old_rad_list (assoc 40 en_data));取得半径子串列
' N; |; j+ x4 }% o# i2 ^
(setq old_rr (cdr rad_list)) ;取得旧有半径& t- P" P5 U$ S0 y5 }3 P* H" V
(princ “\n旧半径=”)(princ old_rr) ;显示该旧圆半径值於指令区2 |3 @; M2 a- {% m) K/ d
;;;;以下为新半径输入&图元资料新旧半径更替
- \7 w* Z/ V0 T+ o G4 o
(setq cenpt (cdr (assoc 10 en_data))) ;一口气取得圆之圆心% T7 Q- a& [ m6 @) i0 p
(setq new_rr (getdist cenpt "New Radius:"));要求输入一半径值
% M4 f! C* g2 L9 F$ y4 h7 n
(setq new_rad_list (cons 40 new_rr)) ;产生新半径子串列* u# |$ G! ?6 }
(setq en_data (subst new_rad_list old_rad_list en_data)) ;新旧交替
7 x5 s: _( }* R* N
(entmod en_data) ;依新图元资料自动更新圆半径/ ^( W8 T+ h; G5 E
(prin1)! h/ l5 F/ _2 \, F% D. n1 ?
)
# A* m E W- b- V
(prompt "*************** << C:CHGRAD >> *****************")6 ]8 ] H. L2 n, u9 R
(prin1)

复制代码

程式执行：(请先在画面上任意的画一些圆)
指令: (load"chgrad")
回应: *************** << C:CHGRAD >> *****************
指令: CHGRAD
选取已知圆: (碰选画面上已有的圆)
新半径:20 ( 输入一半径值)

394189642 · 发表于 2010-1-13 11:43

看看我那有什么问题

0426 · 发表于 2010-1-13 11:51

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

粗略看了一下，

(setvar "cmdecho" 0

复制代码

这里你多了个“)”吧

394189642 · 发表于 2010-1-13 11:54

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

0426 · 发表于 2010-1-13 12:03

原帖由 394189642 于 2010-1-13 11:54 发表 % }: X/ D, l% Q7 n& |5 J7 e
我就是比较了找不到问题才求教的嘛

不同的主要有下面几句：

(setvar"cmdecho"0)
+ L9 w" ]( i- {. u M4 X
7 o+ {1 b9 t8 o$ [5 \# d8 N; q7 _9 X
(princ"\n oldradiul:“)(princ oldr)
$ A5 e+ s ?9 Z3 i
8 r7 \1 q* \. I2 K, s+ W, O
(setq newr(getdist cenpt "New Radius:"))
, y& W7 d' u- f" `3 {
2 Z% R1 |* w- k# _( L# O' L, N! n
)7 t$ r& Q d# b4 a' V; o ]
(prin1)

复制代码

(setvar "cmdecho" 0;指令执行过程不回应8 \) _; E+ o6 p$ S, s5 s: R0 k
(princ “\n旧半径=”)(princ old_rr) ;显示该旧圆半径值於指令区
/ i# S. t0 G; T) R
;;;;以下为新半径输入&图元资料新旧半径更替( Z a8 h. A4 F
(setq new_rr (getdist cenpt "New Radius:"));要求输入一半径值$ w" r: Q+ ]4 z$ k
, ^2 \& E! {8 v k$ b5 j
(prin1)- |% M1 M7 t! m: E
)

复制代码

你自己

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

复制代码

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

Camello · 发表于 2010-1-13 12:04

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

0426 · 发表于 2010-1-13 12:11

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

		自动登录	找回密码
密码			立即注册

[求助] autolisp求教

本帖子中包含更多资源

回复 #2 Camello 的帖子

回复 #4 0426 的帖子