[求助]：请教两个问题（我编的lisp都有的问题）

clearlai

1：我编出来的程序在运行时一切正常，但是就是在cad 命令有如下：
命令: underline
未知命令“UNDERLINE”。按 F1 查看帮助。
未知命令“UNDERLINE”。按 F1 查看帮助。
选择对象: 未知命令“UNDERLINE”。按 F1 查看帮助。   （执行完有一堆这样的信息）
未知命令“UNDERLINE”。按 F1 查看帮助。
未知命令“UNDERLINE”。按 F1 查看帮助。
未知命令“UNDERLINE”。按 F1 查看帮助

我如何能不让这个显示，这个显示是因为使用了command函数的原因吗？

问题二：有一个任意形状的封闭的pline（如多边形），现在我想取的这个pline去保护层所得的面积（如梁截面外框知道，现在要取减去保护层剩下的面积），这个怎么取的。用什么函数？

carrot1983

1.command的引号要注意！
2.你自己修改一下吧！写得比较粗!
[php]
(defun c:tt (/ area dis echo elast ent osm p)
  (setq echo (getvar "cmdecho"))
  (setq osm (getvar "osmode"))
  (setvar "cmdecho" 0)
  (if (setq dis (getdist "\n输入保护层的厚度:"))
    (progn
      (if (setq ent (car (entsel)))
        (progn
          (setvar "osmode" 0)
          (if (setq pt (getpoint "\n指定梁内侧的点:"))
            (progn
              (command ".offset" dis ent pt "")
              (setq elast (entlast))
              (command "area" "o" elast)
              (command "erase" elast "")
              (setq area (getvar "area"))
              (setvar "osmode" osm)
              (setvar "cmdecho" echo)
              (princ (strcat "\n扣除保护层后的面积:" (rtos area 2 3)))
            )
          )
        )
      )
    )
  )
  (princ)
)
[/php]

carrot1983

我也连续发两个不一样的贴啊！呵呵，当然都是修改过的！

clearlai

谢谢了。我也刚发现是command引号的原因。害我程序都检查一遍。但是还是有没找出来的。不过很多改好了。
还有谢谢你上面的程序。我参考一下。
最简单的就是用offset了把。我想过用其他的。但是没什么头绪。

carrot1983

最简单最实用！
一般要先想出第一种方法！再去考虑优化和多种方法