[求助]：请看下面程序

nuance

(defun c:b(/ ob po)
  (setvar "cmdecho" 0)
  (setq ob (car (entsel"\nselect break object:")))
  (setq po (getpoint"\nselect break point:"))
  (command "break" ob "f" po "@")
  )
程序出错
若将第三行的car改为cadr则正常，是何原因？

XDSoft

最初由 nuance 发布
[B](defun c:b(/ ob po)
  (setvar "cmdecho" 0)
  (setq ob (car (entsel"\nselect break object:")))
  (setq po (getpoint"\nselect break point:"))
  (command "break" ob "f" po "@")
  )
程序出错
若将第... [/B]

cadr 得到的是点，可以

正确的做法是car cadr 都不要，直接用entsel 得到的(<实体名> 点) , 这样在一个点处有重合实体时候，能知道具体断的是哪个实体。

2. [font=courier]
   
3. (defun c:b(/ ob po)
   
4.   (setvar "cmdecho" 0)
   
5.   (setq ob (entsel"\nselect break object:"))
   
6.   (setq po (getpoint"\nselect break point:"))
   
7.   (command "break" ob "f" po "@")
   
8.   )
   
9. [/font]

[font=courier]<br /> (defun c:b(/ ob po)<br />   (setvar "cmdecho" 0)<br />   (setq ob (entsel"\nselect break object:"))<br />   (setq po (getpoint"\nselect break point:"))<br />   (command "break" ob "f" po "@")<br />   )<br /> [/font]

nuance

谢谢晓东，头一次知道有这样的用法，同样的用法应该还可以用于其他的 command操作实体吧.
我要学的东西还很多.有点蜀道难.

XDSoft

最初由 nuance 发布
[B]谢谢晓东，头一次知道有这样的用法，同样的用法应该还可以用于其他的 command操作实体吧.
我要学的东西还很多.有点蜀道难. [/B]

ACAD命令交互的时候，所有单选实体的，比如：BREAK,TRIM,EXTEND,OFFSET等等，都可以用(<实体名> 点> 来当参数输入。实体名用来区分操作的实体，点用来做需要点的操作的参数。

多写，经验就多了。有问题发贴到论坛，别人有问题试着回答，不要怕错。

cy956

用实体点位表的方式可以杜绝捕捉错误，尽可能使用。
陈伯雄老师的书里关于这部分内容每本都提到，如果有
你可以看看。