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

CCarch

牵ぶ伱の佑手(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

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

CCarch

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

CCarch

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

炫翔

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

炫翔

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

CCarch

牵ぶ伱の佑手(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)
)

炫翔

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

炫翔

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

炫翔

炫翔(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")))))      ; 如果数量不多
) )

含泪的射手

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

含泪的射手

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

CCarch

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

CCarch

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

CCarch

牵ぶ伱の佑手(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)
)