<p>1、将原来的表删了再统计就不会错了。</p><p>2、符号如何与圆配对？最好将原来的画图步骤仔细写明。</p>
ZZXXQ你好，这是我新上传的，谢谢，请帮忙，里边有程序的过程?请看
上传的东西在哪里?
<p></p><p>不好意思,现在补上去了,呵^^请ZZXXQQ帮忙了</p>
请ZZXXQQ尽快帮忙搞好，我现在还在用cam350处理,好不方便，
还是不明白符号如何与圆配对！换句话说就是：不知道圆中应放什么符号？
<p>嗯,我给的那些1.dwg 2.dwg 3.dwg.........那些就是符号引用的序号</p><p>如果第一个圆孔是0.66-引用的就是第一个 1.dwg文件,</p><p>第二个是0.71--引用的就是2.dwg文件</p><p>依此往下引用就行了一共有24个符号dwg文件由小到大按1-44那几个dwg文件来调用,谢谢你ZZXXQQ</p>
本帖最后由 作者 于 2008-1-19 20:07:06 编辑
;圆分色按大小填标记号 明经 ZZXXQQ 2008.1.19
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (setq ss (ssget '((0 . "CIRCLE")))) (progn
(command ".UNDO" "BE")
(setq i -1cirlst (list))
(repeat (sslength ss)
(setq r (cdr (assoc 40 (entget (setq en (ssname ss (setq i (1+ i))))))))
(if (assoc r cirlst)
(setq cirlst (subst (cons r (1+ (cdr (assoc r cirlst)))) (assoc r cirlst) cirlst))
(setq cirlst (cons (cons r 1) cirlst))
)
)
(setq i -1 cirlst (reverse cirlst))
(setq dwglst (list "1" "2" "3" "4" "5" "9" "10" "11" "18" "20" "24" "25" "26" "28" "31" "32"
"34" "35" "38" "39" "40" "41" "42" "44"))
(setq cirlst (vl-sort cirlst (function (lambda (e1 e2) (< (car e1) (car e2))))))
(repeat (length cirlst)
(setq r (car (nth (setq i (1+ i)) cirlst)))
(command "select" ss "")
(setq ss1 (ssget "P" (list (cons 0 "CIRCLE") (cons 40 r))))
(command "chprop" ss1 "" "C" (itoa (1+ i)) "")
(if (setq bnm (findfile (strcat (nth i dwglst) ".dwg"))) (progn
(setq j 0)
(setq pc (cdr(assoc 10 (entget(ssname ss1 0)))))
(command "-insert" bnm pc "" "" "" "chprop" "l" "" "C" (itoa (1+ i)) "")
(setq bnm (nth i dwglst))
(repeat (1- (sslength ss1))
(setq pc (cdr (assoc 10 (entget(ssname ss1 (setq j (1+ j)))))))
(command "-insert" bnm pc "" "" "" "chprop" "l" "" "C" (itoa (1+ i)) "")
)
))
)
(command ".UNDO" "E")
))
(setvar "CMDECHO" 1)
(princ)
)
<p>错误: *error* 函数中出错AutoCAD 变量设置被拒绝: "cmdecho" nil</p><p></p><p>还有,只能用一个符号,但有些会出现在圆心以外,请ZZXXQQ帮忙修改,谢谢**</p>
<p>为什么会被拒绝?是不是要修改变量?如果要的话应该在哪里修改如何修改?谢谢ZZXXQQ</p><p>请帮忙修正,</p>