[编程申请]：关于垂直线的问题,先谢啦

ysx810210

问题:先选取任意任意一个圆，再选取任意一条直线，如何实现自动以该圆的圆心为起点，画一条垂直于所选取直线的直线,谢啦

xyp1964

[php](load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址:
① http://www.xdcad.net/forum/attachment.php?s=&postid=1606661
② http://www.mjtd.com/bbs/dispbbs. ... ID=37554&page=1
|;


(defun c:test ()
  (cmdla0)
  (setq        s1  (usel1 0 "CIRCLE" "圆")
        s2  (usel1 0 "LINE" "线")
        p0  (dxf 10 (entget (car s1)))
        pt1 (dxf 10 (entget (car s2)))
        pt2 (dxf 11 (entget (car s2)))
        pt3 (polar p0 (+ (angle pt1 pt2) (* pi 0.5)) 1000)
        pt  (inters p0 pt3 pt1 pt2 nil)
  )
  (MKLA "垂线" 1)
  (command "Line" p0 pt "")
  (cmdla1)
)[/php]

ysx810210

2005年06月01日 08:41
谢谢xyp1964  斑竹，能不能编一个AUTOLIST程序，因为我帮人写的，要在其它程序调用并且可在R14中使用，不好意思，我事先没说明


2005年06月01日 10:09
问题已解决了,谢谢各位