【LISP程序】规划中处理交叉路口-by eachy

XDSoft · 发表于 2002-1-10 19:50:31

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;这是一个很简单的程序,用于规划中处理交叉路口(交点打断)
;;问题:只能处理line pline(可以拟合) arc,对spline错
;;
(defun c:brkroad (/ mm ss e intl int1 pl x)
  (xdrx_begin '("cmdecho" "0"))
  (xdrx_ucson)
  (princ "\n窗选路口(每次处理一个路口)...")
  (setq mm 0.1)
  (setq ss (ssget
      '((0 . "line,arc,*polyline,spline") ;|(8 . "ground")|;)
   )
  )
  (if ss
(progn
   (setq intl (xdrx_getinters ss)
      pt    (xdrx_getlastpts)
   )
   (setvar "aperture" (getvar "pickbox"))
   (c:xdrx_setmark)
   (while (setq int1 (car intl))
(setq ss (ssget "_c"
         (polar int1 (* 1.25 pi) (* 0.1 bl))
                  ;bl为出图比例
         (polar int1 (* 0.25 pi) (* 0.1 bl))
      )
)
;;(setq ss (xdrx_getptss int1 mm 1)) 以上选择集用getptss后不能处理spline arc
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
   (command ".break" (list e int1) int1)
)
(setq intl (cdr intl))
   )
   (setq ss (xdrx_getss)
      pl (xdrx_searchoutline ss)
   )
   (if pl
(progn
   (setq pl (apply 'xdrx_pointsoffset (cons (* 0.1 bl) pl)))
                  ;十子路口
   (command ".erase" "wp")
   (foreach x pl (command x))
   (command "" "")
   (command)
)
(command ".erase" "w" (car pt) (cadr pt) "") ;丁字路口
   )
)
  )
  (xdrx_ucsoff)
  (xdrx_end)
  (princ)
)

GTJ116600 · 发表于 2013-4-20 22:32:21

牢固发表于 2013-4-19 12:03
批量交点打断，除了Spline曲线外，其他曲线最好都不要用Break命令，以提高效率！
嗯嗯，不只这个程序，能尽量不用command就尽量不用。

lgb711010 · 发表于 2014-5-19 01:36:55

不错，很需要，解决了规划路口处理问题，效率很高！！！！

myzwsc · 发表于 2014-9-23 02:55:40

测量有用，谢谢。

77077 · 发表于 2014-10-1 00:40:10

不错，再加上下

XDSoft · 发表于 2014-10-1 01:28:24

77077 发表于 2014-10-1 00:40
不错，再加上下

12年前的帖子给翻上来了，现在要写这个，代码就很短了。

(defun c:tt ()
(xdrx_begin)
(if (and
(setq p1 (getpoint "\n窗口第一点<退出>:"))
(setq p2 (getcorner p1 "\n窗口第二点<退出>:"))
(setq ss (ssget "c" p1 p2 '((0 . "*LINE,ARC"))))
(setq ss (xdrx_curve_intersectbreak ss))
(xdrx_object_regen ss)
(setq ss1 (ssget "w" p1 p2 '((0 . "*LINE,ARC"))))
)
(xdrx_entity_delete ss1)
)
(xdrx_end)
(princ)
)

账号		自动登录	找回密码
密码			立即注册

【LISP程序】规划中处理交叉路口-by eachy

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评