如何以作圖求商

Joseflin

如何以作圖法求 AC/AB 之商值？

mccad

缩放，将AB距离缩放成1，则AC距离为商值。

mccad

或者这种方法：

Joseflin

期待mccad兄詳細解釋第二種方法。

mccad

第二种其实与第一种差不多，用的不是缩放法。

在A点画垂直线AD，在垂直线另一端画横线DE，长度为1，连接B点和E点，延长AD和BE相交于点G。连接GC。延长DE与GC相交，交点为F。

即DF为所求长度。

Joseflin

請問Highflybir版主：在不先查詢長度而要以'CAL求出AC/AB值，Express應如何寫？

qjchen

这样行否：）

(dee/dee)

或者

(dist(end,end)/dist(end,end))

highflybir

(arxload "geomcal.arx")

(defun c:test ()
  (cal "(dist(cur,cur)/dist(cur,cur))")
)

这样返回值为一个商。

你可以在命令中透明地输入,例如：

sc SCALE
选择对象: 指定对角点: 找到 1 个

选择对象:
指定基点:
指定比例因子或 [复制(C)/参照(R)] <1.00>:  'test >> 输入点:
>> 输入点:
>> 输入点:
>> 输入点:
1.16418

这样的话就可以按两个线段的比值为比例来缩放了。

Lotto168

基本上這是還可以不用到程式的，如qjchen君所示，步驟如下：(長度分別如樓主所示)

指令: sc SCALE
選取物件: 1 找到
選取物件:
指定基準點:
指定比例係數或 [複製(C)/參考(R)] <1.0000>: 'cal
>>>> 表示式: dee/dee
>>>> 選取一個端點給 DEE:
>>>> 選取另一個端點給 DEE:
>>>> 選取一個端點給 DEE:
>>>> 選取另一個端點給 DEE:
繼續執行 SCALE 指令。
指定比例係數或 [複製(C)/參考(R)] <1.0000>: 3.6946022370596

dee = dist(end,end)