求一键画出水平或垂直的构造线

friendship12c

请高手写一个简单程序，每次输入水平构造线都需要先输入“xline： 然后再输入 水平 ”V “或者竖直H 感觉很麻烦，请哪位专家可以写一个简单程序，实现 fv即出现竖直构造线，fg出现水平构造线，谢谢了！
下面是CAD的命令行
命令: xline
指定点或 [水平(H)/垂直(V)/角度(A)/二等分(B)/偏移(O)]: h
指定通过点:

ysq101

(defun c:fv ()
(command "xline" "v")
(princ)
  )


(defun c:fg ()
(command "xline" "h")
(princ)
  )

q3_2006

(defun c:fg () (command "xline" "h"))
(defun c:fv () (command "xline" "v"))

【KAIXIN】

论坛早有现成，我的工具箱2011就有，适合未入门者

hao3ren

f+g+空格=三键

1993063

hao3ren 发表于 2014-3-6 16:25
f+g+空格=三键

啥意思,没明白.

friendship12c

非常感谢，我也不太懂开发，不知道怎么为论坛做贡献！非常感谢！