求一个按所选择的图元执行不同命令的例子

Imagizz

选中多段线框  按命令出来 QDIM
选择圆弧按命令出来  圆弧标注
选圆按命令出来  半径标注
可以多选 最好可以先输命令后选实体

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

Imagizz

ZZXXQQ 发表于 2014-7-28 21:33
[/post]

多段线标注要选两次才行   圆和圆弧 标注不起来
不好意思 好像是我题目出的问题  因为标注的画要指定边才行
我改一下不知道可以吗
假设Z轴归零命令是命令AAA  块内实体Z轴归零命令是BBB
当我选择除块以外的实体是 按命令出来是命令AAA
当我选择块时  按命令出来是BBB
做这个程序因为装了个工具箱 工具箱的Z轴归零命令不能对块用   块内归零命令又不能对实体用  想吧这两个命令合并起来
求大神再帮帮忙

ZZXXQQ

2. (defun c:ccc ()
   
3. (if (setq ss (ssget)) (progn
   
4.   (repeat (setq i (sslength ss))
   
5.    (setq ent (entget(ssname ss (setq i (1- i)))))
   
6.    (if (= (cdr(assoc ent)) "INSERT") (c:BBB) (c:AAA))
   
7.   )
   
8. ))
   
9. (princ)
   
10. )

(defun c:ccc ()<br /> (if (setq ss (ssget)) (progn<br />   (repeat (setq i (sslength ss))<br />    (setq ent (entget(ssname ss (setq i (1- i)))))<br />    (if (= (cdr(assoc ent)) "INSERT") (c:BBB) (c:AAA))<br />   )<br /> ))<br /> (princ)<br /> )

Imagizz

ZZXXQQ 发表于 2014-7-30 07:54

还是不行  运行到找到几个图元就停止了