[求助]：[求助]：如何应用LISP求垂足（已知一点和选取一个含有直线的块的选择点）

hsslyl

如图，已知一点P1的坐标和选取一个含有直线（或曲线）的块的选择点P2，请问各位，应用LISP如何求得垂足P3？

xyp1964

2. [FONT=courier new]
   
3. (defun c:test ()
   
4.   (setq        pt1 (getpoint "\n起点 : ")
   
5.         s1  (entsel "\n选择图块 : ")
   
6.         pt2 (osnap (cadr s1) "near")
   
7.   )
   
8.   (command "line" pt1 "per" pt2 "")
   
9.   (setq pt (getvar "lastpoint"))
   
10.   (entdel (entlast))
    
11.   pt
    
12. )[/FONT]

[FONT=courier new]<br /> (defun c:test ()<br />   (setq        pt1 (getpoint "\n起点 : ")<br />         s1  (entsel "\n选择图块 : ")<br />         pt2 (osnap (cadr s1) "near")<br />   )<br />   (command "line" pt1 "per" pt2 "")<br />   (setq pt (getvar "lastpoint"))<br />   (entdel (entlast))<br />   pt<br /> )[/FONT]

hsslyl

谢谢xyp1964！有点不尽完善之处，程序用到(command ...)，因此，这个程序（主体部分）不能在其它(command ...)中途运行。