autolisp求教

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

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

(defun c:chcr()1 r# {: ~- @4 U0 L, w# w& ?8 l; s
(setvar"cmdecho"0)5 f' ? A4 Q' I! {$ p
(setq en (entsel"选取已知圆:"))3 u' {, o; z7 f L
(setq en-data(entget(car en)))6 J1 _1 b! u! _+ g2 @' D( Z" l/ [
(setq olden-data-list(assoc 40 en-data))7 n0 ]4 `3 I5 |/ ?9 `, V
(setq oldr(car data-list))6 Z$ } p0 k$ V
(princ"\n oldradiul:“)(princ oldr)3 K( S9 [0 j4 z i
(setq cenpt(car(assoc 10 en-data)))3 `: |6 h) l2 J
(setq newr(getdist cenpt "New Radius:"))2 j, D R5 L9 O
(setq newen-data-list(cons 40 newr))
) B0 x9 W+ E7 N0 n& S R% p3 T0 |
(setq en-data(subst newen-data-list olden-data-list en-data))
' {$ P; @" |2 z$ X6 H
(entmod en-data); h U: q/ \! Y& ?3 _
); `- G4 @$ N' K( t' n
(prin1)) B1 { u* H ^6 m& `
(prompt"***************<<c:chcr>>***************")/ x: k5 Z5 O Y% S0 @
(prin1)

复制代码

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

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

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

程式内容解答:

(defun c:chgrad()
$ C9 @' [: O. t( R! ]7 f7 u
(setvar "cmdecho" 0;指令执行过程不回应/ V# N8 ]+ C" A
;;;;以下为 INPUT 图元选取
4 E' D. b( L- u6 R" I6 c j
(setq en (entsel "选取已知圆:")) ;要求碰选一个圆+ y- S; O3 R# @$ `+ E# ?
;;;;以下为图元资料&半径资料取得* O- f( O5 Y! X, z4 M
(setq en_data (entget (car en))) ;取得元体资料串列, M T* q6 I1 h7 D& ~" Q: F. z2 `. o
(setq old_rad_list (assoc 40 en_data));取得半径子串列
7 O/ [1 Q" t/ i
(setq old_rr (cdr rad_list)) ;取得旧有半径% ]2 `2 r+ l" f# x' N$ A1 ^
(princ “\n旧半径=”)(princ old_rr) ;显示该旧圆半径值於指令区6 z( w' t4 x" r( i% A3 D/ P
;;;;以下为新半径输入&图元资料新旧半径更替: C9 k7 `# Y. F4 a7 ^
(setq cenpt (cdr (assoc 10 en_data))) ;一口气取得圆之圆心
; {5 s ^$ l6 N1 o% u3 A
(setq new_rr (getdist cenpt "New Radius:"));要求输入一半径值
1 J q$ Y7 b+ a1 J" T( ]
(setq new_rad_list (cons 40 new_rr)) ;产生新半径子串列
6 b& y: c" z. @) T- K
(setq en_data (subst new_rad_list old_rad_list en_data)) ;新旧交替+ @+ T8 o" G3 t- @: Z/ Z. b
(entmod en_data) ;依新图元资料自动更新圆半径' J0 r! W' [: b; x
(prin1)
2 L$ q a* |* H1 X. ?3 X
)2 `7 X$ ~$ z* p$ @9 y# K8 f
(prompt "*************** << C:CHGRAD >> *****************")7 J' s0 S2 G0 L2 K
(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 发表 0 [ h& d$ K; N$ N
我就是比较了找不到问题才求教的嘛

不同的主要有下面几句：

(setvar"cmdecho"0)
8 Z& H! j' d) l( `7 F5 H
! Y! Z+ E9 J+ o& h3 h! `* C
(princ"\n oldradiul:“)(princ oldr)
l+ G8 t- p3 d
9 y: L6 P0 i3 _" {8 Q
(setq newr(getdist cenpt "New Radius:"))
1 _7 v2 ~9 z K" j
/ I% `" T, L+ P& l
)
6 l3 V/ }, R6 n& l" k s3 B
(prin1)

复制代码

(setvar "cmdecho" 0;指令执行过程不回应$ A5 [- Y9 N3 R2 u2 m
(princ “\n旧半径=”)(princ old_rr) ;显示该旧圆半径值於指令区+ F6 x- B5 Q6 D2 d
;;;;以下为新半径输入&图元资料新旧半径更替1 q2 t, S# S5 A' }
(setq new_rr (getdist cenpt "New Radius:"));要求输入一半径值
7 Y- x1 S! |, V; K* ~& i
7 Z% _4 K2 J; l) Y F
(prin1)
0 u2 l3 r0 l( B% m
)

复制代码

你自己

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

复制代码

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

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

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

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

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

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

[求助] autolisp求教

本帖子中包含更多资源

回复 #2 Camello 的帖子

回复 #4 0426 的帖子