为什么SSSetfirst不能显示拉伸点夹点？

xinxirong

;逆时针旋转90度
(defun c:r1 ( / ss n elist ent r)
  (setq ss (ssget))
  (repeat (setq n (sslength ss))
    (setq n (1- n)
  ent (ssname ss n)
  elist (entget ent)
  r (cdr (assoc 50 elist))
  )
    (if r
     (progn
      (setq r (+ r (/ pi 2))
    elist (subst (cons 50 r) (assoc 50 elist) elist)
    )
      (entmod elist)
      (entupd ent)
     )
    )
  )
  (sssetfirst nil)
  (sssetfirst nil ss)
  ;(command "_.PSELECT" ss "")
  
)
为什么旋转后要点一下才能显示拉伸点？

marting

你操作都是什么实体？ 还是所有实体都是你说都这样？

marting

下面代码测试成功，你试试

1. 命令: (sssetfirst nil (ssget))
   
2. 选择对象: 指定对角点: 找到 3 个
   
3. 选择对象:
   
4. (nil <Selection set: 13>)
   

命令: (sssetfirst nil (ssget))<br /> 选择对象: 指定对角点: 找到 3 个<br /> 选择对象:<br /> (nil <Selection set: 13>)<br />

你的代码，应该是最后选择集是NIL，你的代码返回的是两个NIL (nil nil)

xinxirong

你测试过吗？我在2008和2013测试过都不行。我选的是图块，快速旋转90度，然后亮显夹点。

marting

xinxirong 发表于 2017-3-29 18:39

当然测试了，要不怎么直到你最后返回的是 (nil nil)

(sssetfirst nil (ssget))

你试下上面的代码，选择下实体，看看有夹点显示没


你的代码，你在 sssetfirst代码前面，打印下 ss 的值， 看看 ss 有值没？
你的代码不亮显，一定是 ss = NIL 了。

xinxirong

ss有对象，只有一个INSERT。
我是说测试一下c:R1这个命令。

newer

xinxirong 发表于 2017-3-29 20:45

你的测试条件要和大家说清楚啊，你试试不旋转INSERT，旋转普通的线什么的，夹点显示不?

newer

xinxirong 发表于 2017-3-29 20:45

测试了你的代码R1，执行完后，你!ss 是没有值的，这就是为什么sssetfirst 返回时 (nil nil)的原因。
没显示夹点，那么一定是选择集没值的原因。

所以，你这样改

1. (defun c:r1 (/ n elist ent r)
   
2.   (setq ss (ssget))
   
3.   (repeat (setq n (sslength ss))
   
4.     (setq n     (1- n)
   
5.           ent   (ssname ss n)
   
6.           elist (entget ent)
   
7.           r     (cdr (assoc 50 elist))
   
8.     )
   
9.     (if r
   
10.       (progn
    
11.         (setq r     (+ r (/ pi 2))
    
12.               elist (subst (cons 50 r) (assoc 50 elist) elist)
    
13.         )
    
14.         (entmod elist)
    
15.         (entupd ent)
    
16.       )
    
17.     )
    
18.   )
    
19.   (sssetfirst nil ss)
    
20. )
    
21. 
    

(defun c:r1 (/ n elist ent r)<br />   (setq ss (ssget))<br />   (repeat (setq n (sslength ss))<br />     (setq n     (1- n)<br />           ent   (ssname ss n)<br />           elist (entget ent)<br />           r     (cdr (assoc 50 elist))<br />     )<br />     (if r<br />       (progn<br />         (setq r     (+ r (/ pi 2))<br />               elist (subst (cons 50 r) (assoc 50 elist) elist)<br />         )<br />         (entmod elist)<br />         (entupd ent)<br />       )<br />     )<br />   )<br />   (sssetfirst nil ss)<br /> )<br /> <br />

命令: r1

选择对象: 指定对角点: 找到 1 个

选择对象:
(nil <Selection set: 53>) 返回的不是NIL了

就会显示夹点了，你看出代码和你的有什么不同了吗？

newer

newer 发表于 2017-3-29 21:18

写个API的

1. (defun c:tt ()
   
2.   (if (setq ss (ssget '((0 . "INSERT"))))
   
3.     (progn
   
4.       (mapcar '(lambda (x)
   
5.                  (xdrx-entity-rotate
   
6.                    x
   
7.                    (/ pi 2.0)
   
8.                    (xdrx-getpropertyvalue x "position")
   
9.                  )
   
10.                )
    
11.               (xdrx-pickset->ents ss)
    
12.       )
    
13.       (sssetfirst nil ss)
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )

(defun c:tt ()<br />   (if (setq ss (ssget '((0 . "INSERT"))))<br />     (progn<br />       (mapcar '(lambda (x)<br />                  (xdrx-entity-rotate<br />                    x<br />                    (/ pi 2.0)<br />                    (xdrx-getpropertyvalue x "position")<br />                  )<br />                )<br />               (xdrx-pickset->ents ss)<br />       )<br />       (sssetfirst nil ss)<br />     )<br />   )<br />   (princ)<br /> )

xinxirong

newer 发表于 2017-3-29 23:07

不好意思，没表达清楚，做个动画来说明一下，用N版的代码在2016下测试一下：选 中图块，输入r1命令，执行完成后并不会亮显夹点，需要点击一下屏幕空白处才能亮显。

我要的效果是像图二一样：

st788796

2. 
   
3. ;;逆时针旋转90度
   
4. (defun c:r1 (/ ss n elist ent r)
   
5.   (if (setq ss (ssget))
   
6.     (progn
   
7.       (repeat (setq n (sslength ss))
   
8.         (setq n            (1- n)
   
9.               ent   (ssname ss n)
   
10.               elist (entget ent)
    
11.               r            (cdr (assoc 50 elist))
    
12.         )
    
13.         (if r
    
14.           (progn
    
15.             (setq r        (+ r (/ pi 2))
    
16.                   elist        (subst (cons 50 r) (assoc 50 elist) elist)
    
17.             )
    
18.             (entmod elist)
    
19.             (entupd ent)
    
20.           )
    
21.         )
    
22.       )
    
23.       (sssetfirst nil ss)
    
24.       (vl-cmdf "regen")
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )

<br /> ;;逆时针旋转90度<br /> (defun c:r1 (/ ss n elist ent r)<br />   (if (setq ss (ssget))<br />     (progn<br />       (repeat (setq n (sslength ss))<br />         (setq n            (1- n)<br />               ent   (ssname ss n)<br />               elist (entget ent)<br />               r            (cdr (assoc 50 elist))<br />         )<br />         (if r<br />           (progn<br />             (setq r        (+ r (/ pi 2))<br />                   elist        (subst (cons 50 r) (assoc 50 elist) elist)<br />             )<br />             (entmod elist)<br />             (entupd ent)<br />           )<br />         )<br />       )<br />       (sssetfirst nil ss)<br />       (vl-cmdf "regen")<br />     )<br />   ) <br />   (princ)<br /> )

xinxirong

(vl-cmdf "regen")对于大图消耗太大，我用 copyclip都觉得不太合理。

newer

xinxirong 发表于 2017-3-30 10:41

1. (defun c:r1 (/ ss n elist ent r)
   
2.   (if (last (ssgetfirst))
   
3.     (progn
   
4.       (sssetfirst)
   
5.       (setq ss (ssget "p"))
   
6.     )
   
7.     (setq ss (ssget))
   
8.   )
   
9.   (repeat (setq n (sslength ss))
   
10.     (setq n        (1- n)
    
11.           ent        (ssname ss n)
    
12.           elist        (entget ent)
    
13.           r        (cdr (assoc 50 elist))
    
14.     )
    
15.     (if        r
    
16.       (progn
    
17.         (setq r            (+ r (/ pi 2))
    
18.               elist (subst (cons 50 r) (assoc 50 elist) elist)
    
19.         )
    
20.         (entmod elist)
    
21.         (entupd ent)
    
22.       )
    
23.     )
    
24.   )
    
25.   (sssetfirst nil ss)
    
26.   (princ)
    
27. )
    

(defun c:r1 (/ ss n elist ent r)<br />   (if (last (ssgetfirst))<br />     (progn<br />       (sssetfirst)<br />       (setq ss (ssget "p"))<br />     )<br />     (setq ss (ssget))<br />   )<br />   (repeat (setq n (sslength ss))<br />     (setq n        (1- n)<br />           ent        (ssname ss n)<br />           elist        (entget ent)<br />           r        (cdr (assoc 50 elist))<br />     )<br />     (if        r<br />       (progn<br />         (setq r            (+ r (/ pi 2))<br />               elist (subst (cons 50 r) (assoc 50 elist) elist)<br />         )<br />         (entmod elist)<br />         (entupd ent)<br />       )<br />     )<br />   )<br />   (sssetfirst nil ss)<br />   (princ)<br /> )<br />