该命令不能透明调用
(defun c:DJ()(setvar "cmdecho" 0);_关闭命令提示
(setvar "peditaccept" 1);直接转化为多段线
(setq ngc02 (getreal "请输入闭合的距离"))
(setq ngc01 (ssget))
(command "_pedit" "m" ngc01 "" "j" ngc02 "")
(setvar "cmdecho" 1);_打开命令提示
(prin1));_关闭程序返回值
(prompt "\n 多项选择同时连线")
(prin1)
这个程序在cad根目录下，老是不能透明调用，放在一个单独的文件每次加载就可以用，请问怎样处理放在根目录下也可以用
页:
[1]