社区 › AutoLISP/Visual LISP 编程技术 › 会的师傅们请帮忙合并一下这两个程式。

xiongqunan 发表于 2014-3-9 11:14:25

会的师傅们请帮忙合并一下这两个程式。

(defun c:rt() (command "dimstyle" "r" "dim"))(prin1)                ；设置标注样式为dim


(defun C:ddm()
(setvar "cmdecho" 0)
(setvar "Clayer" "dim")
(princ)
)
定义dim为当前图层

这两个程式功能要怎么才可以合并成一个？也就是说一个命令要达到这两个功能。

Andyhon 发表于 2014-3-9 11:25:57

Try:
(defun C:ddm()
(setvar "cmdecho" 0)
(setvar "Clayer" "dim")
(command "dimstyle" "r" "dim")
(princ)
)

查看完整版本: 会的师傅们请帮忙合并一下这两个程式。