急急急。。。在线等答案

剪刀石头布遛了

mandala 发表于 2011-9-8 22:41
不过有意思的是，这个程序的过程是这样：由一点，往X方向画一条长500的线，再往Y方向画一条长800的线，然后 ...

呵呵，是这个意思，我边学边写程序，故写了上段程序做个测试，非常感谢，大晚上的。
分析了下原因：(setq en2_data (entget (car en2)))     (setq en2_data (entget line2))，可能我对直线的属性并未理解好。

mandala

(entlast)象你这么用是可以的，但一般把这句话写入linej这个子函数里，如command之后加上（setq a （entlast）），这样主程序里直接写（setq b31 （plinej b2 500 0））就可以了。

另一个子函数这么写会更简单明了。对于曲线相关的函数，vlax系列函数功能更强大！所以我建议对这个系列的函数应该多了解一下。

(defun jiaodian(line1 line2)
                (setq line1 (vlax-ename->vla-object line1))
                (setq line2 (vlax-ename->vla-object line2))
                (setq ctpnt2 (inters
                                              (vlax-curve-getstartpoint line1)
                                              (vlax-curve-getendpoint line1)
                                              (vlax-curve-getstartpoint line2)
                                              (vlax-curve-getendpoint line2)
                                     nil)
                  )
                  (setq x (car ctpnt2))
                  (setq y (cadr ctpnt2))
                (princ (strcat "\n这两条线段交点为：X=" (rtos x) " Y=" (rtos y) "!"))
)

剪刀石头布遛了

mandala 发表于 2011-9-8 22:52
(entlast)象你这么用是可以的，但一般把这句话写入linej这个子函数里，如command之后加上（setq a （entlas ...

恩，受益匪浅