[必看]：(command "_dimcenter" circle_ent "")?

lsj60912

(setq  circle_ent (car(entsel)))
(command "_dimcenter" circle_ent "")

上述两条语句，第一条我选了一个圆，第二条却出错了，什么道理？

snsj

最初由 lsj60912 发布
[B](setq  circle_ent (car(entsel)))
(command "_dimcenter" circle_ent "")

上述两条语句，第一条我选了一个圆，第二条却出错了，什么道理？ [/B]

2. 
   
3. (setq circle_ent (car(entsel)))
   
4. (command "_dimcenter" circle_ent "")
   
5. 改成：
   
6. (setq circle_ent (entsel))
   
7. (command "_dimcenter" circle_ent "")
   

<br /> (setq circle_ent (car(entsel)))<br /> (command "_dimcenter" circle_ent "")<br /> 改成：<br /> (setq circle_ent (entsel))<br /> (command "_dimcenter" circle_ent "")<br />

COMMAND要的是实体不是实体名所以CAR多余

lsj60912

谢谢大哥，回得可真快呀！
但是新的问题出来了：图形中有很多的圆，想通过程序一次全部标上中心符号。
(setq ss (ssget "w" (getpoint) (getpoint) '((0 . "CIRCLE"))))
(SETQ CC 0)
(REPEAT (sslength ss)
(setq circle_ent (ssname ss CC))
(command "_dimcenter" circle_ent)
(setq CC (1+ CC))
)

如果上面我只能通过(entsel)来得到实体，那我还用程序干什么？

eachy

最初由 lsj60912 发布
[B]谢谢大哥，回得可真快呀！
但是新的问题出来了：图形中有很多的圆，想通过程序一次全部标上中心符号。
(setq ss (ssget "w" (getpoint) (getpoint) '((0 . "CIRCLE"))))
(SETQ CC 0)
(REPEAT (sslength ss)
(s... [/B]

将command一句改成下面的
(command "_dimcenter" (list circle_ent (cdr (assoc 10 (entget circle_ent))) "")

lsj60912

完成的程序如下，有谁要就拿去吧。

2. [FONT=Times New Roman]
   
3. (defun c:circen        (/ pt1 circle_ent ss CC selectmode)
   
4.   (initget "W C")
   
5.   (setq        selectmode
   
6.          (getkword
   
7.            "请给出选择方式：窗选(W)/交叉窗选(C)\<窗选(W)>:"
   
8.          )
   
9.   )
   
10.   (if (null selectmode)
    
11.     (setq selectmode "W")
    
12.   )
    
13.   (if (setq
    
14.         ss (ssget
    
15.              selectmode
    
16.              (setq
    
17.                pt1
    
18.                 (getpoint
    
19.                   "给出窗口两个角点...\n"
    
20.                 )
    
21.              )
    
22.              (getcorner pt1)
    
23.              '((0 . "CIRCLE"))
    
24.            )
    
25.       )
    
26.     (progn
    
27.       (SETQ CC 0)
    
28.       (setvar "cmdecho" 0)
    
29.       (command "undo" "be")
    
30.       (REPEAT (sslength ss)
    
31.         (setq circle_ent (ssname ss CC))
    
32.         (command "_dimcenter"
    
33.                  (list circle_ent (cdr (assoc 10 (entget circle_ent))))
    
34.         )
    
35.         (setq CC (1+ CC))
    
36.       )
    
37.       (command "undo" "end")
    
38.       (setvar "cmdecho" 1)
    
39.       (princ (strcat (itoa cc) "个圆被作上标记。"))
    
40.     )
    
41.     (alert "没有选上圆。")
    
42.   )
    
43.   (princ)
    
44. )
    
45. (princ "一次标出所有的圆中心标记。输入circen运行。")
    
46. (princ)
    

[FONT=Times New Roman]<br /> (defun c:circen        (/ pt1 circle_ent ss CC selectmode)<br />   (initget "W C")<br />   (setq        selectmode<br />          (getkword<br />            "请给出选择方式：窗选(W)/交叉窗选(C)\<窗选(W)>:"<br />          )<br />   )<br />   (if (null selectmode)<br />     (setq selectmode "W")<br />   )<br />   (if (setq<br />         ss (ssget<br />              selectmode<br />              (setq<br />                pt1<br />                 (getpoint<br />                   "给出窗口两个角点...\n"<br />                 )<br />              )<br />              (getcorner pt1)<br />              '((0 . "CIRCLE"))<br />            )<br />       )<br />     (progn<br />       (SETQ CC 0)<br />       (setvar "cmdecho" 0)<br />       (command "undo" "be")<br />       (REPEAT (sslength ss)<br />         (setq circle_ent (ssname ss CC))<br />         (command "_dimcenter"<br />                  (list circle_ent (cdr (assoc 10 (entget circle_ent))))<br />         )<br />         (setq CC (1+ CC))<br />       )<br />       (command "undo" "end")<br />       (setvar "cmdecho" 1)<br />       (princ (strcat (itoa cc) "个圆被作上标记。"))<br />     )<br />     (alert "没有选上圆。")<br />   )<br />   (princ)<br /> )<br /> (princ "一次标出所有的圆中心标记。输入circen运行。")<br /> (princ)<br />

e2002

没有必要设定用户的选择方式,有用户自己决定不更好些?

snsj

E2002的建议不错，最好是让用户决定W.C：）

cy956

最初由 e2002 发布
[B]没有必要设定用户的选择方式,有用户自己决定不更好些? [/B]

呵呵。
一个是带你走一遍，一个手指一下标志物你自己走。
前面是老师后面是大师，不用争了。:P