求助，初学者，几行代码三天了还没解决！

crazy007

三天了，求助！！！
以下代码实现一个简单功能，选中指定范围的图元。就差最后一个问题了，红色字体部分。
(defun C:WPS4 ( / i elist at cmde cen rad p1)
  ;; 初始化变量
  ;(setq cmde (getvar "cmdecho")) ; 获取当前的命令回显状态，并存储在变量cmde中
  ;(setvar "cmdecho" 0) ; 设置命令回显状态为0，关闭命令行回显

  (setq i 0 elist (entget (car (entsel "\nPick a circle or polyline: "))))
  ; 初始化i为0，获取用户选择的对象的实体数据，并存储在elist中

  ;; 改变选择模式，允许选择预选的对象
  ;(setvar "OSMODE" (boole 7 (getvar "OSMODE") 16384))
  ;(setvar "OSMODE" 0)
  ;(setvar "OSMODE" (boole 255 (getvar "OSMODE") (- 65536 16384)))
  ;(princ "\n elist:")
  ;(princ elist)
  ;; 检查是否处于命令活动状态，如果不是，则启动选择命令
  (if (zerop (getvar "CMDACTIVE")) (command "_select"))
  ;CMDACTIVE 系统变量，0表示命令行没有命令在执行，1表示有命令在执行，
  ;; 调用_wp或_CP命令（具体取决于注释或实际代码中的选择）
  (command "_wp")
  ; or _CP(圈选模式，cp交选模式）

  (repeat (length elist)
    (setq at (nth i elist) i (1+ i))
    (princ "\n at:")
    (princ at)
    ;; 判断是否是顶点坐标，并将其转换为点
    (if (= (car at) 10) (command (trans (cdr at) 0 1)))
  )
  (command "");此条指令执行完，还处于选择状态，再按回车，选中的图元就失去选择了，这个代码是网上找的

  ;(setvar "OSMODE" (boole 2 (getvar "OSMODE") 16384))
  ;; 重置命令行回显状态
  ;(setvar "cmdecho" 0)

  ;; 打印结果
  (princ)
)


求助！！

xyp1964

1. (defun c:tt ()
   
2.   "选中多段线范围内的图元"
   
3.   (if (setq s1 (car (entsel "\n选择多段线: ")))
   
4.     (progn
   
5.       (setq lst (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget s1))
   
6.             lst (mapcar 'cdr lst)
   
7.             lst (mapcar '(lambda (x) (trans x 0 1)) lst)
   
8.             ss (ssget "wp" lst)
   
9.       )
   
10.       (if ss (sssetfirst nil ss))
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )

(defun c:tt ()<br />   "选中多段线范围内的图元"<br />   (if (setq s1 (car (entsel "\n选择多段线: ")))<br />     (progn<br />       (setq lst (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget s1))<br />             lst (mapcar 'cdr lst)<br />             lst (mapcar '(lambda (x) (trans x 0 1)) lst)<br />             ss (ssget "wp" lst)<br />       )<br />       (if ss (sssetfirst nil ss))<br />     )<br />   ) <br />   (princ)<br /> )

lijiao

你是不是这个意思?

2. (defun C:WPS4 (/ ELIST PTS SS)
   
3.   (princ "\nPick a polyline: ")
   
4.   (if (setq ss (ssget ":E:S" '((0 . "LWPOLYLINE"))))
   
5.     (progn
   
6.       (setq elist (entget (ssname ss 0)))
   
7.       (setq elist (vl-remove-if-not '(lambda (x) (= (car x) 10)) elist))
   
8.       (setq pts (mapcar 'cdr elist))
   
9.       (apply 'command (append '("select" "wp") pts '("" "")))
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )

(defun C:WPS4 (/ ELIST PTS SS)<br />   (princ "\nPick a polyline: ")<br />   (if (setq ss (ssget ":E:S" '((0 . "LWPOLYLINE"))))<br />     (progn<br />       (setq elist (entget (ssname ss 0)))<br />       (setq elist (vl-remove-if-not '(lambda (x) (= (car x) 10)) elist))<br />       (setq pts (mapcar 'cdr elist))<br />       (apply 'command (append '("select" "wp") pts '("" "")))<br />     )<br />   )<br />   (princ)<br /> )

czb203

2. (defun c:tt ()
   
3.   "选中多段线范围内的图元"
   
4.   (if (setq s1 (car (entsel "\n选择多段线: ")))
   
5.     (progn
   
6.       (setq ss (ssget "wp" (xyp-Vertexs s1 0)))
   
7.       (if ss (sssetfirst nil ss))
   
8.     )
   
9.   )
   
10.   (princ)
    
11. )

(defun c:tt ()<br />   "选中多段线范围内的图元"<br />   (if (setq s1 (car (entsel "\n选择多段线: ")))<br />     (progn<br />       (setq ss (ssget "wp" (xyp-Vertexs s1 0)))<br />       (if ss (sssetfirst nil ss))<br />     )<br />   ) <br />   (princ)<br /> )

bonny

大佬们，不考虑下非零凸度的情况么

gble119

没看懂说明意思

muai2010

大佬们也是猜的，说明意图比较好

crazy007

感谢大佬  第一个代码 就可以了  我学习哈

后面两个代码我试了一下    还不行  我也不是很懂  我研究学习哈  感谢各位

crazy007

xyp1964 发表于 2024-7-27 21:12

感谢大佬！