[推荐]：在送给大家一个好东东

赖莫 · 发表于 2003-12-15 11:24:21

有个使用的说明就好了。

taner · 发表于 2004-1-26 14:21:38

(defun c:vv (/ z d c b k)
  (vl-load-com)
  (princ
"\n½«ËùÑ¡²ãÉÏµÄÊµÌåÁ¬³É¶àÒåÏß£¬²¢ÅÐ¶ÏÆäÊÇ·ñ±ÕºÏ. °æÈ¨ËùÓÐ£ºTH.ÑÔÎ÷Ôç¶þ"
  )
  (setq z (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (setq c (getstring "\n ÊäÈë²ãÃû:"))
  (while (setq a (ssget "x" (list (cons lc c) (cons 0 "line"))))
(setq b (ssname a 0))
(command "change" B "" "p" "c" 30 "")
(command "pedit" b "y" "j" "all" "" "")
(setq k (entlast))

(if (/= (vlax-curve-isClosed k) t)

   (command "change" k "" "p" "c" 232 "")
)
  )
  (while (setq a (ssget "x" (list (cons 8 c) (cons 0 "arc"))))
(setq b (ssname a 0))
(command "change" B "" "p" "c" 30 "")
(command "pedit" b "y" "j" "all" "" "")

(setq k (entlast))

(if (/= (vlax-curve-isClosed k) t)

   (command "change" k "" "p" "c" 232 "")
)
  )
  (setvar "cmdecho" z)

  (command "undo" "e")
  (princ)
)

velvet_gao · 发表于 2004-1-26 14:44:15

和pedit的J选项有什么不同吗？

雨中漫步0423 · 发表于 2004-1-26 22:45:52

taner
\n½«ËùÑ¡²ãÉÏµÄÊµÌåÁ¬³É¶àÒåÏß£¬²¢ÅÐ¶ÏÆäÊÇ·ñ±ÕºÏ. °æÈ¨ËùÓÐ£ºTH.ÑÔÎ÷Ôç¶þ"
上面的那个是什么东东？

我也想知道和PE中的J是不是一个东西？是只是快捷了一点，还是有本意的不同？

taner · 发表于 2004-1-27 13:35:16

½«ËùÑ¡²ãÉÏµÄÊµÌåÁ¬³É¶àÒåÏß£¬²¢ÅÐ¶ÏÆäÊÇ·ñ±ÕºÏ. °æÈ¨ËùÓÐ£ºTH.ÑÔÎ÷Ôç¶þ="将所选层上的实体连成多义线,并判断其是否闭合"
ÊäÈë²ãÃû="请输入层名"
再贴一个
(defun C:vvv (/ s1 n1 n e1 e2 z k a)
  (vl-load-com)
  (princ
"\n将所选实体连成多义线,并判断其是否闭合"
  )
  (setq z (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (setq s1 (ssget))
  (setq n1 (sslength s1))
  (setq n 0)
  (while (< n n1)
(setq e1 (ssname s1 n))
(setq e2 (entget e1))
(if (/= nil e2)
   (progn
(setq a (cdr (assoc 0 e2)))
(if (= a "LINE")
   (progn (command "pedit" e1 "y" "j" "all" "" "")
   (setq k (entlast))

   (if (/= (vlax-curve-isClosed k) t)

   (command "change" k "" "p" "c" 7 "")
   (command "change" k "" "p" "c" 30 "")
   )
   )
   (if (= a "arc")
      (progn (command "pedit" e1 "y" "j" "all" "" "")
   (setq k (entlast))

   (if (/= (vlax-curve-isClosed k) t)

      (command "change" k "" "p" "c" 7 "")
      (command "change" k "" "p" "c" 30 "")
   )
      )
   )
)
   )
)

(setq n (1+ n))
  )
  (setvar "cmdecho" z)
  (command "undo" "e")
  (prin1)
)

雨中漫步0423 · 发表于 2004-1-27 13:49:38

这个命令是不是和PE里的J意思一样啊？把所有共同端点的钱连接？
但如果同一个图层上，有三条线有共同端点，那个是会怎么连接啊？？

taner · 发表于 2004-1-27 14:11:47

我这个只针对首尾相连的结段可用.至于您讲的,我出没想好.

陌生人 · 发表于 2004-1-30 22:43:49

链接层线为pl线，支持断线容差。

(defun c:jbyl ( / ss d)
(while (setq e (entsel "\n选层上参照实体:"))
(setq ss (ssget "x" (list (assoc 8 (entget (car e)))))
ss (ssget "p" '((0 . "POLYLINE,LWPOLYLINE,ARC,LINE")))
d (if d d (getdist "\n断线容差:")))
(cond
(ss
(if (setq ss2 (ssget "p" '((0 . "ARC,LINE"))))
(repeat (setq n (sslength ss))
(vl-cmdf ".pedit" (ssname ss (setq n (1- n))) "y" "")
(ssadd (entlast) ss)
)
)
(vl-cmdf ".pedit" "m" ss "" "y" "j" d "")
)
)
)(princ)
)

xcajcj · 发表于 2004-2-1 18:06:02

看了半天，不知是什么？请楼主说明。

zycl7476 · 发表于 2004-2-20 15:28:20

下不了啊

wwwrj · 发表于 2004-2-20 20:08:56

我也不明白，而且感觉用处也不大

milsake · 发表于 2004-2-21 12:34:10

不明白，能说详细一点吗，真的不懂。

wpcn · 发表于 2004-3-5 00:43:19

好东东怎么都要钱呀

hancebueg · 发表于 2004-3-5 10:54:38

下不了啊 !

wjjdy_2003 · 发表于 2004-3-5 15:49:31

怎么用啊

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

[推荐]：在送给大家一个好东东

浏览过的版块