entlast是不是在程序执行完成才把刚运行完的命令建立的图元加入到数据库

winerfjy

2. (defun c:99()
   
3. (setvar "cmdecho" 0)  
   
4. (command"_dimaligned" "")
   
5. (setq a(entlast)
   
6.       ss(ssadd a))
   
7. (command "dimedit" "o" ss "" "90" )
   
8. (princ))

(defun c:99()<br /> (setvar "cmdecho" 0)  <br /> (command"_dimaligned" "")<br /> (setq a(entlast)<br />       ss(ssadd a))<br /> (command "dimedit" "o" ss "" "90" )<br /> (princ))

如图左图标注完尺寸倾斜没有执行因为刚标注的尺寸不是最后加入数据库的
(command "dimedit" "o" ss "" "90" )这句中的对象ss选不中刚才标注的尺寸而是上一个建立的图元
      要的是右图的效果

但是分成两个程序却能得到要的效果
(defun c:99()
(setvar "cmdecho" 0)  
(command"_dimaligned" ""))
(defun c:999()
  (setq a(entlast)
       ss(ssadd a))
(command "dimedit" "o" ss "" "90" )
(princ))

winerfjy

谢谢大家！问题已经解决

1. (defun c:99()
   
2. (setvar "cmdecho" 0)  
   
3. (command"_dimaligned")
   
4. (while (> (getvar "CMDACTIVE") 0)
   
5. (command PAUSE))
   
6. (setq ss(entlast))
   
7. (command "dimedit" "o" ss "" "90" )
   
8. (princ))

(defun c:99()<br /> (setvar "cmdecho" 0)  <br /> (command"_dimaligned")<br /> (while (> (getvar "CMDACTIVE") 0)<br /> (command PAUSE)) <br /> (setq ss(entlast))<br /> (command "dimedit" "o" ss "" "90" )<br /> (princ))

liu_kunlun

你把ss直接用(entlast)代替看一下。好像问题处在（ssadd a）

winerfjy

liu_kunlun 发表于 2015-11-19 17:00
你把ss直接用(entlast)代替看一下。好像问题处在（ssadd a）

早就试过了不行的

liu_kunlun

(command"_dimaligned" "")不能完成标注。应该是要检测到命令执行完毕后才能去执行后面的修改语句，好像用变量cmdactive检测。

代码可能应为：
(command "_dimaligned“)
(while  (/= 0 (getvar "cmdactive"))
   (command  pause)
)
(setq a(entlast)).......
      

xiaolong1487

(setq a (entlast)
      ss(ssadd a)) 这个可以不要了！


ss直接换成 (entlast) 。

winerfjy

xiaolong1487 发表于 2015-11-20 11:59
(setq a (entlast)
      ss(ssadd a)) 这个可以不要了！

谢谢指点已经去除