自贡黄明儒的留言板 - 明经CAD社区

scdzwch 2016-7-8 16:19

老乡 http://bbs.mjtd.com/thread-172661-1-1.html 再帮我看下。急急急

scdzwch 2016-7-8 16:17

老乡 http://bbs.mjtd.com/thread-172661-1-1.html 再帮我看下。急急急

scdzwch 2016-7-8 16:17

老乡 http://bbs.mjtd.com/thread-172661-1-1.html 再帮我看下。急急急

scdzwch 2016-7-8 16:17

老乡 http://bbs.mjtd.com/thread-172661-1-1.html 再帮我看下。急急急

kexiya123 2016-5-27 14:06

http://bbs.mjtd.com/thread-107027-1-1.html,
不知后来成功了没有

773786668 2016-5-23 13:53

黄兄，求一份你之前发过的LISP集，之前好像是要2个币下载的，后来去下的时候提示文件有失效。我之前是在另一个帖子看到的连接，好像是你说的254获得处理后的图形选择集。可否发邮箱（名字扣扣），或者给连接下载。

自贡黄明儒 2016-1-29 08:00

defun 或者lisp自己的，如< car ......

xurugen 2016-1-28 17:33

那xyz 这个函数又怎样定义呢？

自贡黄明儒 2016-1-28 11:33

这就要求sortpts的参数xyz的地方输入函数。

xurugen 2016-1-28 10:07

(defun sortpts (PTS FUN xyz FUZZ)
(vl-sort pts
   '(lambda (a b)
  (if (not (equal (xyz a) (xyz b) fuzz))
(fun (xyz a) (xyz b))
  )
   )
)
  )
老师你这个函数这样写，能够帮我注释一下吗，我看不懂格式怪怪的  xyz明明是变量，怎么可以写成（xyz a ）?

xurugen 2016-1-28 09:58

你的函数中没有定义 xyz 这个函数啊，另外加载 (setq fun >)这个表达式出现了 #<SUBR @199d9538 <>是什么意思呢？

自贡黄明儒 2016-1-28 07:57

lisp函数都是这样，前面是函数，后面的函数需要的参数即变量

xurugen 2016-1-27 17:25

(xyz a ) xyz是变量还是函数啊？这样写是什么意思？

xurugen 2016-1-27 17:24

;;1 点列表排序
  (defun sortpts (PTS FUN xyz FUZZ)
(vl-sort pts
   '(lambda (a b)
  (if (not (equal (xyz a) (xyz b) fuzz))
(fun (xyz a) (xyz b))
  )
   )
)
  )
  ;;2 排序
  (defun sortpts1 (PTS KEY FUZZ)
(setq Key (vl-string->list Key))
(foreach xyz (reverse Key)
   (cond ((< xyz 100)
   (setq fun >)
   (setq xyz (nth (- xyz 88) (list car cadr caddr)))
   )
   (T
   (setq fun <)
   (setq xyz (nth (- xyz 120) (list car cadr caddr)))
   )
   )
   (setq Pts (sortpts Pts fun xyz fuzz))
)
  )这两个函数能够帮忙解释一下吗？