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

zhongguola · 发表于 2005-9-19 17:14:00

我试过了，在CAD14非常好用，但是在CAD2002上就会出现我所说的情况

ZZXXQQ · 发表于 2005-9-19 22:16:00

本帖最后由作者于 2005-9-20 8:44:04 编辑

在2002中调试后的程序：

(DEFUN C:MJ ()
(SETVAR "CMDECHO" 0)
(SETQ TXTH (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GETVAR "CMLSTYLE")))))
(COMMAND ".UNDO" "BE")
(SETVAR "CECOLOR" "1")
(WHILE (SETQ PT (GETPOINT "\nSelect a Point 选取点："))
(COMMAND "BPOLY" PT "")
(IF (SETQ EN (ENTLAST)) (PROGN
(COMMAND "AREA" "O" EN)
(SETQ AA (GETVAR "AREA"))
(IF (> TXTH 0)
(COMMAND "TEXT" PT 0 (RTOS AA 2 3))
(COMMAND "TEXT" PT 3 0 (RTOS AA 2 3))
)
(ENTDEL EN)
))
)
(COMMAND ".UNDO" "E")
(SETVAR "CECOLOR" "BYLAYER")
(PRIN1)
)

复制代码

MJTD_7777 · 发表于 2005-9-20 17:46:00

可乐版 (下述程序是在‘ZZXXQQ’的基础上修改的）

(DEFUN C:MJ ()
(if (not (entlast))
    (progn
      (alert "老大图形里总得有点东西再用吧。")
      (exit)
      )
    )
(SETvar "CMDECHO" 0)
(SETQ TXTH (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GETvar "CMLSTYLE")))))
(COMMAND ".UNDO" "BE")
(SETvar "CECOLOR" "1")
(WHILE (SETQ PT (GETPOINT "\nSelect a Point 选取点："))
   (setq LastHand (cdr(assoc 5 (entget (entlast)))))
   (COMMAND "BPOLY" PT "")
   (SETQ EN (ENTLAST))
   (IF (/= LastHand (cdr(assoc 5 (entget en)))) ;不等于才能说明已经有实体生成
     (PROGN
       (COMMAND "AREA" "O" EN)
       (SETQ AA (GETvar "AREA"))
       (IF (> TXTH 0)
(COMMAND "TEXT" PT 0 (RTOS AA 2 3))
(COMMAND "TEXT" PT 3 0 (RTOS AA 2 3))
)
       (ENTDEL EN)
       )
     (alert "你应该选择内部点，不然我不干。")
     )
   )
(COMMAND ".UNDO" "E")
(SETvar "CECOLOR" "BYLAYER")

(PRIN1)
)
(princ "\n虽然这个 MJ 的命令名总能让你想起‘麻将’但是我真的是用来计算面积的。\n\n")

zhongguola · 发表于 2005-9-21 09:20:00

谢谢祝位大哥！

能说明一下CAD14可运行而CAD2002不能运行的原因吗？

无痕 · 发表于 2005-9-21 13:37:00

(IF (SETQ EN (ENTLAST)) (PROGN
没有意义！

ZZXXQQ · 发表于 2005-9-21 21:13:00

zhongguola发表于2005-9-21 9:20:00谢谢祝位大哥！能说明一下CAD14可运行而CAD2002不能运行的原因吗？

原因是R14中层名均为大写。而2002中在变量中是大写，在实体数据表中却为大写字母开头。所以判断出错。

以下是引用无痕在2005-9-21 13:37:20的发言：
(IF (SETQ EN (ENTLAST)) (PROGN
没有意义！

复制代码

同意

zhongguola · 发表于 2005-10-8 14:30:00

请问诸位大哥,

能按照5楼的说法编个程序吗?

谢谢了!!!!!!!!!!!!!!!!

zhongguola · 发表于 2005-10-8 22:19:00

诸位大哥帮帮忙吧!!!!!!

谢谢了!!!!!!!

zhongguola · 发表于 2005-10-24 16:19:00

求大家了！！

帮个忙吧！！！！

按照5楼的帖子编一个吧！！！！！

zhongguola · 发表于 2005-10-24 16:21:00

求大家了！！！

帮帮忙吧！

按照5楼的程序编写一个吧！！！！！

账号		自动登录	找回密码
密码			注册