[LISP程序]：练习点到线上最近点.lsp

zml84 · 发表于 2008-4-26 19:10:49

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

<pre>;;;========================================================
;;; 练习 
;;;功能：点到线上最近点 
(vl-load-com)
;;;========================================================
(defun C:TT (/ TEST SS TMP MODE PT PT0)
(if (and
 (setq SS (entsel "\n点取线: "))
 (princ "\n")
 (setq TEST t)
)
(while TEST
 (setq TMP (grread 4 2)
 MODE (car TMP)
 PT (cadr TMP)
 )
 ;; (princ MODE)
 (cond
;;移动
((= MODE 5)
 ;;计算最近点
 (setq PT0 (vlax-curve-getclosestpointto (car SS) PT))
 (princ
 (strcat "\r距离: " (vl-princ-to-string (distance PT PT0)))
 )
 ;;
 (redraw)
 (grdraw PT PT0 1)
)
;;左击
((= MODE 3)
 ;;计算最近点
 (setq PT0 (vlax-curve-getclosestpointto (car SS) PT))
 ;;绘制直线
 (entmake (list (cons 0 "LINE")
(cons 62 2)
(cons 10 PT)
(cons 11 PT0)
 )
 )
)
;;右击
((= MODE 11)
 (redraw)
 (setq TEST NIL)
)
;;
(t
 (princ (strcat "\r" (vl-princ-to-string TMP)))
)
 )
)
)
(princ)
)
;;;========================================================
;;;后记：暂没有考虑选择对象的类型、坐标系的转换。
</pre>

animal212 · 发表于 2008-5-2 21:45:25

这材料不错哦。学到了不少。

qjcpj · 发表于 2008-5-3 09:58:12

感谢分享!

tow · 发表于 2008-5-7 14:27:26

入門中﹗

coolsnake · 发表于 2008-5-7 17:21:02

谢谢啊！先拿来看看，这里发源码的人不少啊，下次我也发源码大家分享。

softbird · 发表于 2008-5-14 23:07:50

使用了很不错，不知道能否加上对点的捕捉，以方便精确的定位

雨箭风刀 · 发表于 2008-5-15 13:24:22

(command ".xline" "per" pause)
这句代码虽然短，但却有异曲同工之妙

leeyuan · 发表于 2008-5-15 23:07:17

学习了下grread的用法

黄河之水 · 发表于 2008-5-18 12:59:03

已试过，有创意

god1478 · 发表于 2008-5-19 19:25:14

这个东西有时很实用的需要自己把握谢谢了楼主

wawbt · 发表于 2008-5-31 21:36:14

同意六楼的意见,确实应增加捕捉功能,方便做图

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

[LISP程序]：练习 点到线上最近点.lsp

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

[LISP程序]：练习点到线上最近点.lsp