关于(ssadd)用法，请教前辈

千秋雪

      (setq sdkq (ssadd))

      (command "pline" paw1 paw1 pan1 "")
      (command "change" (entlast) "" "p" "lt" "hidden" "lts" 1 "c" "" "")
      (command "pline" pbw1 pbw1 pbn1 "")
      (command "change" (entlast) "" "p" "lt" "hidden" "lts" 1 "c" "" "")
      (command "line" paw1 pbw1 "" "line" pan1 pbn1 "")
      (command "pline" pan1 pan3 pj pbn3 pbn1 "")
      (command "line" pan3 pbn3 "")

      (setq sdkq (ssadd sdkq))

      (command "chprop" sdkq "" "la" (cdr (assoc 8 (entget (car (entsel))))) "")

上面选择集，没能选中，请问，问题出哪里？

错误: 参数类型错误: lentityp <Selection set: 2>

Andyhon

Adds an object (entity) to a selection set, or creates a new selection set

(ssadd [ename [ss]])
Arguments
ename
An entity name.
ss
A selection set.


您没给代码注解,原意不明

...没能选中...
原意想选中什么?
Try
(ssadd (entlast) sdkq)

千秋雪

Andyhon 发表于 2017-12-21 21:10
Adds an object (entity) to a selection set, or creates a new selection set

(ssadd [ename [ss]])

选择自 (setq sdkq (ssadd))始，至(setq sdkq (ssadd sdkq))终，产生的实体

即这些玩意：
      (command "pline" paw1 paw1 pan1 "")
       (command "change" (entlast) "" "p" "lt" "hidden" "lts" 1 "c" "" "")
       (command "pline" pbw1 pbw1 pbn1 "")
       (command "change" (entlast) "" "p" "lt" "hidden" "lts" 1 "c" "" "")
       (command "line" paw1 pbw1 "" "line" pan1 pbn1 "")
       (command "pline" pan1 pan3 pj pbn3 pbn1 "")
       (command "line" pan3 pbn3 "")
全部代码好长，比较繁杂琐碎，这程序流程中的一段画线动作，想选中这段流程产生的东西

千秋雪

      (setq sdkq (ssadd))

       (command "pline" paw1 paw1 pan1 "")
       (command "change" (entlast) "" "p" "lt" "hidden" "lts" 1 "c" "" "")
       (command "pline" pbw1 pbw1 pbn1 "")
       (command "change" (entlast) "" "p" "lt" "hidden" "lts" 1 "c" "" "")
       (command "line" paw1 pbw1 "" "line" pan1 pbn1 "")
       (command "pline" pan1 pan3 pj pbn3 pbn1 "")
       (command "line" pan3 pbn3 "")

       (setq sdkq (ssadd (entlast) sdkq))
这样只选中最后一个





      (setq sdkq (ssadd (entlast) sdkq))

       (command "pline" paw1 paw1 pan1 "")
       (command "change" (entlast) "" "p" "lt" "hidden" "lts" 1 "c" "" "")
       (command "pline" pbw1 pbw1 pbn1 "")
       (command "change" (entlast) "" "p" "lt" "hidden" "lts" 1 "c" "" "")
       (command "line" paw1 pbw1 "" "line" pan1 pbn1 "")
       (command "pline" pan1 pan3 pj pbn3 pbn1 "")
       (command "line" pan3 pbn3 "")

       (setq sdkq (ssadd sdkq))
这样 错误: 参数类型错误: lentityp <Selection set: 2>

hao3ren

每生成一个图元都要加到选择集

Andyhon

您可以每段加

或借重EntNext函数
这个讨论个很多次,请自行搜寻...

Returns the name of the next object (entity) in the drawing

(entnext [ename])
Arguments

ename

The name of an existing entity.

Return Values

If entnext is called with no arguments, it returns the entity name of the first nondeleted entity in the database. If an ename argument is supplied to entnext, the function returns the entity name of the first nondeleted entity following ename in the database. If there is no next entity in the database, it returns nil. The entnext function returns both main entities and subentities.

Examples

(setq e1 (entnext))     ; Sets e1 to the name of the first entity in the  drawing
(setq e2 (entnext e1)) ; Sets e2 to the name of the entity following e1
Notes