过滤选择斜直线

dyjwyqz5221

怎么过滤选择角度不为0度、90度、180度、270度等的直线，即只选择斜直线？

newer

dyjwyqz5221 发表于 2018-4-18 09:36
自己编出来了，好像速度有点慢，求优化

给你写个函数，ABC，返回不是0,180,270,90的直线实体表



(defun abc (ss)
  (vl-remove nil
             (mapcar '(lambda (x)
                        (setq ang (xdrx_getpropertyvalue x "angle")
                              ang (xd::geom:angleformat ang)
                        )
                        (if (not (equal (rem ang (/ pi 2.0)) 0.0 1e-3))
                          x
                          nil
                        )
                      )
                     (xdrx_pickset->ents ss)
             )
  )
)
(defun c:tt ()
  (if (and (setq ss1 (ssget '((0 . "LINE") (67 . 0) (8 . "S_EDGEMEMBERTXT"))))
           (setq a (abc ss1))
      )
    (progn (xdrx_entity_redraw a 1))
  )
  (princ)
)

Lisphk

编程？ 选择直线后，根据两端点算出角度。

dyjwyqz5221

(setq c:tt(/ ss1  list_1 e x)
        (setq ss1 (ssget '((0 . "LINE")(67 . 0)(8 . "S_EDGEMEMBERTXT"))));;;选择直线
        (setq e (xdrx_pickset->ents ss1))
        (setq e (vl-remove-if '(lambda(x)
                                        (or (equal (car (xdrx_getpropertyvalue x "startpoint"))(car (xdrx_getpropertyvalue x "endpoint")))
                                                (equal (cadr (xdrx_getpropertyvalue x "startpoint"))(cadr (xdrx_getpropertyvalue x "endpoint")))
                                            );;;or
                                );;;lambda(x)
                                e               
                );;vl-remove-if                               
        );;;setq
);;;defun

dyjwyqz5221

自己编出来了，好像速度有点慢，求优化

newer

dyjwyqz5221 发表于 2018-4-18 09:35
(setq c:tt(/ ss1  list_1 e x)
        (setq ss1 (ssget '((0 . "LINE")(67 . 0)(8 . "S_EDGEMEMBERTXT"))));;; ...

API 对直线，getpropertyvalue是可以直接求角度的

(setq an (xdrx_getpropertyvalue e "angle"))

dyjwyqz5221

非常感谢newer