[求助]：未知命令“***”。按 F1 查看帮助。

xjjy

我编了几个LSP程序，可以正常运行，但运行完后，命令行就会提示：

***选取插入点:未知命令“LRB”。按 F1 查看帮助。
未知命令“LRB”。按 F1 查看帮助。
未知命令“LRB”。按 F1 查看帮助。

不知是何原因？

xyp1964

肯定是程序本身的问题！
把程序传上来看看！

xjjy

帮忙看下！谢谢！

(DEFUN c:STP()
  (command "undo" "group")
  (setvar "cmdecho" 0)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
;  (CHECK)
  (SETQ TXT1 (STRCAT "STP  **Stop Pin (停止销)"))
  (DRAW_STP)
  (setvar "OSMODE" os)
  (command "undo" "end")                               
  (princ)
)
;--------------
(DEFUN DRAW_STP()
;  (CAUTION)
  (setq PT0 (getpoint "\n***选取插入点:"))
  (setq oldlayer1 (getvar "clayer"))
        (IF (= (TBLSEARCH "LAYER" "STP") NUL)
            (COMMAND "LAYER" "N" "STP" "C" "3" "STP" "LT" "" "STP" ""))
  (setvar "clayer" "STP")
  (setq PT1 (POLAR PT0 0 8.0))
  (setq PT2 (POLAR PT1 (/ PI 2) 5))
  (setq PT3 (POLAR PT2 PI 16))
  (setq PT31 (POLAR PT3 (* PI 1.5) 0.5))
  (setq PT4 (POLAR PT3 (* PI 1.5) 5))
  (setq PT41 (POLAR PT4 (/ PI 2) 0.5))

  (setq PT01 (POLAR PT0 PI 3.0))
  (setq PT02 (POLAR PT01 (* PI 1.5) 1.0))
  (setq PT03 (POLAR PT0 0 3.0))
  (setq PT04 (POLAR PT03 (* PI 1.5) 1.0))

  (setq PT5 (POLAR PT02 PI 1))
  (setq PT6 (POLAR PT5 (* PI 1.5) 9.0))
  (setq PT61 (POLAR PT6 (/ PI 2) 0.5))
  (setq PT7 (POLAR PT6 0 8.0))
  (setq PT71 (POLAR PT7 (/ PI 2) 0.5))
  (setq PT8 (POLAR PT7 (/ PI 2) 9.0))



  (COMMAND "PLINE" PT1 PT2 PT3 PT4 "C")
  (setq en1 (entlast))
  (COMMAND "CHAMFER" "D" "0.5" "0.5" "")
  (COMMAND "CHAMFER" "p" en1)
  (setq en2 (entlast))
  (COMMAND "PLINE" PT31 "@16,0" "")
  (setq en3 (entlast))
  (COMMAND "COPY" en3 "" PT31 PT41)


  (COMMAND "PLINE" PT5 PT6 PT7 PT8 "")
  (setq en4 (entlast))
  (COMMAND "CHAMFER" "p" en4)

  (COMMAND "PLINE" PT01 PT02 "")
  (COMMAND "PLINE" PT03 PT04 "")
  (COMMAND "PLINE" PT61 PT71 "")
  (COMMAND "PLINE" PT8 PT5 "")
  (setvar "clayer" oldlayer1)
)

cqnj023

将(COMMAND "CHAMFER" "D" "0.5" "0.5" "")
改为(COMMAND "CHAMFER" "D" "0.5" "0.5" )一般这种情况都是在调用command或vl-cmdf时多了空回车""造成的.

xjjy

谢谢！我试试！

onej

CHAMFER，是个什么命令？

月影水飘飘

CHAMFER 是 倒角 命令