autolisp求教

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

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

(defun c:chcr()
4 K6 z! j: z! V' h5 ]( [) A
(setvar"cmdecho"0)# y$ z" q4 M7 b8 c8 c$ X9 F
(setq en (entsel"选取已知圆:")): ~5 D( z/ m- O: o i
(setq en-data(entget(car en)))
1 v! Q. A& D8 {$ U( j y' c
(setq olden-data-list(assoc 40 en-data))
" v& E8 z( I5 A( {% i5 x& H, `
(setq oldr(car data-list))/ E) N m3 q: [% z
(princ"\n oldradiul:“)(princ oldr)
- u! k0 ?% [' H1 \- u4 v; H1 E# _
(setq cenpt(car(assoc 10 en-data)))) j& J* l) O6 P( H
(setq newr(getdist cenpt "New Radius:"))
7 X/ _) _- c+ K
(setq newen-data-list(cons 40 newr))' w/ |3 ?( a. w+ I/ p
(setq en-data(subst newen-data-list olden-data-list en-data))9 w: |# u; I7 r* r' P( S6 C9 e
(entmod en-data)& Z6 p5 ~2 Z1 Y* _9 i" i
); r, E3 I6 d6 m, K5 Y
(prin1)
/ _+ I5 G. z& V5 Y5 m2 W$ n# n* ?
(prompt"***************<<c:chcr>>***************")
( a6 V& w& N+ |3 d4 z- r
(prin1)

复制代码

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

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

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

程式内容解答:

(defun c:chgrad() @& `4 A# T; R# }
(setvar "cmdecho" 0;指令执行过程不回应
8 d2 ]# Y3 l/ A, O, A5 y; V
;;;;以下为 INPUT 图元选取
. ^8 _* O: e0 e% n8 H8 F
(setq en (entsel "选取已知圆:")) ;要求碰选一个圆
' P) [2 A% b3 R/ z1 Q
;;;;以下为图元资料&半径资料取得
8 x' n% _$ m# e
(setq en_data (entget (car en))) ;取得元体资料串列- S" h9 V) d) H- j# r- W: F0 }
(setq old_rad_list (assoc 40 en_data));取得半径子串列
" h, n# T4 U* U* q1 `* \" S) w
(setq old_rr (cdr rad_list)) ;取得旧有半径" ]2 P* T; o7 D3 \9 [
(princ “\n旧半径=”)(princ old_rr) ;显示该旧圆半径值於指令区
. W( R6 e3 D- T) {% Y2 R* b# L
;;;;以下为新半径输入&图元资料新旧半径更替
; O! i6 i. Z5 R# |
(setq cenpt (cdr (assoc 10 en_data))) ;一口气取得圆之圆心; d; u& F( z6 r. p. {/ q5 K
(setq new_rr (getdist cenpt "New Radius:"));要求输入一半径值. l Y2 P6 I$ K
(setq new_rad_list (cons 40 new_rr)) ;产生新半径子串列
# q- r/ x3 z& p4 v" X5 N% X
(setq en_data (subst new_rad_list old_rad_list en_data)) ;新旧交替
' k. _: w- R, A; m4 y5 E% z
(entmod en_data) ;依新图元资料自动更新圆半径4 v, L2 y2 [8 V' r7 q+ m' L3 f
(prin1)
& Q+ B1 {: H, M8 C1 ?( Z. b# t
). l+ Z. T. _/ a4 v
(prompt "*************** << C:CHGRAD >> *****************")& f$ }6 G2 e1 ^/ _" c, }9 m+ i
(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 发表 : ]2 v) ?$ T$ I J$ f1 F+ f8 r
我就是比较了找不到问题才求教的嘛

不同的主要有下面几句：

(setvar"cmdecho"0)' F" g. Y1 Y9 s
, y' U8 l. {( ]1 d1 U2 o- E
(princ"\n oldradiul:“)(princ oldr)
5 t7 V Z1 i% n; d% y4 F) V
) t! ^" l) I+ E; k
(setq newr(getdist cenpt "New Radius:"))4 r; T0 D8 o: \' Z
6 k% G8 u3 q$ t" L, J
)! U* l* x" T$ [. o; S+ m8 o
(prin1)

复制代码

(setvar "cmdecho" 0;指令执行过程不回应$ a8 E! S% h- s! K6 N% X2 l+ V. S
(princ “\n旧半径=”)(princ old_rr) ;显示该旧圆半径值於指令区
, n3 }6 ~4 `* y8 k
;;;;以下为新半径输入&图元资料新旧半径更替: ^. @0 V: ^% E2 }7 U# z( q7 g
(setq new_rr (getdist cenpt "New Radius:"));要求输入一半径值5 }3 r' v1 E$ {% \" M# G4 r
7 G: x" g: [( L# F8 Q) h/ L1 h7 x
(prin1)
! A( D, G& X" U% A7 E4 \! l$ M( i
)

复制代码

你自己

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

复制代码

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

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

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

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

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

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

[求助] autolisp求教

本帖子中包含更多资源

回复 #2 Camello 的帖子

回复 #4 0426 的帖子