请教老师以下代码需要哪些函数可以实现运行

柴月二号

(defun c:fw( / sel)
(setq SF_CURRCMD "FW")
(menucmd "S=X");;这部分有什么作用？？
(menucmd "S=MDFW");;这部分有什么作用？？
(setq sel (getNumsel "\n1:<多点房>  2:简易房  3:棚房  4:花房  5:破房 选择:" 1 8 1))
(cond ((= sel "1") (c:hnp))
      ((= sel "2") (c:jyf))
      ((= sel "3") (c:pf ))
      ((= sel "4") (c:hf ))
      ((= sel "5") (c:puof))
)
(princ)
)

;;;getnumsel 是不是自定义函数应该如何写？？

newer

看ACAD 帮助， menucmd 的用法介绍。

看下面的代码，getNumSel, 就应该是 getstring,getkword, 你可以替换下

csharp

最终命令行提示是什么效果

柴月二号

newer 发表于 2016-10-9 16:38

getstring 可以进行 1 2 3 .......等选择   
但是  我简单定义一个命令1 hnp   放到一楼代码后面
例（defun c:hnp ()
                    (command "lwpolyline")
）

；；；直接输入fw   选择1   却不能调用画线命令是为什么

Lisphk

有这个命令吗？
(command "lwpolyline")

应该是：

(command "pline") 吧？