[求助]AutoLISP方面知识请求指教

lad1984

AutoLISP方面知识请求指教：



已编画（command "line" "0,0" "15,0" "")


(setq al (entlast))


(command "line" "0,10" "15,10" "")


(setq bl (entlast))


现想用捕捉 al         bl         两条直线中点的方法再画一直线，应如何编写?谢谢

wudongwei

您提出的这个问题看似很简单的问题,实际上是关于AUTOLISP几何函数Osnap的使用问题.由于语言文化的差异及技术上的差距,我们所有的关于AUTOLISP的资料几乎都是由AUTOCAD帮助文档直译过来,而AUTOCAD帮助文档又过于简单,这给我们的学习带来了很多困难.修改后的程序如下: (defun c:zhongdianzhixian ( / )
(setq pt1 (list 0 0))
(setq pt2 (list 15 0))
(setq pt3 (list 0 10))
(setq pt4 (list 15 10))
(command "line" pt1 pt2 "")
(command "line" pt3 pt4 "")
(setq a1 (osnap pt1 "mid"))
(setq b1 (osnap pt3 "mid"))
(command "line" a1 b1 "")
)