break 之后的图元名

cable2004

给个建议，没有测试过。
(defun GetlastallEnt ( / e en lst)
  (setq en (entlast) lst (cons en lst))
  (if en
    (while (setq e (entnext en))
      (setq lst (cons e lst)  en e)
    )
  )
lst
)

暗夜贵族

cable2004 发表于 2015-7-9 13:40
给个建议，没有测试过。
(defun GetlastallEnt ( / e en lst)
  (setq en (entlast) lst (cons en lst)) ...

搞不定啊，难得系统参数设置有问题？
delobj 控制创建其他对象的对象将从图形数据库中删除还是保留在图形数据库中：0.保留对象 1. 删除对象
修改了也不起作用啊

暗夜贵族

edata 发表于 2015-7-9 12:15

找到问题原因了，plinetype 设置为2

陨落

11楼应该是正解

暗夜贵族

陨落 发表于 2015-7-10 14:34
11楼应该是正解

解不出来，plinetype 为0的时候，旧图元无法使用

edata

你这个很奇葩，我在08上测色，即使是0值，也没影响。
输入 PLINETYPE 的新值 <2>: 0

命令: tt
<图元名: 7efec3b0> break 选择对象:
选择对象:
指定第二个打断点 或 [第一点(F)]: f
指定第一个打断点:
指定第二个打断点:
命令:
(<图元名: 7efec3a8> (528.411 495.792 0.0))
<图元名: 7efec408>

命令: (entsel)

选择对象: (<图元名: 7efec3a8> (492.276 497.693 0.0))

命令: (entsel)

选择对象: (<图元名: 7efec408> (737.612 507.198 0.0))

1. (defun c:tt()
   
2.   (print (entlast))
   
3.   (command "break" (setq en(entsel)) "f" pause pause)
   
4.   (print en)
   
5.   (print (entlast))
   
6.   (print (entsel))
   
7.   (print (entsel))
   
8.   (princ)
   
9.   )

(defun c:tt()<br />   (print (entlast))<br />   (command "break" (setq en(entsel)) "f" pause pause)<br />   (print en)<br />   (print (entlast))<br />   (print (entsel))<br />   (print (entsel))<br />   (princ)<br />   )

暗夜贵族

edata 发表于 2015-7-10 16:10
你这个很奇葩，我在08上测色，即使是0值，也没影响。
输入 PLINETYPE 的新值 : 0

我的是07的，plinetype为0的时候就不行，plinetype设置为2重新画pl线之后程序测试就没问题