陈老师：还是关于lisp的（插入快）

forgetryme

陈老师：我做了个lisp小程序，为了省事，中间插了两个快，运行的时候，第一个块还可以，可在查第二个的时候都不认了，出现了这样的情况： （水位 未知命令“水位”。按 F1 查看帮助。 命令:
命令: JG 未知命令“JG”。按 F1 查看帮助。 命令: JG 未知命令“JG”。按 F1 查看帮助） 水位是我插块的块名字，请问陈老师怎么会事，插入的第一个块都没有问题 ，直接都插入了！！

陈伯雄

请贴出您的源程序，如果方便的话...

forgetryme

(Defun c:jg ()
(setq os (GetVar "osmode")
p (GetPoint "基点：")
q (GetPoint "坡脚点：")
l (Getreal "\n现状顶高程：")
d (Getreal "\n现状底高程：")
d1 (Getreal "\n加高顶高程：")
x (Car p)
y (Cadr p)
x1 (Car q)
y2 (Cadr q)
w1 (* 5 (- 87.65 l))
w (* 5 (- d1 l))
u (- x (* 12 2.5))
v (* (* (- d1 d) 3) 2.5)
z (* (- d1 d) 5)
)
(SetVar "osmode" 0)
(Command "pline"
(List (+ x 0) (+ y w))
(list (+ u 0) (+ y w))
(List (- u v) (- (+ y w) z))
""
"pline"
(List (+ x 0) (+ y w1))
(list (+ u 0) (+ y w1))
""
)
(setq x2 (- (- u v) 7.5)
y2 (- (- (+ y w) z) 5)
)
(Command "pline"
(List (- (- u v) 10) (- (+ y w) z))
(List (+ x2 0) (+ y2 0))
(List (+ x2 5) (+ y2 0))
""
)
(setq o (List (+ x 1) (+ y w))
x0 (Car o)
y0 (Cadr o)
m (+ x0 1.5)
n (+ 0.5 y0)
p1 (List (+ x 0) (+ y w))
p2 (List (+ x 0) (+ y w1))
)
(command "pline"
o
(list (+ x0 12.5) (+ y0 0))
""
)
(command "pline"
(list (+ m 0) (+ n 0))
(list (+ m 1.5) (+ n 2.5981))
(list (- m 1.5) (+ n 2.5981))
"c"
)
(command "insert" "高程线" p1 "" "" "")
(command "insert" "水位" p2 "" "")
(SetVar "osmode" os)
(PrinC)
)

陈伯雄

第一个Insert后3个回车，这是正确的，而第二个为么就是2个了呢？

forgetryme

哦~


呵呵,明白了,再次谢谢您啊！


另外，插入块时如果要分解了，用什么变量阿？