wayi2002 发表于 2007-8-1 22:05:00

[求助]帮帮我lisp盲

<p>defun c:1()<br/>(setq s(atof(cdr(assoc 1 (entget(car(nentsel)))))))<br/>(setq pt1(getpoint "插入点:"))<br/>(while (/= pt1 nil)<br/>(setq s(+ 1 s))<br/>(command "text" pt1 "" "" (strcat(rtos s 2 0)"号楼") "")</p><p>(setq pt1(getpoint "插入点:"))<br/>(setq s s)<br/>)<br/>) </p><p>问保存成什么文件？ 加载后用什么命令打开？谢谢</p>

hahthx-zyp 发表于 2007-8-1 22:12:00

<p>按"1"就行了，不过你前面少了一个“（”</p>

zml84 发表于 2007-8-2 08:47:00

本帖最后由 作者 于 2007-8-2 8:51:17 编辑

楼主要的可是这个：(defun C:1 ()
    (setq S (atoi (cdr (assoc 1 (entget (car (nentsel)))))))
    (while (setq PT1 (getpoint "插入点:"))
        (setq S (+ 1 S))
        (command "_.text" "non" PT1 "" "" (strcat (itoa S) "号楼") "")
    )
    (princ)
)
页: [1]
查看完整版本: [求助]帮帮我lisp盲