[求助]：求助交点断开和曲线连接的LISP原代码

longyancwl · 发表于 2004-6-1 17:08:10

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

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

×

求助交点断开和曲线连接的LISP原代码

qijiun · 发表于 2004-6-1 20:28:18

连接的代码

(defun c:j()
;(setvar "cmdecho" 0)
(princ "\n请选择需要连接的线段: ")
(setq ss (ssget '((0 . "LINE,LWPOLYLINE,ARC"))))
(setq i 0)
(repeat (sslength ss)
   (setq ename (ssname ss i))
   (if (/= ename nil)
      (progn
         (setq endata (entget ename))
         (setq entype (cdr (assoc 0 endata)))
         (setq enlay (cdr (assoc 8 endata)))
         (setq ssp (ssget "x" (list (cons 8 enlay))))
         (setq ssp (ssget "p" '((0 . "LINE,LWPOLYLINE,ARC")(62 . 256))))
         (if (and (or (= entype "LINE")(= entype "ARC")) (/= ssp nil))
               (progn  (command "pedit" ename "y" "j" ssp "" "w" "0" "")
               )
               (progn  (command "pedit" ename "j" ssp "" "w" "0" "")
               )
         )
      )
   )
   (setq i (+ i 1))
)
;;
(prin1)
)
(prin1)
－－－－－－－－－－－－－－－－－－－－－－－－－
打断的代码

(defun c:dd()
(setvar "cmdecho" 1)
(princ "\n请选择需要打断的线段: ")
(setq ss (ssget '()))
(setq p1 (getpoint "\n请选择断点位置:"))
(setq i 0)
(repeat (sslength ss)
   (setq ename (ssname ss i))
   (if (/= ename nil)
      (progn
         (command "break" ename p1 p1)
      )
   )
   (setq i (+ i 1))
   )
(exit)
)

zhuchangpx · 发表于 2004-8-28 20:04:36

很好用！收下了！

刘玉良 · 发表于 2018-3-8 12:00:08

很好用！头一个连线有点问题命令没连续上

刘玉良 · 发表于 2018-3-8 12:01:12

选择对象: ; 错误: *error* 函数中出错参数类型错误: VLA-OBJECT nil

zhgcjl · 发表于 2018-7-29 12:06:01

很好用！收下了！很好用！收下了！

atone · 发表于 2024-2-13 19:52:11

这个交点打断是相当于交点的位置xy方向上垂直打断

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

[求助]：求助交点断开和曲线连接的LISP原代码

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

相关帖子