小编Sys*_*ive的帖子

我正在尝试 autocad，我想在矩形和直线之间建立一条“高速公路”。我需要矩形中的 2 个点。有任何想法吗？

(setq en(car(entsel"\Get rectangle : ")))
 (entget en)

我的整个代码

    (defun temaLisp(/  )
  ;HIGHWAY BUILDER
  ;My project is a highwaybulder
  ;How does it work?
  ;Select a rectangle and draw from there to a distance the highway where it meets a stop(Line)
      (princ "TemaLisp ")
   ;get rectangle (prompt "\nSelect the ends of a station")
  (setq en(car(entsel"\Get rectangle : ")))
  (entget en)
  ;get the stop (Line)


     (setq line2 (car (entsel "\nSelect the second line: ")))
            (setq p3 (cdr (assoc 10 …