[LISP]怎样编写一个只要输入点号便可完成连线的程序

zhongguola

5楼的帖子就是一个很好的例子！！！！

zhongguola

10楼的帖子也是很好的路子，但是在运行时出现以下情况：

命令：test

错误; no function definition; prong

无痕

2. ;| ttpts = 输入点号绘图连线----by---lxx.2005.10
3. http://bbs.mjtd.com/forum.php?mod=viewthread&tid=43158
4. GPS数据全部存放到.TXT文件中。
5. 其格式是：
6. 点号       X坐标        Y坐标         Z坐标
7. 编写 一个只要输入点号便可完成绘图连线的程序   ！！！！！
8. |;
9. (defun c:ttpts (/ f ff a lst ilst nlst)
10.   (if (and (setq f (getfiled "pts.txt" "" "" 4))   ;(指定路径，文件名）
11.     (setq ilst (getstring T "\n输入点序列(1起算,以空格分开):")) ;; 如"2 4 6 1 9"
12.     )
13.     (progn
14.       (setq ff (open (findfile f) "r"))
15.       (while (setq a (read-line ff))
16. (setq lst (cons (cdr (read (strcat "(" a ")"))) lst))
17.       )
18.       (close ff)
19.       (setq lst (reverse lst)
20.      nlst(mapcar '(lambda(x)(nth (1+ x)lst)) (read (strcat "(" ilst ")")))
21.      )
22.       (apply 'command (cons "pline" nlst))
23.       (command "")
24.     )
25.   )
26. )

;| ttpts = 输入点号绘图连线----by---lxx.2005.10 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=43158 GPS数据全部存放到.TXT文件中。 其格式是： 点号       X坐标        Y坐标         Z坐标 编写 一个只要输入点号便可完成绘图连线的程序   ！！！！！ |; (defun c:ttpts (/ f ff a lst ilst nlst)   (if (and (setq f (getfiled "pts.txt" "" "" 4))   ;(指定路径，文件名）     (setq ilst (getstring T "\n输入点序列(1起算,以空格分开):")) ;; 如"2 4 6 1 9"     )     (progn       (setq ff (open (findfile f) "r"))       (while (setq a (read-line ff)) (setq lst (cons (cdr (read (strcat "(" a ")"))) lst))       )       (close ff)       (setq lst (reverse lst)      nlst(mapcar '(lambda(x)(nth (1+ x)lst)) (read (strcat "(" ilst ")")))      )       (apply 'command (cons "pline" nlst))       (command "")     )   ) )

zhongguola

篇幅不长，简介明了。

好用！！！！

谢谢！！！！

qzwtsy

cass5.1 有这个功能！！

yaokui25