[请教]怎样才能把command 中用的透明的cal，然后计算交点int，写在lisp的表达式里？

3stone

Command: *Cancel*

Command: l
LINE Specify first point: 'cal
>> Expression: int
>> Select entity for INT snap:
(209.199 138.741 0.0)

Specify next point or [Undo]:

如果用LISP怎么来表达呢？

meflying

你想做什么呢？

3stone

一是不会，就好奇。
二是我已知道例如圆弧的实体名称，能否在LISP利用cal就可计算出其中点。

meflying

为什么要用cal？LISP本身就可以计算啊，你又想计算什么点呢？总得有已知条件吧

3stone

如：选择ARC，(SETQ A (entget (car (entsel))))
获取entility name,然后能否用CAL在LISP里计算出其中点坐标。

如果在命令行是这样的：
Command: cal
>> Expression: mid
>> Select entity for MID snap:
(222.947 126.572 0.0)
Command:

龙龙仔

(osnap (getpoint) "mid")

meflying

即使根据选择ARC用几何方法计算出中点都可以啊，真不明白为什么一定要用cal