[功能] 过一点画射线与曲线的交点

风流少年时 · 发表于 2015-4-19 16:47:17

学习一下。

youmin_1979 · 发表于 2015-5-10 09:36:25

很实用，想看看怎么实现的。

77077 · 发表于 2015-5-27 21:38:16

;;[功能] 画封闭多边形----------脱了裤子放屁
(defun C:w1 (/ PTS)
  (cond ((setq pts (HH::getPoints)) (MakeXLWPOLYLINE pts)))
)

;;[功能] 取点函数
(defun HH::getPoints (/ CODE FLAG P0 PT PT1 X Y)
  (while (and (setq code (grread T 8)) (or (= (car code) 3) (= (car code) 5)))
(cond ((= (car code) 3) (setq pt (cons (cadr code) pt))))
(redraw)
(cond
   ((> (length pt) 1)
   (setq pt1 (cons (cadr code) pt))
   (setq pt1 (cons p0 pt1))
   (mapcar '(lambda (x y) (grdraw x y 1)) pt1 (cdr pt1))
   )
   ((equal (length pt) 1) (setq p0 (car pt)) (grdraw p0 (cadr code) 1))
   (T
   (cond ((not Flag) (setq Flag T) (princ "\n 点取起点")))
   )
)
  )
  (redraw)
  (cond ((> (length pt) 2) (reverse pt)))
)

vlisp2012 · 发表于 2015-5-28 13:33:36

前进！！！！！！！！！！！！

ltrliu · 发表于 2015-8-21 10:18:21

新人学习中

295380473 · 发表于 2015-8-22 15:58:23

回复看看学习下

ucuc2003 · 发表于 2015-8-23 09:56:53

学习大招

skg123 · 发表于 2016-1-24 21:11:08

本帖最后由 skg123 于 2016-1-24 21:13 编辑

可以做曲线X轴的延伸点吗？
下图红圈内；同意函数我一直没搞懂如何引用

柴月二号 · 发表于 2016-1-24 21:39:14

学习学学习学习

奋斗的研究生 · 发表于 2016-1-24 21:45:02

学习学习,,,,,,,,,,,,,,,,,,,,,,,

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

[源码] [功能] 过一点画射线与曲线的交点

本帖子中包含更多资源