ssget的“f”栏选怎么去掉选择的那根线

duhan6401 · 发表于 2024-3-5 16:48

(setq zpen (car(entsel "\n选择渠道轴线：")))
(setq zpptlst (mapcar 'cdr (vl-remove-if-not '(lambda(a)(or (= (car a) 11) (= (car a) 10))) (entget zpen))) );建立线段点表
(setq zpenobj (vlax-ename->vla-object zpen));把纵剖面线转为object
(setq ss (ssget "f" zpptlst))
这段程序里头我要把选择集里头点选的zpen自身这个图元去掉不知道怎么写了，还请过路的大侠给指导下

ssyfeng · 发表于 2024-3-5 17:56

把它从选择集中删除不就可以了。
(ssdel zpen ss)

duhan6401 · 发表于 2024-3-5 22:53

谢谢，就是这个

xyp1964 · 发表于 2024-3-5 23:20

(if (and (setq s1 (car (entsel "\n选择渠道轴线: ")))
   (setq ptn (mapcar 'cdr (vl-remove-if-not '(lambda (x) (member (car x) '(10 11))) (entget s1))))
)
  (progn
(entdel s1)
(setq ss (ssget "f" ptn))
(entdel s1)
ss
  )
)

duhan6401 · 发表于 2024-3-6 08:18

好简洁的语句，就没有多余的变量

hubeiwdlue · 发表于 2024-3-6 21:24

院长代码看着好舒服。

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

[提问] ssget的“f”栏选怎么去掉选择的那根线