Question

autolisp加载成功确提示运行无此命令

(defun ctest( p1 DXF ENAME I SS SSL)
(prompt 请输入文件名)
(setq aa (getstring ) aa (strcat d aa .txt) f (open aa w))
(princn请选择要取圆心坐标的圆：)
(setq ss(ssget))
(if (= ss nil)
(progn
(setq i 0 ssl (sslength ss))
(setq a 序号 x y)
(write-line a f)
(repeat ssl
(setq ename(ssname ss i))
(setq dxf(entget ename) ii (strlen(rtos i 2 0)) )
(if (= ii 1) (setq p1 (cdr(assoc 10 dxf)) x (car p1) y (cadr p1) a (strcat (itoa i) (rtos x 2 4) (rtos y 2 4)))
(if (= ii 2) (setq p1 (cdr(assoc 10 dxf)) x (car p1) y (cadr p1) a (strcat (itoa i) (rtos x 2 4) (rtos y 2 4)))
(if (= ii 3) (setq p1 (cdr(assoc 10 dxf)) x (car p1) y (cadr p1) a (strcat (itoa i) (rtos x 2 4) (rtos y 2 4)))
(setq p1 (cdr(assoc 10 dxf)) x (car p1) y (cadr p1) a (strcat (itoa i) (rtos x 2 4) (rtos y 2 4)))
)))
(write-line a f)
(prompt a)(terpri)
(setq i(1+ i))
)
)
)
(close f)
)

Answer 1

以下是改过的代码,能正确调入,但还是有错,没时间帮你了,自己再摸摸吧

(defun c:ctest (p1 DXF ENAME I SS SSL)
(prompt "请输入文件名:")
(setqaa (getstring)
aa (strcat d aa.txt)
f (open aa w)
)
(princ "请选择要取圆心坐标的圆：")
(setq ss (ssget))
(if (= ss nil)
(progn
(setq i0
ssl(sslength ss)
)
(setq a "序号:"
x y
)
(write-line a f)
(repeat ssl
(setq ename (ssname ss i))
(setq dxf (entget ename)
ii (strlen (rtos i 2 0))
)
(if (= ii 1)
(setqp1 (cdr (assoc 10 dxf))
x (car p1)
y (cadr p1)
a (strcat (itoa i) (rtos x 2 4) (rtos y 2 4))
)
(if (= ii 2)
(setq p1 (cdr (assoc 10 dxf))
x (car p1)
y (cadr p1)
a (strcat (itoa i) (rtos x 2 4) (rtos y 2 4))
)
(if(= ii 3)
(setq p1 (cdr (assoc 10 dxf))
x (car p1)
y (cadr p1)
a (strcat (itoa i) (rtos x 2 4) (rtos y 2 4))
)
(setq p1 (cdr (assoc 10 dxf))
x (car p1)
y (cadr p1)
a (strcat (itoa i) (rtos x 2 4) (rtos y 2 4))
)
)
)
)
(write-line a f)
(prompt a)
(terpri)
(setq i (1+ i))
)
)
)
(close f)
)

Answer 2

(defun ctest( p1 DXF ENAME I SS SSL)
defun定义的如果没加C:是局部函数，不能运行，加了之后才能运行～