ssget 是否可以用圆作为边界条件，选择圆内的对象，求大神指教

wbf424069638 · 发表于 2019-5-28 23:12:09

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

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

×

圆内的有很多直线，直线的一个端点可能在圆上，另一个端点不在圆上，或者直线两个端点都不在圆上，怎么让圆作为边界条件，用ssget 一次性选择这些直线

/db_自贡黄明儒_ · 发表于 2019-5-29 09:18:02

本帖最后由 /db_自贡黄明儒_ 于 2019-5-29 14:39 编辑

先圆上取点，然后用楼上的办法

Yruz · 发表于 2019-5-29 09:01:56

考虑增加个“CP”

sicky111 · 发表于 2019-5-29 11:00:12

黄总上代码！

wbf424069638 · 发表于 2019-5-29 12:32:34

/db_自贡黄明儒_ 发表于 2019-5-29 09:18
先把圆化成点，然后用楼上的办法

圆不能变哦

azyg125 · 发表于 2019-5-31 23:59:33

；；；才学习不久，凑合能用。
(defun c:tt(/ en endata p0 r p_lst ss)
  (setvar "cmdecho" 0)
  (setq endata (entget (setq en (car (entsel "\n选择圆:")))))
  (if (/= (cdr (assoc 0 endata)) "CIRCLE")
(progn
   (alert (strcat "你选择的是" (cdr (assoc 0 endata))",已经退出"))
   (exit)))
  (setq p0 (cdr (assoc 10 endata))
r (+ (cdr (assoc 40 endata))0.00001))
  (command "_.polygon" 180 p0 "c" r)
  (setq p_lst nil)
  (foreach x (entget (entlast))
(if (= 10 (car x))
   (setq p_lst (cons (cdr x) p_lst))))
  (entdel (entlast))
  (setq ss (ssdel en (ssget "wp" p_lst)))
  (princ (strcat "共选择了" (itoa (sslength ss)) "个对象"))
  (prin1)
  )

azyg125 · 发表于 2019-6-1 00:07:06

选择集里没东西会出错，不知道如何解决,请教！

dyjwyqz5221 · 发表于 2019-10-12 13:58:53

这个可以选择园内的直线，就是用圆作为边界条件，用ssget选择
(defun circle_ssget(/ e lst pts)
(setq e (car(xdrx_entsel "请选择圆" '((0 . "circle"))))
lst (xdrx_GetPropertyValue e "Center" "Radius")
pts (apply 'XD::Pnt:GetCirPnts lst)
);;;setq
(XD::Pickset:Grip (ssget "wp" pts '((0 . "line"))))
)

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

[求助] ssget 是否可以用圆作为边界条件，选择圆内的对象，求大神指教

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

点评