[求助]有关自定义涵数的问题

zhongys

(defun fc()
(setvar "cmdecho" 0)
(setq old_os (getvar "osmode"))
(setvar "osmode" 0)
(setq old_cha 2)
(setq pc1 (getpoint "\n Specify first point:"))
(setq pc2 (getpoint pc1 "\n Specify next  point:"))
(setq zang (angle pc1 pc2))
(setq pr1 (polar pc1 (+ zang (angtof "90")) old_cha))
(setq pb1 (polar pc1 zang  old_cha))
(setq pr2 (polar pc2 (+ zang (angtof "90")) old_cha))
(setq pb2 (polar pc2 (+ zang (angtof "180")) old_cha))
(command "line" pr1 pb1 pb2 pr2 "")
(setvar "osmode" ols_os)
(princ)
)

这是一个画模架图直线加倒角的程式，我在图上定义了很多点（如 p1 p2 p3 p4 等等很多），执行此程式时要将目的点转为当前点pc1,pc2才能执行如(setq pc1 p61 pc2 p63)
(fc)，这个令我很困惑，如何将FC转为一个自定义涵数执行时输入命令(fc p1 p2)就能从p1到p2间画一条带倒角的线。在此先谢了。

xxsheng

(defun fc(pc1 pc2)
(setvar "cmdecho" 0)
(setq old_os (getvar "osmode"))
(setvar "osmode" 0)
(setq old_cha 2)
(if (null pc1)(setq pc1 (getpoint "\n Specify first point:")))
(if (null pc2)(setq pc2 (getpoint pc1 "\n Specify next  point:")))
(setq zang (angle pc1 pc2))
(setq pr1 (polar pc1 (+ zang (angtof "90")) old_cha))
(setq pb1 (polar pc1 zang  old_cha))
(setq pr2 (polar pc2 (+ zang (angtof "90")) old_cha))
(setq pb2 (polar pc2 (+ zang (angtof "180")) old_cha))
(command "line" pr1 pb1 pb2 pr2 "")
(setvar "osmode" ols_os)
(princ)
)

你说的是不是这样?但是这样也是需要先选择点pc1和点pc2的~~~~~~

zhongys

不是这种效果，我要的是点不需要转换为PC1,PC2,命令直接对任意点都可以执行如：(fc p53 p98)

zhongys

哎！没有人答复，自已顶算了。