[求助]

robin43257

大哥大姐们：
  我以前没有学过lisp，但现在有急用，要编一个程序（对曲线赋高程），
请问我现在该去看哪本书？

   （我的时间只有一个月左右）
   
我已有以下一个程序只是有时会有错：
(defun c:gcs()  
       (setq ent1 (entsel))
       (setq gc1 (getreal "\nEnter the  elevation:"))
       (setq m (rem gc1 5))
          (cond ((> m 0) (setq cc 3))
                   ((=  m 0) (setq cc 6))
            )
      (setq txt4  gc1)
      (command "change" ent1 "" "p" "e" gc1 "c" cc"" )
      (ade_odaddrecord ent1 "gc")
      (ade_odsetfield ent1 "gc" "gcz" 0 txt4)
)

可以直接加载这个程序，我看了一下help，可是我不知道最后两行的意思，有人说是自定义的函数，可是为何没有这两个自定义的函数也可以运行？

     我现在看不懂最后两行，所以我可能领会到写这个程序的人的具体含义。
     （给这个函数的人我已经联系不上了）

mccad

你说程序没有出错，运行后命令行是这样的：
命令: gcs
选择对象:
Enter the  elevation:11 change
选择对象:   找到 1 个
选择对象: 指定修改点或 [特性(P)]: p
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/打印样式(PL)]: e
指定新标高 <0.0000>: 11.00000000000000
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/打印样式(PL)]: c
输入新颜色 <随层>: 3
输入要修改的特性
[颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/打印样式(PL)]:
命令: ; 错误: no function definition: ADE_ODADDRECORD

meflying

任何一个函数，如果去掉后面的，只执行到一半肯定是可以的。只是得不出正确的结果而已。[br]所以没有最后两个函数照样可以运行。
建议你把要求提出来，如故不是很复杂，很费劲，这里有很多人都可以帮你写的。
如果你想学，也可以，不过一个月的时间差不多就用来学习吧

robin43257

dwg图形在autocad或automap中打开后，图上点的x和y坐标可以直接从文本格式中导入，可是图上的各条线是没有高程的，所以要对他进行赋值。由于线很多所以最好对有同一高程的线一次性赋值。
   可是我又没有学过vlisp所以很着急。这是我毕业设计中的很重要的一个内容。
但是最近没有时间去看书学习，所以来到这请教各位大哥大姐，希望各位大哥大姐能帮帮我。

meflying

光想法是不能写程序的，比如说你的文本的格式，你的高程根据哪些条件会有什么不同都不知道[br]

robin43257

大侠，我是在autocad map中对一幅图中的进行编辑，在atuocad map 中我前些天所帖的程序是可以运行的，但是结果不一定会对。
关于文本是什么格式等，我觉得只要能够在CAD中编辑就可以了，我们所用的图纸是从扫描仪上扫进去的，只是没有高程，没有三维坐标，只有二维的。
高程的话，是每隔四条线，第五条线的颜色变化一下，其余的不变。
  我下面帖的程序是对单条进行赋值。
  但是我不知道下面两个语句的含义。有人说是自定义的函数可是我还是可以运行而且结果也是正确的
   
(ade_odaddrecord ent1 "gc")
      (ade_odsetfield ent1 "gc" "gcz" 0 txt4)

meflying

我觉得你对编程还没有入门，还是希望你先学习，如果时间不多，可以让别人帮帮忙，
如果你还是什么都不肯透露，这里就没人能帮你，你自己慢慢琢磨吧。
至于那个AUTOCAD MAP，我没用过。不知是否会在这个软件中有加载那两个函数