forgetryme 发表于 2004-6-9 09:16:00

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

陈老师：我做了个lisp小程序，为了省事，中间插了两个快，运行的时候，第一个块还可以，可在查第二个的时候都不认了，出现了这样的情况：


<FONT face=黑体>（水位 未知命令“水位”。按 F1 查看帮助。</FONT>


<FONT face=黑体>命令:<BR>命令: JG 未知命令“JG”。按 F1 查看帮助。</FONT>


<FONT face=黑体>命令: JG 未知命令“JG”。按 F1 查看帮助）</FONT>


水位是我插块的块名字，请问陈老师怎么会事，插入的第一个块都没有问题 ，直接都插入了！！

陈伯雄 发表于 2004-6-13 08:49:00

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

forgetryme 发表于 2004-6-13 09:58:00

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

陈伯雄 发表于 2004-6-13 12:46:00

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

forgetryme 发表于 2004-6-14 08:15:00

哦~


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


另外，插入块时如果要分解了，用什么变量阿？
页: [1]
查看完整版本: 陈老师：还是关于lisp的（插入快）