[求助]：调试LISP时常命令行无法输入

ahlzl

想重新开始学LISP。
一个最初级的问题，让各位高手见笑了。

ll_j

这是在Vlisp运行进程中，可以切换到Vlisp中，点击“停止”按钮结束进程。

ahlzl

谢谢ll_j长老！
还有，这也常常出现。讨厌！怎么办？

ll_j

这种情况我倒是没有碰到过，不过刚才试了一下，发现了一种情况，你可以看看是否相似。
现象：在Vlide的文件编辑窗口新建，写上“(grread)”，然后按钮加载，返回ACAD，此时就是这样显示。
分析成因：文件中有在加载时就执行的交互输入函数（不算是错误），加载时已经是执行状态。
出错可能：文件中括号不匹配，或者括号位置不对，这样有的语句就会“浮”出来。
处理：经常（每段落）检查代码，经常格式化（与加载按钮同组）。

teatree

在vlisp中点激活acad。

lsjjm

最初由 ahlzl 发布
[B]调试LISP时常命令行无法输入...[/B]

这类问题在调试程序过程中经常发生, 诸如坏循环, 语法错误...

e2002

最初由 aaddff 发布
[B][F]想重新开始学LISP。[/F]

怎么会是[B]斑竹[/B] 呢？

这个游戏规则是怎样的？ [/B]

这么多板块,又不是每个板的斑竹都非要是VL高手啊....各有所长短嘛....

陌生人

长不大版主也学lsp了啊，哈哈。
打完了cad应用板块，这回来抢咱们的饭碗了啊：）

ahlzl

最初由 陌生人 发布
[B]长不大版主也学lsp了啊，哈哈。
打完了cad应用板块，这回来抢咱们的饭碗了啊：） [/B]

本想在CAD应用版块养老的，没想到让狠心的老大一脚踢开，现在是到处流浪，要饭的滋味难爱啊！

现贴上一段极初级的VLISP代码，期待各位的施舍……[php]
(defun c:ppp (/ p1 p2 l pp1 pp2 pp3 pp tmp pl )
  
  (vl-load-com)
  (setq        cad (vlax-get-acad-object)
        doc(vla-get-activedocument cad )
        ms (vla-get-modelspace doc)
        ut (vla-get-Utility doc))
  
  ;用ActiveX方法画直线             
  (setq        p1 '(100 200)
        p2 '(300 400))

  ;以前是这样画直线的：(command "line" p1 p2 "")
  (setq        p11 (vlax-3d-point p1)
        p22 (vlax-3d-point p2))
  (setq L (vla-addline ms p22 p11))
  
  ;;用ActiveX方法画多段线
  (setq        pp1 (getpoint "\请输入第一点：")
        pp2 (getpoint pp1 "\n请输入第二点：")
        pp3 (getpoint pp2 "\n请输入第三点：")
  )
  (setq pp (append pp1 pp2 pp3))
  (setq tmp (vlax-make-safearray vlax-vbdouble (cons 0 (- (length pp) 1))))
  (vlax-safearray-fill tmp pp)
  (setq pl (vla-addpolyline ms tmp))
  
   ;设置多段线的凸度
  (vla-SetBulge pl 1 -0.5)

  ;复制多段线
  (setq co (vla-copy pl))
  (vla-move co p11 p22)

  ;范围缩放
  (vla-zoomextents cad)
  
  (princ)
)
[/php]

自由的鱼

长不大版主要全面进攻了，：）