LWPOLYLINE交点问题

qq229918602

请问大大们，用最基础的LISP函数能不能实现：图层A与图层B都有多条LWPOLYLINE，求两个图层的LWPOLYLINE线的交点，同层交点不算。。。迷茫中。。有木有，若有，大概的思路？？万分感谢。。

wowan1314

按层建两个选择集，循环取出第一个选择集内一条线求与第二个选择集的交点。

这样是否就可以呢？

qq229918602

wowan1314 发表于 2012-5-8 22:55
按层建两个选择集，循环取出第一个选择集内一条线求与第二个选择集的交点。

这样是否就可以呢？

我想法也是这样，在储存数据表时出错，不知道怎么操作。。感谢你

qq229918602

(defun c:pp()
(setq ss (ssget '((0 . "LWPolyLine"))))
(setq pt_list nil)
(setq i 0)
(repeat (sslength ss)
(sub_test1 (ssname ss i))
(setq i (1+ i))
)
(foreach pt pt_list(command "circle" pt 10))
(alert (strcat "共有<" (itoa (length pt_list)) " >交点在界面上!"))
(prin1)
)
;--------------? 求取交点子程序
(defun sub_test1(#en)
(setq endata (entget #en))            ;获得群码列表
(setq pt10 (cdr (assoc 10 endata)))       ;起点
(setq pt11 (cdr (assoc 10 (reverse endata))))         ;终点
(setq ssint (ssget "f" (list pt10 pt11)))   ;组成点列表赋F，做选集
(setq ssint (ssdel #en ssint))   
(if (> (sslength ssint) 0)
(progn
(setq j 0)
(repeat (sslength ssint)       ;重复ssint次
(setq ena (ssname ssint j))    ;取出选集的第j个对象
(if (ssmemb ena ss)       ;如何ena是选集ss中的一个，返回对象名称
(progn
(setq pta (cdr (assoc 10 (entget ena))))
(setq ptb (cdr (assoc 10 (reverse endata))))
(setq intpt(inters pt10 pt11 pta ptb))   ;返回点pt10 pt11组成的线与pta ptb组成的线的交点
(setq intpt1(osnap intpt "int"))      ;返回交点的字符串
(if (not (member intpt1 pt_list)) (setq pt_list(cons intpt1 pt_list)))   ;若intpt1不在pt_list列表中，则将其加入pt_list
)
)
(setq j (1+ j))
)
)
)
)
附上源码，请问哪里出错了？？？无法循环。

Andyhon

用两条有相交点的 LwPolyLine 调试
(acet-geom-intersectwith (car (entsel)) (car (entsel)) 0)

qq229918602

Andyhon 发表于 2012-5-9 20:33
用两条有相交点的 LwPolyLine 调试
(acet-geom-intersectwith (car (entsel)) (car (entsel)) 0)

老师，你用到的语言没有学到，谢谢你的回答、