[求助]：帮一下我这个对lisp程序一无所知的人

wayi2002

defun c:1()
(setq s(atof(cdr(assoc 1 (entget(car(nentsel)))))))
(setq pt1(getpoint "插入点:"))
(while (/= pt1 nil)
(setq s(+ 1 s))
(command "text" pt1 "" "" (strcat(rtos s 2 0)"号楼") "")

(setq pt1(getpoint "插入点:"))
(setq s s)
)
)
别人写的程序我想用。
问一下：1、保存为什么格式？2、加载后用什么命令打开？谢谢！！

yi.gao

那你知道这是干什么用吗？

wayi2002

知道的，我问的问题，别人回答的。帮帮我吧

qjcpj

保存为*.lsp文件，加载后在命令行输入1即可运行程序。

yi.gao

括号都不匹配

carrot1983

[php]
(defun c:1 ()
  (princ "\n请输入1后空格,选中数字文本")
  (setq s (atof (cdr (assoc 1 (entget (car (nentsel)))))))
  (setq pt1 (getpoint "插入点:"))
  (while (/= pt1 nil)
    (setq s (+ 1 s))
    (command "text" pt1 "" "" (strcat (rtos s 2 0) "号楼"))
    (setq pt1 (getpoint "插入点:"))
    (setq s s)
  )
)

[/php]

yi.gao

他能否会用依然存在疑问

zml84

我们在疑问中学习，在疑问中进步。。

2. 
   
3. (defun C:1 ()
   
4.     (setq S (atoi (cdr (assoc 1 (entget (car (nentsel)))))))
   
5.     (while (setq PT1 (getpoint "插入点:"))
   
6.         (setq S (+ 1 S))
   
7.         (command "_.text" "non" PT1 "" "" (strcat (itoa S) "号楼") "")
   
8.     )
   
9.     (princ)
   
10. )
    

<br /> (defun C:1 ()<br />     (setq S (atoi (cdr (assoc 1 (entget (car (nentsel)))))))<br />     (while (setq PT1 (getpoint "插入点:"))<br />         (setq S (+ 1 S))<br />         (command "_.text" "non" PT1 "" "" (strcat (itoa S) "号楼") "")<br />     )<br />     (princ)<br /> )<br />

zml84

我们在疑问中学习，在疑问中进步。。

2. 
   
3. (defun C:1 ()
   
4.     (setq S (atoi (cdr (assoc 1 (entget (car (nentsel)))))))
   
5.     (while (setq PT1 (getpoint "插入点:"))
   
6.         (setq S (+ 1 S))
   
7.         (command "_.text" "non" PT1 "" "" (strcat (itoa S) "号楼") "")
   
8.     )
   
9.     (princ)
   
10. )
    

<br /> (defun C:1 ()<br />     (setq S (atoi (cdr (assoc 1 (entget (car (nentsel)))))))<br />     (while (setq PT1 (getpoint "插入点:"))<br />         (setq S (+ 1 S))<br />         (command "_.text" "non" PT1 "" "" (strcat (itoa S) "号楼") "")<br />     )<br />     (princ)<br /> )<br />

yi.gao

关键在他

wayi2002

我用了，都可以，谢谢！我经常对建筑物标注1号楼、2号楼......N号楼。用这个程序很方便。现在的问题是：输入1提示选择对象，选建筑物提示： 错误: 参数类型错误: stringp nil，只能在选择对象时，随便选一个文字后，才能开始标注1号楼、2号楼......N号楼。我想这样：提示选择对象时，选择建筑物即可开始在指定位置依次标注。希望改改程序，谢谢

yi.gao

ET工具中早就有实现类似的功能的工具了

aichong

ET工具中的不好用。

zml84

请使用10楼代码。

zml84

2. 
   
3. (defun C:1 (/ ss ent i pt1)
   
4.   (if (and (setq ss (entsel "\n点取编号文本: "))
   
5.            (setq ent (entget (car ss)))
   
6.            (wcmatch (cdr (assoc 0 ent)) "*TEXT")
   
7.            (setq i (atoi (cdr (assoc 1 ent))))
   
8.       )
   
9.     (while (setq PT1 (getpoint "\n插入点:"))
   
10.       (setq i (+ 1 i))
    
11.       (command "_.text"
    
12.                "non"
    
13.                PT1
    
14.                ""
    
15.                ""
    
16.                (strcat (itoa i) "号楼")
    
17.       )
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )
    

<br /> (defun C:1 (/ ss ent i pt1)<br />   (if (and (setq ss (entsel "\n点取编号文本: "))<br />            (setq ent (entget (car ss)))<br />            (wcmatch (cdr (assoc 0 ent)) "*TEXT")<br />            (setq i (atoi (cdr (assoc 1 ent))))<br />       )<br />     (while (setq PT1 (getpoint "\n插入点:"))<br />       (setq i (+ 1 i))<br />       (command "_.text"<br />                "non"<br />                PT1<br />                ""<br />                ""<br />                (strcat (itoa i) "号楼")<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />