autolisp求教

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

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

(defun c:chcr()
7 r. n- W8 a/ ?6 Z3 A5 n [+ c2 F
(setvar"cmdecho"0)$ c5 ~' M1 q! q, l) b# i/ Q! M
(setq en (entsel"选取已知圆:"))4 c8 n+ j! k5 i- M( ^$ m, [
(setq en-data(entget(car en)))
6 {: t& g3 r9 I- w
(setq olden-data-list(assoc 40 en-data))4 W* ]' b' E9 c9 \
(setq oldr(car data-list))
! E- E* t# |0 o7 i5 H% e7 K
(princ"\n oldradiul:“)(princ oldr)
@: ~ \8 b9 _+ U" B
(setq cenpt(car(assoc 10 en-data)))2 A# f/ b% p" o
(setq newr(getdist cenpt "New Radius:"))
& S/ G. u! z, x; H9 q5 |+ H: {
(setq newen-data-list(cons 40 newr)), t6 P3 C$ [6 C$ b
(setq en-data(subst newen-data-list olden-data-list en-data))7 W& A1 S/ K0 k( h. h, ]2 j
(entmod en-data)8 j/ b' L6 u6 v9 B5 y
)" W1 Q: g: `& T5 `; s
(prin1)
8 }- A9 x- P7 ^1 T2 ~
(prompt"***************<<c:chcr>>***************")
" W. }$ T3 H0 ~
(prin1)

复制代码

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

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

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

程式内容解答:

(defun c:chgrad()" K. [* o2 s1 L( ^
(setvar "cmdecho" 0;指令执行过程不回应; m& |6 I% ?5 i! Q/ J3 E
;;;;以下为 INPUT 图元选取8 Z% |% M+ a0 m' N6 l% h3 _
(setq en (entsel "选取已知圆:")) ;要求碰选一个圆& p3 Y7 N, `. a2 w! _7 x
;;;;以下为图元资料&半径资料取得5 @& c) d Q0 N4 C( N) }
(setq en_data (entget (car en))) ;取得元体资料串列/ T7 o6 O+ Q6 B$ L2 j
(setq old_rad_list (assoc 40 en_data));取得半径子串列
# F1 z& U. ^# P" o
(setq old_rr (cdr rad_list)) ;取得旧有半径
8 z# A) A3 _- J) O& V" [
(princ “\n旧半径=”)(princ old_rr) ;显示该旧圆半径值於指令区
6 s7 b( L# L/ s: k& T
;;;;以下为新半径输入&图元资料新旧半径更替. K( q( b" n( i) `: @: G
(setq cenpt (cdr (assoc 10 en_data))) ;一口气取得圆之圆心+ G2 N7 w6 x2 O7 t
(setq new_rr (getdist cenpt "New Radius:"));要求输入一半径值
& u, s; ~9 d+ P; j% B
(setq new_rad_list (cons 40 new_rr)) ;产生新半径子串列4 e B7 i6 O+ t4 h, q. M
(setq en_data (subst new_rad_list old_rad_list en_data)) ;新旧交替
$ V8 K; P$ V7 D
(entmod en_data) ;依新图元资料自动更新圆半径" y6 X, P) t* \
(prin1)
: B) P& E2 h: ]# w- M
)( O+ J! p; ^: ^& A$ ]/ D
(prompt "*************** << C:CHGRAD >> *****************")( R m# w8 X$ L" p# V& u
(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 发表
6 j/ M0 w9 Y, \ J) K我就是比较了找不到问题才求教的嘛

不同的主要有下面几句：

(setvar"cmdecho"0)" u- K: t8 ^ J1 U9 n0 p, G
$ E% X+ x% g2 V$ x; A
(princ"\n oldradiul:“)(princ oldr)
; f0 @5 ^) |* D" O, z
5 s+ Y7 j+ _& I) ?
(setq newr(getdist cenpt "New Radius:"))/ G: {3 X% O$ I/ M" p9 h% F, r0 L5 G
2 L* a) ?& D7 e4 Y
)$ }3 O5 z# a' |8 L' S( i. V
(prin1)

复制代码

(setvar "cmdecho" 0;指令执行过程不回应0 g/ b' R' c, `' N: p- q
(princ “\n旧半径=”)(princ old_rr) ;显示该旧圆半径值於指令区
9 q# D( g: c2 M" P b
;;;;以下为新半径输入&图元资料新旧半径更替
, D2 s5 n, A; {8 \$ i
(setq new_rr (getdist cenpt "New Radius:"));要求输入一半径值8 G9 x' c8 O; t9 X
$ O; l3 {& ~9 I- B* T
(prin1)
+ x8 G5 t* r: D* W4 w
)

复制代码

你自己

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

复制代码

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

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

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

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

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

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

[求助] autolisp求教

本帖子中包含更多资源

回复 #2 Camello 的帖子

回复 #4 0426 的帖子