[LISP]一个令我困惑的问题

zhongguola

搜不到呀！

 

meflying

看来搜索能力也有待提高啊

http://www.mjtd.com/mcdown/list.asp?id=87

ZZXXQQ

一楼程序的修改：

3. (defun c:mj ()
4. (setvar "cmdecho" 0)
5. (SETQ CSTY (GETVAR "CMLSTYLE"))
6. (SETQ TXTH (TBLNEXT "STYLE" T))
7. (WHILE (/= (CDR (ASSOC 2 TXTH)) CSTY) (SETQ TXTH (TBLNEXT "STYLE" nil)))
8. (SETQ TXTH (CDR (ASSOC 40 TXTH)))
9. (while (setq pt (getpoint "\n 选取点："))
10.   (setvar "cecolor" "1")
11.   (command "bpoly" pt "")
12.   (if (setq en (entlast)) (progn
13.    (command "area" "o" en)
14.    (setq aa (getvar "area"))
15.    (redraw en 3)
16.    (IF (= TXTH 1)
17.     (COMMAND "TEXT" PT 0 (RTOS AA 2 3))
18.     (command "text" pt 3 0 (rtos aa 2 3))
19.    )
20.    (entdel en)
21.   ))
22.   (setvar "cecolor" "bylayer")
23. )
24. (prin1)
25. )

(defun c:mj () (setvar "cmdecho" 0) (SETQ CSTY (GETVAR "CMLSTYLE")) (SETQ TXTH (TBLNEXT "STYLE" T)) (WHILE (/= (CDR (ASSOC 2 TXTH)) CSTY) (SETQ TXTH (TBLNEXT "STYLE" nil))) (SETQ TXTH (CDR (ASSOC 40 TXTH))) (while (setq pt (getpoint "\n 选取点："))   (setvar "cecolor" "1")   (command "bpoly" pt "")   (if (setq en (entlast)) (progn    (command "area" "o" en)    (setq aa (getvar "area"))    (redraw en 3)    (IF (= TXTH 1)     (COMMAND "TEXT" PT 0 (RTOS AA 2 3))     (command "text" pt 3 0 (rtos aa 2 3))    )    (entdel en)   ))   (setvar "cecolor" "bylayer") ) (prin1) )

zhongguola

13楼的程序无法运用

命令行一片空白

zhongguola

9楼的程序能不能把引线去掉呀？

ZZXXQQ

zhongguola发表于2005-9-16 9:59:0013楼的程序无法运用 命令行一片空白

zhongguola

让大哥久等了！

是这个样子的。当我运用您修改后的程序时会出现如下情况：

命令：MJ

然后命令CAD命令行就是什么也没有了，一直等待，

按ESC也不行，提示还有一个命令正在运行，

可我等了半天还是不见任何反应，只得强行中断

zhongguola

大哥们，帮帮忙吧！

谢了！

ZZXXQQ

13楼程序在R14上调试通过。不知你用的ACAD是什么版本？要不你发一张测试图上来。

zhongguola

我用的是CAD2002