唉，命令太多了，难记，请高手缩小一下命令，如，圆弧自动切换啊，直线，多意线切换啊

tranney

唉，命令太多了，难记，请高手缩小一下命令，如，圆弧自动切换啊，直线，多意线切换啊
能不能编通用程序，
判断条件，按一下是绘制圆，在按一下是绘制弧，可以循环切换的，默认是绘制圆啊,

当然，既然是通用还可以在其他替换成其他2个命令，比如
;;; 调整显示顺序，前置物体
(defun c:xh (/ ss)
(setq ss (ssget))
(command "DRAWORDER" ss "" "f")
)
;;; 调整显示顺序，后置物体
(defun c:hx (/ ss)
(setq ss (ssget))
(command "DRAWORDER" ss "" "b")
)

做好就加分，说到做到，

weiqi

没有意义。。。

(setq aaa1 1)
(defun c:cc1()
(setq aaa1 (* aaa1 -1))
(if (> aaa1 0)  (c:xh)  (c:hx))

)



(defun c:xh (/ ss)
(setq ss (ssget))
(command "DRAWORDER" ss "" "f")
)
;;; 调整显示顺序，后置物体
(defun c:hx (/ ss)
(setq ss (ssget))
(command "DRAWORDER" ss "" "b")
)

weiqi

你还不如 把命令A为画圆  命令AA为画圆弧。来得直接
另外命令可以带数字键
如A1 A2 A3，`也可以。。。。。我的命令全部左手~各种组合自由发挥呗
B1 B2 B3 BBBB1
记不住的话。。。。建议多做记忆力训练哦。。

669423907

我收藏的

;lsp程序合并（Gu_xl）
(defun c:(/ kJ)
(initget 7 "1 2 3  ");3后面两个空格
(setq kJ (getkword "\n输入选项[<1>,<2>,<3>]:<1>:"))
(cond
((= "2" kJ)(c:程序2快捷键))
((= "3" kJ)(c:程序3快捷键))
        (t (c:程序1快捷键)))
(princ))



(defun c:()
(initget "1 2 3 4 5")
(setq no (getkword "请选择1,2,3,4,5<1>:"))
(if (= no nil)(setq no "1"))

(cond ((= no "1")程序1))
(cond ((= no "2")程序2))
(cond ((= no "3")程序3))
(cond ((= no "4")程序4))
(cond ((= no "5")程序5))

(princ))

白皮猪

669423907 发表于 2013-6-7 09:50
我收藏的

;lsp程序合并（Gu_xl）

感谢...

︶ㄣ与狼共舞

669423907 发表于 2013-6-7 09:50
我收藏的

;lsp程序合并（Gu_xl）

谢谢！真不错啊,试用了一下，对我的帮助是相当的大！太感谢了。

chbddzx12

学习了~~~~~。。。。

paulpipi

真是个好程序