2013-06-18 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

CCarch · 发表于 2013-6-18 19:46:08

牵ぶ伱の佑手(379002274)于2013-06-18 19-46-08：
(defun c:ltop (os ss n ent pt)
  (setq os(getvar "OSMODE"))
(setvar "OSMODE" 0)
  (setq ss (ssget (list '(0 . "LINE"))))
  (setq n 0)
  (repeat (SSLENGTH ss)
(setq ent (ssname ss n))
(if (and (= (cadr (assoc 10 (entget ent)))
(cadr (assoc 11 (entget ent)))
      )
      (= (caddr (assoc 10 (entget ent)))
(caddr (assoc 11 (entget ent)))
      )
      (= (cadddr (assoc 10 (entget ent)))
(cadddr (assoc 11 (entget ent)))
      )
)
   (progn
(setq pt (cdr (assoc 10 (entget ent))))
(command "point" pt)
(command "erase" ent "")
   )
)
(setq n (1+ n))
  )
  (setvar "OSMODE" os)
  (princ)
)

CCarch · 发表于 2013-6-18 19:46:55

牵ぶ伱の佑手(379002274)于2013-06-18 19-46-55：
开头少一/自己加

CCarch · 发表于 2013-6-18 19:48:58

牵ぶ伱の佑手(379002274)于2013-06-18 19-48-58：
上面主要是把长度为0的线转成点

CCarch · 发表于 2013-6-18 19:49:20

牵ぶ伱の佑手(379002274)于2013-06-18 19-49-20：
不知道大侠有没有好方法，上面的这玩意太卡了

炫翔 · 发表于 2013-6-18 19:49:30

炫翔(2363673534)于2013-06-18 19-49-30：
[qqimg]{D04AB881-8327-EA98-50ED-C162D445B714}.jpg[/qqimg]T

炫翔 · 发表于 2013-6-18 19:49:38

炫翔(2363673534)于2013-06-18 19-49-38：
字太红了

CCarch · 发表于 2013-6-18 19:50:39

牵ぶ伱の佑手(379002274)于2013-06-18 19-50-39：
(defun c:ltop (/ os ss n ent pt)
  (setq os(getvar "OSMODE"))
(setvar "OSMODE" 0)
  (setq ss (ssget (list '(0 . "LINE"))))
  (setq n 0)
  (repeat (SSLENGTH ss)
(setq ent (ssname ss n))
(if (and (= (cadr (assoc 10 (entget ent)))
(cadr (assoc 11 (entget ent)))
      )
      (= (caddr (assoc 10 (entget ent)))
(caddr (assoc 11 (entget ent)))
      )
      (= (cadddr (assoc 10 (entget ent)))
(cadddr (assoc 11 (entget ent)))
      )
)
   (progn
(setq pt (cdr (assoc 10 (entget ent))))
(command "point" pt)
(command "erase" ent "")
   )
)
(setq n (1+ n))
  )
  (setvar "OSMODE" os)
  (princ)
)

炫翔 · 发表于 2013-6-18 19:52:40

炫翔(2363673534)于2013-06-18 19-52-40：
[face0.gif]

炫翔 · 发表于 2013-6-18 19:52:51

炫翔(2363673534)于2013-06-18 19-52-51：
直接判断是否为零就行了

炫翔 · 发表于 2013-6-18 19:53:17

炫翔(2363673534)于2013-06-18 19-53-17：
(Mapcar
  'entdel
  (mapcar
(function
   (lambda (e)
      (if
      (zerop (vla-get-length (vlax-ename->vla-object e)))
      e
) ) )
(mapcar 'cadr (ssnamex (ssget '((0 . "LINE")))))    ; 如果数量不多
) )

含泪的射手 · 发表于 2013-6-18 19:53:17

含泪的射手(54374454)于2013-06-18 19-53-17：
[qqimg]{CA4343E2-1CBC-5379-C161-7ABB096F3B32}.jpg[/qqimg]这一段的用处是什么？直接要一个就可以了吧

含泪的射手 · 发表于 2013-6-18 19:53:43

含泪的射手(54374454)于2013-06-18 19-53-43：
用“vla-get-length”最方便

CCarch · 发表于 2013-6-18 19:54:04

牵ぶ伱の佑手(379002274)于2013-06-18 19-54-04：
vla有没有什么好处呀

CCarch · 发表于 2013-6-18 19:54:07

牵ぶ伱の佑手(379002274)于2013-06-18 19-54-07：
有没有更快

CCarch · 发表于 2013-6-18 19:57:06

牵ぶ伱の佑手(379002274)于2013-06-18 19-57-06：
(defun c:ltop (/ os ss n ent pt)
  (VL-LOAD-COM)
  (setq os(getvar "OSMODE"))
(setvar "OSMODE" 0)
  (setq ss (ssget (list '(0 . "LINE"))))
  (setq n 0)
  (repeat (SSLENGTH ss)
(setq ent (ssname ss n))
(if (= 0 (vla-get-Length  (vlax-ename->vla-object ent)))
   (progn
(setq pt (cdr (assoc 10 (entget ent))))
(command "point" pt)
(command "erase" ent "")
   )
)
(setq n (1+ n))
  )
  (setvar "OSMODE" os)
  (princ)
)

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