[求助]：各位热心的高手，有空进来看看，有几个问题请教一下，先谢啦

ysx810210

问题1、先选取任意任意一个圆，再选取任意一条直线，如何实现自动以该圆的圆心为起点，画一条垂直于所选取直线的直线（更详细可下载附件）

2、局部菜单加载了，在LSP程序中却不能调用，何解？
把菜单的内容复制到天正给排水2菜单的相应位置，在LSP程序中又能调用：
不加在天正给排水2菜单中，当程序调用并选择对象时，弹出CAD的快捷菜单
加在天正给排水2菜单中，当程序调用并选择对象时，则弹出自定义的快捷菜单：

下面附上LSP程序和菜单文件，注意菜单文件和LSP程序的路径：
"C:\\WINDOWS\\Desktop\\sk.mns"
"C:\\WINDOWS\\Desktop\\sk.lsp"
也可以下载附件。
sk.lsp程序代码：

(defun c:sk()
(if (not (menugroup "sky")) (command "menuload" "C:\\WINDOWS\\Desktop\\sk.mns"))
(setq ep (entsel "\n请选取对象:"))
(menucmd "P0=POP30")
(menucmd "P0=*")
)


sk.mns菜单文件代码：

// 自定义菜单

***MENUGROUP=sky
***POP30
**P88
[ww]
[菜单1]A
[菜单2]B
[菜单3]C
[菜单4]D
[菜单5]E
[菜单6]F
[菜单7]G


先谢啦！！

xiao_longxin

1：
取得直线上两点坐标 p1、p2
取得圆心坐标 cr_pt
(setq ang1 (angle p1 p2))
(setq ang2 (+ ang1 (/ pi 2)))
(setq p3 (polar cr_pt ang2 100))
(setq p4 (inters p1 p2 cr_p p3 nil))
(command "pline" p4 cr_pt "")

ysx810210

行了，是我之前搞错了，不过要改一下：
(setq p4 (inters p1 p2 cr_p p3 nil))
改为:(setq p4 (inters p1 p2 cr_pt p3 nil))
谢过啦;
希望其他高手能帮我看看第二个问题