autolisp求教

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

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

(defun c:chcr()+ [! _% S6 [- k: `# S; D7 T5 K
(setvar"cmdecho"0)
9 n! ?; D0 p$ ^
(setq en (entsel"选取已知圆:"))
" z7 K: h) P& \' p0 q& N8 A X
(setq en-data(entget(car en)))$ o/ ?* j) S E
(setq olden-data-list(assoc 40 en-data))* G7 }6 B& V" d$ N4 K
(setq oldr(car data-list))* t4 ^. V- c5 z$ S
(princ"\n oldradiul:“)(princ oldr)
7 [4 w5 E( ~! S7 ]( i
(setq cenpt(car(assoc 10 en-data)))
s! y2 @; q7 [* \+ x7 I9 ^9 s
(setq newr(getdist cenpt "New Radius:"))* G7 U" W: N7 I+ I
(setq newen-data-list(cons 40 newr)) m2 N6 J1 y7 f8 [3 p% K
(setq en-data(subst newen-data-list olden-data-list en-data)) g5 k* c/ h0 l
(entmod en-data)
3 M/ h* r, ^6 R6 L
)8 N" ~6 E/ h2 B5 R$ n9 Y" P
(prin1); c/ n) z0 G6 I3 g9 N
(prompt"***************<<c:chcr>>***************")
) V) O' g1 }: l
(prin1)

复制代码

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

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

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

程式内容解答:

(defun c:chgrad()
" A0 H+ n ?2 u3 ] n- w% y, O( p
(setvar "cmdecho" 0;指令执行过程不回应
- V3 Y# H @+ B7 W' J6 E$ R( ~
;;;;以下为 INPUT 图元选取6 w# R9 p5 `# A$ H
(setq en (entsel "选取已知圆:")) ;要求碰选一个圆
3 X* v3 }' a! m7 N& D% \
;;;;以下为图元资料&半径资料取得
( `' s( ^3 b& h
(setq en_data (entget (car en))) ;取得元体资料串列/ u4 u. R' r7 S5 b9 q) [
(setq old_rad_list (assoc 40 en_data));取得半径子串列
b$ L, P9 \' \, a2 v/ a
(setq old_rr (cdr rad_list)) ;取得旧有半径
. ^( A( V; u! D3 ?3 U* U
(princ “\n旧半径=”)(princ old_rr) ;显示该旧圆半径值於指令区& H) q+ _4 T/ o1 F
;;;;以下为新半径输入&图元资料新旧半径更替+ \ R) h/ |+ q& {" F; B( s
(setq cenpt (cdr (assoc 10 en_data))) ;一口气取得圆之圆心0 r/ ?$ H/ |/ R% |/ B
(setq new_rr (getdist cenpt "New Radius:"));要求输入一半径值; z* c) ~$ }0 R9 G# N; }5 r8 p/ a0 ]
(setq new_rad_list (cons 40 new_rr)) ;产生新半径子串列! g w+ C7 |& G- b. K. ?3 ^
(setq en_data (subst new_rad_list old_rad_list en_data)) ;新旧交替. ]; x% w" k9 W9 M
(entmod en_data) ;依新图元资料自动更新圆半径, |6 C) h% X& I" ~
(prin1)
# C' b+ `, ~- x, b
)% `$ k4 I3 c! m1 F! G5 X
(prompt "*************** << C:CHGRAD >> *****************"). F* K, o- C$ ] C" z
(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 Z" ?" `! q# Y# ]* m, ~
我就是比较了找不到问题才求教的嘛

不同的主要有下面几句：

(setvar"cmdecho"0)8 M! j, E& M/ j/ \" @/ P+ h
; m& R2 J% K7 h8 P) K
(princ"\n oldradiul:“)(princ oldr)7 t1 Z% s5 Q5 q, G- M
+ a) \2 B* U9 ], y M& q
(setq newr(getdist cenpt "New Radius:"))
* x+ H9 F% ~4 H3 f* m/ f
& H& ?) J7 l* q' C( \5 y
); d2 }1 I' g9 O4 }
(prin1)

复制代码

(setvar "cmdecho" 0;指令执行过程不回应
' g' z) c0 X* \3 K9 T4 g9 L6 A
(princ “\n旧半径=”)(princ old_rr) ;显示该旧圆半径值於指令区
; O8 b/ h% T) {0 K. e
;;;;以下为新半径输入&图元资料新旧半径更替; o& x U4 e% I5 `2 s+ L# K
(setq new_rr (getdist cenpt "New Radius:"));要求输入一半径值
7 e; }' }' P9 P
% h7 Z4 O6 L) q# e
(prin1)4 I2 A( ]0 X% r9 j
)

复制代码

你自己

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

复制代码

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

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

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

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

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

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

[求助] autolisp求教

本帖子中包含更多资源

回复 #2 Camello 的帖子

回复 #4 0426 的帖子