社区 › AutoLISP/Visual LISP 编程技术 › [功能] 过一点画射线与曲线的交点

风流少年时 发表于 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

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

查看完整版本: [功能] 过一点画射线与曲线的交点