[讨论]：我提的LISP的问题集锦，希望大家踊跃参加回答和提问,使得大家能对LISP有更深

yueguohan · 发表于 2005-3-23 18:11:58

可以帮我写个程式吗?我听说LISP很好用,但我一点都不会
可我现在急需一个程式,将我所有的圆的圆心座标输出成
一个TXT文件,内部格式如:

10.887362,3,874652
12.635452,6.837625
.....

suifeng_ye · 发表于 2005-10-25 18:27:55

楼主什么时候出一个教程吧，小弟很想也学学DIY

zxmmelly · 发表于 2006-2-27 22:42:10

第二个问题用 aotuload 挺好啊

piaoying · 发表于 2006-3-1 23:35:15

我想编写一个从大图上剪切一个小图的程序

crisp27 · 发表于 2006-4-10 14:57:23

楼主可否帮我检查一下这个程序，加载后输入命令可以调出但回车后却什么都没有，出现一个nil
程序如下
(defun c:gz()
(setq file (open "c:\\1.txt" "w"))
(setq s(ssget (list(cons 0 "POINT"))))
(setq a 0)
(repeat (sslength s)
(setq ent(entget(ssname s a)))
(setq z(cadddr(assoc 10 ent)))
(princ z file)
(princ "\n" file)
(setq a(1+ a))
)
(close file)
)

knight928 · 发表于 2006-7-22 00:55:58

(defun c:PT (/ S A Z FILE i)
  (setq file (open "c:\\1.txt" "w"))
  (setq s (ssget (list (cons 0 "POINT"))))
  (setq a 0 I 0)
  (repeat (sslength s)
(setq ent (entget (ssname s a)))
(setq z (cdr (assoc 10 ent)))
(princ z file)
(princ "\n" file)
(setq a (1+ a))
(SETQ I (1+ I))
  )
  (close file)
  (PRINC (STRCAT "一共读入"(ITOA I) "个点"))
  (prin1)
)

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

[讨论]：我提的LISP的问题集锦，希望大家踊跃参加回答和提问,使得大家能对LISP有更深

求助