选择集转换为图元名表

ynhh

网上抄来的与朋友们分享;;;功能：选择集转换为图元名表                                       *;;;参数：SS -----选择集                                             *;;;返回：图元名表                                                   *(defun ZML-SS->ENLIST (SS / I EN LST_EN)    (setq LST_EN '()          I 0    )    (repeat (sslength SS)        (setq EN     (ssname SS I)              LST_EN (cons EN LST_EN)              I             (1+ I)        )    )    ;;返回    (reverse LST_EN))

Lisphk

楼主，美化下代码贴上来就更好了

Lisphk

自己写的

(defun ss->ents (ss / i ents)
  (setq i -1)
  (repeat (sslength ss)
    (setq ents (cons (ssname ss (setq i (1+ i))) ents))
  )
  (reverse ents)
)

ynhh

Lisphk 发表于 2017-2-16 16:29

发的时候格式是好的
发后就乱了
不好意思
还在学习
你的这个更牛X啊
更精神一些

newer

ynhh 发表于 2017-2-16 16:33

你把格式化后的代码 放到 【pre】【/pre】之间就行了，用的时候把把括号换成英文的中括号[],试试，

iLisp

2. 
   
3. (defun ss->ents (ss / sl el)
   
4.     (setq sl (sslength ss))
   
5.     (while (> sl -1)
   
6.        (setq el (cons (ssname ss (setq sl (1- sl))) el))
   
7.     )
   
8.     el
   
9. )

<br /> (defun ss->ents (ss / sl el)<br />     (setq sl (sslength ss))<br />     (while (> sl -1)<br />        (setq el (cons (ssname ss (setq sl (1- sl))) el))<br />     )<br />     el<br /> )

yoyoho

感谢分享学习!!!!

kqqt6236

啥也不说了，感谢楼主分享哇！

ynhh

以下是自贡黄明儒的

;;120.1 [功能] 图元列表->选择集(或者选择集相加)
(defun lst->ss (Lst)
  (apply 'vl-cmdf (cons "_.select" (append Lst (list ""))))
  (ssget "_p")
)
;;120.2 [功能] 选择集->图元列表
(defun ss->lst (ss / I L)
  (repeat (setq i (sslength ss))
    (setq L (cons (ssname ss (setq i (1- i))) L))
  )
)