- (defun c:test ()
- (setq PT1 (getpoint))
- (setq PT2 (getpoint PT1))
- (command "line" PT1 PT2)
- (command)
- (setq obj1 (entget (entlast)))
- (setq typeinfo1 (substr (cdr (assoc 0 obj1))1))
- (setq layerinfo1 (substr (cdr (assoc 8 obj1))1))
- (setq ent (car PT2))
- (if (not ent)
- (princ "yay!")
- )
- (command "line" pause pause)
- (command)
- (setq obj2 (entget (entlast)))
- (setq typeinfo2 (substr (cdr (assoc 0 obj2))1))
- (setq layerinfo2 (substr (cdr (assoc 8 obj2))1))
- (if (and (= typeinfo1 typeinfo2) (= layerinfo1 layerinfo2))
- (princ "\nit works\n")
- )
- (princ)
- )
这就是我现在所拥有的，如果我画一条线，它找到了一条与这两条线倒角的同一层的现有线。唯一的问题是，我正在努力编程它检查的部分，看看在我画的第一条线的第二个点上，是否有一条与它相交的现有线 | 
