[LISP程序]：JJJ-连接多义线

zhkingl · 发表于 2004-2-29 19:06:33

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

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

×

*-*9 *-*9
可以连接多义线的ＬＩＳＰ程序，如以前贴过，请斑竹删除。

wpcn · 发表于 2004-3-8 21:32:35

有什么用？

自由的鱼 · 发表于 2004-3-8 22:07:37

打不开,能把代码帖上来吗?

chenjb990611 · 发表于 2004-3-8 22:21:16

作一动画让我们看一下吧！

JOSDENNIS · 发表于 2004-3-9 09:49:29

嗨! 我還以為是連接SPLINE的. 這個我一般用
(COMMAND "PEDIT" (ENTSEL) "J" "ALL" "" "X") 就搞掂了.

chinese17 · 发表于 2004-3-9 09:53:25

5楼的方法很管用的，我也常用。

andyhua5240 · 发表于 2004-3-12 14:43:46

遇到这种情况，我也常用PE命令哦！

ss1025 · 发表于 2004-3-13 00:26:10

说到PL线，请教一下怎么能将PL线倒直角？

tc405003 · 发表于 2004-3-18 19:48:46

我自己编的LISP很好用的,请大家多指教

(defun c:pJ (/ e  n1 )
   (setq e (ssget) )
         (setq n1 (sslength e))
      (repeat n1
         (command "pedit" e "y" "j" e "")
   ))
(defun c:pw (/ wide e n1 )
  (setq wide (getstring "\nEnter Width:"))
  (setq e (ssget))
  (setq n1 (sslength e))
  (repeat n1
(command "pedit" e "y" "w" wide "x")
  )
)
你的我用过了，好像不行；不知道你是不是想相接的线条连接起来，而且让它成为多义线，如果是的话，试下我的，还不错啊，我上传的LISP命令名是：pj连接线并变为多义线。PW改任一线圆等线宽。

q1q1 · 发表于 2005-3-15 15:53:56

9楼的老兄，你的好向不能用啊

它山之石 · 发表于 2005-3-16 08:53:41

楼主的程序原理是一样的。
不过代码还可以再精简些。

[php]
;;;    功能: 连接多义线
;;;
(DEFUN C:Jjj (/ l1 ls1) (princ "连接多义线命令 :")
   (setq l1 (car (entsel "\n 选择一条用于连接的线 :")))
   (while (= l1 nil)
         (princ "\n没有选中")
         (setq l1 (car (entsel "\n 选择一条用于连接的线 :")))
   )
   (prompt "\n 选择需要连接的多义线:")
   (setq ls1 (ssget))
   (setvar "cmdecho" 0)
         (setq e0 (entget l1))
         (setq e (dxf 0 e0))
         (if (/= e "LWPOLYLINE")
            (progn
               (COMMAND "PEDIT" l1 "Y" "J" ls1 "" "X")
            )
         )
      (if (= e "LWPOLYLINE")
            (progn
               (COMMAND "PEDIT" l1 "J" ls1 "" "X")
            )
      )
   (setvar "cmdecho" 1)
(PRINC)
)
[/php]

shuaier · 发表于 2005-9-11 18:00:06

怎么连接不上？

pdi2scad · 发表于 2005-9-12 11:11:42

haodongdong

xinbuzhe · 发表于 2005-9-12 12:59:46

好像2004里面，这些都用不了

feizheng · 发表于 2005-9-17 21:02:31

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

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

×

好象用cad自带的命令就可以了

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

[LISP程序]：JJJ-连接多义线

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

相关帖子

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

相关帖子