autolisp求教

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

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

(defun c:chcr()
: e t: J4 @0 d; q) P0 E \+ _- B
(setvar"cmdecho"0)
& a" m" a! C# E3 r3 y. n
(setq en (entsel"选取已知圆:"))
9 \- v. J+ x, P5 a* H+ v& ~
(setq en-data(entget(car en)))
; U! ?7 F* x' a) M+ _
(setq olden-data-list(assoc 40 en-data))
- L& s$ c; J: @) v3 b
(setq oldr(car data-list))& b+ Z: @' G# R& L
(princ"\n oldradiul:“)(princ oldr)- a; V, H0 s" J1 {
(setq cenpt(car(assoc 10 en-data)))% i0 j$ ]8 |3 p9 S8 T
(setq newr(getdist cenpt "New Radius:"))% J: |( h" O8 d- ]% }, K# n. u
(setq newen-data-list(cons 40 newr))! |7 F- `; ]- E, b4 [+ H, j
(setq en-data(subst newen-data-list olden-data-list en-data))& a& O& @1 u3 ^9 s9 ^
(entmod en-data)
' R4 `3 d+ @ R1 l; z/ A% P; A
) A' {# H! a' e, w# {0 J6 ~, i
(prin1)3 v& q' i+ Z0 @$ c' ? H
(prompt"***************<<c:chcr>>***************")6 J3 x- J3 ^) i5 @8 @; \2 C
(prin1)

复制代码

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

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

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

程式内容解答:

(defun c:chgrad(); ?' Z1 t3 b1 O, A+ M! Y- V% C
(setvar "cmdecho" 0;指令执行过程不回应3 o9 G/ M# y2 u$ u E0 Y
;;;;以下为 INPUT 图元选取
6 h6 I2 a: L% d0 g8 i
(setq en (entsel "选取已知圆:")) ;要求碰选一个圆
! g& X, Z# M& a6 h" `
;;;;以下为图元资料&半径资料取得
" i" l. e' ]4 d& Z# T2 r
(setq en_data (entget (car en))) ;取得元体资料串列
) @" N2 u$ T6 X: @
(setq old_rad_list (assoc 40 en_data));取得半径子串列
* F: h9 H9 _# u' h; ?+ V1 [3 C/ j
(setq old_rr (cdr rad_list)) ;取得旧有半径
9 q$ C" J' N9 _* ]- h/ ^
(princ “\n旧半径=”)(princ old_rr) ;显示该旧圆半径值於指令区& \, v4 [/ V- b" H. {# v
;;;;以下为新半径输入&图元资料新旧半径更替5 Q% M0 T+ I0 B6 @
(setq cenpt (cdr (assoc 10 en_data))) ;一口气取得圆之圆心3 q9 S+ J0 J* A$ S4 Y% B8 h0 s
(setq new_rr (getdist cenpt "New Radius:"));要求输入一半径值
; M- `: \% ~& C0 a; M Q5 i
(setq new_rad_list (cons 40 new_rr)) ;产生新半径子串列1 z+ y( C# ~( `6 _
(setq en_data (subst new_rad_list old_rad_list en_data)) ;新旧交替0 g; O; C1 x+ T& [% V1 Y1 G
(entmod en_data) ;依新图元资料自动更新圆半径2 a. H$ H7 S( d- i; |8 c$ m
(prin1)
( f* `8 j/ s, b& ]& z
)
) f5 V5 p9 t! L" o" ]1 _
(prompt "*************** << C:CHGRAD >> *****************"): F7 C0 `* n# i, {( A
(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 发表
# r8 N% o3 O6 ?' R7 M* t$ E# B我就是比较了找不到问题才求教的嘛

不同的主要有下面几句：

(setvar"cmdecho"0)
5 L- d' s5 a1 i5 B$ Y$ `! a
$ n% [+ G5 R; h' U! i) s
(princ"\n oldradiul:“)(princ oldr)# h% T) ^5 C# f* e3 t7 R$ _0 b
! }7 o* }; G6 y" }9 C
(setq newr(getdist cenpt "New Radius:"))8 f, F) r9 \6 M2 {
; ?* e! x4 x9 |% t6 j0 s& d
)
/ H' n0 N) d/ d4 w5 y/ B# Z* u
(prin1)

复制代码

(setvar "cmdecho" 0;指令执行过程不回应) f6 r8 j6 n- P0 V3 q
(princ “\n旧半径=”)(princ old_rr) ;显示该旧圆半径值於指令区, s' i8 g2 @. m* E4 Z8 M
;;;;以下为新半径输入&图元资料新旧半径更替. g) G7 p1 F" K) Q
(setq new_rr (getdist cenpt "New Radius:"));要求输入一半径值
$ H, }* s/ o; M. m( |
) ?" d7 K7 ]% c
(prin1)
. v/ V2 M5 U; s- y- z1 }
)

复制代码

你自己

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

复制代码

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

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

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

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

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

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

[求助] autolisp求教

本帖子中包含更多资源

回复 #2 Camello 的帖子

回复 #4 0426 的帖子